void x_timing_(long long *nargs, void* pFun,...)

HEADER: source/include/timing.h

LIB: libc_util.a/libc_util.so

SOURCE source/c_util/timing.c

print timing consuming of function pFun

long long *nargs

Input, number of arguments pFun take.

void* pFun

Input, void function pFun with nargs arguments, all of the args should be pointers.

...

Input, following nargs pointer arguments.

= example (Fortran)=

extern:: dsygst
call x_timing(8,dsygst,1, 'l', ni, buff, ni, flmoinfo%coef(nc1:nc1+nn-1,1), ni,info)
write(*,*) "dsygst()"

its original form is

call dsygst(1, 'l', ni, buff, ni, flmoinfo%coef(nc1:nc1+nn-1,1), ni,info)