+EXE.
+USE,CERN.
*+USE,*DECS.
+USE,MANYWIRE.
+USE,BIGMAP.
+USE,LONGLIST.
+USE,*GARFIELD.
+USE,*MAGGARF.
+USE,*HEEDGARF.
+USE,*LINUX
+REPL, P=GRAPHICS, D=GRAREA, C=19, T=EXE
      LOGICAL CROSSGAR,ONLINE,CURIN,LASTIN,ALLIN,ADD(4),IN1,IN2,IN3,IN4,
+REPL, P=GRAPHICS, D=GRAREA, C=21, T=EXE
      EXTERNAL CROSSGAR,ONLINE 
+REPL, P=GRAPHICS, D=GRCTRA, C=16, T=EXE
      LOGICAL CROSSGAR,LOOP  
+REPL, P=GRAPHICS, D=GRCTRA, C=17, T=EXE
      EXTERNAL F,CROSSGAR
+REPL, P=GRAPHICS, D=GRCTRA, C=99, T=EXE
      IF(ISTEP.GT.1.AND.CROSSGAR(X0,Y0,X2,Y2,XSEG1,YSEG1,XSEG2,YSEG2))
     -    THEN
+REPL, P=GRAPHICS, D=GRCUPD, C=9, T=EXE
      LOGICAL CROSSGAR 
+REPL, P=GRAPHICS, D=GRCUPD, C=11, T=EXE
      EXTERNAL CROSSGAR,F
+REPL, P=GRAPHICS, D=GRCUPD, C=86, T=EXE
      IF((.NOT.XDONE(IX,IY)).AND.IX.LT.NGRIDX.AND.CROSSGAR(
+REPL, P=GRAPHICS, D=GRCUPD, C=145, T=EXE
      IF((.NOT.YDONE(IX,IY)).AND.IY.LT.NGRIDY.AND.CROSSGAR( 
+REPL, P=ROUTINES, D=BUTFLY, C=15, T=EXE
      LOGICAL CROSSGAR,REPASS,MARK(MXEDGE)
+REPL, P=ROUTINES, D=BUTFLY, C=16, T=EXE
      EXTERNAL CROSSGAR
+REPL, P=ROUTINES, D=BUTFLY, C=116, T=EXE
      IF((IAXIS.EQ.1.AND.CROSSGAR(
+REPL, P=ROUTINES, D=BUTFLY, C=121, T=EXE
     -      (IAXIS.EQ.2.AND.CROSSGAR(
+REPL, P=ROUTINES, D=BUTFLY, C=126, T=EXE
     -      (IAXIS.EQ.3.AND.CROSSGAR(
+REPL, P=ROUTINES, D=CROSS, C=1, T=EXE
      LOGICAL FUNCTION CROSSGAR(X1S,Y1S,X2S,Y2S,U1S,V1S,U2S,V2S)  
+REPL, P=ROUTINES, D=CROSS, C=3, T=EXE
*   CROSSGAR  - Determines whether the 2 straight lines (X1,Y1) to (X2,Y2) 
+REPL, P=ROUTINES, D=CROSS, C=47, T=EXE
      PRINT *,' !!!!!! CROSSGAR  WARNING : Tolerances not'// 
+REPL, P=ROUTINES, D=CROSS, C=49, T=EXE
      CROSSGAR=.FALSE.
+REPL, P=ROUTINES, D=CROSS, C=56, T=EXE
      CROSSGAR=.TRUE.
+REPL, P=ROUTINES, D=CROSS, C=60, T=EXE
      CROSSGAR=.FALSE.
+REPL, P=ROUTINES, D=CROSS, C=75, T=EXE
      CROSSGAR=.TRUE. 
+REPL, P=ROUTINES, D=CROSS, C=78, T=EXE
      CROSSGAR=.FALSE. 
+REPL, P=ROUTINES, D=INTERN, C=14, T=EXE
      LOGICAL CROSSGAR,ONLINE,INSIDE,EDGE 
+REPL, P=ROUTINES, D=INTERN, C=15, T=EXE
      EXTERNAL CROSSGAR,ONLINE,RNDUNI
+REPL, P=ROUTINES, D=INTERN, C=80, T=EXE
      IF(CROSSGAR(X,Y,XINF,YINF, 
+REPL, P=CELL,D=MAPPLT, C=16, T=EXE
      LOGICAL CUT,CROSSGAR,IN1,IN2,IN3,IN4,IN5,IN6,IN7,IN8  
+REPL, P=CELL,D=MAPPLT,C=17, T=EXE
      EXTERNAL CROSSGAR
+REPL, P=SIGNAL,D=SIGTH3,C=14, T=EXE
      LOGICAL CROSSGAR 
+REPL, P=SIGNAL,D=SIGTH3,C=15, T=EXE
      EXTERNAL CROSSGAR 
+REPL, P=SIGNAL,D=SIGTH3,C=40, T=EXE
      IF(CROSSGAR(REAL(XU(IU)),REAL(YU(IU)),REAL(XU(IU+1))
     +  ,REAL(YU(IU+1)),  
+ASM,23,T=A. garfield.aux
+PAM,LUN=11,T=a,C. garfield-7.car
+PAM,LUN=12,T=a,C. magboltz-2.car
+PAM,LUN=13,T=a,C. heed101garf.car
+QUIT.

