9 lines
1.2 KiB
Text
9 lines
1.2 KiB
Text
-->
|
|
<span style="color: #000080;font-style:italic;">--include pmaths.e -- (an auto-include, ok but not needed)
|
|
--include complex.e -- (not an auto-include, needed if used)</span>
|
|
<span style="color: #004080;">integer</span> <span style="color: #000000;">r_abs</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">routine_id<span style="color: #0000FF;">(<span style="color: #008000;">"abs"<span style="color: #0000FF;">)</span>
|
|
<span style="color: #000080;font-style:italic;">--integer r_abs = routine_id("complex_abs")</span>
|
|
<span style="color: #008080;">if</span> <span style="color: #000000;">r_abs<span style="color: #0000FF;">!=<span style="color: #0000FF;">-<span style="color: #000000;">1</span> <span style="color: #008080;">then</span>
|
|
<span style="color: #0000FF;">?<span style="color: #7060A8;">call_func<span style="color: #0000FF;">(<span style="color: #000000;">r_abs<span style="color: #0000FF;">,<span style="color: #0000FF;">{<span style="color: #0000FF;">-<span style="color: #000000;">42<span style="color: #0000FF;">}<span style="color: #0000FF;">)</span>
|
|
<span style="color: #008080;">end</span> <span style="color: #008080;">if
|
|
<!--
|