<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="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<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]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* 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;
font-family:Arial;
color:windowtext;}
span.EmailStyle18
{mso-style-type:personal-reply;
font-family:Arial;
color:navy;}
@page Section1
{size:595.3pt 841.9pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=FR link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Dear all,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'>Thank you for the
proposition of handling the pb.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'>I found how to manage it
(with the help of the answers).<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'>The PAR vector needs to
be define with it maximum possible length (depending on the parameter).<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'>Some changes needs to be
done for the declaration of the variables parameters (by ALLOCATABLE
declaration and then ALLOCATE by reading the parameter that define the length
of it.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'>The NPAR variables needs
than to be adapted depending on the length of the parameters (to avoid trnsys
error of length between parameter to be declared et the one actually declared).<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'>The TYPE is now well functioning
and I can work on the interesting part of it…. The physical interpretation!!<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'>Thank you all,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'>Best regards<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<div>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Xavier Faure</span></font><font
color=navy><span style='color:navy'><o:p></o:p></span></font></p>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>CSTB</span></font><font color=navy><span
style='color:navy'><o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>Enveloppes & Revêtements</span></font><font
color=navy><span style='color:navy'><o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>Caractérisation Physique des Matériaux</span></font><font
color=navy><span style='color:navy'><o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>24 rue Joseph Fourier</span></font><font
color=navy><span style='color:navy'><o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>38400 Saint Martin d'Heres</span></font><font
color=navy><span style='color:navy'><o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>Tel : 33 (0)4 76 76 25 74</span></font><font
color=navy><span style='color:navy'><o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>Fax : 33 (0)4 76 76 25 60</span></font><font
color=navy><span style='color:navy'><o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>mail : </span></font><font color=navy><span
style='color:navy'><a href="mailto:xavier.faure@cstb.fr"><font size=1
color=navy face=Arial><span style='font-size:7.5pt;font-family:Arial;
color:navy'>xavier.faure@cstb.fr</span></font></a></span></font><font size=1
color=navy face=Arial><span style='font-size:7.5pt;font-family:Arial;
color:navy'> </span></font><font color=navy><span style='color:navy'><o:p></o:p></span></font></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>web : </span></font><font color=navy><span
style='color:navy'><a href="http://www.cstb.fr"><font size=1 color=navy
face=Arial><span style='font-size:7.5pt;font-family:Arial;color:navy'>www.cstb.fr</span></font></a></span></font><o:p></o:p></p>
</div>
</div>
<div>
<div class=MsoNormal align=center style='text-align:center'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>
<hr size=2 width="100%" align=center tabindex=-1>
</span></font></div>
<p class=MsoNormal><b><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma;font-weight:bold'>De :</span></font></b><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'>
trnsys-users-bounces@engr.wisc.edu [mailto:trnsys-users-bounces@engr.wisc.edu] <b><span
style='font-weight:bold'>De la part de</span></b> FAURE Xavier<br>
<b><span style='font-weight:bold'>Envoyé :</span></b> jeudi 5 octobre 2006
10:09<br>
<b><span style='font-weight:bold'>À :</span></b> 'trnsys-users@engr.wisc.edu'<br>
<b><span style='font-weight:bold'>Objet :</span></b> [TRNSYS-users]
parameter cycle definition.</span></font><o:p></o:p></p>
</div>
<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=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Hy,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>I’m programming a new type on the trnsys
environment and i need de define cycle in parameter definition.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>I was wondering how should be define the PAR vector
in fortran since it length is a function of its first and second values?<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>When exporting the type as a fortran file, no
difference appeared within the declaration of number of parameters (NP) and the
PAR vector comparing with type without any cycle definition.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>Can anyone give a hand for the declaration pb ?<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>Thank you by advance<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>Regards<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>Xavier Faure</span></font><o:p></o:p></p>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>CSTB</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>Enveloppes & Revêtements</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>Caractérisation Physique des Matériaux</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>24 rue Joseph Fourier</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>38400 Saint Martin d'Heres</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>Tel : 33 (0)4 76 76 25 74</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>Fax : 33 (0)4 76 76 25 60</span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>mail : </span></font><a
href="mailto:xavier.faure@cstb.fr"><font size=1 color=navy face=Arial><span
style='font-size:7.5pt;font-family:Arial;color:navy'>xavier.faure@cstb.fr</span></font></a><font
size=1 color=navy face=Arial><span style='font-size:7.5pt;font-family:Arial;
color:navy'> </span></font><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
7.5pt;font-family:Arial;color:navy'>web : </span></font><a
href="http://www.cstb.fr"><font size=1 color=navy face=Arial><span
style='font-size:7.5pt;font-family:Arial;color:navy'>www.cstb.fr</span></font></a><o:p></o:p></p>
</div>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
</div>
</body>
</html>