MINICERN/mathlib/gen/j/setup.F

   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