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