many_tracers/new_code/ptracers_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 PTRACERS_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 PTRACERS.
C
C     == Routine arguments ==
      INTEGER     NLL
      CHARACTER*2 LL(NLL)

C     == Local variables   ==

      CALL MAKE_DEFAULT_DLABEL_LIST(LL, NLL)

      RETURN
      END
1	cnh	1.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 PTRACERS_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 PTRACERS.
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