/[PAMELA software]/gpamela/gpnd/gpndv.F
ViewVC logotype

Diff of /gpamela/gpnd/gpndv.F

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

revision 1.1 by cafagna, Tue Dec 20 12:21:05 2005 UTC revision 1.2 by cafagna, Sun Apr 9 23:29:15 2006 UTC
# Line 26  Line 26 
26  *  Define the NDTU     volume  *  Define the NDTU     volume
27  *  *
28        NMED= MIRON        NMED= MIRON
29        NMED= MN2        NMED= MSCIN
30        CALL GSVOLU('NDTU','TUBE',NMED,NDTU, 3,IVOLU)        CALL GSVOLU('NDTU','TUBE',NMED,NDTU, 3,IVOLU)
31  *  *
32  *  Define the NDTI     volume  *  Define the NDTI     volume
33  *  *
34        NMED= MHEND        NMED= MHEND
35        NMED= MN2        NMED= MSCIN
36        CALL GSVOLU('NDTI','TUBE',NMED,NDTI, 3,IVOLU)        CALL GSVOLU('NDTI','TUBE',NMED,NDTI, 3,IVOLU)
37  *  *
38  *  Define the NDPB     volume  *  Define the NDPB     volume
# Line 70  C # Line 70  C #
70       +        + (I-1)*4*NDPB(3)       +        + (I-1)*4*NDPB(3)
71           DO II=1,18           DO II=1,18
72              N= N + 1              N= N + 1
73              CALL GSPOS('NDTU',N,'NDBI',X,Y,Z,2,'ONLY')              CALL GSPOS('NDTU',N,'NDBI',X,Y,Z,2,'MANY')
74              X = X + 2.2              X = X + 2.2
75           ENDDO           ENDDO
76        ENDDO        ENDDO
# Line 86  C # Line 86  C #
86        DO I=1,3        DO I=1,3
87           N= N + 1           N= N + 1
88           Z = -NDBI(3) + 2.*NDCD(3) + (I-1)*2.*NDPB(3) + NDPB(3)             Z = -NDBI(3) + 2.*NDCD(3) + (I-1)*2.*NDPB(3) + NDPB(3)  
89           CALL GSPOS('NDPB',N,'NDBI',X,Y,Z,0,'ONLY')           CALL GSPOS('NDPB',N,'NDBI',X,Y,Z,0,'MANY')
90        ENDDO        ENDDO
91        DO I=1,2        DO I=1,2
92           Z = -NDBI(3) + 2.*NDCD(3) + 4.*2.*NDPB(3) + NDPB(3)           Z = -NDBI(3) + 2.*NDCD(3) + 4.*2.*NDPB(3) + NDPB(3)
93       +        + (I-1)*4.*NDPB(3)       +        + (I-1)*4.*NDPB(3)
94           N= N + 1           N= N + 1
95           CALL GSPOS('NDPB',N,'NDBI',X,Y,Z,0,'ONLY')           CALL GSPOS('NDPB',N,'NDBI',X,Y,Z,0,'MANY')
96        ENDDO        ENDDO
97  C #  C #
98  C # Positioning the NDCD  C # Positioning the NDCD
# Line 101  C # Line 101  C #
101        X = 0        X = 0
102        Y = 0        Y = 0
103        Z = -NDBI(3) + NDCD(3)        Z = -NDBI(3) + NDCD(3)
104        CALL GSPOS('NDCD',N,'NDBI',X,Y,Z,0,'ONLY')        CALL GSPOS('NDCD',N,'NDBI',X,Y,Z,0,'MANY')
105        N = N +1        N = N +1
106        Z = -NDBI(3) + 2.*NDCD(3) + 7.*2.*NDPB(3)+ NDCD(3)        Z = -NDBI(3) + 2.*NDCD(3) + 7.*2.*NDPB(3)+ NDCD(3)
107        CALL GSPOS('NDCD',N,'NDBI',X,Y,Z,0,'ONLY')        CALL GSPOS('NDCD',N,'NDBI',X,Y,Z,0,'MANY')
108  C #  C #
109  C # Now put the internal volume inside the aluminum box  C # Now put the internal volume inside the aluminum box
110  C # *  C # *
# Line 112  C # * Line 112  C # *
112        X = 0.        X = 0.
113        Y = 0.        Y = 0.
114        Z = 0.        Z = 0.
115        CALL GSPOS('NDBI',N,'NDBX',X,Y,Z,0,'ONLY')        CALL GSPOS('NDBI',N,'NDBX',X,Y,Z,0,'MANY')
116    
117        RETURN        RETURN
118        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23