!$Author: fredfox $
!$Date: 2006-02-25 00:21:16 $
!$Revision: 1.2 $
!$Source: /weru/cvs/wepp/wepp.watbal/init.for,v $

      SUBROUTINE INIT(TR, TF, R, RCUM, F, FF, RE, RECUM, RR, 
     1           DT, DTC, NR, NF, KS, SM, NU, DE, TN, TP,
     1           ZZ, POR, SAT, CC, SC,
     1           S, T, Q, TQ, SLEN, NQ, NS, TQ1, TRF, RF, QTOT, RPRINT,
     1           ALPHA, M, N, TSTAR, NROUTE, ACV, HCV, SCV)
C
C     + + + PURPOSE + + +
C     INITIALIZES PARAMETER VALUES FOR HYDROLOGY COMPONENT.
C
C     CALLED FROM MAIN
C     AUTHOR(S): D. FLANAGAN, J. ASCOUGH
C     VERSION: THIS MODULE TAKEN FROM ASCOUGH STANDALONE IRS CODE
C     DATE CODED:  3-22-2005
C     CODED BY: D. FLANAGAN
C
C
C     + + + PARAMETER DECLARATIONS + + +
C      
      INTEGER MXTIME, MXPOND
      PARAMETER (MXTIME = 1000, MXPOND = 65)

C     + + + ARGUMENT DECLARATIONS + + +

      INTEGER NR, NF, NQ, NS, NROUTE
      REAL TR(MXTIME), TF(MXTIME), R(MXTIME), RCUM(MXTIME), F(MXTIME),
     1     FF(MXTIME), RE(MXTIME), RECUM(MXTIME), RR(MXTIME),
     1     DT, DTC, KS, SM, NU, DE, TN, TP(MXPOND),
     1     ZZ, POR, SAT, CC, SC,
     1     S(MXTIME), T(MXTIME), Q(MXTIME+1), TQ(MXTIME), SLEN,
     1     TQ1(MXTIME), TRF(MXTIME), RF(MXTIME), QTOT(MXTIME),
     1     RPRINT(MXTIME), TSTAR, ALPHA, M, N, ACV(3), HCV(3), SCV(3)

C     + + + ARGUMENT DEFINITIONS + + +
C
C     NR      -
C     NF      -
C     NQ      -
C     NS      -
C     TR      -
C     TF      -
C     R       -
C     RCUM    -
C     F       -
C     FF      -
C     RE      -
C     RECUM   -
C     RR      -
C     DT      -
C     DTC     -
C     KS      -
C     SM      -
C     NU      -
C     DE      -
C     TN      -
C     TP      -
C     ZZ      -
C     POR     -
C     SAT     -
C     CC      -
C     SC      -
C     S       -
C     T       -
C     Q       -
C     TQ      -
C     SLEN    -
C     NQ      -
C     NS      -
C     TQ1     -
C     TRF     -
C     RF      -
C     QTOT    -
C     RPRINT  -
C     ALPHA   -
C     M       -
C     N       -
C     TSTAR   -
C     NROUTE  -
C     ACV     -
C     HCV     -
C     SCV     -
C     
C
C     + + + LOCAL VARIABLES + + +
C
      INTEGER I

C     + + + END SPECIFICATIONS + + +
C
C
C*********************************************************************
C
C     BEGIN SUBROUTINE INIT
C       
C     INITIALIZE ARRAYS
C
      DO I = 1,MXTIME
         TR(I) = 0.0 
         TF(I) = 0.0 
         R(I) = 0.0 
         RCUM(I) = 0.0 
         F(I) = 0.0 
         FF(I) = 0.0 
         RE(I) = 0.0 
         RECUM(I) = 0.0 
         RR(I) = 0.0 
         S(I) = 0.0 
         T(I) = 0.0 
         Q(I) = 0.0 
         TQ(I) = 0.0
         TQ1(I) = 0.0 
         TRF(I) = 0.0 
         RF(I) = 0.0 
         QTOT(I) = 0.0 
         RPRINT(I) = 0.0
      END DO 
C
      DO I = 1,MXPOND
         TP(I) = 0.0
      END DO 
C
      DO I = 1,3
         ACV(I) = 0.0
         HCV(I) = 0.0
         SCV(I) = 0.0
      END DO                
C
C     INITIALIZE REAL VARIABLES
C                           
      DT = 0.0
      DTC = 0.0 
      KS = 0.0  
      SM = 0.0  
      NU = 0.0  
      DE = 0.0  
      TN = 0.0  
      ZZ = 0.0  
      POR = 0.0  
      SAT = 0.0  
      CC = 0.0  
      SC = 0.0 
      SLEN = 0.0  
      ALPHA = 0.0 
      M = 0.0 
      N = 0.0 
      TSTAR = 0.0
C     
C     INITIALIZE INTEGER VARIABLES
C
      NR = 0  
      NF = 0  
      NQ = 0  
      NS = 0  
      NROUTE = 0
C
      RETURN
      END