--- gpamela/gptof/gptofv.F	2006/05/18 10:52:32	3.5
+++ gpamela/gptof/gptofv.F	2006/11/16 18:45:29	3.6
@@ -1,7 +1,10 @@
 *
-* $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 $
 *
 * $Log: gptofv.F,v $
+* Revision 3.5  2006/05/18 10:52:32  pam-ba
+* TOF geometry completed and a new material, the polystyrene (density 35 g/l), added
+*
 * Revision 3.4  2006/05/02 10:40:13  pam-ba
 * TOF geometry and position updated and a new material, the mylar, added
 *
@@ -98,6 +101,12 @@
       CALL GSVOLU('POLY','BOX ',NMED,POLY, 3,IVOLU)
 *
 *
+*  S4 container volume.
+*
+      NMED=MAL
+      CALL GSVOLU('S4AL','BOX ',NMED,S4AL, 3,IVOLU)
+*
+*
 *  Change medium just for S4.
 *
       NMED=MSCIN
@@ -313,6 +322,10 @@
       Y= -S32M(2) + 2*(HMYLTOF/2)+ S32X(2)
       CALL GSPOS('S32X',N,'S32M',X,Y,Z,0,'ONLY')
 C      ENDDO
+      X=0.
+      Y=0.
+      Z=0.
+      CALL GSPOS('S4  ',N,'S4AL',X,Y,Z,0,'ONLY')      
 *
       RETURN
       END