eesupp/src/nml_set_terminator.F

C $Header: /u/gcmpack/MITgcm/eesupp/src/nml_set_terminator.F,v 1.1 2004/02/24 19:46:02 cnh Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

#define FTN_NML_F90
#ifndef NML_TERMINATOR
#define NML_TERMINATOR  ' &'
#else
#define NML_TERMINATOR  ' /'
#endif

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