CIPRIME GTIT                                                            GTIT        1
C                                                                       GTIT        2
*IF -LTSP                                                               GTIT        3
      PARAMETER (MXTITL=65)                                             GTIT        4
*ENDIF                                                                  GTIT        5
*IF LTSP                                                                GTIT        6
*ENDIF                                                                  GTIT        8
      CHARACTER*50 GRPTIL(MXTITL)                                       GTIT        9
      COMMON /GTITLE/ GRPTIL                                            GTIT       10
                                                                        GTIT       11
