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