SUBROUTINE COSMAP_CLOSE ( BD, STATUS ) BD = INTEGER (given) bigimage descriptor STATUS = INTEGER (given and returned) global status