src/sim_grf.inc

Fortran project SIMRES, source module src/sim_grf.inc.

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