C FUNCTION ETIME C C*************** WARNING- DO NOT OVERLAY, TSTRT WILL BE LOST C C TIMES INTERVAL UP TO 24 HOURS, C FIRST CALL SETS UP, ETIME IS SET C TO ELAPSED TIME SINCE FIRST CALL. C FUNCTION ETIME(DUMMY) DATA TSTRT/-1.0/ IF (TSTRT .LT. 0.0) TSTRT = SECNDS(0.0)/60. TIME = SECNDS(0.0)/60. IF (TIME .LT. TSTRT) TIME = TIME + 1440 ETIME = TIME - TSTRT RETURN END