SUBROUTINE QQQCPU (r2) 

C  system dependent function. It should return the remaining CPU time
C  in seconds, which may be used by the current process.
C  This emulates CPU time limits, set in old batch systems.
C  Here the limits are set to an arbitrary big number r0
 
      real       r2,r0,result,tarray(2)
      data       r0 /1d6/ 
      intrinsic  ETime
 
      CALL ETime(TARRAY, RESULT)

      r2 = r0 - tarray(1)

      RETURN 

      END