|
|
|
@ -3,8 +3,8 @@
|
|
|
|
|
<html >
|
|
|
|
|
<head><title>Error handling</title>
|
|
|
|
|
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
|
|
|
|
<meta name="generator" content="TeX4ht (http://www.tug.org/tex4ht/)">
|
|
|
|
|
<meta name="originator" content="TeX4ht (http://www.tug.org/tex4ht/)">
|
|
|
|
|
<meta name="generator" content="TeX4ht (https://tug.org/tex4ht/)">
|
|
|
|
|
<meta name="originator" content="TeX4ht (https://tug.org/tex4ht/)">
|
|
|
|
|
<!-- html,3 -->
|
|
|
|
|
<meta name="src" content="userhtml.tex">
|
|
|
|
|
<link rel="stylesheet" type="text/css" href="userhtml.css">
|
|
|
|
@ -69,264 +69,254 @@ explicitly.
|
|
|
|
|
<div class="fbox"><div class="minipage"><!--l. 72-->
|
|
|
|
|
<div class="lstlisting" id="listing-5"><span class="label"><a
|
|
|
|
|
id="x86-123001r1"></a></span><span
|
|
|
|
|
class="cmbx-9">subroutine</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">psb</span><span
|
|
|
|
|
class="cmr-9">_foo</span><span
|
|
|
|
|
class="cmr-9">(</span><span
|
|
|
|
|
class="cmr-9">some</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">args</span><span
|
|
|
|
|
class="cmr-9">,</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">info</span><span
|
|
|
|
|
class="cmr-9">)</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9">subroutine</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">psb_foo</span><span
|
|
|
|
|
class="cmtt-9">(</span><span
|
|
|
|
|
class="cmtt-9">some</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">args</span><span
|
|
|
|
|
class="cmtt-9">,</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">info</span><span
|
|
|
|
|
class="cmtt-9">)</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123002r2"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">...</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">...</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123003r3"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">if</span><span
|
|
|
|
|
class="cmr-9">(</span><span
|
|
|
|
|
class="cmr-9">error</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">detected</span><span
|
|
|
|
|
class="cmr-9">)</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">then</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">if</span><span
|
|
|
|
|
class="cmtt-9">(</span><span
|
|
|
|
|
class="cmtt-9">error</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">detected</span><span
|
|
|
|
|
class="cmtt-9">)</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">then</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123004r4"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">info</span><span
|
|
|
|
|
class="cmr-9">=</span><span
|
|
|
|
|
class="cmr-9">errcode1</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">info</span><span
|
|
|
|
|
class="cmtt-9">=</span><span
|
|
|
|
|
class="cmtt-9">errcode1</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123005r5"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">call</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">psb</span><span
|
|
|
|
|
class="cmr-9">_errpush</span><span
|
|
|
|
|
class="cmr-9">(</span><span
|
|
|
|
|
class="cmr-9">’</span><span
|
|
|
|
|
class="cmr-9">psb</span><span
|
|
|
|
|
class="cmr-9">_foo</span><span
|
|
|
|
|
class="cmr-9">’</span><span
|
|
|
|
|
class="cmr-9">,</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">errcode1</span><span
|
|
|
|
|
class="cmr-9">)</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">call</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">psb_errpush</span><span
|
|
|
|
|
class="cmtt-9">(</span><span
|
|
|
|
|
class="cmtt-9">’</span><span
|
|
|
|
|
class="cmtt-9">psb_foo</span><span
|
|
|
|
|
class="cmtt-9">’</span><span
|
|
|
|
|
class="cmtt-9">,</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">errcode1</span><span
|
|
|
|
|
class="cmtt-9">)</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123006r6"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">goto</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">9999</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">goto</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">9999</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123007r7"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">end</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">if</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">end</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">if</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123008r8"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">...</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">...</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123009r9"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">call</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">psb</span><span
|
|
|
|
|
class="cmr-9">_bar</span><span
|
|
|
|
|
class="cmr-9">(</span><span
|
|
|
|
|
class="cmr-9">some</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">args</span><span
|
|
|
|
|
class="cmr-9">,</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">info</span><span
|
|
|
|
|
class="cmr-9">)</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">call</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">psb_bar</span><span
|
|
|
|
|
class="cmtt-9">(</span><span
|
|
|
|
|
class="cmtt-9">some</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">args</span><span
|
|
|
|
|
class="cmtt-9">,</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">info</span><span
|
|
|
|
|
class="cmtt-9">)</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123010r10"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">if</span><span
|
|
|
|
|
class="cmr-9">(</span><span
|
|
|
|
|
class="cmr-9">info</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">.</span><span
|
|
|
|
|
class="cmbx-9">ne</span><span
|
|
|
|
|
class="cmr-9">.</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">zero</span><span
|
|
|
|
|
class="cmr-9">)</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">then</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">if</span><span
|
|
|
|
|
class="cmtt-9">(</span><span
|
|
|
|
|
class="cmtt-9">info</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">.</span><span
|
|
|
|
|
class="cmtt-9">ne</span><span
|
|
|
|
|
class="cmtt-9">.</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">zero</span><span
|
|
|
|
|
class="cmtt-9">)</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">then</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123011r11"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">info</span><span
|
|
|
|
|
class="cmr-9">=</span><span
|
|
|
|
|
class="cmr-9">errcode2</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">info</span><span
|
|
|
|
|
class="cmtt-9">=</span><span
|
|
|
|
|
class="cmtt-9">errcode2</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123012r12"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">call</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">psb</span><span
|
|
|
|
|
class="cmr-9">_errpush</span><span
|
|
|
|
|
class="cmr-9">(</span><span
|
|
|
|
|
class="cmr-9">’</span><span
|
|
|
|
|
class="cmr-9">psb</span><span
|
|
|
|
|
class="cmr-9">_foo</span><span
|
|
|
|
|
class="cmr-9">’</span><span
|
|
|
|
|
class="cmr-9">,</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">errcode2</span><span
|
|
|
|
|
class="cmr-9">)</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">call</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">psb_errpush</span><span
|
|
|
|
|
class="cmtt-9">(</span><span
|
|
|
|
|
class="cmtt-9">’</span><span
|
|
|
|
|
class="cmtt-9">psb_foo</span><span
|
|
|
|
|
class="cmtt-9">’</span><span
|
|
|
|
|
class="cmtt-9">,</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">errcode2</span><span
|
|
|
|
|
class="cmtt-9">)</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123013r13"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">goto</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">9999</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">goto</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">9999</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123014r14"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">end</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">if</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">end</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">if</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123015r15"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">...</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">...</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123016r16"></a></span><span
|
|
|
|
|
class="cmr-9">9999</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">continue</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9">9999</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">continue</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123017r17"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">if</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">(</span><span
|
|
|
|
|
class="cmr-9">err</span><span
|
|
|
|
|
class="cmr-9">_act</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">.</span><span
|
|
|
|
|
class="cmbx-9">eq</span><span
|
|
|
|
|
class="cmr-9">.</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">act</span><span
|
|
|
|
|
class="cmr-9">_abort</span><span
|
|
|
|
|
class="cmr-9">)</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">then</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">if</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">(</span><span
|
|
|
|
|
class="cmtt-9">err_act</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">.</span><span
|
|
|
|
|
class="cmtt-9">eq</span><span
|
|
|
|
|
class="cmtt-9">.</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">act_abort</span><span
|
|
|
|
|
class="cmtt-9">)</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">then</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123018r18"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">call</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">psb</span><span
|
|
|
|
|
class="cmr-9">_error</span><span
|
|
|
|
|
class="cmr-9">(</span><span
|
|
|
|
|
class="cmr-9">icontxt</span><span
|
|
|
|
|
class="cmr-9">)</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">call</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">psb_error</span><span
|
|
|
|
|
class="cmtt-9">(</span><span
|
|
|
|
|
class="cmtt-9">icontxt</span><span
|
|
|
|
|
class="cmtt-9">)</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123019r19"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">return</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">return</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123020r20"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">else</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">else</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123021r21"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">return</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">return</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123022r22"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">end</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">if</span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">end</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">if</span><span
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123023r23"></a></span><span
|
|
|
|
|
class="cmr-9"> </span><br /><span class="label"><a
|
|
|
|
|
class="cmtt-9"> </span><br /><span class="label"><a
|
|
|
|
|
id="x86-123024r24"></a></span><span
|
|
|
|
|
class="cmbx-9">end</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmbx-9">subroutine</span><span
|
|
|
|
|
class="cmr-9"> </span><span
|
|
|
|
|
class="cmr-9">psb</span><span
|
|
|
|
|
class="cmr-9">_foo</span>
|
|
|
|
|
class="cmtt-9">end</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">subroutine</span><span
|
|
|
|
|
class="cmtt-9"> </span><span
|
|
|
|
|
class="cmtt-9">psb_foo</span>
|
|
|
|
|
</div> </div> </div>
|
|
|
|
|
</div>
|
|
|
|
|
<br /> <div class="caption"
|
|
|
|
@ -360,22 +350,22 @@ process).
|
|
|
|
|
<div class="center"
|
|
|
|
|
>
|
|
|
|
|
<!--l. 160--><p class="noindent" >
|
|
|
|
|
<div class="fbox"><div class="minipage"><div class="verbatim" id="verbatim-78">
|
|
|
|
|
<div class="fbox"><div class="minipage"><pre class="verbatim" id="verbatim-78">
|
|
|
|
|
==========================================================
|
|
|
|
|
 <br />Process: 0.  PSBLAS Error (4010) in subroutine: df_sample
