[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haecny.fi

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