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

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

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

revision 2.4 by kusanagi, Thu Dec 16 17:33:01 2004 UTC revision 2.5 by kusanagi, Wed Dec 22 11:39:07 2004 UTC
# Line 1  Line 1 
1  C  C
2  C  Written by Mirko Boezio and Emiliano Mocchiutti  C  Written by Mirko Boezio and Emiliano Mocchiutti
3  C  C
4  C     * Version: 3.1.1 *  C     * Version: 3.1.2 *
5    C
6    C     3.1.1 - 3.1.2: (2004-12-21) changed common varie.
7  C  C
8  C     3.1.0 - 3.1.1: (2004-12-13) bug in filling the calpuls vector. Fixed.  C     3.1.0 - 3.1.1: (2004-12-13) bug in filling the calpuls vector. Fixed.
9  C  C
# Line 30  C Line 32  C
32        integer*2 check, crc,e2(4)        integer*2 check, crc,e2(4)
33        INTEGER*2 length, length2        INTEGER*2 length, length2
34  C  C
35        INTEGER ERROR(4)        INTEGER ERROR(4), merror(4)
36        INTEGER ic, k, ke, ic0        INTEGER ic, k, ke, ic0
37        INTEGER CONTR, m        INTEGER CONTR, m
38        INTEGER inf, sup, lunga,lleng,l        INTEGER inf, sup, lunga,lleng,l
# Line 53  C Line 55  C
55        save / calpul /        save / calpul /
56  c  c
57    
58        COMMON /VARIE/ dump, CONTR        COMMON /VARIE/ dump, CONTR, merror
59        SAVE /VARIE/        SAVE /VARIE/
60            
61    
Legend:
Removed from v.2.4  
changed lines
  Added in v.2.5
  ViewVC Help
Powered by ViewVC 1.1.23