ftest3.f

      double complex function zho_ge()

      zho_ge = (0.0d0,0.0d0)

      return
      end