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

Diff of /gpamela/gpnd/gpgres.F

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

revision 1.1 by pamela, Mon Jun 5 14:13:17 2006 UTC revision 1.2 by cafagna, Thu Nov 15 13:55:11 2007 UTC
# Line 29  c     Line 29  c    
29  *      *    
30  *     Let's trasnform energy and momentum in MeV. Remember, GEANT is GeV  *     Let's trasnform energy and momentum in MeV. Remember, GEANT is GeV
31  *      *    
32        open(77,file='testgig.dat',access='append')  *      open(77,file='testgig.dat',access='append')
33        En_gamma=En_g/1000.        En_gamma=En_g/1000.
34        px_gamma=px_g/1000.        px_gamma=px_g/1000.
35        py_gamma=py_g/1000.        py_gamma=py_g/1000.
# Line 67  C     (Number_n=0 if no interaction) Line 67  C     (Number_n=0 if no interaction)
67           enddo           enddo
68    
69        endif        endif
70        write(77,*) Number_N, step, en_gamma  *      write(77,*) Number_N, step, en_gamma
71        close(77)        *      close(77)      
72        RETURN        RETURN
73        end        end
74    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23