BlockSolve95 error

[Panyasantisuk Jarunan]

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