Microsecond display in FORTRAN

[shalinibasu82]

Hello,

Is there subroutine in FORTRAN to display time to the microsecond level? ( Crucial in performance evaluation )
There is this date_and_time function but it only displays to the milliseconds level.

Thanks.
Shalini.

 

[xwb]

This is an platform/compiler dependent question. Which platform/compiler are you using?

 

[shalinibasu82]

I have an Intel FORTRAN compiler running on 64 bit Linux. Anyway, somehow I couldn't find a FORTRAN subroutine to get microseconds.
So now I am calling C function from FORTRAN program.
Just for the benefit of others:

Inside FORTRAN
...
call SHOWTIME()
...


Inside C
#include<stdio.h>
#include<stdlib.h>
#include <sys/time.h>
#include <time.h>
void showtime_(void)
{
char buffer[30];
struct timeval tv;
time_t curtime;
gettimeofday(&tv, NULL);
curtime=tv.tv_sec;
strftime(buffer,30,"%m-%d-%Y %T.",localtime(&curtime));
printf("%s%ld\n",buffer,tv.tv_usec);
return 0;


}


SB.