インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Graphics Subroutine: Sets the current text position to a specified position relative to the current text window.
USE IFQWIN
CALL SETTEXTPOSITION (row,column,t)
row |
(Input) INTEGER(2). New text row position. |
column |
(Input) INTEGER(2). New text column position. |
t |
(Output) Derived type rccoord. Previous text position. The derived type rccoordis defined in IFQWIN.F90 as follows: TYPE rccoord
INTEGER(2) row ! Row coordinate
INTEGER(2) col ! Column coordinate
END TYPE rccoord |
Subsequent text output with the OUTTEXT function (as well as standard console I/O statements, such as PRINT and WRITE) begins at the point (row, column).
USE IFQWIN
TYPE (rccoord) curpos
WRITE(*,*) "Original text position"
CALL SETTEXTPOSITION (INT2(6), INT2(5), curpos)
WRITE (*,*) 'New text position'
END