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
33
34
35
36
37
38
39
40
41
42
43
44
45
|
<HTML>
<HEAD><TITLE>Source t208e.f</TITLE></HEAD>
<BODY>
<a name="%MAIN"><h3>PROGRAM %MAIN ( )</h3></a>
<blockquote>
<table><tr><td><b>Source file:</b></td><td>t208e.f</td></tr>
<tr><td></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>INTEGER +J, M
</pre></td></tr></table>
</blockquote>
<BR>
<a name="SUB"><h3>SUBROUTINE SUB ( )</h3></a>
<blockquote>
<table><tr><td><b>Source file:</b></td><td>t208e.f</td></tr>
<tr><td></td></tr>
</table>
</pre></td></tr></table>
</blockquote>
<BR>
<a name="FUN"><h3>REAL FUNCTION FUN ( )</h3></a>
<blockquote>
<table><tr><td><b>Source file:</b></td><td>t208e.f</td></tr>
<tr><td></td></tr>
</table>
</pre></td></tr></table>
</blockquote>
<BR>
<a name="BAR"><h3>SUBROUTINE BAR ( )</h3></a>
<blockquote>
<table><tr><td><b>Source file:</b></td><td>t208e.f</td></tr>
<tr><td></td></tr>
</table>
<table><tr><td align="left"><b>Intrinsic Functions Called</b><br></td></tr>
<tr><td><pre>SUBROUTINE COS, SIN, SQRT
</pre></td></tr></table>
<table><tr><td align="left"><b>External Functions and Subroutines Called</b><br></td></tr>
<tr><td><pre>REAL MYSQRT
SUBROUTINE MYSUB
</pre></td></tr></table>
</blockquote>
<BR>
</BODY>
</HTML>
|
