Thanks, it still does not work in a big case, as you adviced. I will try to investigate.
Regards, Jarunan -- Jarunan PANYASANTISUK MSc. in Computational Mechanics Erasmus Mundus Master Program Ecole Centrale de Nantes 1, rue de la no?, 44321 NANTES, FRANCE Keita Teranishi <keita at cray.com> a ??crit? : > Jarunan, > > Make the value for MAX_NUM_MSGS bigger in BlockSolve95/include/BSprivate.h. > >> #define MAX_NUM_MSGS 10000000 > > You will need to change the values of other "MAX_XXXX" variables in > the header files because computers nowadays have much bigger > capacity/capability than those in mid 90's. > > > ================================ > Keita Teranishi > Math Software Group > Cray, Inc. > keita at cray.com > ================================ > > -----Original Message----- > From: owner-petsc-users at mcs.anl.gov > [mailto:owner-petsc-users at mcs.anl.gov] On Behalf Of Barry Smith > Sent: Wednesday, November 26, 2008 3:20 PM > To: petsc-users at mcs.anl.gov > Subject: Re: BlockSolve95 error > > > I have no idea. BlockSolve has not been supported by its > developers for like > 10 years. Those messages are coming from inside BlockSolve which we > don't > support. > > I'm sorry for the terse response but we cannot support all the > orphaned parallel > numerical software in the world. > > Barry > > On Nov 26, 2008, at 8:43 AM, Panyasantisuk Jarunan wrote: > >> Hello, >> >> Could you please explain the error I got from running code with >> blocksolve95?: >> ERROR: Code -30 occured at Line 103 in File BMcomp_msg.c: Too many >> messages in comp_msg >> ERROR: Code -30 occured at Line 48 in File BSsetup_factor.c >> >> I cannot find BMcomp_msg.c and BSsetup_factor.c anywhere. >> >> For running I use: mpirun -np 3 -machinefile machines ./test2 >> It works with other test cases though. >> >> In the fortran code: >> >> call MatCreate(PETSC_COMM_WORLD,D,ierr) >> call MatSetSizes(D,N,N,PETSC_DETERMINE,PETSC_DETERMINE, >> $ ierr) >> call MatSetType(D,MATMPIROWBS,ierr) >> call MatSetFromOptions(D,ierr) >> call MatMPIRowbsSetPreallocation(D,nz,PETSC_NULL_INTEGER,ierr) >> ... >> ... >> >> call KSPCreate(PETSC_COMM_WORLD,ksp,ierr) >> call KSPSetOperators(ksp,D,D,DIFFERENT_NONZERO_PATTERN,ierr) >> call KSPGetPC(ksp,pc,ierr) >> call PCSetType(pc,PCILU,ierr) >> >> Thank you before hand >> >> Regards, >> Jarunan >> >> -- >> Jarunan PANYASANTISUK >> MSc. in Computational Mechanics >> Erasmus Mundus Master Program >> Ecole Centrale de Nantes >> 1, rue de la no?, 44321 NANTES, FRANCE >> >> >> > >
