<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><o:SmartTagType
namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="City"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="place"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:Arial;
color:windowtext;
font-weight:normal;
font-style:normal;
text-decoration:none none;}
@page Section1
{size:595.3pt 841.9pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;}
div.Section1
{page:Section1;}
/* List Definitions */
@list l0
{mso-list-id:1034965471;
mso-list-type:hybrid;
mso-list-template-ids:1637617840 -760979738 134807555 134807557 134807553 134807555 134807557 134807553 134807555 134807557;}
@list l0:level1
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:50.2pt;
mso-level-number-position:left;
margin-left:53.0pt;
text-indent:-14.15pt;
font-family:Symbol;}
@list l1
{mso-list-id:2013951697;
mso-list-type:hybrid;
mso-list-template-ids:599921346 929719586 134807577 134807579 134807567 134807577 134807579 134807567 134807577 134807579;}
@list l1:level1
{mso-level-text:%1-;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l1:level2
{mso-level-number-format:alpha-lower;
mso-level-tab-stop:72.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1033" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-GB link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=4 face="Times New Roman"><span style='font-size:
13.0pt'>Hello everybody<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=4 face="Times New Roman"><span style='font-size:
13.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=4 face="Times New Roman"><span style='font-size:
13.0pt'>I was trying to change a variable from parameter category to input
category. At the beginning I had problem to perform it. Here is an example
which illustrates the process. If you desire to conduct such a change I hope
this example would be helpful. <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><u><font size=3 face="Times New Roman"><span
style='font-size:12.0pt'>Changing a parameter to input or vice versa<o:p></o:p></span></font></u></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>At the first glance changing a parameter to an input or vice versa
seems to be very simple. In component’s performa, changing the role
culminates in the desire change. But unfortunately this change has been made
only on performa and we still need to change the related dll and fortran file.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>Hence here an example for this change would be illustrated as a
reference for users desired to perform such a change.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'> <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>Suppose that in type 31 (pipe & duct), we need to change the pipe
inside diameter to an input (pipe inside diameter is originally defined as a
parameter in type 31).<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>To avoid spoiling the original type31 its better if we generate another
component to implement out desire change. Let say we want to implement this
change in new component called type 215.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'>Original fortran file of this component is located in: C:\Trnsys17\SourceCode\Types\Type31<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt;text-indent:-18.0pt;mso-list:l1 level1 lfo1'><![if !supportLists]><font
size=3 face="Times New Roman"><span style='font-size:12.0pt'><span
style='mso-list:Ignore'>1-<font size=1 face="Times New Roman"><span
style='font:7.0pt "Times New Roman"'> </span></font></span></span></font><![endif]>Copy
and past the original fortran file to wherever you want and change the name
from type 31 to type 215.<o:p></o:p></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt;text-indent:-18.0pt;mso-list:l1 level1 lfo1'><![if !supportLists]><font
size=3 face="Times New Roman"><span style='font-size:12.0pt'><span
style='mso-list:Ignore'>2-<font size=1 face="Times New Roman"><span
style='font:7.0pt "Times New Roman"'> </span></font></span></span></font><![endif]>Open
the new file (we can even use notepad) and change the following items.<o:p></o:p></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt;text-indent:-14.15pt;mso-list:
l0 level1 lfo2'><![if !supportLists]><font size=3 face=Symbol><span
style='font-size:12.0pt;font-family:Symbol'><span style='mso-list:Ignore'>·<font
size=1 face="Times New Roman"><span style='font:7.0pt "Times New Roman"'>
</span></font></span></span></font><![endif]>Changing the subroutine name <o:p></o:p></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> SUBROUTINE
TYPE31(TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><!--[if gte vml 1]><v:line id="_x0000_s1026"
style='position:absolute;left:0;text-align:left;z-index:1' from="135pt,2.65pt"
to="135pt,20.65pt">
<v:stroke endarrow="block" />
</v:line><![endif]--><![if !vml]><span style='mso-ignore:vglayout'>
<table cellpadding=0 cellspacing=0 align=left>
<tr>
<td width=174 height=3></td>
</tr>
<tr>
<td></td>
<td><img width=12 height=27 src="cid:image001.gif@01CB25C8.72AA6E50" v:shapes="_x0000_s1026"></td>
</tr>
</table>
</span><![endif]><font size=2><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<br style='mso-ignore:vglayout' clear=ALL>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'> <o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> SUBROUTINE TYPE215(TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt;text-indent:-14.15pt;mso-list:
l0 level1 lfo2'><![if !supportLists]><font size=3 face=Symbol><span
style='font-size:12.0pt;font-family:Symbol'><span style='mso-list:Ignore'>·<font
size=1 face="Times New Roman"><span style='font:7.0pt "Times New Roman"'>
</span></font></span></span></font><![endif]>Changing the type in the script <o:p></o:p></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>!DEC$ATTRIBUTES DLLEXPORT
:: TYPE31<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><!--[if gte vml 1]><v:line id="_x0000_s1032"
style='position:absolute;left:0;text-align:left;z-index:7' from="135pt,4.4pt"
to="135pt,22.4pt">
<v:stroke endarrow="block" />
</v:line><![endif]--><![if !vml]><span style='mso-ignore:vglayout'>
<table cellpadding=0 cellspacing=0 align=left>
<tr>
<td width=174 height=5></td>
</tr>
<tr>
<td></td>
<td><img width=12 height=27 src="cid:image001.gif@01CB25C8.72AA6E50" v:shapes="_x0000_s1032"></td>
</tr>
</table>
</span><![endif]><font size=2><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<br style='mso-ignore:vglayout' clear=ALL>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>!DEC$ATTRIBUTES DLLEXPORT
:: TYPE215<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt;text-indent:-14.15pt;mso-list:
l0 level1 lfo2'><![if !supportLists]><font size=3 face=Symbol><span
style='font-size:12.0pt;font-family:Symbol'><span style='mso-list:Ignore'>·<font
size=1 face="Times New Roman"><span style='font:7.0pt "Times New Roman"'>
</span></font></span></span></font><![endif]>Changing the add one to numbers of
input and deduct one from numbers of parameters<o:p></o:p></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><!--[if gte vml 1]><v:line id="_x0000_s1027"
style='position:absolute;left:0;text-align:left;z-index:2' from="135pt,11.1pt"
to="135pt,29.1pt">
<v:stroke endarrow="block" />
</v:line><![endif]--><![if !vml]><span style='mso-ignore:vglayout;position:
absolute;z-index:2;left:0px;margin-left:174px;margin-top:14px;width:12px;
height:27px'><img width=12 height=27 src="cid:image001.gif@01CB25C8.72AA6E50"
v:shapes="_x0000_s1027"></span><![endif]><font size=2><span style='font-size:
10.0pt'> PARAMETER (NP=6, NI=3, NOUT=7, ND=0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> PARAMETER (NP=5, NI=4,
NOUT=7, ND=0) <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt;text-indent:-14.15pt;mso-list:
l0 level1 lfo2'><![if !supportLists]><font size=3 face=Symbol><span
style='font-size:12.0pt;font-family:Symbol'><span style='mso-list:Ignore'>·<font
size=1 face="Times New Roman"><span style='font:7.0pt "Times New Roman"'>
</span></font></span></span></font><![endif]>Define the variable type of the new
input variable ( Pipe inside diameter)<o:p></o:p></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>It is worth mentioning
that ‘LE1’ represent Meter as type of pipe inside diameter<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><!--[if gte vml 1]><v:line id="_x0000_s1028"
style='position:absolute;left:0;text-align:left;z-index:3' from="135pt,12.85pt"
to="135pt,30.85pt">
<v:stroke endarrow="block" />
</v:line><![endif]--><![if !vml]><span style='mso-ignore:vglayout;position:
absolute;z-index:3;left:0px;margin-left:174px;margin-top:16px;width:12px;
height:27px'><img width=12 height=27 src="cid:image001.gif@01CB25C8.72AA6E50"
v:shapes="_x0000_s1028"></span><![endif]><font size=2><span style='font-size:
10.0pt'> DATA YCHECK /'TE1','MF1','TE1'/<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> DATA YCHECK
/'TE1','MF1','TE1',’LE1’/<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face="Times New Roman"><span style='font-size:
10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt;text-indent:-14.15pt;mso-list:
l0 level1 lfo2'><![if !supportLists]><font size=3 face=Symbol><span
style='font-size:12.0pt;font-family:Symbol'><span style='mso-list:Ignore'>·<font
size=1 face="Times New Roman"><span style='font:7.0pt "Times New Roman"'>
</span></font></span></span></font><![endif]>Delete the “Pipe inside
diameter” from parameter category and resort the order of the rest<o:p></o:p></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>D=PAR(1)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(D.LE.0.)
CALL TYPECK(-4,INFO,0,1,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> L=PAR(2)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(L.LE.0.)
CALL TYPECK(-4,INFO,0,2,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>U=PAR(3)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(U.LT.0.)
CALL TYPECK(-4,INFO,0,3,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><st1:place w:st="on"><st1:City
w:st="on"><font size=2 face="Times New Roman"><span style='font-size:10.0pt'>RHO</span></font></st1:City></st1:place><font
size=2><span style='font-size:10.0pt'>=PAR(4)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(RHO.LE.0.)
CALL TYPECK(-4,INFO,0,4,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>CP=PAR(5)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(CP.LE.0.)
CALL TYPECK(-4,INFO,0,5,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>T_INIT=PAR(6)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><!--[if gte vml 1]><v:line id="_x0000_s1029"
style='position:absolute;left:0;text-align:left;z-index:4' from="2in,.45pt"
to="2in,18.45pt">
<v:stroke endarrow="block" />
</v:line><![endif]--><![if !vml]><span style='mso-ignore:vglayout'>
<table cellpadding=0 cellspacing=0 align=left>
<tr>
<td width=186 height=0></td>
</tr>
<tr>
<td></td>
<td><img width=12 height=27 src="cid:image001.gif@01CB25C8.72AA6E50" v:shapes="_x0000_s1029"></td>
</tr>
</table>
</span><![endif]><font size=2><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<br style='mso-ignore:vglayout' clear=ALL>
<p class=MsoNormal style='margin-left:53.0pt'><s><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>D=PAR(1)<o:p></o:p></span></font></s></p>
<p class=MsoNormal style='margin-left:53.0pt'><s><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(D.LE.0.)
CALL TYPECK(-4,INFO,0,1,0)<o:p></o:p></span></font></s></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> L=PAR(1)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(L.LE.0.)
CALL TYPECK(-4,INFO,0,2,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>U=PAR(2)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(U.LT.0.)
CALL TYPECK(-4,INFO,0,3,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><st1:place w:st="on"><st1:City
w:st="on"><font size=2 face="Times New Roman"><span style='font-size:10.0pt'>RHO</span></font></st1:City></st1:place><font
size=2><span style='font-size:10.0pt'>=PAR(3)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(RHO.LE.0.)
CALL TYPECK(-4,INFO,0,4,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>CP=PAR(4)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> IF(CP.LE.0.)
CALL TYPECK(-4,INFO,0,5,0)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'>T_INIT=PAR(5)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt;text-indent:-14.15pt;mso-list:
l0 level1 lfo2'><![if !supportLists]><font size=3 face=Symbol><span
style='font-size:12.0pt;font-family:Symbol'><span style='mso-list:Ignore'>·<font
size=1 face="Times New Roman"><span style='font:7.0pt "Times New Roman"'>
</span></font></span></span></font><![endif]>In iteration call reset the
parameters again<o:p></o:p></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt;text-indent:14.15pt'><font
size=2 face="Times New Roman"><span style='font-size:10.0pt'> D=PAR(1)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> L=PAR(2)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> U=PAR(3)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> <st1:place
w:st="on"><st1:City w:st="on">RHO</st1:City></st1:place>=PAR(4)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> CP=PAR(5)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> T_INIT=PAR(6)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><!--[if gte vml 1]><v:line id="_x0000_s1030"
style='position:absolute;left:0;text-align:left;z-index:5' from="90pt,5.15pt"
to="90pt,23.15pt">
<v:stroke endarrow="block" />
</v:line><![endif]--><![if !vml]><span style='mso-ignore:vglayout'>
<table cellpadding=0 cellspacing=0 align=left>
<tr>
<td width=114 height=6></td>
</tr>
<tr>
<td></td>
<td><img width=12 height=27 src="cid:image001.gif@01CB25C8.72AA6E50" v:shapes="_x0000_s1030"></td>
</tr>
</table>
</span><![endif]><font size=2><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<br style='mso-ignore:vglayout' clear=ALL>
<p class=MsoNormal style='margin-left:38.85pt;text-indent:14.15pt'><font
size=2 face="Times New Roman"><span style='font-size:10.0pt'> <s>D=PAR(1)<o:p></o:p></s></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> L=PAR(1)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> U=PAR(2)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> <st1:place
w:st="on"><st1:City w:st="on">RHO</st1:City></st1:place>=PAR(3)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> CP=PAR(4)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> T_INIT=PAR(5)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:53.0pt;text-indent:-14.15pt;mso-list:
l0 level1 lfo2'><![if !supportLists]><font size=3 face=Symbol><span
style='font-size:12.0pt;font-family:Symbol'><span style='mso-list:Ignore'>·<font
size=1 face="Times New Roman"><span style='font:7.0pt "Times New Roman"'>
</span></font></span></span></font><![endif]>Retrieve the current value of the
new input <o:p></o:p></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt;text-indent:14.15pt'><font
size=2 face="Times New Roman"><span style='font-size:10.0pt'>TI=XIN(1)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> FLOW=XIN(2)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> TENV=XIN(3)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt;text-indent:14.15pt'><!--[if gte vml 1]><v:line
id="_x0000_s1031" style='position:absolute;left:0;text-align:left;z-index:6'
from="81pt,9.05pt" to="81pt,27.05pt">
<v:stroke endarrow="block" />
</v:line><![endif]--><![if !vml]><span style='mso-ignore:vglayout'>
<table cellpadding=0 cellspacing=0 align=left>
<tr>
<td width=102 height=11></td>
</tr>
<tr>
<td></td>
<td><img width=12 height=27 src="cid:image001.gif@01CB25C8.72AA6E50" v:shapes="_x0000_s1031"></td>
</tr>
</table>
</span><![endif]><font size=2><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt;text-indent:14.15pt'><font
size=2 face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt;text-indent:14.15pt'><font
size=2 face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<br style='mso-ignore:vglayout' clear=ALL>
<p class=MsoNormal style='margin-left:38.85pt;text-indent:14.15pt'><font
size=2 face="Times New Roman"><span style='font-size:10.0pt'>TI=XIN(1)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> FLOW=XIN(2)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> TENV=XIN(3)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'> D= XIN(4)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:38.85pt'><font size=2
face="Times New Roman"><span style='font-size:10.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt;text-indent:-18.0pt;mso-list:l1 level1 lfo1'><![if !supportLists]><font
size=3 face="Times New Roman"><span style='font-size:12.0pt'><span
style='mso-list:Ignore'>3-<font size=1 face="Times New Roman"><span
style='font:7.0pt "Times New Roman"'> </span></font></span></span></font><![endif]>Open
the perfoma pertinent to type 31 and after changing the type save it as type
215 on C:\Trnsys17\Studio\Proformas\new components\type 215<o:p></o:p></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt;text-indent:-18.0pt;mso-list:l1 level1 lfo1'><![if !supportLists]><font
size=3 face="Times New Roman"><span style='font-size:12.0pt'><span
style='mso-list:Ignore'>4-<font size=1 face="Times New Roman"><span
style='font:7.0pt "Times New Roman"'> </span></font></span></span></font><![endif]>Change
the pipe inside diameter in the new performa from parameter category to input
category and save it.<o:p></o:p></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:36.0pt;text-indent:-18.0pt;mso-list:l1 level1 lfo1'><![if !supportLists]><font
size=3 face="Times New Roman"><span style='font-size:12.0pt'><span
style='mso-list:Ignore'>5-<font size=1 face="Times New Roman"><span
style='font:7.0pt "Times New Roman"'> </span></font></span></span></font><![endif]>6-export
the mentioned modified performa for type 215 to fortran.<o:p></o:p></p>
<p class=MsoNormal style='margin-left:36.0pt;text-indent:-18.0pt;mso-list:l1 level1 lfo1'><![if !supportLists]><font
size=3 face="Times New Roman"><span style='font-size:12.0pt'><span
style='mso-list:Ignore'>6-<font size=1 face="Times New Roman"><span
style='font:7.0pt "Times New Roman"'> </span></font></span></span></font><![endif]>7-
When the CVF6.6B comes up replace the fortran file (modified as above mentioned
bullet points) instead of existing and make dll.<o:p></o:p></p>
<p class=MsoNormal style='margin-left:36.0pt;text-indent:-18.0pt;mso-list:l1 level1 lfo1'><![if !supportLists]><font
size=3 face="Times New Roman"><span style='font-size:12.0pt'><span
style='mso-list:Ignore'>7-<font size=1 face="Times New Roman"><span
style='font:7.0pt "Times New Roman"'> </span></font></span></span></font><![endif]>Now
the new component is ready to use.<o:p></o:p></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>Thanks to <u>Jeff W.
Thornton</u> as the author of type 31 and also <u>David Bradley</u> and <u>Jaime
Gonzalez Rodriguez</u> for their replies.<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>Regards<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>Mehdi Shahrestani<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
</div>
</body>
</html>