File indexing completed on 2018-03-02 18:43:07 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
5151e843d2 Jean*0001 #include "RW_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE READ_GLVEC_RS(
0007 I pref, suff,
0008 O array,
0009 I sizArr, iRec, myThid )
0010
0011
0012
0013
0014
0015
0016
0017 IMPLICIT NONE
0018
0019
0020 #include "SIZE.h"
0021 #include "EEPARAMS.h"
0022 #include "PARAMS.h"
0023
0024
0025 CHARACTER*(*) pref,suff
0026 INTEGER sizArr
0027 _RS array(sizArr)
0028 INTEGER iRec
0029 INTEGER myThid
0030
0031
0032 INTEGER ILNBLNK, IFNBLNK
0033 EXTERNAL ILNBLNK, IFNBLNK
0034
0035
0036 _RL dummyRL(1)
0037 CHARACTER*(2) fType
0038 INTEGER ioUnit, bi, bj
0039 INTEGER s1Lo,s1Hi,s2Lo,s2Hi
0040 CHARACTER*(MAX_LEN_FNAM) fullName
0041
0042
0043
0044
0045
0046 s1Lo = IFNBLNK(pref)
0047 s1Hi = ILNBLNK(pref)
0048 IF ( suff .EQ. ' ' ) THEN
0049 WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi)
0050 ELSE
0051 s2Lo = IFNBLNK(suff)
0052 s2Hi = ILNBLNK(suff)
0053 WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
0054 ENDIF
0055
0056 ioUnit = 0
0057 fType ='RS'
0058 bi = 0
0059 bj = 0
0060 #ifdef ALLOW_MDSIO
0061 CALL MDS_READVEC_LOC(
0062 & fullName, readBinaryPrec, ioUnit,
0063 & fType, sizArr, dummyRL, array,
0064 I bi, bj, iRec, myThid )
0065 #else
0066 STOP 'ABNORMAL END: S/R READ_GLVEC_RS needs MDSIO pkg'
0067 #endif
0068
0069 RETURN
0070 END