C
C
C                  CONTROLLER
C
C     SPECIFIC CONTROLLER FOR EXERCISE A1 LA CHAUMIERE AN17
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C     SAMPLE INPUT AND OUTPUT VALUES
C
C     PARAMETERS               SAMPLE VALUES
C     NONE
C
C     INPUTS
C     XIN(1)  Outside Temperature               6.0
C     XIN(2)  On/off Switch                     1.0
C
C     Outputs
C     OUT(1)  Boiler set point temp.           58.60
C     OUT(2)  Three way valve set point temp.  53.60
C     OUT(3)  On/off switch                     1.0
C     OUT(4)  Total mass flow rate              2.384
C     OUT(5)  Mass flow rate in each column     0.1703
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C

!  This component has been assigned Type Number 210. If that number conflicts with 
!  another user Type number, you will need to change it and recompile the appropriate
!  dll.

      SUBROUTINE TYPE210(TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*)

!DEC$ATTRIBUTES DLLEXPORT :: TYPE210


C
      DOUBLE PRECISION XIN,OUT
	DIMENSION XIN(2),OUT(5),INFO(15)


!    Set the version information for TRNSYS
      IF (INFO(7).EQ.-2) THEN
	  INFO(12) = 15
	  RETURN 1
	ENDIF



C
C                  INPUTS
C
C             OUTSIDE TEMPERATURE
      TOUT=XIN(1)
C             ON/OFF
      GAMMA=XIN(2)
C
C                  BOILER SET POINT
C
      T1=66.81-1.368*TOUT
C                
C                  THREE WAY VALVE SET POINT
C
      T2=61.81-1.368*TOUT
C
C                  TOTAL MASSFLOW RATE(KG/S)
C
      XMT=613.*14/3600*GAMMA
C
C                  MASSFLOW RATE IN ONE COLUMN
C 
      XMC=613./3600*GAMMA
C
C                  OUTPUTS
C
C             BOILER SET POINT
      OUT(1)=T1
C             THREE-WAY VALVE SET POINT
      OUT(2)=T2
C             ON/OFF
      OUT(3)=GAMMA
C             TOTAL MASSFLOW RATE
      OUT(4)=XMT
C             ASSFLOW RATE IN ONE COLUMN
      OUT(5)=XMC
C      
      RETURN 1
      END