--- DarthVader/TrackerLevel2/src/F77/reductionflight.f	2009/08/04 14:01:39	1.28
+++ DarthVader/TrackerLevel2/src/F77/reductionflight.f	2014/01/16 15:29:58	1.29
@@ -323,8 +323,8 @@
       do id=1,maxlength         !???
          clsignal(id) = 0.
          clsigma(id)  = 0.
-         cladc(id)    = 0.
-         clbad(id)    = 0.
+         cladc(id)    = 0  ! EM GCC4.7 is integer
+         clbad(id)    = 0  ! EM GCC4.7 is integer
       enddo
       do iv=1,nviews
 c        crc1(iv)=0
@@ -658,7 +658,7 @@
             ist=nst(j)
 
             clsigma(ind) = sigma(iv,ivk,ist)
-            cladc(ind)   = adc(iv,ivk,ist)
+            cladc(ind)   = int(adc(iv,ivk,ist))   ! EM GCC4.7 is integer
             clbad(ind)   = bad(iv,ivk,ist)
 c            clped(ind)   = pedestal(iv,ivk,ist)
 
@@ -740,7 +740,7 @@
 c     print*,iv,nvk(is),nst(is),adc(iv,nvk(is),nst(is))
 c     $            ,cn(iv,nvk(is))
 c     $            ,pedestal(iv,nvk(is),nst(is))
-            value(is)= -(DBLE(adc(iv,nvk(is),nst(is))) 
+            value(is)= -(REAL(adc(iv,nvk(is),nst(is)))  ! EM GCC4.7 value(nstrips_view) is real not double
      $           -cn(iv,nvk(is))-pedestal(iv,nvk(is),nst(is)))
      $           *mask(iv,nvk(is),nst(is))
             clseedcut(is)=clcuty*sigma(iv,nvk(is),nst(is)) 
@@ -751,7 +751,7 @@
             if( adc(iv,nvk(is),nst(is)).lt.adc_saty )sat(is)=1
          else            
 C===  > X view
-            value(is)= (DBLE(adc(iv,nvk(is),nst(is)))
+            value(is)= (REAL(adc(iv,nvk(is),nst(is)))
      $           -cn(iv,nvk(is))-pedestal(iv,nvk(is),nst(is)))
      $           *mask(iv,nvk(is),nst(is))
             clseedcut(is)=clcutx*sigma(iv,nvk(is),nst(is))