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

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

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

revision 1.7 by pam-fi, Wed Nov 15 17:55:07 2006 UTC revision 1.8 by pam-fi, Mon Aug 20 16:07:16 2007 UTC
# Line 59  c$$$      end Line 59  c$$$      end
59        subroutine readB        subroutine readB
60        include 'common_c2f.f'        include 'common_c2f.f'
61    
62        LOGICAL DEBUG  c$$$      LOGICAL DEBUG
63        LOGICAL VERBOSE  c$$$      LOGICAL VERBOSE
64        LOGICAL WARNING  c$$$      LOGICAL WARNING
65        COMMON/DBG/DEBUG,VERBOSE,WARNING  c$$$      COMMON/DBG/DEBUG,VERBOSE,WARNING
66        SAVE/DBG/  c$$$      SAVE/DBG/
67          INTEGER DEBUG
68          INTEGER VERBOSE
69          INTEGER WARNING
70          COMMON/dbg/DEBUG,VERBOSE,WARNING
71          SAVE/dbg/
72    
73          
74    
75  c$$$      character*256 cpath  c$$$      character*256 cpath
76        character*256 ppath        character*256 ppath
# Line 119  c     implicit double precision (a-h,o-z Line 126  c     implicit double precision (a-h,o-z
126        include 'common_B.f'        include 'common_B.f'
127        include 'common_c2f.f'        include 'common_c2f.f'
128    
129        LOGICAL DEBUG  c$$$      LOGICAL DEBUG
130        LOGICAL VERBOSE  c$$$      LOGICAL VERBOSE
131        LOGICAL WARNING  c$$$      LOGICAL WARNING
132        COMMON/DBG/DEBUG,VERBOSE,WARNING  c$$$      COMMON/DBG/DEBUG,VERBOSE,WARNING
133        SAVE/DBG/  c$$$      SAVE/DBG/
134          INTEGER DEBUG
135          INTEGER VERBOSE
136          INTEGER WARNING
137          COMMON/dbg/DEBUG,VERBOSE,WARNING
138          SAVE/dbg/
139    
140        character*256 path        character*256 path
141                
# Line 184  c     print*,' ' Line 196  c     print*,' '
196                
197  c     opens magnetic field map first file  c     opens magnetic field map first file
198  c      if(b_debug.eq.1)print *                  c      if(b_debug.eq.1)print *                
199        if(VERBOSE)print *                        if(VERBOSE.EQ.1)print *                
200       $     ,path(1:LNBLNK(path))//Bmap_file       $     ,path(1:LNBLNK(path))//Bmap_file
201        call HROPEN        call HROPEN
202       $     (lun_Bmap_file,'Bmap'       $     (lun_Bmap_file,'Bmap'
# Line 309  c     print*,' ' Line 321  c     print*,' '
321        Bmap_file='measure_n4_110402_corrected.rz'        Bmap_file='measure_n4_110402_corrected.rz'
322  c     opens magnetic field map first file  c     opens magnetic field map first file
323  c      if(b_debug.eq.1)print *                   !,'Opening file: '  c      if(b_debug.eq.1)print *                   !,'Opening file: '
324        if(VERBOSE)print *                   !,'Opening file: '        if(VERBOSE.EQ.1)print *                   !,'Opening file: '
325       $     ,path(1:LNBLNK(path))//Bmap_file       $     ,path(1:LNBLNK(path))//Bmap_file
326        call HROPEN        call HROPEN
327       $     (lun_Bmap_file,'Bmap'       $     (lun_Bmap_file,'Bmap'
# Line 430  c--------------------------------------- Line 442  c---------------------------------------
442                
443        c2f_error = 1        c2f_error = 1
444  c      if(b_debug.eq.1)  c      if(b_debug.eq.1)
445        if(DEBUG)        if(DEBUG.EQ.1)
446       $     print*       $     print*
447       $     ,'read_B_inner: ERROR OPENING MAGNETIC FIELD MAP FILE: '       $     ,'read_B_inner: ERROR OPENING MAGNETIC FIELD MAP FILE: '
448       $     ,Bmap_file       $     ,Bmap_file
# Line 447  c--------------------------------------- Line 459  c---------------------------------------
459   22   continue   22   continue
460                
461        c2f_error = 1        c2f_error = 1
462  c      if(b_debug.eq.1)  c      if(b_debug.eq.1.eq.1)
463        if(DEBUG)        if(DEBUG.EQ.1)
464       $     print*,'read_B_inner: ERROR WHILE READING NTUPLE, at entry       $     print*,'read_B_inner: ERROR WHILE READING NTUPLE, at entry
465       $     : ',iev       $     : ',iev
466                
# Line 491  c     implicit double precision (a-h,o-z Line 503  c     implicit double precision (a-h,o-z
503        include 'common_B.f'        include 'common_B.f'
504        include 'common_c2f.f'        include 'common_c2f.f'
505  C  C
506        LOGICAL DEBUG  c$$$      LOGICAL DEBUG
507        LOGICAL VERBOSE  c$$$      LOGICAL VERBOSE
508        LOGICAL WARNING  c$$$      LOGICAL WARNING
509        COMMON/DBG/DEBUG,VERBOSE,WARNING  c$$$      COMMON/DBG/DEBUG,VERBOSE,WARNING
510        SAVE/DBG/  c$$$      SAVE/DBG/
511          INTEGER DEBUG
512          INTEGER VERBOSE
513          INTEGER WARNING
514          COMMON/dbg/DEBUG,VERBOSE,WARNING
515          SAVE/dbg/
516    
517        character*256 path        character*256 path
518    
# Line 557  c     print*,' ' Line 574  c     print*,' '
574                
575  c     opens magnetic field map first file  c     opens magnetic field map first file
576  c      if(b_debug.eq.1)print *  c      if(b_debug.eq.1)print *
577        if(VERBOSE)print *        if(VERBOSE.EQ.1)print *
578       $     ,path(1:LNBLNK(path))//Bmap_file       $     ,path(1:LNBLNK(path))//Bmap_file
579        call HROPEN        call HROPEN
580       $     (lun_Bmap_file,'Bmap'       $     (lun_Bmap_file,'Bmap'
# Line 679  c--------------------------------------- Line 696  c---------------------------------------
696                
697        c2f_error = 1        c2f_error = 1
698  c      if(b_debug.eq.1)  c      if(b_debug.eq.1)
699        if(DEBUG)        if(DEBUG.EQ.1)
700       $     print*       $     print*
701       $     ,'read_B_inner: ERROR OPENING MAGNETIC FIELD MAP FILE: '       $     ,'read_B_inner: ERROR OPENING MAGNETIC FIELD MAP FILE: '
702       $     ,Bmap_file       $     ,Bmap_file
# Line 689  c      if(b_debug.eq.1) Line 706  c      if(b_debug.eq.1)
706    
707  c------------------------------------------------------------------------  c------------------------------------------------------------------------
708  c      c    
709  c     ntuple event reading error  c     ntuple evevent reading error
710  c      c    
711  c------------------------------------------------------------------------  c------------------------------------------------------------------------
712                
# Line 697  c--------------------------------------- Line 714  c---------------------------------------
714                
715        c2f_error  = 1        c2f_error  = 1
716  c      if(b_debug.eq.1)  c      if(b_debug.eq.1)
717        if(DEBUG)        if(DEBUG.EQ.1)
718       $     print*       $     print*
719       $     ,'read_B_inner: ERROR WHILE READING NTUPLE, at event       $     ,'read_B_inner: ERROR WHILE READING NTUPLE, at event
720       $     : ',iev       $     : ',iev
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23