Intel® Fortran Libraries Reference
Intel® Fortran Libraries Reference Intel® Fortran Libraries Reference
2 Intel Fortran Libraries Referencecall PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the first call of PXFTIMES fails'end ifcall PXFTIME(time1, ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)call PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the first call of PXFTIME fails'end ifs = 0._8PI = atan(1._8)*4do i=0, ns = s + cos(i*PI/n)*sin(i*PI/n)end doprint *," s=",scall PXFTIMES(jtms2, itime,ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)call PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the second call of PXFTIMES fails'end ifcall PXFTIME(time2, ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)call PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the second call of PXFTIME fails'end if!DEC$ IF DEFINED(_M_IA64)call PXFINT8GET(jtms1,"tms_utime",user_time1,ierror)call PXFINT8GET(jtms1,"tms_stime",system_time1,ierror)call PXFINT8GET(jtms2,"tms_utime",user_time2,ierror)call PXFINT8GET(jtms2,"tms_stime",system_time2,ierror)!DEC$ ELSEcall PXFINTGET(jtms1,"tms_utime",user_time1,ierror)call PXFINTGET(jtms1,"tms_stime",system_time1,ierror)call PXFINTGET(jtms2,"tms_utime",user_time2,ierror)2-352
Descriptions of the Library Routines 2call PXFINTGET(jtms2,"tms_stime",system_time2,ierror)!DEC$ ENDIFiname = IPXFCONST("_SC_CLK_TCK")call PXFSYSCONF(iname,clocks_per_sec, ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)call PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the call of PXFSYSCONF fails'end ifseconds_user = (user_time2 - user_time1)/DBLE(clocks_per_sec)seconds_system = (system_time2 - system_time1)/DBLE(clocks_per_sec)print *," The processor time of calculations:"print *," User code execution(in seconds):", seconds_userprint *," Kernal code execution(in seconds):", seconds_systemprint *," Total processor time(in seconds):", seconds_user +seconds_systemprint *," Elapsed wall clock time(in seconds):", time2 - time1print *,"Free memory for instance of structure associated with jtms"call PXFSTRUCTFREE(jtms1,ierror)call PXFSTRUCTFREE(jtms2,ierror)end programPXFTTYNAMPOSIX Subroutine: Gets the terminal pathname. This subroutine is only available on Linux*systems.Module: USE IFPOSIXSyntaxCALL PXFTTYNAM (ifildes, s, ilen, ierror)ifildes(Input) INTEGER(4). The file descriptor associated with the terminal.s(Output) Character. The returned terminal pathname.ilen2-353
- Page 354 and 355: 2 Intel Fortran Libraries Reference
- Page 356 and 357: 2 Intel Fortran Libraries Reference
- Page 358 and 359: 2 Intel Fortran Libraries Reference
- Page 360 and 361: 2 Intel Fortran Libraries Reference
- Page 362 and 363: 2 Intel Fortran Libraries Reference
- Page 364 and 365: 2 Intel Fortran Libraries Reference
- Page 366 and 367: 2 Intel Fortran Libraries Reference
- Page 368 and 369: 2 Intel Fortran Libraries Reference
- Page 370 and 371: 2 Intel Fortran Libraries Reference
- Page 372 and 373: 2 Intel Fortran Libraries Reference
- Page 374 and 375: 2 Intel Fortran Libraries Reference
- Page 376 and 377: 2 Intel Fortran Libraries Reference
- Page 378 and 379: 2 Intel Fortran Libraries Reference
- Page 380 and 381: 2 Intel Fortran Libraries Reference
- Page 382 and 383: 2 Intel Fortran Libraries Reference
- Page 384 and 385: 2 Intel Fortran Libraries Reference
- Page 386 and 387: 2 Intel Fortran Libraries Reference
- Page 388 and 389: 2 Intel Fortran Libraries Reference
- Page 390 and 391: 2 Intel Fortran Libraries Reference
- Page 392 and 393: 2 Intel Fortran Libraries Reference
- Page 394 and 395: 2 Intel Fortran Libraries Reference
- Page 396 and 397: 2 Intel Fortran Libraries Reference
- Page 398 and 399: 2 Intel Fortran Libraries Reference
- Page 400 and 401: 2 Intel Fortran Libraries Reference
- Page 402 and 403: 2 Intel Fortran Libraries Reference
- Page 406 and 407: 2 Intel Fortran Libraries Reference
- Page 408 and 409: 2 Intel Fortran Libraries Reference
- Page 410 and 411: 2 Intel Fortran Libraries Reference
- Page 412 and 413: 2 Intel Fortran Libraries Reference
- Page 414 and 415: 2 Intel Fortran Libraries Reference
- Page 416 and 417: 2 Intel Fortran Libraries Reference
- Page 418 and 419: 2 Intel Fortran Libraries Reference
- Page 420 and 421: 2 Intel Fortran Libraries Reference
- Page 422 and 423: 2 Intel Fortran Libraries Reference
- Page 424 and 425: 2 Intel Fortran Libraries Reference
- Page 426 and 427: 2 Intel Fortran Libraries Reference
- Page 428 and 429: 2 Intel Fortran Libraries Reference
- Page 430 and 431: 2 Intel Fortran Libraries Reference
- Page 432 and 433: 2 Intel Fortran Libraries Reference
- Page 434 and 435: 2 Intel Fortran Libraries Reference
- Page 436 and 437: 2 Intel Fortran Libraries Reference
- Page 438 and 439: 2 Intel Fortran Libraries Reference
- Page 440 and 441: 2 Intel Fortran Libraries Reference
- Page 442 and 443: 2 Intel Fortran Libraries Reference
- Page 444 and 445: 2 Intel Fortran Libraries Reference
- Page 446 and 447: 2 Intel Fortran Libraries Reference
- Page 448 and 449: 2 Intel Fortran Libraries Reference
- Page 450 and 451: 2 Intel Fortran Libraries Reference
- Page 452 and 453: 2 Intel Fortran Libraries Reference
2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>call PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the first call of PXFTIMES fails'end ifcall PXFTIME(time1, ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)call PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the first call of PXFTIME fails'end ifs = 0._8PI = atan(1._8)*4do i=0, ns = s + cos(i*PI/n)*sin(i*PI/n)end doprint *," s=",scall PXFTIMES(jtms2, itime,ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)call PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the second call of PXFTIMES fails'end ifcall PXFTIME(time2, ierror)if(ierror.NE.0) thencall PXFSTRUCTFREE(jtms1,ierror)call PXFSTRUCTFREE(jtms2,ierror)STOP 'Error: the second call of PXFTIME fails'end if!DEC$ IF DEFINED(_M_IA64)call PXFINT8GET(jtms1,"tms_utime",user_time1,ierror)call PXFINT8GET(jtms1,"tms_stime",system_time1,ierror)call PXFINT8GET(jtms2,"tms_utime",user_time2,ierror)call PXFINT8GET(jtms2,"tms_stime",system_time2,ierror)!DEC$ ELSEcall PXFINTGET(jtms1,"tms_utime",user_time1,ierror)call PXFINTGET(jtms1,"tms_stime",system_time1,ierror)call PXFINTGET(jtms2,"tms_utime",user_time2,ierror)2-352