subroutine second(time)
c     timing function for IBM RS/6000
      save icall
      data icall/0/
      icall=icall+1
      if(icall.eq.1) write(11,899)
  899 FORMAT(6X,'SECOND   1.0       6 September 1994',6X,
     x'CPU timing function for IBM RS/6000')
      time=float(mclock())/100.
c
      return
      end