SUBROUTINE CLOSE_MGMT_FILE( UNIT_NUM ) C---------------------------------------------------------------------- C- C- Purpose and Methods : Closes the input file C- C- Inputs : C- UNIT_NUM The IO unit number C- Outputs : NONE C- Controls: NONE C- C- Created 6-JUN-1990 MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE C- C---------------------------------------------------------------------- IMPLICIT NONE C---------------------------------------------------------------------- C C argument declarations C INTEGER UNIT_NUM C C C CLOSE( UNIT = UNIT_NUM ) 999 RETURN END