--- DarthVader/TrackerLevel2/src/F77/grkuta.f	2008/03/05 17:00:20	1.8
+++ DarthVader/TrackerLevel2/src/F77/grkuta.f	2014/01/16 15:29:55	1.9
@@ -545,7 +545,7 @@
 c$$$      print*,'GUFLD: v ',v
       call inter_B(vv(1),vv(2),vv(3),ff) 
       do i=1,3                  !change back the field in kGauss 
-         f(i)=ff(i)*10.
+         f(i)=REAL(ff(i)*10.) ! EM GCC4.7
       enddo
 c$$$      print*,'GUFLD: b ',f