12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Descriptions of the Library Routines 2/Z'18',Z'00',Z'18',Z'18',Z'18',Z'00',Z'18',Z'18'/INTEGER(1), TARGET :: style4(8) &/Z'00',Z'08',Z'00',Z'08',Z'08',Z'08',Z'08',Z'08'/INTEGER(1), TARGET :: style5(8) &/Z'18',Z'18',Z'00',Z'18',Z'18',Z'00',Z'18',Z'18'/INTEGER(1), TARGET :: style6(8) &/Z'08',Z'00',Z'08',Z'00',Z'08',Z'00',Z'08',Z'00'/INTEGER(1) oldstyle(8) ! Placeholder for old styleINTEGER loopINTEGER(1), POINTER :: ptr(:)CALL GETFILLMASK( oldstyle ) ! Make 6 rectangles, each with a differentfillDO loop = 1, 6SELECT CASE (loop)CASE (1)ptr => style1CASE (2)ptr => style2CASE (3)ptr => style3CASE (4)ptr => style4CASE (5)ptr => style5CASE (6)ptr => style6END SELECTCALL SETFILLMASK( ptr)status = RECTANGLE($GFILLINTERIOR,INT2(loop*40+5), &INT2(90),INT2((loop+1)*40), INT2(110))END DOCALL SETFILLMASK( oldstyle ) ! Restore old styleREAD (*,*)! Wait for ENTER to be! pressedENDThe following shows the output of this program.2-405

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

Saved successfully!

Ooh no, something went wrong!