C*********************************************************************** ! This component has been assigned Type Number 213. If that number conflicts with ! another user Type number, you will need to change it and recompile the appropriate ! dll. SUBROUTINE TYPE213(TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*) !DEC$ATTRIBUTES DLLEXPORT :: TYPE213 C ---------------------------------------------------------------------- C C TYPE 213 : PLENUM MODEL C C*********************************************************************** DOUBLE PRECISION XIN,OUT REAL PAR INTEGER INFO DIMENSION XIN(10),OUT(1),PAR(1),INFO(15) C DIMENSION IOSTAT(10) ! Set the version information for TRNSYS IF (INFO(7).EQ.-2) THEN INFO(12) = 15 RETURN 1 ENDIF W=0. N=IFIX(PAR(1)) DO 10 I=1,N W=W+XIN(I) 10 CONTINUE OUT(1)=W C IOSTAT(1)=1 RETURN 1 END