global_ocean.128x60x15/code/nml_set_terminator.F

C $Header: /u/gcmpack/MITgcm_contrib/ESMF/global_ocean.128x64x15/code/nml_set_terminator.F,v 1.1 2004/02/24 02:29:00 cnh Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

#define FTN_NML_F90
#define NML_TERMINATOR ' /'

CBOP

C     !ROUTINE: NML_SET_TERMINATOR

C     !INTERFACE:
      SUBROUTINE NML_SET_TERMINATOR(
     I                       record
     &                    )
      IMPLICIT NONE

C     !DESCRIPTION:
C     *=================================================================*
C     | SUBROUTINE NML_SET_TERMINATOR
C     | o Set namelist terminator character
C     *=================================================================*
C     | Change trailing & to trailing / when needed
C     *=================================================================*

C     !USES:
C     == Global variables ==
#include "EEPARAMS.h"
      INTEGER  ILNBLNK
      EXTERNAL ILNBLNK

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
      CHARACTER*(MAX_LEN_PREC) record

C     !LOCAL VARIABLES:
C     == Local variables ==
      INTEGER il
CEOP

      IL = MAX(ILNBLNK(RECORD),1)
      IF ( IL .EQ. 2 ) THEN
       IF ( RECORD(1:2) .EQ. ' &' ) THEN
        RECORD(1:2) = NML_TERMINATOR
       ENDIF
      ENDIF
C
      RETURN
      END

1	cnh	1.1	C $Header: /u/gcmpack/MITgcm_contrib/ESMF/global_ocean.128x64x15/code/nml_set_terminator.F,v 1.1 2004/02/24 02:29:00 cnh Exp $
2			C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			#define FTN_NML_F90
7			#define NML_TERMINATOR ' /'
8
9			CBOP
10
11			C !ROUTINE: NML_SET_TERMINATOR
12
13			C !INTERFACE:
14			SUBROUTINE NML_SET_TERMINATOR(
15			I record
16			& )
17			IMPLICIT NONE
18
19			C !DESCRIPTION:
20			C =================================================================
21			C \| SUBROUTINE NML_SET_TERMINATOR
22			C \| o Set namelist terminator character
23			C =================================================================
24			C \| Change trailing & to trailing / when needed
25			C =================================================================
26
27			C !USES:
28			C == Global variables ==
29			#include "EEPARAMS.h"
30			INTEGER ILNBLNK
31			EXTERNAL ILNBLNK
32
33			C !INPUT/OUTPUT PARAMETERS:
34			C == Routine arguments ==
35			CHARACTER*(MAX_LEN_PREC) record
36
37			C !LOCAL VARIABLES:
38			C == Local variables ==
39			INTEGER il
40			CEOP
41
42			IL = MAX(ILNBLNK(RECORD),1)
43			IF ( IL .EQ. 2 ) THEN
44			IF ( RECORD(1:2) .EQ. ' &' ) THEN
45			RECORD(1:2) = NML_TERMINATOR
46			ENDIF
47			ENDIF
48			C
49			RETURN
50			END
51