subroutine wait (secs)

c  wait for 'secs' seconds

      time = secnds(0.)
      do while (secnds(time) .lt. secs)
      end do
      return
      end