lse., .true., .true., .true., .true., .true., .true., .true., .true., .true. /)
</PRE>
 Default program halt status of each error type.

<HR><H2> Description of Subroutines and Functions </H2>
<A NAME="subroutine_cswt_error"><H3>cswt_error</H3></A>
<PRE>public subroutine cswt_error (error_code, procedure, comment_add, comment_out, halt_in)
    integer, intent(in) :: error_code
    character (len=*), optional, intent(in) :: procedure
    character (len=*), optional, intent(in) :: comment_add
    character (l