Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2ExamplePROGRAM SETREENTUSE IFCOREINTEGER*4 MODECHARACTER*10 REENT_TXT(3) /'NONE','ASYNCH ','THREADED'/PRINT*,'Setting Reentrancy mode to ',REENT_TXT(MODE+1)MODE = FOR_SET_REENTRANCY(FOR_K_REENTRANCY_NONE)PRINT*,'Previous Reentrancy mode was ',REENT_TXT(MODE+1)MODE = FOR_SET_REENTRANCY(FOR_K_REENTRANCY_INFO)PRINT*,'Current Reentrancy mode is ',REENT_TXT(MODE+1)ENDFPUTCPortability Function: Writes a character to the file specified by a Fortran external unit,bypassing normal Fortran input/output.Module: USE IFPORTSyntaxresult = FPUTC (lunit, char)lunit(Input) INTEGER(4). Unit number of a file.char(Output) Character*(*). Variable whose value is to be written to the file corresponding to lunit.Results:The result type is INTEGER(4). The result is zero if the write was successful; otherwise, an errorcode, such as:EINVAL - The specified unit is invalid (either not already open, or an invalid unit number)If you use WRITE, READ, or any other Fortran I/O statements with lunit, be sure to read "Inputand Output With Portability Routines" in your user’s guide.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS LIBSee Also: "I/O Formatting" in the Language Reference, "Files, Devices, and Input/OutputHardware" in your user’s guide2-89