/[PAMELA software]/gpamela/gptof/gptofv.F
ViewVC logotype

Diff of /gpamela/gptof/gptofv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.5 by pam-ba, Thu May 18 10:52:32 2006 UTC revision 3.6 by pam-ba, Thu Nov 16 18:45:29 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gptofv.F,v 3.4 2006/05/02 10:40:13 pam-ba Exp $  * $Id: gptofv.F,v 3.5 2006/05/18 10:52:32 pam-ba Exp $
3  *  *
4  * $Log: gptofv.F,v $  * $Log: gptofv.F,v $
5    * Revision 3.5  2006/05/18 10:52:32  pam-ba
6    * TOF geometry completed and a new material, the polystyrene (density 35 g/l), added
7    *
8  * Revision 3.4  2006/05/02 10:40:13  pam-ba  * Revision 3.4  2006/05/02 10:40:13  pam-ba
9  * TOF geometry and position updated and a new material, the mylar, added  * TOF geometry and position updated and a new material, the mylar, added
10  *  *
# Line 98  Line 101 
101        CALL GSVOLU('POLY','BOX ',NMED,POLY, 3,IVOLU)        CALL GSVOLU('POLY','BOX ',NMED,POLY, 3,IVOLU)
102  *  *
103  *  *
104    *  S4 container volume.
105    *
106          NMED=MAL
107          CALL GSVOLU('S4AL','BOX ',NMED,S4AL, 3,IVOLU)
108    *
109    *
110  *  Change medium just for S4.  *  Change medium just for S4.
111  *  *
112        NMED=MSCIN        NMED=MSCIN
# Line 313  C      Y= -S32M(2) + HMYLTOF+ (2*I-1)*S3 Line 322  C      Y= -S32M(2) + HMYLTOF+ (2*I-1)*S3
322        Y= -S32M(2) + 2*(HMYLTOF/2)+ S32X(2)        Y= -S32M(2) + 2*(HMYLTOF/2)+ S32X(2)
323        CALL GSPOS('S32X',N,'S32M',X,Y,Z,0,'ONLY')        CALL GSPOS('S32X',N,'S32M',X,Y,Z,0,'ONLY')
324  C      ENDDO  C      ENDDO
325          X=0.
326          Y=0.
327          Z=0.
328          CALL GSPOS('S4  ',N,'S4AL',X,Y,Z,0,'ONLY')      
329  *  *
330        RETURN        RETURN
331        END        END
Legend:
Removed from v.3.5  
changed lines
  Added in v.3.6
  ViewVC Help
Powered by ViewVC 1.1.23