bief_close_files.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\bief_close_files.f
00002 !
00059                      SUBROUTINE BIEF_CLOSE_FILES
00060 !                    ***************************
00061 !
00062      &(CODE,FILES,NFILES,PEXIT)
00063 !
00064 !***********************************************************************
00065 ! BIEF   V6P1                                   21/08/2010
00066 !***********************************************************************
00067 !
00068 !
00069 !
00070 !
00071 !
00072 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00073 !| CODE           |-->| THE CALLING PROGRAM
00074 !| FILES          |-->| ARRAY OF BIEF_FILE STRUCTURES
00075 !| NFILES         |-->| TOTAL NUMBER OF FILES
00076 !| PEXIT          |-->| LOGICAL, IF YES, P_EXIT WILL BE CALLED
00077 !|                |   | TO STOP PARALLELISM
00078 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00079 !
00080       USE BIEF, EX_BIEF_CLOSE_FILES => BIEF_CLOSE_FILES
00081 !
00082       USE DECLARATIONS_TELEMAC
00083       USE M_MED
00084 !
00085       IMPLICIT NONE
00086       INTEGER     LNG,LU
00087       COMMON/INFO/LNG,LU
00088 !
00089 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00090 !
00091       INTEGER          , INTENT(IN)     :: NFILES
00092       CHARACTER(LEN=24), INTENT(IN)     :: CODE
00093       LOGICAL, INTENT(IN)               :: PEXIT
00094       TYPE(BIEF_FILE)   , INTENT(INOUT) :: FILES(NFILES)
00095 !
00096 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00097 !
00098       INTEGER I
00099 !
00100 !-----------------------------------------------------------------------
00101 !
00102       DO I=1,NFILES
00103 !
00104         IF(FILES(I)%NAME(1:1).NE.' ') THEN
00105 !
00106 !         CLOSES THE FILE
00107 !
00108           IF(FILES(I)%FMT.EQ.'MED     ') THEN
00109             CALL CLOSE_FILE_MED(FILES(I)%LU)
00110           ELSE
00111             CLOSE(FILES(I)%LU)
00112           ENDIF
00113 !
00114         ENDIF
00115 !
00116       ENDDO
00117 !
00118 !-----------------------------------------------------------------------
00119 !
00120 !     PARALLEL MODE: STOPS IF PEXIT
00121 !
00122       IF(NCSIZE.GT.0.AND.PEXIT) CALL P_EXIT
00123 !
00124 !-----------------------------------------------------------------------
00125 !
00126       RETURN
00127       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0