Lahey Support
08-15-2003, 01:19 AM
Shorter way to time duration
INTEGER a,l
CALL TICKS(a)
DO i=1,100000000
CALL TICKS(l)
IF((l-a)/100/60 > 10)GO TO 100
ENDDO
100 CONTINUE
This will work.
--
Hitesh Mohan
INTEK Inc.
Tel: 703-206-0500 (main)
703-206-0502 (direct)
Fax: 703-206-0505
INTEGER a,l
CALL TICKS(a)
DO i=1,100000000
CALL TICKS(l)
IF((l-a)/100/60 > 10)GO TO 100
ENDDO
100 CONTINUE
This will work.
--
Hitesh Mohan
INTEK Inc.
Tel: 703-206-0500 (main)
703-206-0502 (direct)
Fax: 703-206-0505