Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceExampleThis program draws the figure shown below.! Build as QuickWin or Standard GraphicsUSE IFQWININTEGER(2) statusTYPE (xycoord) xyCALL MOVETO(INT2(80), INT2(50), xy)status = LINETO(INT2(240), INT2(150))status = LINETO(INT2(240), INT2(50))ENDmoveto (80,50) lineto (240,50)(240,150)LINETOARGraphics Function: Draws a line between each x,y point in the from-array to each correspondingx,y point in the to-array. This function is only available on Windows* systems.Module: USE IFQWINSyntaxresult = LINETOAR (loc(fx), loc(fy), loc(tx) loc(ty), cnt)fx(Input) INTEGER(2). From x viewport coordinate array.fy(Input) INTEGER(2). From y viewport coordinate array.tx(Input) INTEGER(2). To x viewport coordinate array.ty(Input) INTEGER(2). To y viewport coordinate array.2-192