gretel_read_dataset.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\gretel\gretel_read_dataset.f
00002 !
00037                           SUBROUTINE GRETEL_READ_DATASET
00038 !                         ******************************
00039 !
00040      &(LOCAL_VALUE,LOCAL_VALUE_D,SERAFIND,
00041      & NPOINMAX,NPOIN,NVALUE,AT,AT_D,FU,ENDE)
00042 !
00043 !***********************************************************************
00044 ! PARALLEL   V6P2                                   21/08/2010
00045 !***********************************************************************
00046 !
00047 !
00048 !
00049 !
00050 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00051 !| AT             |---|
00052 !| ENDE           |---|
00053 !| FU             |---|
00054 !| LOCAL_VALUE    |---|
00055 !| NPOIN          |---|
00056 !| NPOINMAX       |---|
00057 !| NVALUE         |---|
00058 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00059 !
00060       IMPLICIT NONE
00061 !
00062       INTEGER, INTENT(IN) :: NPOINMAX,NPOIN,NVALUE,FU
00063       INTEGER IPOIN,IVALUE
00064 !
00065       LOGICAL, INTENT(IN) :: SERAFIND
00066 !
00067       REAL, INTENT(OUT) :: AT
00068       DOUBLE PRECISION, INTENT(OUT) :: AT_D
00069       REAL, INTENT(OUT) :: LOCAL_VALUE(NPOINMAX,NVALUE)
00070       DOUBLE PRECISION, INTENT(OUT) :: LOCAL_VALUE_D(NPOINMAX,NVALUE)
00071 !
00072       LOGICAL, INTENT(OUT) :: ENDE
00073 !
00074       ENDE = .TRUE.
00075 !
00076       IF(SERAFIND) THEN
00077         READ(FU,END=999) AT_D
00078         DO IVALUE = 1,NVALUE
00079           READ(FU,END=999) (LOCAL_VALUE_D(IPOIN,IVALUE),IPOIN=1,NPOIN)
00080         ENDDO
00081       ELSE
00082         READ (FU,END=999) AT
00083         DO IVALUE = 1,NVALUE
00084           READ(FU,END=999) (LOCAL_VALUE(IPOIN,IVALUE),IPOIN=1,NPOIN)
00085         ENDDO
00086       ENDIF
00087 !
00088       ENDE = .FALSE.
00089 !
00090 !-----------------------------------------------------------------------
00091 !
00092  999  RETURN
00093       END SUBROUTINE GRETEL_READ_DATASET

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