/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/fillpedsig.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/fillpedsig.f

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

revision 1.3 by pam-fi, Tue Sep 5 12:52:21 2006 UTC revision 1.4 by pam-fi, Mon Aug 20 16:07:16 2007 UTC
# Line 10  Line 10 
10        c2f_error = 0        c2f_error = 0
11    
12        fname_param='cabling.dat'        fname_param='cabling.dat'
13  c      if(DEBUG)print *                c      if(DEBUG.EQ.1)print *              
14  c     $     ,c2f_path(1:c2f_pathlen) !<<<< C2F  c     $     ,c2f_path(1:c2f_pathlen) !<<<< C2F
15  c     $     //fname_param(1:LNBLNK(fname_param))  c     $     //fname_param(1:LNBLNK(fname_param))
16        open(10,        open(10,
# Line 20  c     $     //fname_param(1:LNBLNK(fname Line 20  c     $     //fname_param(1:LNBLNK(fname
20       $     ,IOSTAT=iostat       $     ,IOSTAT=iostat
21       $     )       $     )
22        if(iostat.ne.0)then        if(iostat.ne.0)then
23  c     if(C2F_DEBUG.eq.1)print*  c     if(C2F_DEBUG.EQ.1.eq.1)print*
24           if(DEBUG)print*           if(DEBUG.EQ.1)print*
25       $        ,'READPEDSIGFROMDEFAULT: *** Error opening file *** '       $        ,'READPEDSIGFROMDEFAULT: *** Error opening file *** '
26           c2f_error = 1           c2f_error = 1
27           return           return
# Line 39  c     if(C2F_DEBUG.eq.1)print* Line 39  c     if(C2F_DEBUG.eq.1)print*
39                
40   300  format('link',i1,'/param2_',i1,'_',i1,'.dat')   300  format('link',i1,'/param2_',i1,'_',i1,'.dat')
41        do ilink=1,2              !loop over links        do ilink=1,2              !loop over links
42           if(VERBOSE)print *,'Opening default calibration - link'           if(VERBOSE.EQ.1)print *,'Opening default calibration - link'
43       $              ,ilink       $              ,ilink
44           do ipn=0,5             !loop over peripheral numbers           do ipn=0,5             !loop over peripheral numbers
45              do iladder=1,3      !loop over DSP              do iladder=1,3      !loop over DSP
46                 write(fname_param,300)ilink,ipn,iladder                 write(fname_param,300)ilink,ipn,iladder
47  c               if(DEBUG)print*,              c               if(DEBUG.EQ.1)print*,            
48  c     $              ,c2f_path(1:c2f_pathlen) !<<<< C2F  c     $              ,c2f_path(1:c2f_pathlen) !<<<< C2F
49  c     $              //fname_param(1:LNBLNK(fname_param))  c     $              //fname_param(1:LNBLNK(fname_param))
50                 open(10,                 open(10,
# Line 54  c     $              //fname_param(1:LNB Line 54  c     $              //fname_param(1:LNB
54       $              ,IOSTAT=iostat       $              ,IOSTAT=iostat
55       $              )       $              )
56                 if(iostat.ne.0)then                 if(iostat.ne.0)then
57  c     if(C2F_DEBUG.eq.1)print*  c     if(C2F_DEBUG.EQ.1.eq.1)print*
58                    if(DEBUG)print*                    if(DEBUG.EQ.1)print*
59       $                 ,'READPEDSIGFROMDEFAULT:'       $                 ,'READPEDSIGFROMDEFAULT:'
60       $                 ,' *** Error opening file *** '       $                 ,' *** Error opening file *** '
61                    c2f_error = 1                    c2f_error = 1
# Line 164  c      character*60 fname_param Line 164  c      character*60 fname_param
164        c2f_error=0        c2f_error=0
165    
166    
167        if(C2F_DEBUG.eq.1)print*,c2f_path(1:c2f_pathlen)        if(DEBUG.eq.1)print*,c2f_path(1:c2f_pathlen)
168        call HROPEN(lun_data_file,        call HROPEN(lun_data_file,
169       $     'CALIB'       $     'CALIB'
170       $     ,c2f_path(1:c2f_pathlen) !<<<< C2F       $     ,c2f_path(1:c2f_pathlen) !<<<< C2F
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23