Changeset 1337 for trunk/examples/extended/electromagnetic/TestEm2/geant3/src/uhinit.F

Timestamp:

Sep 30, 2010, 2:47:17 PM (14 years ago)

Author:

garnier

Message:

tag geant4.9.4 beta 1 + modifs locales

File:

• trunk/examples/extended/electromagnetic/TestEm2/geant3/src/uhinit.F (modified) (3 diffs)

trunk/examples/extended/electromagnetic/TestEm2/geant3/src/uhinit.F

@@ -25 +25 @@
       ZMAX=NLTOT*DLX0
                                                                                            
-      CALL HBPROF(4,'longit energy profile    (in percent of E inc)'          
+      CALL HBPROF(4,'longit energy profile    (in percent of E inc)'
+     *, NLTOT, 0.,ZMAX, 0., 1000.,' ')
+      CALL HBPROF(5,'rms longit energy profile (in percent of E inc)'
      *, NLTOT, 0.,ZMAX, 0., 1000.,' ')
 *      
@@ -31 +33 @@
       ZMAX = ZMIN + NLTOT*DLX0
                                                                                                                           
-      CALL HBPROF(5,'cumul longit energy dep. (in percent of E inc)'          
+      CALL HBPROF(6,'cumul longit energy dep. (in percent of E inc)'          
      *, NLTOT, ZMIN,ZMAX, 0., 100.,' ')
-      CALL HBOOK1(6,'resolution: cumul L energy dep. (% of E inc)'          
+      CALL HBOOK1(7,'resolution: cumul L energy dep. (% of E inc)'          
      *, NLTOT, ZMIN,ZMAX, 0.0)                                  
 *
@@ -39 +41 @@
       RMAX=NRTOT*DRX0
       
-      CALL HBPROF(7,'radial energy profile    (in percent of E inc)'          
+      CALL HBPROF(8,'radial energy profile    (in percent of E inc)'          
      *, NRTOT, 0.,RMAX, 0., 1000.,' ')
+      CALL HBPROF(9,'rms radial energy profile (in percent of E inc)'          
+     *, NRTOT, 0.,RMAX, 0., 1000.,' ')     
 *
       RMIN = 0.5*DRX0
       RMAX = RMIN + NRTOT*DRX0
       
-      CALL HBPROF(8,'cumul radial energy dep. (in percent of E inc)'          
+      CALL HBPROF(10,'cumul radial energy dep. (in percent of E inc)'          
      *, NRTOT, RMIN,RMAX, 0., 100.,' ')
-      CALL HBOOK1(9,'resolution: cumul R energy dep. (% of E inc)'          
+      CALL HBOOK1(11,'resolution: cumul R energy dep. (% of E inc)'          
      *, NRTOT, RMIN,RMAX, 0.0)