Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference Intel® Fortran Libraries Reference

h.eng.cam.ac.uk
from h.eng.cam.ac.uk More from this publisher
12.07.2015 Views

2 Intel Fortran Libraries ReferenceCompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETIMAGE, GETIMAGE_W”, “GRSTATUS”, “IMAGESIZE, IMAGESIZE_W”Example! Build as a Graphics App.USE IFQWININTEGER(1), ALLOCATABLE :: buffer(:)INTEGER(2) status, xINTEGER(4) imsizestatus = SETCOLOR(INT2(4))! draw a circlestatus = ELLIPSE($GFILLINTERIOR,INT2(40),INT2(55), &INT2(70),INT2(85))imsize = IMAGESIZE (INT2(39),INT2(54),INT2(71), &INT2(86))ALLOCATE (buffer(imsize))CALL GETIMAGE(INT2(39),INT2(54),INT2(71),INT2(86),buffer)! copy a row of circles beneath itDO x = 5 , 395, 35CALL PUTIMAGE(x, INT2(90), buffer, $GPSET)END DODEALLOCATE(buffer)END&PXFGETPOSIX Subroutine: Gets the value stored in a component (or field) of a structure.Module: USE IFPOSIXSyntaxCALL PXFGET (jhandle, compname, value, ierror)CALL PXFGET (jhandle, compname, value, ilen, ierror) !when is STR2-260

Descriptions of the Library Routines 2A placeholder for one of the following values:Value Data Type Routine NameINT INTEGER(4) PXFINTGETREAL REAL(4) PXFREALGETLGCL LOGICAL(4) PXFLGCLGETSTR CHARACTER*(*) PXFSTRGETCHAR CHARACTER(1) PXFCHARGETDBL REAL(8) PXFDBLGETINT8 INTEGER(8) PXFINT8GETjhandle(Input) INTEGER(4) on IA-32 processors; INTEGER(8) on Intel Itanium processors. A handle ofa structure.compname(Input) Character. The name of the component (or field) of the structure to retrieve data from.value(Output) A variable, whose data type depends on the value of . See the table above for thedata types for each value; for example, if the value for is INT, the data type isINTEGER(4). Stores the value of the component (or field).ilen(Output) INTEGER(4). This argument can only be used when is STR (PXFSTRGET).Stores the length of the returned string.ierror(Output) INTEGER(4). The error status.If successful, ierror is set to zero; otherwise, an error code.The PXFGET subroutines retrieve the value from component (or field) compname of thestructure associated with handle jhandle into variable value.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “PXFSET”ExampleSee the example in “PXFTIMES” (which demonstrates PXFINTGET and PXFINT8GET)2-261

2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETIMAGE, GETIMAGE_W”, “GRSTATUS”, “IMAGESIZE, IMAGESIZE_W”Example! Build as a Graphics App.USE IFQWININTEGER(1), ALLOCATABLE :: buffer(:)INTEGER(2) status, xINTEGER(4) imsizestatus = SETCOLOR(INT2(4))! draw a circlestatus = ELLIPSE($GFILLINTERIOR,INT2(40),INT2(55), &INT2(70),INT2(85))imsize = IMAGESIZE (INT2(39),INT2(54),INT2(71), &INT2(86))ALLOCATE (buffer(imsize))CALL GETIMAGE(INT2(39),INT2(54),INT2(71),INT2(86),buffer)! copy a row of circles beneath itDO x = 5 , 395, 35CALL PUTIMAGE(x, INT2(90), buffer, $GPSET)END DODEALLOCATE(buffer)END&PXFGETPOSIX Subroutine: Gets the value stored in a component (or field) of a structure.Module: USE IFPOSIXSyntaxCALL PXFGET (jhandle, compname, value, ierror)CALL PXFGET (jhandle, compname, value, ilen, ierror) !when is STR2-260

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

Saved successfully!

Ooh no, something went wrong!