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