parameter (ifreq=10000000)
      double complex d,c
      double precision seconds

      c = exp(2*dacos(-1.d0)*dcmplx(0.,1.)/ifreq)
      d = dcmplx(1.0, 0.1)
      call startwatch()
      do i=1,ifreq
      d = d*c
      enddo
      call checkwatch(seconds)
      print *,'d =', d
      print *,'seconds =', seconds
      
      stop
      end