<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Aaron,<br>
The *1 at the end of the call list is a Fortran construct called
an "alternate return." Typically when you call a subroutine in
Fortran, the calling routine passes control to the subroutine. When
the subroutine finishes, it returns control to the calling routine,
which then executes its next line. Through use of the alternate
return, the subroutine can return control not to the next line of
the calling routine but to some other labeled line in the calling
routine.<br>
Best,<br>
David<br>
<br>
<br>
<div class="moz-cite-prefix">On 6/14/2013 14:18, Aaron Danenberg
wrote:<br>
</div>
<blockquote cite="mid:BAY178-W13EF96E7CDB5FEED7AAF291800@phx.gbl"
type="cite">
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style>
<div dir="ltr">I am writing a custom component to use in TRNSYS
17. When I try to compile my code I receive the following
error:
<div><br>
</div>
<div>
<div>Error<span class="Apple-tab-span" style="white-space:pre">
</span>3<span class="Apple-tab-span" style="white-space:pre">
</span> error #6784: The number of actual arguments cannot
be greater than the number of dummy arguments.
[INTERPOLATEDATA]<span class="Apple-tab-span"
style="white-space:pre"> </span>C:\Trnsys17\SourceCode\Kernel\InterpolateData.f90<span
class="Apple-tab-span" style="white-space:pre"> </span>870<span
class="Apple-tab-span" style="white-space:pre"> </span></div>
<div><br>
</div>
<div>When I double click, it brings me to a line in the
"InterpolateData.f90"</div>
<div><br>
</div>
<div>CALL InterpolateData(LU,NIND,NX,NY,XDD,YDD,*1)</div>
<div><br>
</div>
<div>What is the "*1" for as the last argument do? When I
remove it, the compiler moves past that line, and then stops
the next time that line appears.</div>
<div><br>
</div>
<div>Here is what I have in my code to use it:</div>
<div><br>
</div>
<div>Call InterpolateData (LU, 2, nX, 2, X, Y)</div>
<div><br>
</div>
<div>I have the same number of arguments.</div>
<div><br>
</div>
<div>Any thoughts would be greatly appreciated.</div>
<div><br>
</div>
<div>Thank you,</div>
<div><br>
</div>
<div>Aaron Danenberg</div>
<div>Graduate Student</div>
<div>University of Hartford</div>
<div> </div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
TRNSYS-users mailing list
<a class="moz-txt-link-abbreviated" href="mailto:TRNSYS-users@cae.wisc.edu">TRNSYS-users@cae.wisc.edu</a>
<a class="moz-txt-link-freetext" href="https://mailman.cae.wisc.edu/listinfo/trnsys-users">https://mailman.cae.wisc.edu/listinfo/trnsys-users</a>
</pre>
</blockquote>
<br>
<pre class="moz-signature" cols="72">--
***************************
David BRADLEY
Principal
Thermal Energy Systems Specialists, LLC
22 North Carroll Street - suite 370
Madison, WI 53703 USA
P:+1.608.274.2577
F:+1.608.278.1475
<a class="moz-txt-link-abbreviated" href="mailto:d.bradley@tess-inc.com">d.bradley@tess-inc.com</a>
<a class="moz-txt-link-freetext" href="http://www.tess-inc.com">http://www.tess-inc.com</a>
<a class="moz-txt-link-freetext" href="http://www.trnsys.com">http://www.trnsys.com</a></pre>
</body>
</html>