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