Actual source code: ex5.F
1: ! "$Id: ex5.F,v 1.13 2000/09/27 20:04:20 bsmith Exp $";
2: !
3: ! Simple PETSc Program written in Fortran 77.
4: !
5: program main
6: #include include/finclude/petsc.h
7: integer ierr,rank
8: character*(80) arch
10: call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
12: if (ierr .ne. 0) then
13: print*, 'Unable to begin PETSc program'
14: endif
16: call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr)
17: print*, 'Greetings from', rank
19: call PetscGetArchType(arch,ierr)
20: print*, 'Machine type ',arch
22: call PetscFinalize(ierr)
23: end