12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Descriptions of the Library Routines 2PUTCThe lines are drawn using the current graphics color, logical write mode, and line style. Thegraphics color is set with SETCOLORRGB, the write mode with SETWRITEMODE, and the linestyle with SETLINESTYLE.The current graphics position is not used or changed as it is in the LINETO function.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICSSee Also: “LINETO, LINETO_W”, “LINETOAREX”, “SETCOLORRGB”,“SETLINESTYLE”, “SETWRITEMODE”Example! Build for QuickWin or Standard GraphicsUSE IFQWINTYPE(DF_POINT) points(12)integer(4) resultinteger(4) cnt, i! load the pointsdo i = 1,12,2points(i).x =20*ipoints(i).y =10points(i+1).x =20*ipoints(i+1).y =60end do! A sawtooth pattern will appear in the upper left cornerresult = POLYLINEQQ(points, 12)endPortability Function: Writes a character to <strong>Fortran</strong> external unit 6.Module: USE IFPORTSyntaxresult = PUTC (char)char(Input) Character. Character to be written to external unit 6.Results:The result type is INTEGER(4). The result is zero if successful; otherwise, an error code.2-257

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!