File indexing completed on 2018-03-02 18:36:12 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
fc4fa6fbcd Jean*0001 #include "CPP_EEOPTIONS.h"
9f11b83930 Chri*0002
0003
0004
0005
0006
0007 SUBROUTINE NML_SET_TERMINATOR(
fc4fa6fbcd Jean*0008 U record )
9f11b83930 Chri*0009
0010
0011
2b4c849245 Ed H*0012
9f11b83930 Chri*0013
0014
2b4c849245 Ed H*0015
9f11b83930 Chri*0016
0017
0018
fc4fa6fbcd Jean*0019 IMPLICIT NONE
9f11b83930 Chri*0020
0021 #include "EEPARAMS.h"
fc4fa6fbcd Jean*0022
0023
9f11b83930 Chri*0024 INTEGER ILNBLNK
0025 EXTERNAL ILNBLNK
0026
0027
0028
0029 CHARACTER*(MAX_LEN_PREC) record
0030
0031
0032
fc4fa6fbcd Jean*0033 INTEGER iL
0034 CHARACTER*(2) nmlEnd
0035 #ifdef NML_TERMINATOR
0036 PARAMETER( nmlEnd = ' /' )
0037 #else
0038 PARAMETER( nmlEnd = ' &' )
0039 #endif
9f11b83930 Chri*0040
0041
fc4fa6fbcd Jean*0042 iL = MAX(ILNBLNK(record),1)
0043 IF ( iL .EQ. 2 ) THEN
0044 IF ( record(1:2) .EQ. ' &' ) THEN
0045 record(1:2) = nmlEnd
9f11b83930 Chri*0046 ENDIF
0047 ENDIF
fc4fa6fbcd Jean*0048
9f11b83930 Chri*0049 RETURN
0050 END