1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
<HTML>
<HEAD><TITLE>Source dims.f</TITLE></HEAD>
<BODY>
<a name="FOO"><h3>SUBROUTINE FOO ( D )</h3></a>
<blockquote>
<table><tr><td align="left"><b>Argument Definitions</b> <small>(+ indicates altered content)</small><b></b><br></td></tr>
<tr><td><pre>INTEGER D(*,*)
</pre></td></tr></table>
<table><tr><td><b>Source file:</b></td><td>dims.f</td></tr>
<tr><td></td></tr>
</table>
<table><tr><td align="left"><b>Intrinsic Functions Called</b><br></td></tr>
<tr><td><pre>CHARACTER CHAR
INTEGER ICHAR, LEN
</pre></td></tr></table>
<table><tr><td align="left"><b>External Functions and Subroutines Called</b><br></td></tr>
<tr><td><pre>CHARACTER STR
</pre></td></tr></table>
<table><tr><td align="left"><b>Parameter Variables Used</b><br></td></tr>
<tr><td><pre>INTEGER N (N = 1)
INTEGER M (M = 2)
INTEGER K (K = 3)
</pre></td></tr></table>
<table><tr><td align="left"><b>Local Variables</b> <small>(+ indicates altered content)</small><b></b><br></td></tr>
<tr><td><pre>CHARACTER*10 +C(LEN('won''t'))
INTEGER +A(1:M*N,-N+2)
</pre></td></tr></table>
</pre></td></tr></table>
</blockquote>
<BR>
</BODY>
</HTML>
|
