SUBROUTINE TYPE57 (TIME, XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*)
C***********************************************************************
C*    Copyright ASHRAE.  Toolkit for HVAC System Energy Calculations
C***********************************************************************
C*    SUBROUTINE:             DIVOSIM
C*
C*    LANGUAGE:               FORTRAN 77
C*
C*    PURPOSE:                Calculate the flow rates from a flow
C*                            diverter.
C***********************************************************************
C*    INPUT VARIABLES  DESCRIPTION(UNITS)                       SAMPLE VALUE
C*    XIN(1)   MEnt  Mass flow rate of entering stream(kg/s)         5.0
C*    XIN(2)    Pos  Fraction of entering flow to outlet stream 1(-)  .60
C*
C*    OUTPUT VARIABLES
C*    OUT(1)  M1Lvg  Mass flow rate of leaving stream 1(kg/s)        3.0
C*    OUT(2)  M2Lvg  Mass flow rate of leaving stream 2(kg/s)        2.0
C*    OUT(3) ErrStat Error flag (0=ok, 1=error)(-)                   0.0
C***********************************************************************
C     MAJOR RESTRICTION:      None
C
C     DEVELOPER:              Shauna Gabel
C                             Michael J. Brandemuehl, PhD, PE
C                             University of Colorado at Boulder
C
C     DATE:                   January 1, 1992
C
C     INCLUDE FILES:          None
C     SUBROUTINES CALLED:     None
C     FUNCTIONS REQUIRED:     None
C
C     REVISION HISTORY:       None
C
C     REFERENCE:              None
C***********************************************************************

      INTEGER ErrStat, INFO, IOPT, NI, NP, ND
      DOUBLE PRECISION XIN, OUT
      DIMENSION XIN(2),OUT(3), INFO(15)
	CHARACTER*3 YCHECK(2), OCHECK(3)

	DATA YCHECK/'MF2','DM1'/
	DATA OCHECK/'MF2','MF2','DM1'/

      MENT = XIN(1)
      POS  = XIN(2)

      ErrStat = 0
	IOPT	= -1
	NI		= 2		!CORRECT NUMBER OF INPUTS
	NP		= 0		!CORRECT NUMBER OF PARAMETERS
	ND		= 0		!CORRECT NUMBER OF DERIVATIVES

	IF (INPUT(7).EQ.-1) THEN
		CALL TYPECK(IOPT,INFO,NI,NP,ND)
C	 CHECKS TO SEE IF USER'S INFO MATCHES CORRECT NUMBERS
		CALL RCHECK(INFO,YCHECK,OCHECK)
C	 CHECKS TO SEE IF INPUT AND OUTPUT UNITS MATCH
	ENDIF

C1*** Calculate the mass flow rate of leaving stream 1.

      M1Lvg = Pos*MEnt

C1*** Calculate the mass flow rate of leaving stream 2.

      M2Lvg = MEnt-M1Lvg

      OUT(1) = M1LVG
      OUT(2) = M2LVG
      OUT(3) = ERRSTAT

      RETURN 1
      END