Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIBSee Also: “SETCONTROLFPQQ”, “GETCONTROLFPQQ”, “SIGNALQQ”,“CLEARSTATUSFPQQ”Example! Program to demonstrate GETSTATUSFPQQUSE IFPORTINTEGER(2) statusCALL GETSTATUSFPQQ(status)! check for divide by zeroIF (IAND(status, FPSW$ZERODIVIDE) .NE. 0) THENWRITE (*,*) 'Divide by zero occurred. Look &for NaN or signed infinity in resultant data.'END IFENDGETSTRQQRun-time Function: Reads a character string from the keyboard using buffered input.Module: USE IFCORESyntaxresult = GETSTRQQ (buffer)buffer(Output) Character*(*). Character string returned from keyboard, padded on the right with blanks.Results:The result type is INTEGER(4). The result is the number of characters placed in buffer.The function does not complete until you press Return or Enter.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “GETCHARQQ”, “PEEKCHARQQ”, the READ statement in the Language ReferenceExample! Program to demonstrate GETSTRQQUSE IFCOREUSE IFPORT2-143