

            init$f (2) --- force Fortran i/o to recognize the Subsystem  01/07/83


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine init$f

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 A  call  to 'init$f' from a Fortran 66 or Fortran 77 program
                 attaches Fortran unit 5 to the file open as  standard  input
                 (either disk or terminal) and attaches Fortran unit 6 to the
                 file open as standard output (either disk or terminal).  The
                 attachment of unit 1 to the terminal is not changed.

                 To  use  'init$f', it must be called as the first executable
                 statement in the main program:
                 
                    call init$f
                 


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 First 'init$f' calls 'flush$' on standard input and standard
                 output to clean up any unfinished Subsystem  I/O.   'Init$f'
                 then  calls  the  Subsystem  'mapfd' to determine the Primos
                 file unit attached to standard input.  If 'mapfd' returns  a
                 file  descriptor,  'init$f' calls Fortran 'attdev' to attach
                 unit 5 to that Primos disk unit; otherwise,  'init$f'  calls
                 the  Primos routine ATTDEV to attach unit 5 to the terminal.
                 The procedure is  then  repeated  for  standard  output  and
                 Fortran unit 6.


            _C_a_l_l_s

                 flush$, mapfd, mapsu, Primos attdev


            _B_u_g_s

                 Files redirected to /dev/null are not supported.


            _S_e_e _A_l_s_o

                 init$p (2), init$plg (2)










            init$f (2)                    - 1 -                    init$f (2)


