Actual source code: ex17f.F

  1: !
  2: !
  3: !     Test for PetscFOpen() from Fortran
  4: !
  5:        program main
 6:  #include finclude/petscsys.h

  8:       PetscErrorCode ierr
  9:       PetscMPIInt rank
 10:       PetscFortranAddr file
 11:       character*100    joe
 12: 
 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)
 17: 
 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,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,ierr)

 27:       call PetscFClose(PETSC_COMM_WORLD,file,ierr)

 29:       call PetscFinalize(ierr)
 30:       end