Actual source code: ex17f.F
1: !
2: ! "$Id: ex17f.F,v 1.3 2000/09/27 20:05:06 bsmith Exp $";
3: !
4: !
5: ! Test for PetscFOpen() from Fortran
6: !
7: program main
8: #include finclude/petsc.h
10: integer ierr,rank
11: PetscFortranAddr file
12: character*100 joe
13:
14: call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
15: call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr)
17: call PetscFOpen(PETSC_COMM_WORLD,'testfile','w',file,ierr)
18:
19: call PetscFPrintf(PETSC_COMM_WORLD,file,'Hi once \n',ierr)
20: call PetscSynchronizedFPrintf(PETSC_COMM_WORLD,file,'Hi twice \n', &
21: & ierr)
22: call PetscSynchronizedFlush(PETSC_COMM_WORLD,ierr)
24: write (FMT=*,UNIT=joe) 'greetings from ',rank,'\n'
25: call PetscSynchronizedFPrintf(PETSC_COMM_WORLD,file,joe,ierr)
26: call PetscSynchronizedFlush(PETSC_COMM_WORLD,ierr)
28: call PetscFClose(PETSC_COMM_WORLD,file,ierr)
30: call PetscFinalize(ierr)
31: end