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:[email protected]] 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 > > >
