GEANT321/gdraw/gdsurf.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:28  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.27  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GDSURF(N)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *       Draw the N-th surface described by the 4 space points    *
  17 C.    *       stored in vector SURF starting from address 12*(N-1)+1   *
  18 C.    *                                                                *
  19 C.    *    ==>Called by : (not called yet)                             *
  20 C.    *       Author : P.Zanarini   *********                          *
  21 C.    *                                                                *
  22 C.    ******************************************************************
  23 C.
  24 #include "geant321/gcbank.inc"
  25       DIMENSION SURF(2)
  26       EQUIVALENCE (WS(1),SURF(1))
  27       DIMENSION P(3,4),U(5),V(5)
  28 C.
  29 C.    ------------------------------------------------------------------
  30 C.
  31       IADR=12*(N-1)+1
  32 C
  33       DO 10  I=1,4
  34          P(1,I)=SURF(IADR)
  35          P(2,I)=SURF(IADR+1)
  36          P(3,I)=SURF(IADR+2)
  37          IADR=IADR+3
  38    10 CONTINUE
  39 C
  40       CALL GDFR3D(P,4,U,V)
  41       U(5)=U(1)
  42       V(5)=V(1)
  43       CALL GDRAWV(U,V,5)
  44       END