Actual source code: ex17f.F
petsc-3.7.3 2016-07-24
1: !
2: !
3: ! Test for PetscFOpen() from Fortran
4: !
5: program main
6: #include <petsc/finclude/petscsys.h>
8: PetscErrorCode ierr
9: PetscMPIInt rank
10: PetscFortranAddr file
11: character*100 joe
13: call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
14: call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr)
16: call PetscFOpen(PETSC_COMM_WORLD,'testfile','w',file,ierr)
18: call PetscFPrintf(PETSC_COMM_WORLD,file,'Hi once \n',ierr)
19: call PetscSynchronizedFPrintf(PETSC_COMM_WORLD,file,'Hi twice \n', &
20: & ierr)
21: call PetscSynchronizedFlush(PETSC_COMM_WORLD,file,ierr)
23: write (FMT=*,UNIT=joe) 'greetings from ',rank,'\n'
24: call PetscSynchronizedFPrintf(PETSC_COMM_WORLD,file,joe,ierr)
25: call PetscSynchronizedFlush(PETSC_COMM_WORLD,file,ierr)
27: call PetscFClose(PETSC_COMM_WORLD,file,ierr)
29: call PetscFinalize(ierr)
30: end