CTITLESALABL -- VELOCITY DISPLAY LABEL (CALCOMP)                        00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 W. J. BROWN                                00000020
CA    DESIGNER               W. J. BROWN                                00000030
CA    LANGUAGE               S/370 FORTRAN H                            00000040
CA    WRITTEN                08-23-76                                   00000050
C     REVISED                MO-DA-YR BY                                00000060
C                                                                       00000070
CA                                                                      00000080
CA                                                                      00000090
CA    CALL SALABL (DDNM)                                                00000100
CA          INPUT  DDNM = ADDRESS FOR PLOTTER                           00000110
CA              DDNM(1) = KPDBGS                                    I4  00000120
CA              DDNM(2) = ) PREVIOUSLY DEFINED BY                   I4  00000121
CA              DDNM(3) = ) A CALL TO GPLOTS.                       I4  00000122
CA                                                                      00000160
CA       THIS APPLICATION PLOTS A VELOCITY ANALYSIS LABEL.              00000170
CA                                                                      00000190
C                                                                       00000200
C     EJECT                                                             00000210
C                                                                       00000220
C                                                                       00000360
      SUBROUTINE SALABL (DDNM)                                          00000410
      INTEGER   DDNM(1)                                                 00000420
C                                                                       00000430
C                 PLOT LABEL                                            00000440
C                                                                       00000450
      CALL GPLOT ( DDNM, 0., 8., 2 )                                    00000460
      CALL GPLOT ( DDNM, 4., 8., 2 )                                    00000470
      CALL GPLOT ( DDNM, 4., 0., 2 )                                    00000480
      CALL GPLOT ( DDNM, 0., 0., 2 )                                    00000490
      CALL GSYMBL(DDNM,0.5,0.3,.14,'AREA',90.,4)                        00000500
      CALL GSYMBL(DDNM,0.8,0.3,.14,'LINE NUMBER',90.,11)                00000510
      CALL GSYMBL(DDNM,1.1,0.3,.14,'GEOPHYSICIST',90.,13)               00000520
      CALL GSYMBL(DDNM,1.4,0.3,.14,'APPROVED',90.,8)                    00000530
      CALL GSYMBL(DDNM,0.5,4.0,.14,'DISTRICT',90.,8)                    00000540
      CALL GSYMBL(DDNM,0.8,4.0,.14,'SURVEY NO.',90.,10)                 00000550
      CALL GSYMBL(DDNM,0.77,5.9,.10,'G-',90.,2)                         00000560
      CALL GSYMBL(DDNM,1.1,4.0,.14,'GAP PROJ. NO.',90.,13)              00000570
      CALL GSYMBL(DDNM,1.4,4.0,.14,'DATE',90.,4)                        00000580
      CALL GSYMBL(DDNM,2.0,0.3,.14,'CENTRAL SP',90.,10)                 00000590
      CALL GSYMBL(DDNM,2.3,0.3,.14,'NUMBER OF CDP',90.,13)              00000600
      CALL GSYMBL(DDNM,2.6,0.3,.14,'AVERAGE FOLD',90.,12)               00000610
      CALL GSYMBL(DDNM,2.9,0.3,.14,'LONG OFFSET',90.,11)                00000620
      CALL GSYMBL(DDNM,2.9,3.0,.10,'FT',90.,2)                          00000630
      CALL GSYMBL(DDNM,2.0,4.0,.14,'DATUM',90.,5)                       00000640
      CALL GSYMBL(DDNM,2.3,4.0,.14,'WINDOW WIDTH',90.,12)               00000660
      CALL GSYMBL(DDNM,2.3,7.0,.10,'MS',90.,2)                          00000670
      CALL GSYMBL(DDNM,2.6,4.0,.14,'WINDOW INC.',90.,11)                00000680
      CALL GSYMBL(DDNM,2.6,7.0,.10,'MS',90.,2)                          00000690
      CALL GSYMBL(DDNM,2.9,4.0,.14,'VELOCITY INC.',90.,13)              00000700
      CALL GSYMBL(DDNM,2.9,7.0,.10,'FT/S',90.,4)                        00000710
      CALL GSYMBL(DDNM,3.5,0.3,.14,'REMARKS:',90.,8)                    00000720
C                                                                       00000730
C                                                                       00000740
      RETURN                                                            00000750
      END                                                               00000760