more xdrfpdb fixes for gfortran build

[unres.git] / source / xdrfpdb / src / xdrf2x.F

diff --git a/source/xdrfpdb/src/xdrf2x.F b/source/xdrfpdb/src/xdrf2x.F
index b6e86cf..be662e6 100644 (file)
--- a/source/xdrfpdb/src/xdrf2x.F
+++ b/source/xdrfpdb/src/xdrf2x.F
@@ -3,7 +3,8 @@
       integer ihpb(100),jhpb(100)
       character*80 arg,ctime_start /"0"/,ctime_end /"1000000000"/,
      &  cfreq /"1"/
-      integer time_start,time_end,freq
+c      integer time_start,time_end,freq
+      real time_start,time_end,freq
       
       call getarg(1,arg)
       if (iargc().eq.0) stop