<html 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)">
<style>
<!--
/* 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;}
@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 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>