gredelpts_read_dataset.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\gretel\gredelpts_read_dataset.f
00002 !
00037                           SUBROUTINE GREDELPTS_READ_DATASET
00038 !                         ******************************
00039      &(LOCAL_VALUE,NPOINMAX,NPOIN,IT,FU,ENDE)
00040 !
00041 !***********************************************************************
00042 ! PARALLEL   V6P0                                   21/08/2010
00043 !***********************************************************************
00044 !
00045 !
00046 !
00047 !
00048 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00049 !| AT             |---|
00050 !| ENDE           |---|
00051 !| FU             |---|
00052 !| LOCAL_VALUE    |---|
00053 !| NPOIN          |---|
00054 !| NPOINMAX       |---|
00055 !| NVALUE         |---|
00056 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00057 !
00058       IMPLICIT NONE
00059 !
00060       INTEGER, INTENT(IN) :: NPOINMAX,NPOIN,FU
00061       INTEGER, INTENT(OUT) :: IT
00062 !
00063       REAL, INTENT(OUT) :: LOCAL_VALUE(NPOINMAX)
00064 !
00065       LOGICAL, INTENT(OUT) :: ENDE
00066 
00067       INTEGER IPOIN
00068 !
00069       ENDE = .TRUE.
00070 !
00071       READ(FU,END=999) IT, (LOCAL_VALUE(IPOIN),IPOIN=1,NPOIN)
00072 !
00073       ENDE = .FALSE.
00074 !
00075  999  RETURN
00076       END SUBROUTINE GREDELPTS_READ_DATASET

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