Intel® Fortran Libraries Reference

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