--- DarthVader/TrackerLevel2/src/F77/readallparam.f	2009/08/04 14:01:39	1.10
+++ DarthVader/TrackerLevel2/src/F77/readallparam.f	2009/08/11 12:58:25	1.11
@@ -88,7 +88,7 @@
  1000    close(10)
       enddo
       
-	  return
+       return
       end
 *** * * * *** * * * *** * * * *** * * * *** * * * *** * * * ***
       subroutine readchargeparam
@@ -98,7 +98,7 @@
       include 'calib.f'
       include 'common_c2f.f' !<<<< C2F
       character*60 fname_param 
-	  c2f_error = 0
+       c2f_error = 0
  201  format('charge-l',i1,'.dat')
       do ilad=1,nladders_view         
          write(fname_param,201)ilad
@@ -122,7 +122,7 @@
      $           )pip,
      $            kch(ip,ilad),cch(ip,ilad),sch(ip,ilad)         
             if(iostat.ne.0)then
-			   c2f_error = 1
+                  c2f_error = 1
                goto 1000
             endif
          enddo
@@ -150,7 +150,7 @@
       
       
       c2f_error = 0
-	  
+       
 *     ======================================================
 *     read ANGULAR BINNING info
 *     ======================================================
@@ -338,7 +338,7 @@
 c      character*120 cmd1
 c      character*120 cmd2
 
-	  c2f_error = 0
+       c2f_error = 0
       call mech_sensor
       do ip=1,nplanes
         fitz(ip)=z_mech_sensor(ip,1,1)*0.1 !cm
@@ -365,7 +365,7 @@
      $           ,STATUS='OLD',IOSTAT=iostat
      $           )
             if(iostat.ne.0)then
-		         c2f_error = 1
+                   c2f_error = 1
                  return
             endif
             
@@ -428,8 +428,8 @@
 
       real xvec(nladders_view),yvec(2),zvec(nplanes)
 
-	  c2f_error = 0
-	  
+       c2f_error = 0
+       
 c      if(C2F_DEBUG.EQ.1.eq.1)print *
       if(VERBOSE.EQ.1)print *
      $     ,c2f_path(1:c2f_pathlen)//'mech_pos.dat'