21-Jan-1991 14:43:31 VAX FORTRAN V5.5-98 Page 1 21-Jan-1991 14:41:05 UD5:[GPLOT.EXAMPLES]GPE15.FOR;15 0001 PROGRAM GPE15 ! Test axis numbering 0002 DIMENSION X(100),Y(100) 0003 DATA XORIG,DX,XMAX/0.0,100.,1000./,YORIG,DY,YMAX/0.0,100.0,1000.0/ 0004 CALL GSTART 0005 CALL PAGE(11.0,8.5) ! Specify page size 0006 XAXIS = 9.0 0007 YAXIS = 6.0 0008 CALL AREA2D(XAXIS,YAXIS) ! Define Subplot area 0009 call duplx 0010 CALL XNAME('X LABEL$',100) ! Define X Axis label 0011 CALL YNAME('Y LABEL$',100) ! Define Y Axis label 0012 CALL HEADIN('GPE15--Test Axis numbering$',100,2.,1) 0013 YORIG = -43.2680 0014 YMAX = -43.2640 0015 DY = 0.1*(YMAX-YORIG) 0016 CALL YAXANG(0.0) 0017 XORIG = 0.0 0018 XMAX = 5.0 0019 XMAX = XMAX + 0.85*DX ! CHANGE TO FUNNY RIGHT AXIS 0020 CALL GRAF (XORIG,'SCALE',XMAX,YORIG,DY,YMAX) 0021 ! Compute and plot a quadratic curve 0022 NPTS = 100 0023 AY = (YMAX-YORIG)/(NPTS**2-1) 0024 BY = YORIG - AY 0025 AX = (XMAX-XORIG)/(NPTS-1) 0026 BX = XORIG - AX 0027 DO I=1,NPTS 0028 X(I) = AX*I + BX 0029 Y(I) = AY*I*I + BY 0030 END DO 0031 CALL CURVE(X,Y,100,5) 0032 ! Draw more Y axes 0033 0034 YMAX = 0.0 0035 YORIG = -1.234E-6 0036 DY = 0.2*(YMAX-YORIG) 0037 CALL YREVTK 0038 CALL YGRAXS(YORIG,DY,YMAX,YAXIS,'Third y Axis',,3.0,0.0) 0039 0040 YMAX = 0.0 0041 YORIG = -1.0 0042 DY = 0.1 0043 CALL YTICKS(3) 0044 CALL YGRAXS(YORIG,DY,YMAX,YAXIS,'Fourth Y Axis',,4.5,0.0) 0045 0046 YORIG = 0.0 0047 YMAX = 1.234E+3 0048 CALL YAXANG(0.0) 0049 CALL YTICKS(2) 0050 CALL YGRAXS(YORIG,'SCALE',YMAX,YAXIS,'Right Y Axis$',-100, 0051 2 XAXIS,0.0) 0052 0053 !------------ DRAW MORE X AXES 0054 0055 XMAX = 0.0 0056 XORIG = -1.234E-6 0057 DX = 0.2*(XMAX-XORIG) GPE15 21-Jan-1991 14:43:31 VAX FORTRAN V5.5-98 Page 2 21-Jan-1991 14:41:05 UD5:[GPLOT.EXAMPLES]GPE15.FOR;15 0058 CALL XTICKS(4) 0059 CALL XREVTK 0060 CALL XGRAXS(XORIG,DX,XMAX,9.0,'Third X Axis',,0.0,2.0) 0061 0062 XORIG = -43.2680 0063 XMAX = -43.2640 0064 DX = 0.1*(XMAX-XORIG) 0065 call xaxang(90.) 0066 CALL XGRAXS(XORIG,DX,XMAX,9.0,'Fourth X Axis',,0.0,3.0) 0067 0068 XORIG = 1.0 0069 XMAX = 2.8 0070 DX = 0.2 0071 call xaxang(0.0) 0072 CALL XGRAXS(XORIG,DX,XMAX,9.0,'Fifth X Axis',,0.0,4.0) 0073 0074 XORIG = 0.0 0075 XMAX = 1.234E+3 0076 CALL XINTAX 0077 CALL XTICKS(2) 0078 CALL XGRAXS(XORIG,'SCALE',XMAX,XAXIS,'Top X Axis$',-100, 0079 2 0.0,YAXIS) 0080 0081 call endpl(0) 0082 CALL GSTOP 0083 0084 CALL EXIT 0085 END GPE15 21-Jan-1991 14:43:31 VAX FORTRAN V5.5-98 Page 3 01 21-Jan-1991 14:41:05 UD5:[GPLOT.EXAMPLES]GPE15.FOR;15 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 506 PIC CON REL LCL SHR EXE RD NOWRT QUAD 1 $PDATA 213 PIC CON REL LCL SHR NOEXE RD NOWRT QUAD 2 $LOCAL 1376 PIC CON REL LCL NOSHR NOEXE RD WRT QUAD Total Space Allocated 2095 ENTRY POINTS Address Type Name 0-00000000 GPE15 VARIABLES Address Type Name Address Type Name Address Type Name Address Type Name ** R*4 AX ** R*4 AY ** R*4 BX ** R*4 BY 2-00000324 R*4 DX 2-00000330 R*4 DY ** I*4 I ** I*4 NPTS 2-00000338 R*4 XAXIS 2-00000328 R*4 XMAX 2-00000320 R*4 XORIG 2-0000033C R*4 YAXIS 2-00000334 R*4 YMAX 2-0000032C R*4 YORIG ARRAYS Address Type Name Bytes Dimensions 2-00000000 R*4 X 400 (100) 2-00000190 R*4 Y 400 (100) FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name Type Name Type Name Type Name AREA2D CURVE DUPLX ENDPL FOR$EXIT GRAF GSTART GSTOP HEADIN PAGE XAXANG XGRAXS XINTAX XNAME XREVTK XTICKS YAXANG YGRAXS YNAME YREVTK YTICKS GPE15 21-Jan-1991 14:43:31 VAX FORTRAN V5.5-98 Page 4 01 21-Jan-1991 14:41:05 UD5:[GPLOT.EXAMPLES]GPE15.FOR;15 COMMAND QUALIFIERS FORTRAN/LIST/NOOBJ GPE15 /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW) /DEBUG=(NOSYMBOLS,TRACEBACK) /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS) /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE) /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX) /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN) /CONTINUATIONS=19 /NOCROSS_REFERENCE /NOD_LINES /NOEXTEND_SOURCE /F77 /NOG_FLOATING /I4 /NOMACHINE_CODE /OPTIMIZE /NOPARALLEL /NOANALYSIS_DATA /NODIAGNOSTICS /LIST=UD5:[GPLOT.EXAMPLES]GPE15.LIS;1 /NOOBJECT COMPILATION STATISTICS Run Time: 0.99 seconds Elapsed Time: 3.01 seconds Page Faults: 217 Dynamic Memory: 392 pages