Layout of routine f_close

SUBROUTINE F_CLOSE ....... DO J=1,JPNCDF NPOS=IPOS(J) CALL NCCLOS(NPOS,IERR) ENDDO END SUBROUTINE F_CLOSE