INCLUDE 'Gen_GetUnit.interface'
INCLUDE 'Gen_FreeUnit.interface'

...




CHARACTER (LEN=24) :: filename
INTEGER            :: unitno, errorstatus



...




!Open an output file for this processor
WRITE (filename,'(A23,I1)') '$DATADIR/tmp/Pressures-',mype
CALL Gen_GetUnit (unitno,errorstatus)
OPEN (unitno,file=filename)

...

CLOSE (unitno)
CALL Gen_FreeUnit (unitno,errorstatus)