--- gpamela/gpnd/gpndv.F	2005/12/20 12:21:05	1.1
+++ gpamela/gpnd/gpndv.F	2006/04/09 23:29:15	1.2
@@ -26,13 +26,13 @@
 *  Define the NDTU     volume
 *
       NMED= MIRON
-      NMED= MN2
+      NMED= MSCIN
       CALL GSVOLU('NDTU','TUBE',NMED,NDTU, 3,IVOLU)
 *
 *  Define the NDTI     volume
 *
       NMED= MHEND
-      NMED= MN2
+      NMED= MSCIN
       CALL GSVOLU('NDTI','TUBE',NMED,NDTI, 3,IVOLU)
 *
 *  Define the NDPB     volume
@@ -70,7 +70,7 @@
      +        + (I-1)*4*NDPB(3)
          DO II=1,18
             N= N + 1
-            CALL GSPOS('NDTU',N,'NDBI',X,Y,Z,2,'ONLY')
+            CALL GSPOS('NDTU',N,'NDBI',X,Y,Z,2,'MANY')
             X = X + 2.2 
          ENDDO
       ENDDO
@@ -86,13 +86,13 @@
       DO I=1,3
          N= N + 1
          Z = -NDBI(3) + 2.*NDCD(3) + (I-1)*2.*NDPB(3) + NDPB(3)  
-         CALL GSPOS('NDPB',N,'NDBI',X,Y,Z,0,'ONLY')
+         CALL GSPOS('NDPB',N,'NDBI',X,Y,Z,0,'MANY')
       ENDDO
       DO I=1,2
          Z = -NDBI(3) + 2.*NDCD(3) + 4.*2.*NDPB(3) + NDPB(3) 
      +        + (I-1)*4.*NDPB(3)
          N= N + 1
-         CALL GSPOS('NDPB',N,'NDBI',X,Y,Z,0,'ONLY')
+         CALL GSPOS('NDPB',N,'NDBI',X,Y,Z,0,'MANY')
       ENDDO
 C # 
 C # Positioning the NDCD
@@ -101,10 +101,10 @@
       X = 0 
       Y = 0
       Z = -NDBI(3) + NDCD(3)
-      CALL GSPOS('NDCD',N,'NDBI',X,Y,Z,0,'ONLY')
+      CALL GSPOS('NDCD',N,'NDBI',X,Y,Z,0,'MANY')
       N = N +1
       Z = -NDBI(3) + 2.*NDCD(3) + 7.*2.*NDPB(3)+ NDCD(3)
-      CALL GSPOS('NDCD',N,'NDBI',X,Y,Z,0,'ONLY')
+      CALL GSPOS('NDCD',N,'NDBI',X,Y,Z,0,'MANY')
 C # 
 C # Now put the internal volume inside the aluminum box 
 C # *
@@ -112,7 +112,7 @@
       X = 0.
       Y = 0.
       Z = 0.
-      CALL GSPOS('NDBI',N,'NDBX',X,Y,Z,0,'ONLY')
+      CALL GSPOS('NDBI',N,'NDBX',X,Y,Z,0,'MANY')
 
       RETURN
       END