C
C
C                  TYPE 203 : THIS TYPE CALCULATE THE SUM OF A NUMBER
C                            OF INPUTS
C    
C                  THE MEANING OF THE PARAMETERS IS :
C             THE NEXT PAR INPUTS HAVE TO BE SUMMED
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C     SAMPLE INPUT AND OUTPUT VALUES
C
C     PARAMETERS        SAMPLE VALUES
C     PAR(1)                 3
C     PAR(2)                 2
C     PAR(3)                 2
C     PAR(4)                 2
C     PAR(5)                 3
C     PAR(6)                 2
C     PAR(7)                 2
C     PAR(8)                 2
C
C     INPUTS 
C     XIN(1)                   1
C     XIN(2)                   2
C     XIN(3)                   3
C     XIN(4)                   4
C     XIN(5)                   5
C     XIN(6)                   6
C     XIN(7)                   7
C     XIN(8)                   8
C     XIN(9)                   9
C     XIN(10)                 10
C     XIN(11)                 11
C     XIN(12)                 12
C     XIN(13)                 13
C     XIN(14)                 14
C     XIN(15)                 15
C     XIN(16)                 16
C     XIN(17)                 17
C     XIN(18)                 18
C
C     OUTPUTS
C     OUT(1)                   6
C     OUT(2)                   9
C     OUT(3)                  13
C     OUT(4)                  17
C     OUT(5)                  33
C     OUT(6)                  27
C     OUT(7)                  31
C     OUT(8)                  35
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC

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

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

!DEC$ATTRIBUTES DLLEXPORT :: TYPE203


C
	DOUBLE PRECISION XIN,OUT
      DIMENSION XIN(40),PAR(20),OUT(20),INFO(15),IPAR(20)

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

C             
C             NUMBER OF PARAMETERS
C
      NPAR=INFO(4)
C
      DO 10 L=1,NPAR
      OUT(L)=0
      IPAR(L)=PAR(L)+0.01
 10   CONTINUE
C
      K=1
C
      DO 20 I=1,NPAR
      DO 30 J=1,IPAR(I)
      OUT(I)=OUT(I)+XIN(K)
      K=K+1
 30   CONTINUE
 20   CONTINUE
C
      RETURN 1
      END