

            geta$f (2) --- fetch arguments for a Fortran program     02/24/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function geta$f (ap, str, len)
                 integer ap, len
                 character str (*)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Geta$f' fetches an argument from the Subsystem command line
                 in a format useable by a Fortran program.  The arguments are
                 analogous  to those used by 'getarg'.  'Ap' is the number of
                 the argument to be fetched:  0 for the command name,  1  for
                 the  first  argument,  2  for  the  second, etc.  'Str' is a
                 string to receive the argument, while 'len' is the number of
                 characters allocated to 'str'.  The function return value is
                 either the length of the argument string actually  returned,
                 or EOF (-1) if there is no argument in that position.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Geta$f'  simply  calls  'getarg' with the argument pointer,
                 and then calls 'ctop' to convert the result into the  proper
                 Fortran format.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 str


            _C_a_l_l_s

                 ctop (2), getarg (2)


            _B_u_g_s

                 If 'len' is an odd number, 'geta$f' will return at most 'len
                 - 1' characters of an argument.


            _S_e_e _A_l_s_o

                 getarg (2), geta$plg (2), geta$p (2)










            geta$f (2)                    - 1 -                    geta$f (2)


