[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / j / setup.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:51  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE SETUP(X1,I1,X2,I2,Y1,J1,Y2,J2)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C   PURPOSE                                                            C
C     TO SET UP THE MAPPING CONSTANTS BETWEEN TWO LINEARLY DEPENDANT   C
C     COORDINATE SYSTEMS. SETUP IS PLANNED TO BE USED IN CONJUNCTION   C
C     WITH THE FUNCTION FREARG.                                        C
C   USAGE                                                              C
C     CALL SETUP(X1,I1,X2,I2,Y1,J1,Y2,J2)                              C
C     THIS STATEMENT SHOULD BE EXECUTED BEFORE FREARG IS CALLED.       C
C   PARAMETERS                                                         C
C     WE HAVE TWO DIFFERENT COORDINATE SYSTEMS, THE (X,Y)-SYSTEM AND   C
C     THE (I,J)-SYSTEM.                                                C
C     X AND I ARE LINEARLY RELATED TO EACH OTHER.                      C
C     Y AND J ARE LINEARLY RELATED TO EACH OTHER.                      C
C     THE MAPPING CONSTANTS ARE DEFINED BY REQUIRING THAT              C
C     X=X1 CORRESPONDS TO I=I1,                                        C
C     X=X2 CORRESPONDS TO I=I2,                                        C
C     Y=Y1 CORRESPONDS TO J=J1,                                        C
C     Y=Y2 CORRESPONDS TO J=J2.                                        C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      COMMON /J509C2/CX1,CI1,CX2,CI2,CY1,CJ1,CY2,CJ2
C=======================================================================
      CX1=X1
      CI1=I1
      CX2=X2
      CI2=I2
      CY1=Y1
      CJ1=J1
      CY2=Y2
      CJ2=J2
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:51 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	SUBROUTINE SETUP(X1,I1,X2,I2,Y1,J1,Y2,J2)
	11	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
	12	C PURPOSE C
	13	C TO SET UP THE MAPPING CONSTANTS BETWEEN TWO LINEARLY DEPENDANT C
	14	C COORDINATE SYSTEMS. SETUP IS PLANNED TO BE USED IN CONJUNCTION C
	15	C WITH THE FUNCTION FREARG. C
	16	C USAGE C
	17	C CALL SETUP(X1,I1,X2,I2,Y1,J1,Y2,J2) C
	18	C THIS STATEMENT SHOULD BE EXECUTED BEFORE FREARG IS CALLED. C
	19	C PARAMETERS C
	20	C WE HAVE TWO DIFFERENT COORDINATE SYSTEMS, THE (X,Y)-SYSTEM AND C
	21	C THE (I,J)-SYSTEM. C
	22	C X AND I ARE LINEARLY RELATED TO EACH OTHER. C
	23	C Y AND J ARE LINEARLY RELATED TO EACH OTHER. C
	24	C THE MAPPING CONSTANTS ARE DEFINED BY REQUIRING THAT C
	25	C X=X1 CORRESPONDS TO I=I1, C
	26	C X=X2 CORRESPONDS TO I=I2, C
	27	C Y=Y1 CORRESPONDS TO J=J1, C
	28	C Y=Y2 CORRESPONDS TO J=J2. C
	29	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
	30	COMMON /J509C2/CX1,CI1,CX2,CI2,CY1,CJ1,CY2,CJ2
	31	C=======================================================================
	32	CX1=X1
	33	CI1=I1
	34	CX2=X2
	35	CI2=I2
	36	CY1=Y1
	37	CJ1=J1
	38	CY2=Y2
	39	CJ2=J2
	40	RETURN
	41	END