Source module last modified on Wed, 30 Mar 2005, 15:11;
HTML image of Fortran source automatically generated by
for2html on Mon, 23 May 2005, 21:29.
STRUCTURE /VIEWSET/
integer*4 ix,iy
real*4 dx1,dx2,dy1,dy2 ! Viewport in device coordinates
real*4 wx1,wx2,wy1,wy2 ! World coordinates
character*32 xtit,ytit,head
end structure
character*72 grfstr
integer*4 toprint,grfnarg
real*8 grfarg(40)
common /grfstat/ grfstr,grfarg,grfnarg,toprint
integer*4 mimax
parameter(
* mimax=128 ) ! Max. & default dimension of image arrays
# array for gauge volume map
real*4 svol(mimax,mimax)
common /svolume/ svol