CTITLESALABV -- VELOCITY DISPLAY LABEL (VARIAN) 00010000 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA AUTHOR W. J. BROWN 00020000 CA DESIGNER W. J. BROWN 00030000 CA LANGUAGE FORTRAN 00040000 CA SYSTEM IBM AND CRAY 00050000 CA WRITTEN 08-23-76 00060000 C REVISED 08-25-77 BY WHIPPLE - REPLACED CALL TO 00070000 C CALCOMP ROUTINES WITH CALLS TO 00080000 C VARIAN JPR ROUTINES. 00090000 C REVISED 03-05-81 RFE - ADDED ROUTINE TO RETRIEVE 00100000 C VARIABLES FOR LABEL FLOAT. 00110000 C REVISED 03-19-81 RFE -CORRECTED EXTRANEOUS OUTPUT 00120000 C VALUE FOR DATUM ELEVATION. 00130000 C REVISED 05-26-82 ESN - MODIFIED PLOT ORIGIN MOVE. 00140000 C REVISED 12-01-83 NTS - CHANGE LINE NAME TO 5A4. 00150000 C REVISED 03-11-86 ESN - FOR CRAY COMPATABILITY. 00160000 CA 00170000 CA 00180000 CA CALL SALABV (FWINC, FVINC, FWWTH, ACUSER, ACCOM, ACLNAM,LBDIST, 00190000 CA FPROJ, FCSP, FCNSM, AFOLD, MXDST, DATUM) 00200000 CA 00210000 CA FWINC = WINDOW INCREMENT R4 00220000 CA FVINC = VELOCITY INCREMENT R4 00230000 CA FWWTH = WINDOW WIDTH R4 00240000 CA ACCOM = AREA NAME I4 00250000 CA ACUSER= USER'S NAME I4 00260000 CA ACLNAM= LINE NUMBER 5A4 00270000 CA LBDIST= DISTRICT I4 00280000 CA FPROJ = PROJECT NUMBER R4 00290000 CA FCSP = CENTRAL SHOTPOINT R4 00300000 CA FCNSM = NUMBER OF CDPS R4 00310000 CA AFOLD = AVERAGE FOLD R4 00320000 CA MXDST = LONG OFFSET R4 00330000 CA DATUM = DATUM ELEVATION R4 00340000 CA 00350000 CA THIS APPLICATION PLOTS A VELOCITY ANALYSIS LABEL. 00360000 CAEND 00370000 C 00380000 C EJECT 00390000 C 00400000 C 00410000 SUBROUTINE SALABV(FWINC, FVINC, FWWTH, ACUSER, ACCOM, ACLNAM, 00420000 * LBDIST, FPROJ, FCSP, FCNSM, AFOLD, MXDST, DATUM) 00430000 C 00440000 C 00450000 C REAL VARIABLES 00460000 C 00470000 REAL FWINC 00480000 REAL FVINC 00490000 REAL FWWTH 00500000 REAL FCNSM 00510000 REAL FPROJ 00520000 REAL FCSP 00530000 REAL AFOLD 00540000 REAL MXDST 00550000 REAL DATUM 00560000 C 00570000 REAL Y 00580000 REAL X1 00590000 REAL Y1 00600000 C 00610000 C INTEGER ARRAYS 00620000 INTEGER ACCOM ( 8) 00630000 INTEGER ACUSER ( 5) 00640000 INTEGER DATE ( 4) 00650000 INTEGER DCTIM ( 4) 00660000 INTEGER DTIME ( 4) 00670000 INTEGER LBDIST ( 4) 00680000 INTEGER ACLNAM ( 5) 00690000 C 00700000 C PLOT LABEL 00710000 C 00720000 CALL PLOT ( 0., 8., 2 ) 00730000 CALL PLOT ( 4., 8., 2 ) 00740000 CALL PLOT ( 4., 0., 2 ) 00750000 CALL PLOT ( 0., 0., 2 ) 00760000 CALL SYMBOL(0.5,0.3,.14,'AREA',90.,4) 00770000 CALL SYMBOL(0.8,0.3,.14,'LINE NUMBER',90.,11) 00780000 CALL SYMBOL(1.1,0.3,.14,'GEOPHYSICIST',90.,13) 00790000 CALL SYMBOL(1.4,0.3,.14,'APPROVED',90.,8) 00800000 CALL SYMBOL(0.5,4.0,.14,'DISTRICT',90.,8) 00810000 CALL SYMBOL(0.8,4.0,.14,'SURVEY NO.',90.,10) 00820000 CALL SYMBOL(0.77,5.9,.10,'G-',90.,2) 00830000 CALL SYMBOL(1.1,4.0,.14,'GAP PROJ. NO.',90.,13) 00840000 CALL SYMBOL(1.4,4.0,.14,'DATE',90.,4) 00850000 CALL SYMBOL(2.0,0.3,.14,'CENTRAL SP',90.,10) 00860000 CALL SYMBOL(2.3,0.3,.14,'NUMBER OF CDP',90.,13) 00870000 CALL SYMBOL(2.6,0.3,.14,'AVERAGE FOLD',90.,12) 00880000 CALL SYMBOL(2.9,0.3,.14,'LONG OFFSET',90.,11) 00890000 CALL SYMBOL(2.9,3.0,.10,'FT',90.,2) 00900000 CALL SYMBOL(2.0,4.0,.14,'DATUM',90.,5) 00910000 CALL SYMBOL(2.3,4.0,.14,'WINDOW WIDTH',90.,12) 00920000 CALL SYMBOL(2.3,7.0,.10,'MS',90.,2) 00930000 CALL SYMBOL(2.6,4.0,.14,'WINDOW INC.',90.,11) 00940000 CALL SYMBOL(2.6,7.0,.10,'MS',90.,2) 00950000 CALL SYMBOL(2.9,4.0,.14,'VELOCITY INC.',90.,13) 00960000 CALL SYMBOL(2.9,7.0,.10,'FT/S',90.,4) 00970000 CALL SYMBOL(3.5,0.3,.14,'REMARKS:',90.,8) 00980000 C 00990000 C RETRIEVE VARIABLES FOR LABEL FLOAT 01000000 C 01010000 CALL DATIME (DATE,DTIME,DCTIM) 01020000 CALL SYMBOL (0.47, 2.0, 0.10, ACCOM, 90.0, 16) 01030000 CALL SYMBOL (0.77, 2.0, 0.08, ACLNAM,90.0, 20) 01040000 CALL SYMBOL (1.07, 2.0, 0.10, ACUSER,90.0, 16) 01050000 CALL SYMBOL (0.47, 5.9, 0.10, LBDIST,90.0, 16) 01060000 CALL NUMBER (1.07, 5.9, 0.10, FPROJ, 90.0, -1) 01070000 CALL SYMBOL (1.37, 5.9, 0.10, DATE, 90.0, 8) 01080000 C 01090000 IF (FCSP .NE. 0) 01100000 *CALL NUMBER (1.97, 2.7, 0.10, FCSP, 90.0, -1) 01110000 C 01120000 CALL NUMBER (2.27, 2.7, 0.10, FCNSM, 90.0, -1) 01130000 CALL NUMBER (2.57, 2.7, 0.10, AFOLD, 90.0, -1) 01140000 CALL NUMBER (2.87, 2.5, 0.10, MXDST, 90.0, -1) 01150000 C 01160000 IF (DATUM .NE. 0) 01170000 *CALL NUMBER (1.97, 6.6, 0.10, DATUM, 90.0, -1) 01180000 IF (DATUM .NE. 0) 01190000 *CALL SYMBOL (1.97, 7.0, 0.10, 'FT', 90.0, 2) 01200000 IF (DATUM .EQ. 0) 01210000 *CALL SYMBOL (1.97, 6.3, 0.10, 'SEA LEVEL', 90.0, 9) 01220000 C 01230000 CALL NUMBER (2.27, 6.6, 0.10, FWWTH, 90.0, -1) 01240000 CALL NUMBER (2.57, 6.6, 0.10, FWINC, 90.0, -1) 01250000 CALL NUMBER (2.87, 6.6, 0.10, FVINC, 90.0, -1) 01260000 C 01270000 C 01280000 C UNDERLINE FOR LABEL 01290000 C 01300000 X1 = 0.5 01310000 Y = 2.0 01320000 Y1 = 3.5 01330000 C 01340000 DO 12001350000 * JJI = 1,2 01360000 C 01370000 DO 10001380000 * JJK = 1,4 01390000 CALL PLOT ( X1, Y, 3) 01400000 CALL PLOT ( X1, Y1, 2) 01410000 100 X1 = X1 + .3 01420000 C 01430000 120 X1 = 2.0 01440000 C 01450000 C UNDERLINE FOR LABEL 01460000 C 01470000 X1 = 0.5 01480000 Y = 5.9 01490000 Y1 = 7.4 01500000 C 01510000 DO 140 JJI = 1,2 01520000 C 01530000 DO 130 JJK = 1,4 01540000 CALL PLOT ( X1, Y, 3) 01550000 CALL PLOT ( X1, Y1, 2) 01560000 C 01570000 130 X1 = X1 + .3 01580000 C 01590000 140 X1 = 2.0 01600000 C 01610000 CALL PLOT (3.5, 1.5, 3) 01620000 CALL PLOT (3.5, 7.5, 2) 01630000 CALL PLOT (3.8, 7.5, 3) 01640000 CALL PLOT (3.8, 7.5, 2) 01650000 CALL PLOT (4.0, 0.0,-3) 01660000 C 01670000 RETURN 01680000 END 01690000