gretel_read_dataset_elem.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\gretel\gretel_read_dataset_elem.f
00002 !
00035                           SUBROUTINE GRETEL_READ_DATASET_ELEM
00036 !                         *****************************************
00037      &(LOCAL_VALUELEM,NPROC,NELEM,NBV1,AT,FU,IPID,ENDE)
00038 !
00039 !***********************************************************************
00040 ! PARALLEL   V6P0                                   21/08/2010
00041 !***********************************************************************
00042 !
00043 !
00044 !
00045 !
00046 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00047 !| AT             |---|
00048 !| ENDE           |---|
00049 !| FU             |---|
00050 !| IPID           |---|
00051 !| LOCAL_VALUELEM |---|
00052 !| NBV1           |---|
00053 !| NELEM          |---|
00054 !| NPROC          |---|
00055 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00056 !
00057       IMPLICIT NONE
00058 !
00059       INTEGER, INTENT(IN) :: NPROC,NELEM,NBV1,FU,IPID
00060       INTEGER IELEM,IVALUE
00061 !
00062       REAL,INTENT(OUT) :: AT
00063       REAL, INTENT(OUT) :: LOCAL_VALUELEM(0:NPROC-1,1:NELEM,1:NBV1)
00064 !
00065       LOGICAL, INTENT(OUT) :: ENDE
00066 !
00067       ENDE = .TRUE.
00068 !
00069       READ(FU,END=9099) AT
00070       DO IVALUE = 1,NBV1
00071         READ(FU,END=9099) (LOCAL_VALUELEM(IPID,IELEM,IVALUE)
00072      &   ,IELEM=1,NELEM)
00073       END DO
00074 !
00075       ENDE = .FALSE.
00076 !
00077  9099 RETURN
00078       END SUBROUTINE GRETEL_READ_DATASET_ELEM

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