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