eesupp/src/nml_set_terminator.F

fc4fa6fbcd Jean*0001 #include "CPP_EEOPTIONS.h"
9f11b83930 Chri*0002
                0003 CBOP
                0004 C     !ROUTINE: NML_SET_TERMINATOR
                0005
                0006 C     !INTERFACE:
                0007       SUBROUTINE NML_SET_TERMINATOR(
fc4fa6fbcd Jean*0008      U                               record )
9f11b83930 Chri*0009
                0010 C     !DESCRIPTION:
                0011 C     *=================================================================*
2b4c849245 Ed H*0012 C     | SUBROUTINE NML\_SET\_TERMINATOR
9f11b83930 Chri*0013 C     | o Set namelist terminator character
                0014 C     *=================================================================*
2b4c849245 Ed H*0015 C     | Change trailing \& to trailing / when needed
9f11b83930 Chri*0016 C     *=================================================================*
                0017
                0018 C     !USES:
fc4fa6fbcd Jean*0019       IMPLICIT NONE
9f11b83930 Chri*0020 C     == Global variables ==
                0021 #include "EEPARAMS.h"
fc4fa6fbcd Jean*0022
                0023 C     !FUNCTIONS:
9f11b83930 Chri*0024       INTEGER  ILNBLNK
                0025       EXTERNAL ILNBLNK
                0026
                0027 C     !INPUT/OUTPUT PARAMETERS:
                0028 C     == Routine arguments ==
                0029       CHARACTER*(MAX_LEN_PREC) record
                0030
                0031 C     !LOCAL VARIABLES:
                0032 C     == Local variables ==
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 CEOP
                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