WebSVN – lagranto.ecmwf – Diff – /trunk/lib/times.f

 c     Convert <hh.mm> -> <frac> and <frac> -> <hhmm>
 c     ---------------------------------------------------------------------------
       subroutine hhmm2frac (hhmm,frac)
+      implicit none
       real hhmm
       real frac
       frac=real(int(hhmm))+
      >     100.*(hhmm-real(int(hhmm)))/60.
       end
       subroutine frac2hhmm (frac,hhmm)
+      implicit none
       real hhmm
       real frac
       real hh,mm
+      integer changesign
+      real eps
+      parameter (eps=0.00001)
+      changesign = 0.
+      if ( frac.lt.0. ) changesign = 1
+      if ( changesign.eq.1 ) frac = - frac
-      hh =  real(int(frac))
+      hh =  real( int(frac+eps) )
-      mm =  60. * (frac-real(int(frac)))
+      mm =  real( nint( 60. * (frac-hh) ) )
       hhmm = hh + 0.01 * mm
+      if ( changesign.eq.1 ) then
+          hhmm = -hhmm
+          frac = -frac
+      endif
       end
 c     ---------------------------------------------------------------------------
 c     Time difference between two dates
 c     ---------------------------------------------------------------------------

Subversion Repositories lagranto.ecmwf