c$incr (6) --- increment count for a given statement     03/25/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine c$incr (stmt)
                 integer stmt

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'C$incr'  is  called  from  Ratfor  programs  that have been
                 processed with the "-c" (statement count) option.  Calls  to
                 'c$incr' are planted before each executable statement in the
                 program to keep track of the number of times the correspond-
                 ing statement was executed.

                 The  sole  argument is the line number (in the Ratfor source
                 code) of the line containing the statement  being  executed.
                 Each  call  to 'c$incr' with a given line number as argument
                 causes the count for that line to be incremented by one.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 A common block ('c$stc'), created  by  Ratfor,  contains  an
                 array  of statement counts indexed by line number.  'C$incr'
                 simply increments the appropriate element of the array.


            _S_e_e _A_l_s_o

                 c$end (6), rp (1)


























            c$incr (6)                    - 1 -                    c$incr (6)