SUBROUTINE MPCLOS ( munit ) C C close a map file C C Walt Shpuntoff Institute for Resource Management C P.O. Box 869, Arnold, MD 21012 C (301) 757- 6503 c c RDM is a copyright of Interactive Technology, Inc C 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