

            remark (2) --- print diagnostic message                  01/07/83


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine remark (message)
                 packed_char message (ARB)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Remark'  is  a  routine from _S_o_f_t_w_a_r_e _T_o_o_l_s that is used to
                 print messages on  the  error  output  file  (ERROUT).   The
                 single   argument  is  either  a  packed,  period-terminated
                 character string (e.g.  a Fortran Hollerith literal), or  an
                 unpacked,  EOS-terminated  string  (the  standard  Subsystem
                 variety).  In either case, the given string  is  printed  on
                 ERROUT, followed by a NEWLINE.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 If  the  high-order  byte of the first word of the string is
                 non-zero, then the string  must  be  packed;  'remark'  uses
                 'putlit' to write the string to ERROUT.  Otherwise, 'remark'
                 uses 'putlin' to write the string.  Finally, 'putch' is cal-
                 led to print the trailing NEWLINE.


            _C_a_l_l_s

                 putlit, putch, putlin


            _S_e_e _A_l_s_o

                 putlit (2), putch (2), error (2), putlin (2)






















            remark (2)                    - 1 -                    remark (2)


