Test which checks the omp_get_wtick function. 2.0 omp_get_wtick INTEGER FUNCTION omp_get_wticks() IMPLICIT NONE DOUBLE PRECISION tick COMMON /orphvars/ tick include "omp_lib.h" ! DOUBLE PRECISION omp_get_wtick tick = 1 tick=omp_get_wticK() WRITE(1,*) "work took",tick,"sec. time." IF(tick .GT. 0. .AND. tick .LT. 0.01) THEN =1 ELSE =0 END IF END FUNCTION