7-Dec-1990 11:33:25 VAX FORTRAN V5.5-98 Page 1 29-May-1990 09:29:01 DUA0:[GPLOT.SRC]GPLOT_3D_BLOCK_DATA.FOR;6 0001 !+ 0002 ! 0003 !---------------------------- GPLOT_3D_Block_Data ---------------------------- 0004 ! 0005 ! BLOCK DATA FOR GPlot_3d 0006 ! 0007 ! 0008 BLOCK DATA GPlot_3D_Block_Data 0009 0010 INCLUDE 'GPLOT_SRC:GPlot_3D.INC/LIST' 0011 1 !+ 0012 1 ! 0013 1 !---------------------------- GPLOT_3D.INC ------------------------------------ 0014 1 ! 0015 1 ! Include file for 3D extensions to GPLOT. 5/25/90, DJM 0016 1 ! 0017 1 ! 0018 1 COMMON /GPlot_3D/ WorkBoxX, WorkBoxY, WorkBoxZ, ! Axes absolute sizes 0019 1 : 0020 1 : GrafSetWorkBox, ! LOGICAL Flag 0021 1 : 0022 1 : ScaleXMin, ScaleXMax, ! Axes "relative" 0023 1 : ScaleYMin, ScaleYMax, ! coordinate system 0024 1 : ScaleZMin, ScaleZMax, 0025 1 : 0026 1 : Graf3DSetCOP, ! LOGICAL Flag 0027 1 : copX, copY, copZ, ! Center Of Projection 0028 1 : 0029 1 : Graf3DSetVRP, ! LOGICAL Flag 0030 1 : UserSetVRP, ! LOGICAL Flag 0031 1 : vrpX, vrpY, vrpZ, ! View Reference Point 0032 1 : 0033 1 : SurSzeCalled, ! LOGICAL Flag 0034 1 : FirstRowX, aLastRowX, ! Correspondence 0035 1 : FirstColY, aLastColY, ! between relative 0036 1 : ! coordinates and the 0037 1 : ! matrix indices 0038 1 : 0039 1 : ViewAngleSet, ! LOGICAL Flag 0040 1 : PhiViewAngle, ThetaViewAngle, ! Angular extent of 0041 1 : ! 3-D "projection 0042 1 : ! screen" 0043 1 : 0044 1 : Projection(4,6), ! REAL array for the 0045 1 : ! projection matrix, 0046 1 : ! virtual screen to 0047 1 : ! GKS window transform 0048 1 : ! and the GKS window. 0049 1 : 0050 1 : World3DToWorkBox(3,2) ! Holds scale factors 0051 1 : ! and shifts to map 0052 1 : ! World to WorkBox. 0053 1 : 0054 1 0055 1 COMMON /Axis_Attributes_3D/ 0056 1 : xStep, yStep, zStep, ! steps between tick 0057 1 : ! marks GPLOT_3D_BLOCK_DATA 7-Dec-1990 11:33:25 VAX FORTRAN V5.5-98 Page 2 29-May-1990 09:29:01 DUA0:[GPLOT.SRC]GPLOT_3D_BLOCK_DATA.FOR;6 0058 1 : zTkRev, ! Tick reverse flag 0059 1 : 0060 1 : CtrZLb, ! Center label flag 0061 1 : 0062 1 : NoZFst, ! Omit first label 0063 1 : ! 0064 1 : NoZLst, ! Omit Last label flag 0065 1 : 0066 1 : zNum, ! Axis numbering flag 0067 1 : 0068 1 : zLbTyp, ! Axis label type flag 0069 1 : 0070 1 : IZTot, ! Number of user 0071 1 : ! supplied labels 0072 1 : LZAray, ! Array of user 0073 1 : ! supplied labels 0074 1 : XAxisName, ! Character strings 0075 1 : YAxisName, ! for the axis names 0076 1 : ZAxisName, 0077 1 : 0078 1 : NSmallXTicks, ! Number of tick marks 0079 1 : NSmallYTicks, ! between major ticks 0080 1 : NSmallZTicks, 0081 1 : 0082 1 : xAng3D, ! Angle between the 0083 1 : yAng3D, ! numbers along an 0084 1 : zAng3D ! axis and the axis. 0085 1 0086 1 0087 1 INTEGER NSmallXTicks 0088 1 INTEGER NSmallYTicks 0089 1 INTEGER NSmallZTicks 0090 1 0091 1 LOGICAL GrafSetWorkBox 0092 1 LOGICAL Graf3DSetCOP 0093 1 LOGICAL Graf3DSetVRP 0094 1 LOGICAL UserSetVRP 0095 1 LOGICAL SurSzeCalled 0096 1 LOGICAL ViewAngleSet 0097 1 0098 1 CHARACTER*80 XAxisName 0099 1 CHARACTER*80 YAxisName 0100 1 CHARACTER*80 ZAxisName 0101 1 0102 1 REAL WorkBoxX, WorkBoxY, WorkBoxZ 0103 1 REAL ScaleXMin, ScaleXMax, 0104 1 : ScaleYMin, ScaleYMax, 0105 1 : ScaleZMin, ScaleZMax, 0106 1 : xStep, yStep, zStep, 0107 1 : copX, copY, copZ, 0108 1 : vrpX, vrpY, vrpZ, 0109 1 : FirstRowX, aLastRowX, 0110 1 : FirstColY, aLastColY, 0111 1 : PhiViewAngle, ThetaViewAngle, 0112 1 : Projection, 0113 1 : World3DToWorkBox, 0114 1 : xAng3D, yAng3D, zAng3D GPLOT_3D_BLOCK_DATA 7-Dec-1990 11:33:25 VAX FORTRAN V5.5-98 Page 3 29-May-1990 09:29:01 DUA0:[GPLOT.SRC]GPLOT_3D_BLOCK_DATA.FOR;6 0115 1 0116 1 LOGICAL zTkRev 0117 1 LOGICAL CtrZLb 0118 1 LOGICAL NoZFst 0119 1 LOGICAL NoZLst 0120 1 LOGICAL zNum 0121 1 0122 1 CHARACTER*4 zLbTyp 0123 1 CHARACTER*24 LZAray(50) 0124 1 0125 1 INTEGER IZTot 0126 1 0127 0128 0129 0130 DATA WorkBoxX/1.0/, WorkBoxY/1.0/, WorkBoxZ/1.0/, 0131 : 0132 : GrafSetWorkBox/.FALSE./, 0133 : 0134 : Graf3DSetCOP/.FALSE./, 0135 : copX/-1.5/, copY/-1.5/, copZ/1.5/, 0136 : 0137 : Graf3DSetVRP/.FALSE./, 0138 : UserSetVRP/.FALSE./, 0139 : vrpX/0.5/, vrpY/0.5/, vrpZ/0.5/, 0140 : 0141 : SurSzeCalled/.FALSE./, 0142 : 0143 : ViewAngleSet/.FALSE./ 0144 : 0145 0146 DATA 0147 : zTkRev/.FALSE./, 0148 : 0149 : CtrZLb/.FALSE./, 0150 : 0151 : NoZFst/.FALSE./, 0152 : 0153 : NoZLst/.FALSE./, 0154 : 0155 : zNum/.TRUE./, 0156 : 0157 : zLbTyp/'REAL'/, 0158 : 0159 : IZTot/0/, 0160 : 0161 : XAxisName/' '/, 0162 : YAxisName/' '/, 0163 : ZAxisName/' '/, 0164 : 0165 : NSmallXTicks/1/, 0166 : NSmallYTicks/1/, 0167 : NSmallZTicks/1/, 0168 : 0169 : xAng3D/0.0/, 0170 : yAng3D/0.0/, 0171 : zAng3D/0.0/ GPLOT_3D_BLOCK_DATA 7-Dec-1990 11:33:25 VAX FORTRAN V5.5-98 Page 4 29-May-1990 09:29:01 DUA0:[GPLOT.SRC]GPLOT_3D_BLOCK_DATA.FOR;6 0172 0173 END PROGRAM SECTIONS Name Bytes Attributes 0 GPLOT_3D 228 PIC OVR REL GBL SHR NOEXE RD WRT QUAD 1 AXIS_ATTRIBUTES_3D 1504 PIC OVR REL GBL SHR NOEXE RD WRT QUAD Total Space Allocated 1732 VARIABLES Address Type Name Address Type Name 0-0000005C R*4 ALASTCOLY 0-00000054 R*4 ALASTROWX 0-0000002C R*4 COPX 0-00000030 R*4 COPY 0-00000034 R*4 COPZ 1-00000010 L*4 CTRZLB 0-00000058 R*4 FIRSTCOLY 0-00000050 R*4 FIRSTROWX 0-00000028 L*4 GRAF3DSETCOP 0-00000038 L*4 GRAF3DSETVRP 0-0000000C L*4 GRAFSETWORKBOX 1-00000024 I*4 IZTOT 1-00000014 L*4 NOZFST 1-00000018 L*4 NOZLST 1-000005C8 I*4 NSMALLXTICKS 1-000005CC I*4 NSMALLYTICKS 1-000005D0 I*4 NSMALLZTICKS 0-00000064 R*4 PHIVIEWANGLE 0-00000014 R*4 SCALEXMAX 0-00000010 R*4 SCALEXMIN 0-0000001C R*4 SCALEYMAX 0-00000018 R*4 SCALEYMIN 0-00000024 R*4 SCALEZMAX 0-00000020 R*4 SCALEZMIN 0-0000004C L*4 SURSZECALLED 0-00000068 R*4 THETAVIEWANGLE 0-0000003C L*4 USERSETVRP 0-00000060 L*4 VIEWANGLESET 0-00000040 R*4 VRPX 0-00000044 R*4 VRPY 0-00000048 R*4 VRPZ 0-00000000 R*4 WORKBOXX 0-00000004 R*4 WORKBOXY 0-00000008 R*4 WORKBOXZ 1-000005D4 R*4 XANG3D 1-000004D8 CHAR XAXISNAME 1-00000000 R*4 XSTEP 1-000005D8 R*4 YANG3D 1-00000528 CHAR YAXISNAME 1-00000004 R*4 YSTEP 1-000005DC R*4 ZANG3D 1-00000578 CHAR ZAXISNAME 1-00000020 CHAR ZLBTYP 1-0000001C L*4 ZNUM 1-00000008 R*4 ZSTEP 1-0000000C L*4 ZTKREV ARRAYS Address Type Name Bytes Dimensions 1-00000028 CHAR LZARAY 1200 (50) 0-0000006C R*4 PROJECTION 96 (4, 6) 0-000000CC R*4 WORLD3DTOWORKBOX 24 (3, 2) 7-Dec-1990 11:33:25 VAX FORTRAN V5.5-98 Page 5 29-May-1990 09:29:01 DUA0:[GPLOT.SRC]GPLOT_3D_BLOCK_DATA.FOR;6 0001 COMMAND QUALIFIERS FORTRAN GPLOT_SRC:GPLOT_3D_BLOCK_DATA /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=DUA0:[GPLOT]GPLOT_3D_BLOCK_DATA.LIS;1 /OBJECT=DUA0:[GPLOT]GPLOT_3D_BLOCK_DATA.OBJ;2 COMPILATION STATISTICS Run Time: 2.11 seconds Elapsed Time: 3.80 seconds Page Faults: 349 Dynamic Memory: 316 pages