many_tracers/new_code/gad_make_dlabel_list.F

C     PROGRAM MAIN
C     INTEGER NLL
C     PARAMETER (NLL=3800)
C     CHARACTER*2 LL(NLL)
C
C     INTEGER I
C
C     CALL PTRACERS_MAKE_PTR_DLABEL_LIST( LL, NLL )
C
C     DO I=1, NLL
C      PRINT *, LL(I)
C     ENDDO
C     
C
C     END
      SUBROUTINE GAD_MAKE_DLABEL_LIST(LL, NLL)
C
C     Make sequenced label list 00, 02, 03, ... 99, 0a...0Z...9a...9Z,a0...ZZ
C     to allow diags to be used with more than 99 TRACERS.
C
C     == Routine arguments ==
      INTEGER     NLL
      CHARACTER*2 LL(NLL)

C     == Local variables   ==

      CALL MAKE_DEFAULT_DLABEL_LIST(LL, NLL)

      RETURN
      END
1	C PROGRAM MAIN
2	C INTEGER NLL
3	C PARAMETER (NLL=3800)
4	C CHARACTER*2 LL(NLL)
5	C
6	C INTEGER I
7	C
8	C CALL PTRACERS_MAKE_PTR_DLABEL_LIST( LL, NLL )
9	C
10	C DO I=1, NLL
11	C PRINT *, LL(I)
12	C ENDDO
13	C
14	C
15	C END
16	SUBROUTINE GAD_MAKE_DLABEL_LIST(LL, NLL)
17	C
18	C Make sequenced label list 00, 02, 03, ... 99, 0a...0Z...9a...9Z,a0...ZZ
19	C to allow diags to be used with more than 99 TRACERS.
20	C
21	C == Routine arguments ==
22	INTEGER NLL
23	CHARACTER*2 LL(NLL)
24
25	C == Local variables ==
26
27	CALL MAKE_DEFAULT_DLABEL_LIST(LL, NLL)
28
29	RETURN
30	END