|
|
|
|
|
 <br />Error from call to subroutine mat dist
|
|
|
|
|
 <br />==========================================================
|
|
|
|
|
 <br />Process: 0.  PSBLAS Error (4010) in subroutine: mat_distv
|
|
|
|
|
 <br />Error from call to subroutine psb_spasb
|
|
|
|
|
 <br />==========================================================
|
|
|
|
|
 <br />Process: 0.  PSBLAS Error (4010) in subroutine: psb_spasb
|
|
|
|
|
 <br />Error from call to subroutine psb_cest
|
|
|
|
|
 <br />==========================================================
|
|
|
|
|
 <br />Process: 0.  PSBLAS Error (136) in subroutine: psb_cest
|
|
|
|
|
 <br />Format FOO is unknown
|
|
|
|
|
 <br />==========================================================
|
|
|
|
|
 <br />Aborting...
|
|
|
|
|
</div>
|
|
|
|
|
Process: 0.  PSBLAS Error (4010) in subroutine: df_sample
|
|
|
|
|
Error from call to subroutine mat dist
|
|
|
|
|
==========================================================
|
|
|
|
|
Process: 0.  PSBLAS Error (4010) in subroutine: mat_distv
|
|
|
|
|
Error from call to subroutine psb_spasb
|
|
|
|
|
==========================================================
|
|
|
|
|
Process: 0.  PSBLAS Error (4010) in subroutine: psb_spasb
|
|
|
|
|
Error from call to subroutine psb_cest
|
|
|
|
|
==========================================================
|
|
|
|
|
Process: 0.  PSBLAS Error (136) in subroutine: psb_cest
|
|
|
|
|
Format FOO is unknown
|
|
|
|
|
==========================================================
|
|
|
|
|
Aborting...
|
|
|
|
|
</pre>
|
|
|
|
|
<!--l. 156--><p class="nopar" > </div> </div>
|
|
|
|
|
</div>
|
|
|
|
|
<br /> <div class="caption"
|
|
|
|
|