src/res_grf.inc

Fortran project RESTRAX, source module src/res_grf.inc.

Source module last modified on Sat, 6 May 2006, 15:54;
HTML image of Fortran source automatically generated by for2html on Mon, 29 May 2006, 15:06.


# $Id: res_grf.inc,v 1.4 2006/05/06 13:54:58 saroun Exp $
      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                                                           
      record /VIEWSET/ vport(4)      
      common /vports/ vport
      
# dialog arguments
# GRFARG(0) is reserved for plot command ID
      integer*4 toprint,grfnarg
      character*128 grfstr
      real*8 grfarg(0:64)
      common /grfstat/ grfstr,grfarg,grfnarg,toprint

#// device settings
      character*128 devstr  ! PGPLOT output device, e.g. "/xserv"
      character*128 extplot  ! command for external plotting program
      integer*4 grfsave  ! level of ASCII output
      integer*4 devid   ! device ID (result of PGOPEN)
      common /graph/ devstr,extplot,grfsave,devid

#// global data for 1D plots (not used)
      real*4 grfx(91),grfy(91)
      integer*4 grfn
      common /grfcurve/ grfx,grfy,grfn

#// ID for 2D-plot types      
      integer*4 ig_fcres,ig_fcdata,ig_sqmap
      parameter(
     &   ig_fcres=0,   ! resolution function
     &   ig_fcdata=1,  ! data
     &   ig_sqmap=2)   ! S(Q,E) map