C23456===============================================
      subroutine tiempo_en_horas(iyf2,imf2,idf2,ihf2,horas)

C Esta rutina te da el tiempo en horas desde la hora ihi2,
C el dia idia2, mes imi2,a del anho iyi2, que en este caso 
C particular es 00 horas del 01 de Enero del 2000. El numero 
C de horas se almacena en la variable HORAS.
C
C KOBI 2006
C kobi@chavin.igp.gob.pe

      real horas
      character*10 sss
      integer iyi2,imi2,idi2,ihi2,ndias(12)
      integer iyf2,imf2,idf2,ihf2

      data iyi2/2000/,imi2/01/,idi2/01/,ihi2/00/
      data ndias/31,28,31,30,31,30,31,31,30,31,30,31/

      horas=0.
      do iy=iyi2,iyf2-1

C Esto es para ver si el anho es bisiesto

      resto1=mod(iy,4)
      resto2=mod(iy,100)
      resto3=mod(iy,400)
      if (((resto1.eq.0).and.(resto2.ne.0)).or.(resto3.eq.0)) then
         ndias(2)=29
      else
         ndias(2)=28
      endif

      do im=1,12
         horas=horas+float(ndias(im))*24.
      enddo
      enddo

      do im=1,imf2-1

C Esto es para ver si el anho es bisiesto

      resto1=mod(iyf2,4)
      resto2=mod(iyf2,100)
      resto3=mod(iyf2,400)
      if (((resto1.eq.0).and.(resto2.ne.0)).or.(resto3.eq.0)) then
         ndias(2)=29
      else
         ndias(2)=28
      endif
         horas=horas+float(ndias(im))*24.
      enddo

      horas=horas+float(idf2-1)*24.

      horas=horas+ihf2

      end