/[PAMELA software]/yoda/techmodel/forroutines/calorimeter/riempi.for
ViewVC logotype

Diff of /yoda/techmodel/forroutines/calorimeter/riempi.for

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

revision 1.1 by kusanagi, Thu Aug 19 15:24:48 2004 UTC revision 1.2 by kusanagi, Fri Aug 20 15:01:46 2004 UTC
# Line 1  Line 1 
1    C
2    C  Written by Mirko Boezio and Emiliano Mocchiutti
3    C
4    C     * Version: 2.17.1 *
5    C
6  C-----------------------------------------------------  C-----------------------------------------------------
7        SUBROUTINE RIEMPI(m,lunga,lleng,lung,pari,vect,vecta)        SUBROUTINE RIEMPI(m,lunga,lleng,lung,pari,vect,vecta)
8  C-----------------------------------------------------  C-----------------------------------------------------
# Line 27  C Line 31  C
31        REAL calrms(4,11,96), calbase(4,11,6), calvar(4,11,6)        REAL calrms(4,11,96), calbase(4,11,6), calvar(4,11,6)
32        REAL calpuls(4,11,96)        REAL calpuls(4,11,96)
33        real perror(4)        real perror(4)
34        integer stwerr(4)        integer stwerr(4),dump
35    
36        COMMON / evento / IEV, stwerr,perror,        COMMON / evento / IEV, stwerr,perror,
37       &     dexy,dexyc,base,       &     dexy,dexyc,base,
# Line 43  C Line 47  C
47    
48        save / calib /        save / calib /
49  c  c
50        COMMON / VARIE / merror, CONTR, e2        COMMON / VARIE / merror, CONTR, e2, dump
51        SAVE / VARIE /        SAVE / VARIE /
52  C  C
53        do i = 1, (lunga - lleng)        do i = 1, (lunga - lleng)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23