*=*=*=*= readhist.html =*=*=*=*
SUBROUTINE readhist

SUBROUTINE readhist


      SUBROUTINE readhist(typfile,unitlec,
     s  ucov,vcov,h,pext,ptime,pdt,ifin)
c%W%    %G%
c=======================================================================
c
c   Author:    Frederic Hourdin      original: 11/11/92
c   -------
c
c   Subject:
c   ------
c
c   Method:
c   --------
c
c   Interface:
c   ----------
c
c      Input:
c      ------
c
c      Output:
c      -------
c
c=======================================================================
      IMPLICIT NONE
c-----------------------------------------------------------------------
c   Declararations:
c   ---------------

#include "dimensions.h"
#include "comconst.h"
#include "control.h"
#include "paramet.h"

c   Arguments:
c   ----------

      INTEGER typfile,unitlec
      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),h(ip1jmp1,llm)
      REAL pext(ip1jmp1),pks(ip1jmp1),pksf(ip1jmp1),phis(ip1jmp1)
      REAL pdt,ptime

c   Local:
c   ------

      INTEGER itau,ifin,j

c-----------------------------------------------------------------------

      ifin=0
      IF(typfile.EQ.0) THEN
         READ(unitlec,err=9999) ptime,vcov,ucov,h,pext
         pdt=iecri*dtvr
      ELSE
         READ(unitlec,err=9999) ptime,pdt,vcov,ucov,h,pext
      ENDIF
      PRINT*,ptime,pdt

      RETURN
9999  CONTINUE
        ifin=1
      RETURN
      END