SUBROUTINE HPCTIM(WTIME,CTIME)
        IMPLICIT NONE
*
        REAL WTIME,CTIME
        COMMON/HPCTIMC/CBEGIN,WBEGIN
        REAL*8 CBEGIN,CEND,WBEGIN,WEND
        REAL ETIME,CSCRATCH(2)
*
        CALL HPCWALL(WEND)
        CEND=ETIME(CSCRATCH)
*
        WTIME = WEND - WBEGIN
        CTIME = CEND - CBEGIN
*
        WBEGIN = WEND
        CBEGIN = CEND
        END    

C==================================================

        SUBROUTINE NOOPT(I)

        RETURN
        END