c HVPLOT c c Basic Data Structures for HVPLOT c c Dr R N Caffin and S L Hewett c CSIRO Div of Textile Physics c 338 Blaxland Rd c Ryde N S W 2112 c Australia c c 21-Sep-84 c c Amended for the Vax 31-1-85 c Amended for TSX+ 17-6-85 c c common /zzhv/hv,plonsw,flh,flv,flsh,flsv logical*1 hv,plonsw,flh,flv,flsh,flsv common /zzhpf/xmin,xmax,ymin,ymax common /zzvf/xminv,xmaxv,yminv,ymaxv common /zzvsc/xmul,ymul common /zzhpb/etx,si,so,esc,EPp,Ebsl character*1 etx,si,so,esc character EPp*3,Ebsl*2 character*1 ans data ans/' '/ c Note that most data statements are in the Subroutine INIT in HV0