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