GEANT321/gdraw/gdman.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:23  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.26  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GDMAN(U0,V0)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Draw a 2D-man at position (U0,V0)                        *
  17 C.    *                                                                *
  18 C.    *    ==>Called by : <USER>, <GXINT>, GDSPEC                      *
  19 C.    *       Author : P.Zanarini   *********                          *
  20 C.    *                                                                *
  21 C.    ******************************************************************
  22 C.
  23 #include "geant321/gcdraw.inc"
  24       DIMENSION U(24),V(24),LEN(4),UN(24,4),VN(24,4)
  25       DIMENSION UN1(24),VN1(24),UN2(8),VN2(8)
  26       DIMENSION UN3(4),VN3(4),UN4(12),VN4(12)
  27 C
  28       EQUIVALENCE (UN1(1),UN(1,1)),(VN1(1),VN(1,1))
  29       EQUIVALENCE (UN2(1),UN(1,2)),(VN2(1),VN(1,2))
  30       EQUIVALENCE (UN3(1),UN(1,3)),(VN3(1),VN(1,3))
  31       EQUIVALENCE (UN4(1),UN(1,4)),(VN4(1),VN(1,4))
  32 C
  33       SAVE LEN,UN1,VN1,UN2,VN2,UN3,VN3,UN4,VN4
  34       DATA LEN/24,8,4,12/
  35 C
  36       DATA UN1/1.3,-0.4,-0.7,0.3,-1.2,-1.6,-1.7,-2.8,-3.6,-1.7,
  37      +         -1.0,-0.1,0.7,1.9,2.4,2.5,1.4,2.9,3.3,3.1,
  38      +         1.9,0.9,1.0,1.3/
  39       DATA VN1/6.2,6.3,4.7,4.6,3.7,2.8,-1.9,-9.5,-9.8,-9.8,
  40      +         -5.5,-3.6,-5.5,-10.0,-10.4,-9.8,-3.6,-1.2,0.2,1.7,
  41      +         3.8,4.4,4.7,6.2/
  42 C
  43       DATA UN2/0.0,0.2,1.3,0.9,0.2,-0.3,-0.8,0.2/
  44       DATA VN2/0.0,2.6,4.1,4.4,2.6,4.3,3.9,2.6/
  45 C
  46       DATA UN3/1.8,2.4,1.9,1.8/
  47       DATA VN3/-1.1,0.4,1.9,-1.1/
  48 C
  49       DATA UN4/-1.2,-1.7,-2.3,-2.1,-2.2,-2.5,-2.6,-1.7,-1.7,
  50      +         -2.2,-2.1,-1.6/
  51       DATA VN4/3.7,2.9,-1.3,-1.4,-1.8,-1.7,-2.8,-3.0,-1.9,
  52      +         -1.8,-1.4,-1.5/
  53 C.
  54 C.    ------------------------------------------------------------------
  55 C.
  56       DO 20 I=1,4
  57          JMAX=LEN(I)
  58          DO 10 J=1,JMAX
  59             U(J)=UN(J,I)*10.0*GSCU*GZUA+U0
  60             V(J)=VN(J,I)*10.0*GSCV*GZVA+V0
  61 C
  62 C             Normalize to PLTRNX,PLTRNY
  63 C
  64             U(J)=U(J)*PLTRNX/20.
  65             V(J)=V(J)*PLTRNY/20.
  66    10    CONTINUE
  67          CALL GDRAWV(U,V,JMAX)
  68    20 CONTINUE
  69 C
  70       END