GEANT321/ggeom/gsipar.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:56  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.30  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GSIPAR(JVO,JIN,NPAR,NATT,PAR,ATT)
  13 C.
  14 C.    ******************************************************************
  15 C.    *                                                                *
  16 C.    *    ROUTINE TO SET INTERNAL PARAMETERS AND ATTRIBUTES.          *
  17 C.    *                                                                *
  18 C.    *    ==>Called by : GSDVN,GSDVN2,GSDVT,GSDVT2,GSVOLU             *
  19 C.    *         Author  A.McPherson  *********                         *
  20 C.    *                                                                *
  21 C.    ******************************************************************
  22 C.
  23 #include "geant321/gcbank.inc"
  24 #include "geant321/gcunit.inc"
  25       DIMENSION PAR(50),ATT(20)
  26 C.
  27 C.              --------------------------------------------
  28 C.
  29       IF(NPAR.LT.0.OR.NPAR.GT.50) GO TO 900
  30       IF(NATT.LE.0.OR.NATT.GT.20) GO TO 900
  31 C
  32       IF(JVO.LE.0) GO TO 910
  33       IF(JIN.GT.0) GO TO 10
  34 C
  35       Q(JVO+5)=NPAR
  36       Q(JVO+6)=NATT
  37       JPAR=JVO+7
  38       JATT=JVO+7+NPAR
  39 C
  40       GO TO 20
  41    10 CONTINUE
  42 C
  43       JPAR=JIN+9
  44       Q(JPAR)=NPAR
  45       Q(JVO+5)=0
  46       Q(JVO+6)=NATT
  47       JPAR=JPAR+1
  48       JATT=JVO+7
  49 C
  50    20 CONTINUE
  51 C
  52       CALL UCOPY(PAR,Q(JPAR),NPAR)
  53       CALL UCOPY(ATT,Q(JATT),NATT)
  54 C
  55       GO TO 999
  56   900 CONTINUE
  57 C
  58       WRITE(CHMAIL,1000) NPAR,NATT
  59       CALL GMAIL(0,0)
  60  1000 FORMAT(' **** ERROR IN GSIPAR - NPAR =',I12,' OR NATT =',I12,
  61      +' OUT OF RANGE ****')
  62 C
  63       GO TO 999
  64   910 CONTINUE
  65 C
  66       WRITE(CHMAIL,1010) JVO
  67       CALL GMAIL(0,0)
  68  1010 FORMAT(' **** ERROR IN GSIPAR - JVO =',I12,
  69      +' LE 0. ****')
  70 C
  71   999 END