BlockSolve95 error

[Keita Teranishi]

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
>
>
>