Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceExample! Build as a QuickWin or Standard Graphics App.USE IFQWININTEGER(2) numfontsINTEGER(4) oldcolorTYPE (xycoord) xynumfonts = INITIALIZEFONTS( )oldcolor = SETCOLORRGB(Z'0000FF') ! redoldcolor = SETBKCOLORRGB(Z'00FF00') ! greenCALL MOVETO(INT2(200), INT2(100), xy)CALL OUTGTEXT("hello, world")ENDSETCONTROLFPQQPortability Subroutine: Sets the value of the floating-point processor control word.Module: USE IFPORTSyntaxCALL SETCONTROLFPQQ (controlword)controlword(Input) INTEGER(2). Floating-point processor control word.The floating-point control word specifies how various exception conditions are handled by thefloating-point math coprocessor, sets the floating-point precision, and specifies the floating-pointrounding mechanism used.The control word can be any of the following constants (defined in IFPORT.F90):Parameter name Hex value DescriptionFPCW$MCW_IC Z'1000' Infinity control maskFPCW$AFFINE Z'1000' Affine infinityFPCW$PROJECTIVE Z'0000' Projective infinityFPCW$MCW_PC Z'0300' Precision control maskFPCW$64 Z'0300' 64-bit precisionFPCW$53 Z'0200' 53-bit precisionFPCW$24 Z'0000' 24-bit precisionFPCW$MCW_RC Z'0C00' Rounding control mask2-394