anchor.diff:        INTEGER IOUNIT
         CHARACTER*(*) FILNAM
   
  -      PRINT *, '==> FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
  -
         OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
  -
  -      PRINT *, '<== FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
   
         RETURN
    9999 END
  
positive.code:       IMPLICIT NONE
        INTEGER IOUNIT
  
        PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
  
        CLOSE (UNIT=IOUNIT)
  
        PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
        RETURN
   9999 END
  
negative.code:       INTEGER IOUNIT
        CHARACTER*(*) FILNAM
  
        OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
        RETURN
   9999 END
  
  