SUBROUTINE MPCLOS ( munit ) C C MPClos - close an Rdm map file C C Walt Shpuntoff Institute for Resource Management C 2666 Riva Road - Suite 360 C Annapolis, MD 21401 C (301) 266 - 9216 C IMPLICIT INTEGER(A-Z) INCLUDE 'RDMCOM.F77' C C.. Check Curfil C C C.. Check to see if file is still mapped C sort(3,Curfil) = sort(3,Curfil) - 1 IF (sort(3,Curfil).LE.0) mapped(Curfil) = .False. C CLOSE( munit ) C C.. adjust the map table (close in the gaps) C Nmaps = Nmaps - 1 RETURN END