C******************************************** C******************************************** SUBROUTINE FCLOSE C******************************************** C******************************************** C CLOSE (31) CLOSE (32) CLOSE (33) CLOSE (34) CLOSE (35) CLOSE (36) CLOSE (37) CLOSE (38) CLOSE (39) C C CLOSE (81) CLOSE (82) CLOSE (83) CLOSE (84) CLOSE (85) CLOSE (86) CLOSE (87) CLOSE (88) CLOSE (89) C CLOSE(72) C CLOSE(16) C C RETURN END