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 2PXFSYSCONF(IPXFCONST('_SC_CLK_TCK'), ival, ierror)User time is the time charged for the execution of user instructions of the calling process. Systemtime is the time charged for execution by the system on behalf of the calling process.NOTE. To get a handle for an instance of the tms structure, usePXFSTRUCTCREATE with the string 'tms' for the structure name.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “PXFSTRUCTCREATE”, “PXFTIME”Exampleprogram test_unameuse ifposiximplicit noneinteger(jhandle_size) jtms1, jtms2integer(4) ierror,iinteger(4),parameter :: n=10000000integer(SIZEOF_CLOCK_T) itime,time1,time2, user_time1,user_time2integer(SIZEOF_CLOCK_T) system_time1,system_time2integer(4) clocks_per_sec, inamereal(8) s, PIreal(8) seconds_user, seconds_systemprint *,"Create a first instance for structure 'tms'"call PXFSTRUCTCREATE("tms",jtms1,ierror)if(ierror.NE.0) STOP 'Error: cannot create structure for handle jtms1'print *,"Create a second instance for structure 'tms'"call PXFSTRUCTCREATE("tms",jtms2,ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)STOP 'Error: cannot create structure for handle jtms2'end ifprint *, 'Do some calculations'call PXFTIMES(jtms1, itime,ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)2-351

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

Saved successfully!

Ooh no, something went wrong!