asnctl(3F)

NAME
     ASNCTL - Controls function of ASSIGN, ASNFILE, ASNUNIT, and ASNRM
     routines

SYNOPSIS
     CALL ASNCTL(option, value, ier)

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

DESCRIPTION
     This routine is supported on IRIX systems for programs compiled with
     the MIPSpro 7 Fortran 90 compiler or compiled with the -craylibs
     option to the MIPSpro 7.2 F77 compiler.

     The 'LOCAL' and 'NEWLOCAL' modes are useful for any utility written in
     Fortran when you want to use ASSIGN(3F) but do not want to access the
     assign environment file set up by the user.

     When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
     UNICOS, UNICOS/mk, or IRIX, all arguments must be of default kind
     unless documented otherwise.  On UNICOS and UNICOS/mk, default kind is
     KIND=8 for integer, real, complex, and logical arguments; on IRIX, the
     default kind is KIND=4.

     The following is a list of valid arguments for this routine.

     option    A Fortran character variable containing either of the
               following values:

               'LOCAL'      Causes ASNCTL to establish a local assign
                            environment.  The old assign environment is
                            copied into the newly created local assign
                            environment.  Subsequent calls to ASSIGN,
                            ASNUNIT, ASNFILE, and ASNRM (see ASSIGN(3F))
                            affect only the newly created local assign
                            environment.  Any future Fortran OPEN requests
                            will also read from the local assign
                            environment initiated by this call to ASNCTL.
                            The user must set value to 1 when calling
                            ASNCTL with option='LOCAL'.

               'NEWLOCAL'   Causes ASNCTL to establish an empty local
                            assign environment.  Subsequent calls to
                            ASSIGN, ASNUNIT, ASNFILE, and ASNRM (see
                            ASSIGN(3F)) affect the newly created local
                            assign environment.  Any future Fortran OPEN
                            requests will also read from the local assign
                            environment initiated by this call to ASNCTL.
                            The user must set value to 1 when calling
                            ASNCTL with option='NEWLOCAL'.

               'RESTORE'    Restores the assign environment that was active
                            before the preceding 'LOCAL' or 'NEWLOCAL'
                            request.  Sets value to 1 when calling ASNCTL
                            with option='RESTORE'.

     value     Integer variable, constant, or array element containing the
               option value.

     ier       Integer variable or array element that is assigned the error
               status on return.  Zero (0) is usually returned, indicating
               no errors were encountered; otherwise, a positive error
               status is returned.


EXAMPLES
     The writer of the following Fortran program wants to disregard any
     assign information provided by the user.  However, the program
     requires sequential unformatted I/O on unit 11 with an unblocked file
     structure.  This is accomplished by the following:

CALL ASNCTL('NEWLOCAL',1,ier)       ! start local assign environment
CALL ASNUNIT(11,'-s unblocked',ier) ! assign the "unblocked" file structure
OPEN(11,form='unformatted')         ! open unit 11

SEE ALSO
     ASSIGN(3F)

     Application Programmer's Library Reference Manual, publication
     SR-2165, for the printed version of this man page.