sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haecny.fi

   1 C       - - - - - \ e  H A E C N Y . F I - - - - -
   2 C
   3 C       COMMON DATA FOR HAENYA AND HAENYX ROUTINE
   4 C
   5         REAL SMOTAB (2,8)       @ ERSTER UND ZWEITER STUETZPUNKT
   6      *    ,SMOTBL (2,8)         @ STEIGUNG UND ACHSENABSCHNITT DAZU JEWEILS
   7      *    ,ORDMIN(8),ORDMAX(8)  @ ORDINATE SCALING FOR EACH CHANNEL
   8      *    ,NORM(8)              @ FACTOR FOR CALIBRATION AND NORMALIZATION
   9         INTEGER NYAFIL          @ FILTER FUER TISCHPOSITION
  10      *   ,TABDIR                @ DIRECTION OF TABLE/SACCADE DIRECTION DESIRED
  11         INTEGER CA,COSTRT,STEP
  12         COMMON /CNYADD/ NYAFIL,TABDIR,ORDMIN,ORDMAX,NORM,SMOTAB,SMOTBL
  13         COMMON /CPLOTT/ CA,COSTRT,STEP
  14 C
  15 C       -----
  16 \1a