1: ! 2: ! Simple PETSc Program written in Fortran 3: ! 4: program main 5: #include <petsc/finclude/petscsys.h> 6: use petscsys 7: implicit none 9: PetscErrorCode ierr 10: PetscMPIInt rank 11: character*(80) arch 13: call PetscInitialize(PETSC_NULL_CHARACTER,ierr) 14: if (ierr .ne. 0) then 15: print*, 'Unable to begin PETSc program' 16: endif 18: call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr) 19: print*, 'Greetings from rank', rank 21: call PetscGetArchType(arch,ierr) 22: write(6,100) arch 23: 100 format (' PETSC_ARCH ',A) 25: call PetscFinalize(ierr) 26: end 28: ! 29: !/*TEST 30: ! 31: ! test: 32: ! filter: grep -v PETSC_ARCH 33: ! 34: !TEST*/