for_set_reentrancy (3f)

sets the reentrancy protection for the Fortran Run-Time Library (RTL)

Syntax

  integer*4 for_set_reentrancy, reent_prot, mode
  external for_set_reentrancy
  reent_prot = for_set_fpe ( mode )

Description

  The for_set_reentrancy function controls the type of reentrancy protection
  that the Fortran Run-Time Library (RTL) exhibits.  The mode is one of the
  following:

    for_k_reentrancy_none      Tells the Fortran RTL to perform simple
			       locking around critical sections of RTL
			       code. This type of reentrancy should be
			       used when the Fortran RTL will not be
			       reentered due to asynchronous system traps
			       (ASTs) or threads within the application.

    for_k_reentrancy_async     Tells the Fortran RTL to perform simple
			       locking and disables ASTs around critical
			       sections of RTL code.  This type of
			       reentrancy should be used when the
			       application contains AST handlers that
			       call the Fortran RTL.

    for_k_reentrancy_threaded  Tells the Fortran RTL to perform thread
			       locking. This type of reentrancy should be
			       used in multithreaded applications.

    for_k_reentrancy_info      Tells the Fortran RTL to return the current
			       reentrancy mode.

  The reentrancy definitions are in file /usr/include/forreent.f .

Return Values

  The for_set_reentrancy function returns an integer*4 value representing the
  previous setting of the Fortran Run-Time Library reentrancy mode, unless
  the argument is for_k_reentrancy_info, in which case the return value
  represents the current setting.