CTITLESAAVOPK--PLOT AXIS FOR AVOP 00010001 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** CA 00020000 CA AUTHOR 00030000 CA DESIGNER 00040000 CA LANGUAGE FORTRAN H 00050000 CA SYSTEM IBM 00060000 C WRITTEN WHEN 00070000 C REVISED 00080000 C REVISED 09-10-89 JJC - CHANGED PROCESS NAME TO AVOP. 00081001 CA 00090000 CA 00100000 CA CALLING SEQUENCE: 00110000 CA CALL SAAVOPK(XLAB,YLAB,NDX,NDY, 00120001 CA 1 XMAX,YMAX,FXL,FYL,XS ,YS ,XLABX,XLABF,TRCSN,IPR,DBS,YLABB) 00130000 CA 00140000 CA IN XLAB CH LABEL 'LOCAL DISTANCE ANGLE' 00150000 CA IN YLAB CH LABEL 'RMS AMPLITUDE (DB)' 00160000 CA IN NDX I4 NUMBER OF X AXIS DIVISIONS 00170000 CA IN NDY I4 NUMBER OF Y AXIS DIVISIONS 00180000 CA IN XMAX R4 MAXIMUM X VALUE 00190000 CA IN YMAX R4 MAXIMUM Y VALUE 00200000 CA IN FXL R4 BASE X VALUE 00210000 CA IN FYL R4 BASE Y VALUE 00220000 CA IN XS R4 SCALE FOR NUMBER OF X UNITS PER INCH 00230000 CA IN YS R4 SCALE FOR NUMBER OF Y UNITS PER INCH 00240000 CA IN XLABX CH LABEL 'TRACE NUMBER' 00250000 CA IN XLABF CH LABEL 'OFFSET (FT)' 00260000 CA IN TRCSN CH X AXIS LABEL (USER SELECTED) 00270000 CA IN IPR I4 PRINT UNIT NUMBER. 00280000 CA IN DBS CH ANPLITUDE PLOTTING SCALE (USER SELECTED) 00290000 CA IN YLABB CH Y AXIS LABEL 'RMS AMPLITUDE' 00300000 CA 00310000 CA PURPOSE: 00320000 CA 00330000 CA 00340000 CA SUBROUTINES CALLED: MINMAX 00350000 CA 00360000 SUBROUTINE SAAVOPK(XLAB,YLAB,NDX,NDY, 00370001 1 XMAX,YMAX,FXL,FYL,XS ,YS ,XLABX,XLABF,TRCSN,IPR,DBS,YLABB) 00380000 IMPLICIT INTEGER (A-Z) 00390000 C 00400000 REAL FLOAT 00410000 REAL FXL 00420000 REAL FYL 00430000 REAL XMAX 00440000 REAL XMIN 00450000 REAL XMX 00460000 REAL XS 00470000 REAL XSTEP 00480000 REAL YMAX 00490000 REAL YMIN 00500000 REAL YMX 00510000 REAL YS 00520000 REAL YSTEP 00530000 C 00540000 CHARACTER*5 TRCSN,DBS 00550000 CHARACTER*(*) XLAB,YLAB,XLABX,XLABF,YLABB 00560000 C 00570000 XMIN = FXL 00580000 XMX = XMAX*XS 00590000 YMX = YMAX*YS 00600000 XSTEP = XMX/FLOAT(NDX) 00610000 YSTEP = YMX/FLOAT(NDY) 00620000 YMIN = FYL 00630000 YMX = YMX + YMIN 00640000 XMX = XMX + XMIN 00650000 IF ( TRCSN .EQ. 'TRSNO' ) THEN 00660000 CALL BAXLAB(4.,3.,0,0) 00670000 CALL BAXIS(1,XMIN,XSTEP,XMX,XLABX) 00680000 ELSE 00690000 IF ( TRCSN .EQ. 'OFSET' ) THEN 00700000 CALL BAXLAB(4.,3.,2,3) 00710000 CALL BAXIS(1,XMIN,XSTEP,XMX,XLABF) 00720000 ELSE 00730000 CALL BAXLAB(4.,3.,0,0) 00740000 CALL BAXIS(1,XMIN,XSTEP,XMX,XLAB) 00750000 ENDIF 00760000 ENDIF 00770000 IF ( DBS .EQ. 'DBSCL' ) THEN 00780000 CALL BAXLAB(4.,3.,0,0) 00790000 CALL BAXIS(2,YMIN,YSTEP,YMX,YLAB) 00800000 ELSE 00810000 CALL BAXLAB(4.,3.,2,0) 00820000 CALL BAXIS(2,YMIN,YSTEP,YMX,YLABB) 00830000 ENDIF 00840000 CALL BFRAME(1.5) 00850000 CALL BGRID(2,2) 00860000 RETURN 00870000 END 00880000