Intel® Fortran Libraries Reference
Intel® Fortran Libraries Reference Intel® Fortran Libraries Reference
2 Intel Fortran Libraries ReferenceSee Also: “OUTTEXT”, “SCROLLTEXTWINDOW”, “SETTEXTPOSITION”,“SETTEXTWINDOW”ExampleUSE IFQWININTEGER(2) row, status2INTEGER(4) status4TYPE ( rccoord ) curposTYPE ( windowconfig ) wcLOGICAL statusstatus = GETWINDOWCONFIG( wc )wc%numtextcols = 80wc%numxpixels = -1wc%numypixels = -1wc%numtextrows = -1wc%numcolors = -1wc%fontsize = -1wc%title = "This is a test"Cwc%bitsperpixel = -1status = SETWINDOWCONFIG( wc )status4= SETBKCOLORRGB(#FF0000 )CALL CLEARSCREEN( $GCLEARSCREEN )! Display wrapped and unwrapped text in text windows.CALL SETTEXTWINDOW( INT2(1),INT2(1),INT2(5),INT2(25))CALL SETTEXTPOSITION(INT2(1),INT2(1), curpos )status2 = WRAPON( $GWRAPON )status4 = SETTEXTCOLORRGB(#00FF00)DO i = 1, 5CALL OUTTEXT( 'Here text does wrap. ')END DOCALL SETTEXTWINDOW(INT2(7),INT2(10),INT2(11),INT2(40))CALL SETTEXTPOSITION(INT2(1),INT2(1),curpos)status2 = WRAPON( $GWRAPOFF )status4 = SETTEXTCOLORRGB(#008080)DO row = 1, 5CALL SETTEXTPOSITION(INT2(row), INT2(1), curpos )CALL OUTTEXT('Here text does not wrap. ')2-490
Descriptions of the Library Routines 2CALL OUTTEXT('Here text does not wrap.')END DOREAD (*,*) ! Wait for ENTER to be pressedEND2-491
- Page 492 and 493: 2 Intel Fortran Libraries Reference
- Page 494 and 495: 2 Intel Fortran Libraries Reference
- Page 496 and 497: 2 Intel Fortran Libraries Reference
- Page 498 and 499: 2 Intel Fortran Libraries Reference
- Page 500 and 501: 2 Intel Fortran Libraries Reference
- Page 502 and 503: 2 Intel Fortran Libraries Reference
- Page 504 and 505: 2 Intel Fortran Libraries Reference
- Page 506 and 507: 2 Intel Fortran Libraries Reference
- Page 508 and 509: 2 Intel Fortran Libraries Reference
- Page 510 and 511: 2 Intel Fortran Libraries Reference
- Page 512 and 513: 2 Intel Fortran Libraries Reference
- Page 514 and 515: 2 Intel Fortran Libraries Reference
- Page 516 and 517: 2 Intel Fortran Libraries Reference
- Page 518 and 519: 2 Intel Fortran Libraries Reference
- Page 520 and 521: 2 Intel Fortran Libraries Reference
- Page 522 and 523: 2 Intel Fortran Libraries Reference
- Page 524 and 525: 2 Intel Fortran Libraries Reference
- Page 526 and 527: 2 Intel Fortran Libraries Reference
- Page 528 and 529: 2 Intel Fortran Libraries Reference
- Page 530 and 531: 2 Intel Fortran Libraries Reference
- Page 532 and 533: 2 Intel Fortran Libraries Reference
- Page 534 and 535: 2 Intel Fortran Libraries Reference
- Page 536 and 537: 2 Intel Fortran Libraries Reference
- Page 538 and 539: 2 Intel Fortran Libraries Reference
- Page 540 and 541: 2 Intel Fortran Libraries Reference
- Page 544 and 545: 2 Intel Fortran Libraries Reference
- Page 546 and 547: Intel Fortran Libraries ReferenceAU
- Page 548 and 549: Intel Fortran Libraries ReferenceCo
- Page 550 and 551: Intel Fortran Libraries ReferenceDD
- Page 552 and 553: Intel Fortran Libraries Referencefu
- Page 554 and 555: Intel Fortran Libraries ReferenceFO
- Page 556 and 557: Intel Fortran Libraries ReferenceGE
- Page 558 and 559: Intel Fortran Libraries Referenceex
- Page 560 and 561: Intel Fortran Libraries ReferenceLT
- Page 562 and 563: Intel Fortran Libraries ReferenceNL
- Page 564 and 565: Intel Fortran Libraries Referencefo
- Page 566 and 567: Intel Fortran Libraries ReferencePX
- Page 568 and 569: Intel Fortran Libraries ReferencePX
- Page 570 and 571: Intel Fortran Libraries ReferencePX
- Page 572 and 573: Intel Fortran Libraries ReferenceRG
- Page 574 and 575: Intel Fortran Libraries ReferenceSE
- Page 576 and 577: Intel Fortran Libraries ReferenceSy
- Page 578 and 579: Intel Fortran Libraries ReferenceWi
- Page 580: Intel Fortran Libraries ReferenceIn
2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>See Also: “OUTTEXT”, “SCROLLTEXTWINDOW”, “SETTEXTPOSITION”,“SETTEXTWINDOW”ExampleUSE IFQWININTEGER(2) row, status2INTEGER(4) status4TYPE ( rccoord ) curposTYPE ( windowconfig ) wcLOGICAL statusstatus = GETWINDOWCONFIG( wc )wc%numtextcols = 80wc%numxpixels = -1wc%numypixels = -1wc%numtextrows = -1wc%numcolors = -1wc%fontsize = -1wc%title = "This is a test"Cwc%bitsperpixel = -1status = SETWINDOWCONFIG( wc )status4= SETBKCOLORRGB(#FF0000 )CALL CLEARSCREEN( $GCLEARSCREEN )! Display wrapped and unwrapped text in text windows.CALL SETTEXTWINDOW( INT2(1),INT2(1),INT2(5),INT2(25))CALL SETTEXTPOSITION(INT2(1),INT2(1), curpos )status2 = WRAPON( $GWRAPON )status4 = SETTEXTCOLORRGB(#00FF00)DO i = 1, 5CALL OUTTEXT( 'Here text does wrap. ')END DOCALL SETTEXTWINDOW(INT2(7),INT2(10),INT2(11),INT2(40))CALL SETTEXTPOSITION(INT2(1),INT2(1),curpos)status2 = WRAPON( $GWRAPOFF )status4 = SETTEXTCOLORRGB(#008080)DO row = 1, 5CALL SETTEXTPOSITION(INT2(row), INT2(1), curpos )CALL OUTTEXT('Here text does not wrap. ')2-490