Hello,
I want to get version of Petsc but the command PetscGetVersion is not
supported in Fortran. Is there another command I can use for Fortran?
Thanks
Jarunan
--
Jarunan Panyasantisuk
Development Engineer
ASCOMP GmbH, Technoparkstr. 1
CH-8005 Zurich, Switzerland
Phone : +41 44 445 4072
On Thu, 15 Jul 2010 12:07:40 +0200, jarunan at ascomp.ch wrote:
Hello,
I want to get version of Petsc but the command PetscGetVersion is not
supported in Fortran. Is there another command I can use for Fortran?
#if (PETSC_VERSION_RELEASE == 1)
#define PetscGetVersion(version,len)
For eg:
#if (PETSC_VERSION_RELEASE == 1)
write(6,25)
PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR,PETSC_VERSION_SUBMINOR,PETSC_VERSION_PATCH
25 format('PETSc Release Version: ',i1,'.',i1,'.',i1,' Patch:',i2)
#else
write(6,25)
25 format('PETSc Development Version: ',
Thanks a lot
Jarunan
Quoting Satish Balay balay at mcs.anl.gov:
For eg:
#if (PETSC_VERSION_RELEASE == 1)
write(6,25)
PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR,PETSC_VERSION_SUBMINOR,PETSC_VERSION_PATCH
25 format('PETSc Release Version: ',i1,'.',i1,'.',i1,' Patch:',i2)
#else