subroutine second(time)
c     timing function for DVF
      real*4 s, sold
      save sold
      save icall
      data icall/0/
      icall=icall+1
      if(icall.eq.1) write(11,899)
  899 FORMAT(6X,'SECOND   1.0       7 February  2001',6X,
     &          'CPU timing function for DVF')
      call cpu_time(s)
      if (icall.eq.1) sold=s
      time=s-sold
c
      return
      end