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