From e1d241154561efa28cf217ea046b6a7db5129b44 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Mon, 15 Dec 2025 22:46:15 +0100
Subject: [PATCH] Fix cut-n-paste error introduced with previous fix for
 zdotc/zdotu

---
 lapack-netlib/SRC/zbbcsd.c               | 2 +-
 lapack-netlib/SRC/zbdsqr.c               | 2 +-
 lapack-netlib/SRC/zcgesv.c               | 2 +-
 lapack-netlib/SRC/zcposv.c               | 2 +-
 lapack-netlib/SRC/zdrscl.c               | 2 +-
 lapack-netlib/SRC/zgbbrd.c               | 2 +-
 lapack-netlib/SRC/zgbcon.c               | 2 +-
 lapack-netlib/SRC/zgbequ.c               | 2 +-
 lapack-netlib/SRC/zgbequb.c              | 2 +-
 lapack-netlib/SRC/zgbrfs.c               | 2 +-
 lapack-netlib/SRC/zgbsv.c                | 2 +-
 lapack-netlib/SRC/zgbsvx.c               | 2 +-
 lapack-netlib/SRC/zgbsvxx.c              | 2 +-
 lapack-netlib/SRC/zgbtf2.c               | 2 +-
 lapack-netlib/SRC/zgbtrf.c               | 2 +-
 lapack-netlib/SRC/zgbtrs.c               | 2 +-
 lapack-netlib/SRC/zgebak.c               | 2 +-
 lapack-netlib/SRC/zgebal.c               | 2 +-
 lapack-netlib/SRC/zgebd2.c               | 2 +-
 lapack-netlib/SRC/zgebrd.c               | 2 +-
 lapack-netlib/SRC/zgecon.c               | 2 +-
 lapack-netlib/SRC/zgedmd.c               | 2 +-
 lapack-netlib/SRC/zgedmdq.c              | 2 +-
 lapack-netlib/SRC/zgeequ.c               | 2 +-
 lapack-netlib/SRC/zgeequb.c              | 2 +-
 lapack-netlib/SRC/zgees.c                | 2 +-
 lapack-netlib/SRC/zgeesx.c               | 2 +-
 lapack-netlib/SRC/zgeev.c                | 2 +-
 lapack-netlib/SRC/zgeevx.c               | 2 +-
 lapack-netlib/SRC/zgehd2.c               | 2 +-
 lapack-netlib/SRC/zgehrd.c               | 2 +-
 lapack-netlib/SRC/zgejsv.c               | 2 +-
 lapack-netlib/SRC/zgelq.c                | 2 +-
 lapack-netlib/SRC/zgelq2.c               | 2 +-
 lapack-netlib/SRC/zgelqf.c               | 2 +-
 lapack-netlib/SRC/zgelqt.c               | 2 +-
 lapack-netlib/SRC/zgelqt3.c              | 2 +-
 lapack-netlib/SRC/zgels.c                | 2 +-
 lapack-netlib/SRC/zgelsd.c               | 2 +-
 lapack-netlib/SRC/zgelss.c               | 2 +-
 lapack-netlib/SRC/zgelst.c               | 2 +-
 lapack-netlib/SRC/zgelsy.c               | 2 +-
 lapack-netlib/SRC/zgemlq.c               | 2 +-
 lapack-netlib/SRC/zgemlqt.c              | 2 +-
 lapack-netlib/SRC/zgemqr.c               | 2 +-
 lapack-netlib/SRC/zgemqrt.c              | 2 +-
 lapack-netlib/SRC/zgeql2.c               | 2 +-
 lapack-netlib/SRC/zgeqlf.c               | 2 +-
 lapack-netlib/SRC/zgeqp3.c               | 2 +-
 lapack-netlib/SRC/zgeqp3rk.c             | 2 +-
 lapack-netlib/SRC/zgeqr.c                | 2 +-
 lapack-netlib/SRC/zgeqr2.c               | 2 +-
 lapack-netlib/SRC/zgeqr2p.c              | 2 +-
 lapack-netlib/SRC/zgeqrf.c               | 2 +-
 lapack-netlib/SRC/zgeqrfp.c              | 2 +-
 lapack-netlib/SRC/zgeqrt.c               | 2 +-
 lapack-netlib/SRC/zgeqrt2.c              | 2 +-
 lapack-netlib/SRC/zgeqrt3.c              | 2 +-
 lapack-netlib/SRC/zgerfs.c               | 2 +-
 lapack-netlib/SRC/zgerq2.c               | 2 +-
 lapack-netlib/SRC/zgerqf.c               | 2 +-
 lapack-netlib/SRC/zgesc2.c               | 2 +-
 lapack-netlib/SRC/zgesdd.c               | 2 +-
 lapack-netlib/SRC/zgesv.c                | 2 +-
 lapack-netlib/SRC/zgesvd.c               | 2 +-
 lapack-netlib/SRC/zgesvdq.c              | 2 +-
 lapack-netlib/SRC/zgesvdx.c              | 2 +-
 lapack-netlib/SRC/zgesvj.c               | 2 +-
 lapack-netlib/SRC/zgesvx.c               | 2 +-
 lapack-netlib/SRC/zgesvxx.c              | 2 +-
 lapack-netlib/SRC/zgetc2.c               | 2 +-
 lapack-netlib/SRC/zgetf2.c               | 2 +-
 lapack-netlib/SRC/zgetrf.c               | 2 +-
 lapack-netlib/SRC/zgetrf2.c              | 2 +-
 lapack-netlib/SRC/zgetri.c               | 2 +-
 lapack-netlib/SRC/zgetrs.c               | 2 +-
 lapack-netlib/SRC/zgetsls.c              | 2 +-
 lapack-netlib/SRC/zgetsqrhrt.c           | 2 +-
 lapack-netlib/SRC/zggbak.c               | 2 +-
 lapack-netlib/SRC/zggbal.c               | 2 +-
 lapack-netlib/SRC/zgges.c                | 2 +-
 lapack-netlib/SRC/zgges3.c               | 2 +-
 lapack-netlib/SRC/zggesx.c               | 2 +-
 lapack-netlib/SRC/zggev.c                | 2 +-
 lapack-netlib/SRC/zggev3.c               | 2 +-
 lapack-netlib/SRC/zggevx.c               | 2 +-
 lapack-netlib/SRC/zggglm.c               | 2 +-
 lapack-netlib/SRC/zgghd3.c               | 2 +-
 lapack-netlib/SRC/zgghrd.c               | 2 +-
 lapack-netlib/SRC/zgglse.c               | 2 +-
 lapack-netlib/SRC/zggqrf.c               | 2 +-
 lapack-netlib/SRC/zggrqf.c               | 2 +-
 lapack-netlib/SRC/zggsvd3.c              | 2 +-
 lapack-netlib/SRC/zggsvp3.c              | 2 +-
 lapack-netlib/SRC/zgsvj0.c               | 2 +-
 lapack-netlib/SRC/zgsvj1.c               | 2 +-
 lapack-netlib/SRC/zgtcon.c               | 2 +-
 lapack-netlib/SRC/zgtrfs.c               | 2 +-
 lapack-netlib/SRC/zgtsv.c                | 2 +-
 lapack-netlib/SRC/zgtsvx.c               | 2 +-
 lapack-netlib/SRC/zgttrf.c               | 2 +-
 lapack-netlib/SRC/zgttrs.c               | 2 +-
 lapack-netlib/SRC/zgtts2.c               | 2 +-
 lapack-netlib/SRC/zhb2st_kernels.c       | 2 +-
 lapack-netlib/SRC/zhbev.c                | 2 +-
 lapack-netlib/SRC/zhbev_2stage.c         | 2 +-
 lapack-netlib/SRC/zhbevd.c               | 2 +-
 lapack-netlib/SRC/zhbevd_2stage.c        | 2 +-
 lapack-netlib/SRC/zhbevx.c               | 2 +-
 lapack-netlib/SRC/zhbevx_2stage.c        | 2 +-
 lapack-netlib/SRC/zhbgst.c               | 2 +-
 lapack-netlib/SRC/zhbgv.c                | 2 +-
 lapack-netlib/SRC/zhbgvd.c               | 2 +-
 lapack-netlib/SRC/zhbgvx.c               | 2 +-
 lapack-netlib/SRC/zhbtrd.c               | 2 +-
 lapack-netlib/SRC/zhecon.c               | 2 +-
 lapack-netlib/SRC/zhecon_3.c             | 2 +-
 lapack-netlib/SRC/zhecon_rook.c          | 2 +-
 lapack-netlib/SRC/zheequb.c              | 2 +-
 lapack-netlib/SRC/zheev.c                | 2 +-
 lapack-netlib/SRC/zheev_2stage.c         | 2 +-
 lapack-netlib/SRC/zheevd.c               | 2 +-
 lapack-netlib/SRC/zheevd_2stage.c        | 2 +-
 lapack-netlib/SRC/zheevr.c               | 2 +-
 lapack-netlib/SRC/zheevr_2stage.c        | 2 +-
 lapack-netlib/SRC/zheevx.c               | 2 +-
 lapack-netlib/SRC/zheevx_2stage.c        | 2 +-
 lapack-netlib/SRC/zhegs2.c               | 2 +-
 lapack-netlib/SRC/zhegst.c               | 2 +-
 lapack-netlib/SRC/zhegv.c                | 2 +-
 lapack-netlib/SRC/zhegv_2stage.c         | 2 +-
 lapack-netlib/SRC/zhegvd.c               | 2 +-
 lapack-netlib/SRC/zhegvx.c               | 2 +-
 lapack-netlib/SRC/zherfs.c               | 2 +-
 lapack-netlib/SRC/zhesv.c                | 2 +-
 lapack-netlib/SRC/zhesv_aa.c             | 2 +-
 lapack-netlib/SRC/zhesv_aa_2stage.c      | 2 +-
 lapack-netlib/SRC/zhesv_rk.c             | 2 +-
 lapack-netlib/SRC/zhesv_rook.c           | 2 +-
 lapack-netlib/SRC/zhesvx.c               | 2 +-
 lapack-netlib/SRC/zhesvxx.c              | 2 +-
 lapack-netlib/SRC/zheswapr.c             | 2 +-
 lapack-netlib/SRC/zhetd2.c               | 2 +-
 lapack-netlib/SRC/zhetf2.c               | 2 +-
 lapack-netlib/SRC/zhetf2_rk.c            | 2 +-
 lapack-netlib/SRC/zhetf2_rook.c          | 2 +-
 lapack-netlib/SRC/zhetrd.c               | 2 +-
 lapack-netlib/SRC/zhetrd_2stage.c        | 2 +-
 lapack-netlib/SRC/zhetrd_hb2st.c         | 2 +-
 lapack-netlib/SRC/zhetrd_he2hb.c         | 2 +-
 lapack-netlib/SRC/zhetrf.c               | 2 +-
 lapack-netlib/SRC/zhetrf_aa.c            | 2 +-
 lapack-netlib/SRC/zhetrf_aa_2stage.c     | 2 +-
 lapack-netlib/SRC/zhetrf_rk.c            | 2 +-
 lapack-netlib/SRC/zhetrf_rook.c          | 2 +-
 lapack-netlib/SRC/zhetri.c               | 2 +-
 lapack-netlib/SRC/zhetri2.c              | 2 +-
 lapack-netlib/SRC/zhetri2x.c             | 2 +-
 lapack-netlib/SRC/zhetri_3.c             | 2 +-
 lapack-netlib/SRC/zhetri_3x.c            | 2 +-
 lapack-netlib/SRC/zhetri_rook.c          | 2 +-
 lapack-netlib/SRC/zhetrs.c               | 2 +-
 lapack-netlib/SRC/zhetrs2.c              | 2 +-
 lapack-netlib/SRC/zhetrs_3.c             | 2 +-
 lapack-netlib/SRC/zhetrs_aa.c            | 2 +-
 lapack-netlib/SRC/zhetrs_aa_2stage.c     | 2 +-
 lapack-netlib/SRC/zhetrs_rook.c          | 2 +-
 lapack-netlib/SRC/zhfrk.c                | 2 +-
 lapack-netlib/SRC/zhgeqz.c               | 2 +-
 lapack-netlib/SRC/zhpcon.c               | 2 +-
 lapack-netlib/SRC/zhpev.c                | 2 +-
 lapack-netlib/SRC/zhpevd.c               | 2 +-
 lapack-netlib/SRC/zhpevx.c               | 2 +-
 lapack-netlib/SRC/zhpgst.c               | 2 +-
 lapack-netlib/SRC/zhpgv.c                | 2 +-
 lapack-netlib/SRC/zhpgvd.c               | 2 +-
 lapack-netlib/SRC/zhpgvx.c               | 2 +-
 lapack-netlib/SRC/zhprfs.c               | 2 +-
 lapack-netlib/SRC/zhpsv.c                | 2 +-
 lapack-netlib/SRC/zhpsvx.c               | 2 +-
 lapack-netlib/SRC/zhptrd.c               | 2 +-
 lapack-netlib/SRC/zhptrf.c               | 2 +-
 lapack-netlib/SRC/zhptri.c               | 2 +-
 lapack-netlib/SRC/zhptrs.c               | 2 +-
 lapack-netlib/SRC/zhsein.c               | 2 +-
 lapack-netlib/SRC/zhseqr.c               | 2 +-
 lapack-netlib/SRC/zla_gbamv.c            | 2 +-
 lapack-netlib/SRC/zla_gbrcond_c.c        | 2 +-
 lapack-netlib/SRC/zla_gbrcond_x.c        | 2 +-
 lapack-netlib/SRC/zla_gbrfsx_extended.c  | 2 +-
 lapack-netlib/SRC/zla_gbrpvgrw.c         | 2 +-
 lapack-netlib/SRC/zla_geamv.c            | 2 +-
 lapack-netlib/SRC/zla_gercond_c.c        | 2 +-
 lapack-netlib/SRC/zla_gercond_x.c        | 2 +-
 lapack-netlib/SRC/zla_gerfsx_extended.c  | 2 +-
 lapack-netlib/SRC/zla_gerpvgrw.c         | 2 +-
 lapack-netlib/SRC/zla_heamv.c            | 2 +-
 lapack-netlib/SRC/zla_hercond_c.c        | 2 +-
 lapack-netlib/SRC/zla_hercond_x.c        | 2 +-
 lapack-netlib/SRC/zla_herfsx_extended.c  | 2 +-
 lapack-netlib/SRC/zla_herpvgrw.c         | 2 +-
 lapack-netlib/SRC/zla_lin_berr.c         | 2 +-
 lapack-netlib/SRC/zla_porcond_c.c        | 2 +-
 lapack-netlib/SRC/zla_porcond_x.c        | 2 +-
 lapack-netlib/SRC/zla_porfsx_extended.c  | 2 +-
 lapack-netlib/SRC/zla_porpvgrw.c         | 2 +-
 lapack-netlib/SRC/zla_syamv.c            | 2 +-
 lapack-netlib/SRC/zla_syrcond_c.c        | 2 +-
 lapack-netlib/SRC/zla_syrcond_x.c        | 2 +-
 lapack-netlib/SRC/zla_syrfsx_extended.c  | 2 +-
 lapack-netlib/SRC/zla_syrpvgrw.c         | 2 +-
 lapack-netlib/SRC/zla_wwaddw.c           | 2 +-
 lapack-netlib/SRC/zlabrd.c               | 2 +-
 lapack-netlib/SRC/zlacgv.c               | 2 +-
 lapack-netlib/SRC/zlacn2.c               | 2 +-
 lapack-netlib/SRC/zlacon.c               | 2 +-
 lapack-netlib/SRC/zlacp2.c               | 2 +-
 lapack-netlib/SRC/zlacpy.c               | 2 +-
 lapack-netlib/SRC/zlacrm.c               | 2 +-
 lapack-netlib/SRC/zlacrt.c               | 2 +-
 lapack-netlib/SRC/zladiv.c               | 2 +-
 lapack-netlib/SRC/zlaed0.c               | 2 +-
 lapack-netlib/SRC/zlaed7.c               | 2 +-
 lapack-netlib/SRC/zlaed8.c               | 2 +-
 lapack-netlib/SRC/zlaein.c               | 2 +-
 lapack-netlib/SRC/zlaesy.c               | 2 +-
 lapack-netlib/SRC/zlaev2.c               | 2 +-
 lapack-netlib/SRC/zlag2c.c               | 2 +-
 lapack-netlib/SRC/zlags2.c               | 2 +-
 lapack-netlib/SRC/zlagtm.c               | 2 +-
 lapack-netlib/SRC/zlahef.c               | 2 +-
 lapack-netlib/SRC/zlahef_aa.c            | 2 +-
 lapack-netlib/SRC/zlahef_rk.c            | 2 +-
 lapack-netlib/SRC/zlahef_rook.c          | 2 +-
 lapack-netlib/SRC/zlahqr.c               | 2 +-
 lapack-netlib/SRC/zlahr2.c               | 2 +-
 lapack-netlib/SRC/zlaic1.c               | 2 +-
 lapack-netlib/SRC/zlals0.c               | 2 +-
 lapack-netlib/SRC/zlalsa.c               | 2 +-
 lapack-netlib/SRC/zlalsd.c               | 2 +-
 lapack-netlib/SRC/zlamswlq.c             | 2 +-
 lapack-netlib/SRC/zlamtsqr.c             | 2 +-
 lapack-netlib/SRC/zlangb.c               | 2 +-
 lapack-netlib/SRC/zlange.c               | 2 +-
 lapack-netlib/SRC/zlangt.c               | 2 +-
 lapack-netlib/SRC/zlanhb.c               | 2 +-
 lapack-netlib/SRC/zlanhe.c               | 2 +-
 lapack-netlib/SRC/zlanhf.c               | 2 +-
 lapack-netlib/SRC/zlanhp.c               | 2 +-
 lapack-netlib/SRC/zlanhs.c               | 2 +-
 lapack-netlib/SRC/zlanht.c               | 2 +-
 lapack-netlib/SRC/zlansb.c               | 2 +-
 lapack-netlib/SRC/zlansp.c               | 2 +-
 lapack-netlib/SRC/zlansy.c               | 2 +-
 lapack-netlib/SRC/zlantb.c               | 2 +-
 lapack-netlib/SRC/zlantp.c               | 2 +-
 lapack-netlib/SRC/zlantr.c               | 2 +-
 lapack-netlib/SRC/zlapll.c               | 2 +-
 lapack-netlib/SRC/zlapmr.c               | 2 +-
 lapack-netlib/SRC/zlapmt.c               | 2 +-
 lapack-netlib/SRC/zlaqgb.c               | 2 +-
 lapack-netlib/SRC/zlaqge.c               | 2 +-
 lapack-netlib/SRC/zlaqhb.c               | 2 +-
 lapack-netlib/SRC/zlaqhe.c               | 2 +-
 lapack-netlib/SRC/zlaqhp.c               | 2 +-
 lapack-netlib/SRC/zlaqp2.c               | 2 +-
 lapack-netlib/SRC/zlaqp2rk.c             | 2 +-
 lapack-netlib/SRC/zlaqp3rk.c             | 2 +-
 lapack-netlib/SRC/zlaqps.c               | 2 +-
 lapack-netlib/SRC/zlaqr0.c               | 2 +-
 lapack-netlib/SRC/zlaqr1.c               | 2 +-
 lapack-netlib/SRC/zlaqr2.c               | 2 +-
 lapack-netlib/SRC/zlaqr3.c               | 2 +-
 lapack-netlib/SRC/zlaqr4.c               | 2 +-
 lapack-netlib/SRC/zlaqr5.c               | 2 +-
 lapack-netlib/SRC/zlaqsb.c               | 2 +-
 lapack-netlib/SRC/zlaqsp.c               | 2 +-
 lapack-netlib/SRC/zlaqsy.c               | 2 +-
 lapack-netlib/SRC/zlar1v.c               | 2 +-
 lapack-netlib/SRC/zlar2v.c               | 2 +-
 lapack-netlib/SRC/zlarcm.c               | 2 +-
 lapack-netlib/SRC/zlarf.c                | 2 +-
 lapack-netlib/SRC/zlarfb.c               | 2 +-
 lapack-netlib/SRC/zlarfb_gett.c          | 2 +-
 lapack-netlib/SRC/zlarfg.c               | 2 +-
 lapack-netlib/SRC/zlarfgp.c              | 2 +-
 lapack-netlib/SRC/zlarft.c               | 2 +-
 lapack-netlib/SRC/zlarfx.c               | 2 +-
 lapack-netlib/SRC/zlarfy.c               | 2 +-
 lapack-netlib/SRC/zlargv.c               | 2 +-
 lapack-netlib/SRC/zlarnv.c               | 2 +-
 lapack-netlib/SRC/zlarrv.c               | 2 +-
 lapack-netlib/SRC/zlarscl2.c             | 2 +-
 lapack-netlib/SRC/zlartg.c               | 2 +-
 lapack-netlib/SRC/zlartv.c               | 2 +-
 lapack-netlib/SRC/zlarz.c                | 2 +-
 lapack-netlib/SRC/zlarzb.c               | 2 +-
 lapack-netlib/SRC/zlarzt.c               | 2 +-
 lapack-netlib/SRC/zlascl.c               | 2 +-
 lapack-netlib/SRC/zlascl2.c              | 2 +-
 lapack-netlib/SRC/zlaset.c               | 2 +-
 lapack-netlib/SRC/zlasr.c                | 2 +-
 lapack-netlib/SRC/zlassq.c               | 2 +-
 lapack-netlib/SRC/zlaswlq.c              | 2 +-
 lapack-netlib/SRC/zlaswp.c               | 2 +-
 lapack-netlib/SRC/zlasyf.c               | 2 +-
 lapack-netlib/SRC/zlasyf_aa.c            | 2 +-
 lapack-netlib/SRC/zlasyf_rk.c            | 2 +-
 lapack-netlib/SRC/zlasyf_rook.c          | 2 +-
 lapack-netlib/SRC/zlat2c.c               | 2 +-
 lapack-netlib/SRC/zlatbs.c               | 2 +-
 lapack-netlib/SRC/zlatdf.c               | 2 +-
 lapack-netlib/SRC/zlatps.c               | 2 +-
 lapack-netlib/SRC/zlatrd.c               | 2 +-
 lapack-netlib/SRC/zlatrs.c               | 2 +-
 lapack-netlib/SRC/zlatrs3.c              | 2 +-
 lapack-netlib/SRC/zlatrz.c               | 2 +-
 lapack-netlib/SRC/zlatsqr.c              | 2 +-
 lapack-netlib/SRC/zlaunhr_col_getrfnp.c  | 2 +-
 lapack-netlib/SRC/zlaunhr_col_getrfnp2.c | 2 +-
 lapack-netlib/SRC/zlauu2.c               | 2 +-
 lapack-netlib/SRC/zlauum.c               | 2 +-
 lapack-netlib/SRC/zpbcon.c               | 2 +-
 lapack-netlib/SRC/zpbequ.c               | 2 +-
 lapack-netlib/SRC/zpbrfs.c               | 2 +-
 lapack-netlib/SRC/zpbstf.c               | 2 +-
 lapack-netlib/SRC/zpbsv.c                | 2 +-
 lapack-netlib/SRC/zpbsvx.c               | 2 +-
 lapack-netlib/SRC/zpbtf2.c               | 2 +-
 lapack-netlib/SRC/zpbtrf.c               | 2 +-
 lapack-netlib/SRC/zpbtrs.c               | 2 +-
 lapack-netlib/SRC/zpftrf.c               | 2 +-
 lapack-netlib/SRC/zpftri.c               | 2 +-
 lapack-netlib/SRC/zpftrs.c               | 2 +-
 lapack-netlib/SRC/zpocon.c               | 2 +-
 lapack-netlib/SRC/zpoequ.c               | 2 +-
 lapack-netlib/SRC/zpoequb.c              | 2 +-
 lapack-netlib/SRC/zporfs.c               | 2 +-
 lapack-netlib/SRC/zposv.c                | 2 +-
 lapack-netlib/SRC/zposvx.c               | 2 +-
 lapack-netlib/SRC/zposvxx.c              | 2 +-
 lapack-netlib/SRC/zpotf2.c               | 2 +-
 lapack-netlib/SRC/zpotrf.c               | 2 +-
 lapack-netlib/SRC/zpotrf2.c              | 2 +-
 lapack-netlib/SRC/zpotri.c               | 2 +-
 lapack-netlib/SRC/zpotrs.c               | 2 +-
 lapack-netlib/SRC/zppcon.c               | 2 +-
 lapack-netlib/SRC/zppequ.c               | 2 +-
 lapack-netlib/SRC/zpprfs.c               | 2 +-
 lapack-netlib/SRC/zppsv.c                | 2 +-
 lapack-netlib/SRC/zppsvx.c               | 2 +-
 lapack-netlib/SRC/zpptrf.c               | 2 +-
 lapack-netlib/SRC/zpptri.c               | 2 +-
 lapack-netlib/SRC/zpptrs.c               | 2 +-
 lapack-netlib/SRC/zpstf2.c               | 2 +-
 lapack-netlib/SRC/zpstrf.c               | 2 +-
 lapack-netlib/SRC/zptcon.c               | 2 +-
 lapack-netlib/SRC/zpteqr.c               | 2 +-
 lapack-netlib/SRC/zptrfs.c               | 2 +-
 lapack-netlib/SRC/zptsv.c                | 2 +-
 lapack-netlib/SRC/zptsvx.c               | 2 +-
 lapack-netlib/SRC/zpttrf.c               | 2 +-
 lapack-netlib/SRC/zpttrs.c               | 2 +-
 lapack-netlib/SRC/zptts2.c               | 2 +-
 lapack-netlib/SRC/zrot.c                 | 2 +-
 lapack-netlib/SRC/zrscl.c                | 2 +-
 lapack-netlib/SRC/zspcon.c               | 2 +-
 lapack-netlib/SRC/zspmv.c                | 2 +-
 lapack-netlib/SRC/zspr.c                 | 2 +-
 lapack-netlib/SRC/zsprfs.c               | 2 +-
 lapack-netlib/SRC/zspsv.c                | 2 +-
 lapack-netlib/SRC/zspsvx.c               | 2 +-
 lapack-netlib/SRC/zsptrf.c               | 2 +-
 lapack-netlib/SRC/zsptri.c               | 2 +-
 lapack-netlib/SRC/zsptrs.c               | 2 +-
 lapack-netlib/SRC/zstedc.c               | 2 +-
 lapack-netlib/SRC/zstegr.c               | 2 +-
 lapack-netlib/SRC/zstein.c               | 2 +-
 lapack-netlib/SRC/zstemr.c               | 2 +-
 lapack-netlib/SRC/zsteqr.c               | 2 +-
 lapack-netlib/SRC/zsycon.c               | 2 +-
 lapack-netlib/SRC/zsycon_3.c             | 2 +-
 lapack-netlib/SRC/zsycon_rook.c          | 2 +-
 lapack-netlib/SRC/zsyconv.c              | 2 +-
 lapack-netlib/SRC/zsyconvf.c             | 2 +-
 lapack-netlib/SRC/zsyconvf_rook.c        | 2 +-
 lapack-netlib/SRC/zsyequb.c              | 2 +-
 lapack-netlib/SRC/zsymv.c                | 2 +-
 lapack-netlib/SRC/zsyr.c                 | 2 +-
 lapack-netlib/SRC/zsyrfs.c               | 2 +-
 lapack-netlib/SRC/zsysv.c                | 2 +-
 lapack-netlib/SRC/zsysv_aa.c             | 2 +-
 lapack-netlib/SRC/zsysv_aa_2stage.c      | 2 +-
 lapack-netlib/SRC/zsysv_rk.c             | 2 +-
 lapack-netlib/SRC/zsysv_rook.c           | 2 +-
 lapack-netlib/SRC/zsysvx.c               | 2 +-
 lapack-netlib/SRC/zsysvxx.c              | 2 +-
 lapack-netlib/SRC/zsyswapr.c             | 2 +-
 lapack-netlib/SRC/zsytf2.c               | 2 +-
 lapack-netlib/SRC/zsytf2_rk.c            | 2 +-
 lapack-netlib/SRC/zsytf2_rook.c          | 2 +-
 lapack-netlib/SRC/zsytrf.c               | 2 +-
 lapack-netlib/SRC/zsytrf_aa.c            | 2 +-
 lapack-netlib/SRC/zsytrf_aa_2stage.c     | 2 +-
 lapack-netlib/SRC/zsytrf_rk.c            | 2 +-
 lapack-netlib/SRC/zsytrf_rook.c          | 2 +-
 lapack-netlib/SRC/zsytri.c               | 2 +-
 lapack-netlib/SRC/zsytri2.c              | 2 +-
 lapack-netlib/SRC/zsytri2x.c             | 2 +-
 lapack-netlib/SRC/zsytri_3.c             | 2 +-
 lapack-netlib/SRC/zsytri_3x.c            | 2 +-
 lapack-netlib/SRC/zsytri_rook.c          | 2 +-
 lapack-netlib/SRC/zsytrs.c               | 2 +-
 lapack-netlib/SRC/zsytrs2.c              | 2 +-
 lapack-netlib/SRC/zsytrs_3.c             | 2 +-
 lapack-netlib/SRC/zsytrs_aa.c            | 2 +-
 lapack-netlib/SRC/zsytrs_aa_2stage.c     | 2 +-
 lapack-netlib/SRC/zsytrs_rook.c          | 2 +-
 lapack-netlib/SRC/ztbcon.c               | 2 +-
 lapack-netlib/SRC/ztbrfs.c               | 2 +-
 lapack-netlib/SRC/ztbtrs.c               | 2 +-
 lapack-netlib/SRC/ztfsm.c                | 2 +-
 lapack-netlib/SRC/ztftri.c               | 2 +-
 lapack-netlib/SRC/ztfttp.c               | 2 +-
 lapack-netlib/SRC/ztfttr.c               | 2 +-
 lapack-netlib/SRC/ztgevc.c               | 2 +-
 lapack-netlib/SRC/ztgex2.c               | 2 +-
 lapack-netlib/SRC/ztgexc.c               | 2 +-
 lapack-netlib/SRC/ztgsen.c               | 2 +-
 lapack-netlib/SRC/ztgsja.c               | 2 +-
 lapack-netlib/SRC/ztgsna.c               | 2 +-
 lapack-netlib/SRC/ztgsy2.c               | 2 +-
 lapack-netlib/SRC/ztgsyl.c               | 2 +-
 lapack-netlib/SRC/ztpcon.c               | 2 +-
 lapack-netlib/SRC/ztplqt.c               | 2 +-
 lapack-netlib/SRC/ztplqt2.c              | 2 +-
 lapack-netlib/SRC/ztpmlqt.c              | 2 +-
 lapack-netlib/SRC/ztpmqrt.c              | 2 +-
 lapack-netlib/SRC/ztpqrt.c               | 2 +-
 lapack-netlib/SRC/ztpqrt2.c              | 2 +-
 lapack-netlib/SRC/ztprfb.c               | 2 +-
 lapack-netlib/SRC/ztprfs.c               | 2 +-
 lapack-netlib/SRC/ztptri.c               | 2 +-
 lapack-netlib/SRC/ztptrs.c               | 2 +-
 lapack-netlib/SRC/ztpttf.c               | 2 +-
 lapack-netlib/SRC/ztpttr.c               | 2 +-
 lapack-netlib/SRC/ztrcon.c               | 2 +-
 lapack-netlib/SRC/ztrevc.c               | 2 +-
 lapack-netlib/SRC/ztrevc3.c              | 2 +-
 lapack-netlib/SRC/ztrexc.c               | 2 +-
 lapack-netlib/SRC/ztrrfs.c               | 2 +-
 lapack-netlib/SRC/ztrsen.c               | 2 +-
 lapack-netlib/SRC/ztrsna.c               | 2 +-
 lapack-netlib/SRC/ztrsyl.c               | 2 +-
 lapack-netlib/SRC/ztrsyl3.c              | 2 +-
 lapack-netlib/SRC/ztrti2.c               | 2 +-
 lapack-netlib/SRC/ztrtri.c               | 2 +-
 lapack-netlib/SRC/ztrtrs.c               | 2 +-
 lapack-netlib/SRC/ztrttf.c               | 2 +-
 lapack-netlib/SRC/ztrttp.c               | 2 +-
 lapack-netlib/SRC/ztzrzf.c               | 2 +-
 lapack-netlib/SRC/zunbdb.c               | 2 +-
 lapack-netlib/SRC/zunbdb1.c              | 2 +-
 lapack-netlib/SRC/zunbdb2.c              | 2 +-
 lapack-netlib/SRC/zunbdb3.c              | 2 +-
 lapack-netlib/SRC/zunbdb4.c              | 2 +-
 lapack-netlib/SRC/zunbdb5.c              | 2 +-
 lapack-netlib/SRC/zunbdb6.c              | 2 +-
 lapack-netlib/SRC/zuncsd.c               | 2 +-
 lapack-netlib/SRC/zuncsd2by1.c           | 2 +-
 lapack-netlib/SRC/zung2l.c               | 2 +-
 lapack-netlib/SRC/zung2r.c               | 2 +-
 lapack-netlib/SRC/zungbr.c               | 2 +-
 lapack-netlib/SRC/zunghr.c               | 2 +-
 lapack-netlib/SRC/zungl2.c               | 2 +-
 lapack-netlib/SRC/zunglq.c               | 2 +-
 lapack-netlib/SRC/zungql.c               | 2 +-
 lapack-netlib/SRC/zungqr.c               | 2 +-
 lapack-netlib/SRC/zungr2.c               | 2 +-
 lapack-netlib/SRC/zungrq.c               | 2 +-
 lapack-netlib/SRC/zungtr.c               | 2 +-
 lapack-netlib/SRC/zungtsqr.c             | 2 +-
 lapack-netlib/SRC/zungtsqr_row.c         | 2 +-
 lapack-netlib/SRC/zunhr_col.c            | 2 +-
 lapack-netlib/SRC/zunm22.c               | 2 +-
 lapack-netlib/SRC/zunm2l.c               | 2 +-
 lapack-netlib/SRC/zunm2r.c               | 2 +-
 lapack-netlib/SRC/zunmbr.c               | 2 +-
 lapack-netlib/SRC/zunmhr.c               | 2 +-
 lapack-netlib/SRC/zunml2.c               | 2 +-
 lapack-netlib/SRC/zunmlq.c               | 2 +-
 lapack-netlib/SRC/zunmql.c               | 2 +-
 lapack-netlib/SRC/zunmqr.c               | 2 +-
 lapack-netlib/SRC/zunmr2.c               | 2 +-
 lapack-netlib/SRC/zunmr3.c               | 2 +-
 lapack-netlib/SRC/zunmrq.c               | 2 +-
 lapack-netlib/SRC/zunmrz.c               | 2 +-
 lapack-netlib/SRC/zunmtr.c               | 2 +-
 lapack-netlib/SRC/zupgtr.c               | 2 +-
 lapack-netlib/SRC/zupmtr.c               | 2 +-
 500 files changed, 500 insertions(+), 500 deletions(-)

diff --git a/lapack-netlib/SRC/zbbcsd.c b/lapack-netlib/SRC/zbbcsd.c
index 7af224703e..a17fce0b75 100644
--- a/lapack-netlib/SRC/zbbcsd.c
+++ b/lapack-netlib/SRC/zbbcsd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zbdsqr.c b/lapack-netlib/SRC/zbdsqr.c
index 0026f2a24f..3653a70343 100644
--- a/lapack-netlib/SRC/zbdsqr.c
+++ b/lapack-netlib/SRC/zbdsqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zcgesv.c b/lapack-netlib/SRC/zcgesv.c
index 0dc0d4a944..d37f71278b 100644
--- a/lapack-netlib/SRC/zcgesv.c
+++ b/lapack-netlib/SRC/zcgesv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zcposv.c b/lapack-netlib/SRC/zcposv.c
index 6caefebcf4..739671d6d8 100644
--- a/lapack-netlib/SRC/zcposv.c
+++ b/lapack-netlib/SRC/zcposv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zdrscl.c b/lapack-netlib/SRC/zdrscl.c
index 980169d4e3..fcadf868fa 100644
--- a/lapack-netlib/SRC/zdrscl.c
+++ b/lapack-netlib/SRC/zdrscl.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbbrd.c b/lapack-netlib/SRC/zgbbrd.c
index 26891456c1..e3d2368dd3 100644
--- a/lapack-netlib/SRC/zgbbrd.c
+++ b/lapack-netlib/SRC/zgbbrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbcon.c b/lapack-netlib/SRC/zgbcon.c
index aa4e9ccd67..01f49a8089 100644
--- a/lapack-netlib/SRC/zgbcon.c
+++ b/lapack-netlib/SRC/zgbcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbequ.c b/lapack-netlib/SRC/zgbequ.c
index 3648d3b239..15f48db6e9 100644
--- a/lapack-netlib/SRC/zgbequ.c
+++ b/lapack-netlib/SRC/zgbequ.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbequb.c b/lapack-netlib/SRC/zgbequb.c
index bc0739b551..8ab692839a 100644
--- a/lapack-netlib/SRC/zgbequb.c
+++ b/lapack-netlib/SRC/zgbequb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbrfs.c b/lapack-netlib/SRC/zgbrfs.c
index fb67072024..425f5fb7d5 100644
--- a/lapack-netlib/SRC/zgbrfs.c
+++ b/lapack-netlib/SRC/zgbrfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbsv.c b/lapack-netlib/SRC/zgbsv.c
index 192edb6e42..90bf3b01fe 100644
--- a/lapack-netlib/SRC/zgbsv.c
+++ b/lapack-netlib/SRC/zgbsv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbsvx.c b/lapack-netlib/SRC/zgbsvx.c
index de11f5d090..8f3dac1bde 100644
--- a/lapack-netlib/SRC/zgbsvx.c
+++ b/lapack-netlib/SRC/zgbsvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbsvxx.c b/lapack-netlib/SRC/zgbsvxx.c
index f853c34152..c69b60c1f8 100644
--- a/lapack-netlib/SRC/zgbsvxx.c
+++ b/lapack-netlib/SRC/zgbsvxx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbtf2.c b/lapack-netlib/SRC/zgbtf2.c
index dd2ced04d6..fc94ac42a7 100644
--- a/lapack-netlib/SRC/zgbtf2.c
+++ b/lapack-netlib/SRC/zgbtf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbtrf.c b/lapack-netlib/SRC/zgbtrf.c
index 68fa0d40df..52f6644993 100644
--- a/lapack-netlib/SRC/zgbtrf.c
+++ b/lapack-netlib/SRC/zgbtrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgbtrs.c b/lapack-netlib/SRC/zgbtrs.c
index 1bd54edebf..17fcadf6f8 100644
--- a/lapack-netlib/SRC/zgbtrs.c
+++ b/lapack-netlib/SRC/zgbtrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgebak.c b/lapack-netlib/SRC/zgebak.c
index d151d9a751..5407dd0824 100644
--- a/lapack-netlib/SRC/zgebak.c
+++ b/lapack-netlib/SRC/zgebak.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgebal.c b/lapack-netlib/SRC/zgebal.c
index 0080910b23..8d0eb54045 100644
--- a/lapack-netlib/SRC/zgebal.c
+++ b/lapack-netlib/SRC/zgebal.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgebd2.c b/lapack-netlib/SRC/zgebd2.c
index dc2560d67a..1292375fce 100644
--- a/lapack-netlib/SRC/zgebd2.c
+++ b/lapack-netlib/SRC/zgebd2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgebrd.c b/lapack-netlib/SRC/zgebrd.c
index 8cc3c3de11..69cd2bd9b5 100644
--- a/lapack-netlib/SRC/zgebrd.c
+++ b/lapack-netlib/SRC/zgebrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgecon.c b/lapack-netlib/SRC/zgecon.c
index 8ea57bb563..cc4d59c2e9 100644
--- a/lapack-netlib/SRC/zgecon.c
+++ b/lapack-netlib/SRC/zgecon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgedmd.c b/lapack-netlib/SRC/zgedmd.c
index f3b8166b54..80d5de899d 100644
--- a/lapack-netlib/SRC/zgedmd.c
+++ b/lapack-netlib/SRC/zgedmd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgedmdq.c b/lapack-netlib/SRC/zgedmdq.c
index ff46dd1d7e..8fc8585e57 100644
--- a/lapack-netlib/SRC/zgedmdq.c
+++ b/lapack-netlib/SRC/zgedmdq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeequ.c b/lapack-netlib/SRC/zgeequ.c
index f17cc641e1..b86f8d5c96 100644
--- a/lapack-netlib/SRC/zgeequ.c
+++ b/lapack-netlib/SRC/zgeequ.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeequb.c b/lapack-netlib/SRC/zgeequb.c
index e82767e521..decc858e50 100644
--- a/lapack-netlib/SRC/zgeequb.c
+++ b/lapack-netlib/SRC/zgeequb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgees.c b/lapack-netlib/SRC/zgees.c
index 3e03a9fbad..9bee0fcbcb 100644
--- a/lapack-netlib/SRC/zgees.c
+++ b/lapack-netlib/SRC/zgees.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeesx.c b/lapack-netlib/SRC/zgeesx.c
index 809dfe8676..fbc46a8d86 100644
--- a/lapack-netlib/SRC/zgeesx.c
+++ b/lapack-netlib/SRC/zgeesx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeev.c b/lapack-netlib/SRC/zgeev.c
index c4e5678a03..01e2bd9336 100644
--- a/lapack-netlib/SRC/zgeev.c
+++ b/lapack-netlib/SRC/zgeev.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeevx.c b/lapack-netlib/SRC/zgeevx.c
index d77fd86834..c929067fda 100644
--- a/lapack-netlib/SRC/zgeevx.c
+++ b/lapack-netlib/SRC/zgeevx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgehd2.c b/lapack-netlib/SRC/zgehd2.c
index 9770ce13e1..0e47554ec4 100644
--- a/lapack-netlib/SRC/zgehd2.c
+++ b/lapack-netlib/SRC/zgehd2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgehrd.c b/lapack-netlib/SRC/zgehrd.c
index 45cbee8a5c..c88f233e8a 100644
--- a/lapack-netlib/SRC/zgehrd.c
+++ b/lapack-netlib/SRC/zgehrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgejsv.c b/lapack-netlib/SRC/zgejsv.c
index 906f22d9fc..f91d95a3d8 100644
--- a/lapack-netlib/SRC/zgejsv.c
+++ b/lapack-netlib/SRC/zgejsv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelq.c b/lapack-netlib/SRC/zgelq.c
index fe6ba77717..8a0b075447 100644
--- a/lapack-netlib/SRC/zgelq.c
+++ b/lapack-netlib/SRC/zgelq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelq2.c b/lapack-netlib/SRC/zgelq2.c
index 1773e0d9d3..9de3c9a73e 100644
--- a/lapack-netlib/SRC/zgelq2.c
+++ b/lapack-netlib/SRC/zgelq2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelqf.c b/lapack-netlib/SRC/zgelqf.c
index 0081418613..abba8563c6 100644
--- a/lapack-netlib/SRC/zgelqf.c
+++ b/lapack-netlib/SRC/zgelqf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelqt.c b/lapack-netlib/SRC/zgelqt.c
index 969738bdc5..516a461f91 100644
--- a/lapack-netlib/SRC/zgelqt.c
+++ b/lapack-netlib/SRC/zgelqt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelqt3.c b/lapack-netlib/SRC/zgelqt3.c
index b392f15fb2..ac4a6c9958 100644
--- a/lapack-netlib/SRC/zgelqt3.c
+++ b/lapack-netlib/SRC/zgelqt3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgels.c b/lapack-netlib/SRC/zgels.c
index 2aba3a179a..c32016c049 100644
--- a/lapack-netlib/SRC/zgels.c
+++ b/lapack-netlib/SRC/zgels.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelsd.c b/lapack-netlib/SRC/zgelsd.c
index 730dd15554..6f022b4087 100644
--- a/lapack-netlib/SRC/zgelsd.c
+++ b/lapack-netlib/SRC/zgelsd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelss.c b/lapack-netlib/SRC/zgelss.c
index 00bdc7a3f4..495ace9013 100644
--- a/lapack-netlib/SRC/zgelss.c
+++ b/lapack-netlib/SRC/zgelss.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelst.c b/lapack-netlib/SRC/zgelst.c
index 3f7a4f2782..a8194dd48c 100644
--- a/lapack-netlib/SRC/zgelst.c
+++ b/lapack-netlib/SRC/zgelst.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgelsy.c b/lapack-netlib/SRC/zgelsy.c
index 4d1201c60d..1c15ed46e1 100644
--- a/lapack-netlib/SRC/zgelsy.c
+++ b/lapack-netlib/SRC/zgelsy.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgemlq.c b/lapack-netlib/SRC/zgemlq.c
index 416f76f122..f4ee9834b3 100644
--- a/lapack-netlib/SRC/zgemlq.c
+++ b/lapack-netlib/SRC/zgemlq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgemlqt.c b/lapack-netlib/SRC/zgemlqt.c
index 4f40a769d9..d631da6d05 100644
--- a/lapack-netlib/SRC/zgemlqt.c
+++ b/lapack-netlib/SRC/zgemlqt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgemqr.c b/lapack-netlib/SRC/zgemqr.c
index 0b85532b6b..f8f09647c1 100644
--- a/lapack-netlib/SRC/zgemqr.c
+++ b/lapack-netlib/SRC/zgemqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgemqrt.c b/lapack-netlib/SRC/zgemqrt.c
index 839c8ada13..55636e7ebf 100644
--- a/lapack-netlib/SRC/zgemqrt.c
+++ b/lapack-netlib/SRC/zgemqrt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeql2.c b/lapack-netlib/SRC/zgeql2.c
index 1ad35d3d11..a441d04161 100644
--- a/lapack-netlib/SRC/zgeql2.c
+++ b/lapack-netlib/SRC/zgeql2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqlf.c b/lapack-netlib/SRC/zgeqlf.c
index 0b91c4e9cf..b22b6acfd5 100644
--- a/lapack-netlib/SRC/zgeqlf.c
+++ b/lapack-netlib/SRC/zgeqlf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqp3.c b/lapack-netlib/SRC/zgeqp3.c
index 33d0df65d7..e9b6425860 100644
--- a/lapack-netlib/SRC/zgeqp3.c
+++ b/lapack-netlib/SRC/zgeqp3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqp3rk.c b/lapack-netlib/SRC/zgeqp3rk.c
index 1c2dc23c01..1643031aa6 100644
--- a/lapack-netlib/SRC/zgeqp3rk.c
+++ b/lapack-netlib/SRC/zgeqp3rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqr.c b/lapack-netlib/SRC/zgeqr.c
index 2c3fdaeb94..10258839fe 100644
--- a/lapack-netlib/SRC/zgeqr.c
+++ b/lapack-netlib/SRC/zgeqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqr2.c b/lapack-netlib/SRC/zgeqr2.c
index a710b56f72..ae81e60958 100644
--- a/lapack-netlib/SRC/zgeqr2.c
+++ b/lapack-netlib/SRC/zgeqr2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqr2p.c b/lapack-netlib/SRC/zgeqr2p.c
index f7e32a2304..b90883672c 100644
--- a/lapack-netlib/SRC/zgeqr2p.c
+++ b/lapack-netlib/SRC/zgeqr2p.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqrf.c b/lapack-netlib/SRC/zgeqrf.c
index 3e57138c34..405c8e198e 100644
--- a/lapack-netlib/SRC/zgeqrf.c
+++ b/lapack-netlib/SRC/zgeqrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqrfp.c b/lapack-netlib/SRC/zgeqrfp.c
index f3f39f957e..63819c52ba 100644
--- a/lapack-netlib/SRC/zgeqrfp.c
+++ b/lapack-netlib/SRC/zgeqrfp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqrt.c b/lapack-netlib/SRC/zgeqrt.c
index 6aba336544..9c3959de29 100644
--- a/lapack-netlib/SRC/zgeqrt.c
+++ b/lapack-netlib/SRC/zgeqrt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqrt2.c b/lapack-netlib/SRC/zgeqrt2.c
index 0297c2b5ad..c73a5cbb85 100644
--- a/lapack-netlib/SRC/zgeqrt2.c
+++ b/lapack-netlib/SRC/zgeqrt2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgeqrt3.c b/lapack-netlib/SRC/zgeqrt3.c
index 481bab00f6..46bf51a2f0 100644
--- a/lapack-netlib/SRC/zgeqrt3.c
+++ b/lapack-netlib/SRC/zgeqrt3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgerfs.c b/lapack-netlib/SRC/zgerfs.c
index 9d32b4cf53..a0f84ed2e4 100644
--- a/lapack-netlib/SRC/zgerfs.c
+++ b/lapack-netlib/SRC/zgerfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgerq2.c b/lapack-netlib/SRC/zgerq2.c
index 03b72a3206..a344059068 100644
--- a/lapack-netlib/SRC/zgerq2.c
+++ b/lapack-netlib/SRC/zgerq2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgerqf.c b/lapack-netlib/SRC/zgerqf.c
index f3dfeb0860..376248280f 100644
--- a/lapack-netlib/SRC/zgerqf.c
+++ b/lapack-netlib/SRC/zgerqf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesc2.c b/lapack-netlib/SRC/zgesc2.c
index 2ed5eb8338..510f40718f 100644
--- a/lapack-netlib/SRC/zgesc2.c
+++ b/lapack-netlib/SRC/zgesc2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesdd.c b/lapack-netlib/SRC/zgesdd.c
index e4fcc642aa..82ee955562 100644
--- a/lapack-netlib/SRC/zgesdd.c
+++ b/lapack-netlib/SRC/zgesdd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesv.c b/lapack-netlib/SRC/zgesv.c
index ad3cfcf328..bcad882680 100644
--- a/lapack-netlib/SRC/zgesv.c
+++ b/lapack-netlib/SRC/zgesv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesvd.c b/lapack-netlib/SRC/zgesvd.c
index f4197c78bf..52f4e07c7b 100644
--- a/lapack-netlib/SRC/zgesvd.c
+++ b/lapack-netlib/SRC/zgesvd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesvdq.c b/lapack-netlib/SRC/zgesvdq.c
index 91e4c52595..aad2ead9a0 100644
--- a/lapack-netlib/SRC/zgesvdq.c
+++ b/lapack-netlib/SRC/zgesvdq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesvdx.c b/lapack-netlib/SRC/zgesvdx.c
index a70636f7b5..d191de4d04 100644
--- a/lapack-netlib/SRC/zgesvdx.c
+++ b/lapack-netlib/SRC/zgesvdx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesvj.c b/lapack-netlib/SRC/zgesvj.c
index a6f8668241..4093721808 100644
--- a/lapack-netlib/SRC/zgesvj.c
+++ b/lapack-netlib/SRC/zgesvj.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesvx.c b/lapack-netlib/SRC/zgesvx.c
index 692892d8a9..111b2d4128 100644
--- a/lapack-netlib/SRC/zgesvx.c
+++ b/lapack-netlib/SRC/zgesvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgesvxx.c b/lapack-netlib/SRC/zgesvxx.c
index c4719f86b8..8f4101fb88 100644
--- a/lapack-netlib/SRC/zgesvxx.c
+++ b/lapack-netlib/SRC/zgesvxx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgetc2.c b/lapack-netlib/SRC/zgetc2.c
index 85d6775f8c..48d7d15765 100644
--- a/lapack-netlib/SRC/zgetc2.c
+++ b/lapack-netlib/SRC/zgetc2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgetf2.c b/lapack-netlib/SRC/zgetf2.c
index 433cb6f7ff..90ac632f77 100644
--- a/lapack-netlib/SRC/zgetf2.c
+++ b/lapack-netlib/SRC/zgetf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgetrf.c b/lapack-netlib/SRC/zgetrf.c
index f583bf193f..09cef81bc0 100644
--- a/lapack-netlib/SRC/zgetrf.c
+++ b/lapack-netlib/SRC/zgetrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgetrf2.c b/lapack-netlib/SRC/zgetrf2.c
index e15c808063..286cfb50b6 100644
--- a/lapack-netlib/SRC/zgetrf2.c
+++ b/lapack-netlib/SRC/zgetrf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgetri.c b/lapack-netlib/SRC/zgetri.c
index 355e1c4434..c3fd3d9eb2 100644
--- a/lapack-netlib/SRC/zgetri.c
+++ b/lapack-netlib/SRC/zgetri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgetrs.c b/lapack-netlib/SRC/zgetrs.c
index d9463b8ff8..3d89b272d7 100644
--- a/lapack-netlib/SRC/zgetrs.c
+++ b/lapack-netlib/SRC/zgetrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgetsls.c b/lapack-netlib/SRC/zgetsls.c
index 973cc97ac5..8b7b1230e1 100644
--- a/lapack-netlib/SRC/zgetsls.c
+++ b/lapack-netlib/SRC/zgetsls.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgetsqrhrt.c b/lapack-netlib/SRC/zgetsqrhrt.c
index d421dc75b4..7cf4feaec7 100644
--- a/lapack-netlib/SRC/zgetsqrhrt.c
+++ b/lapack-netlib/SRC/zgetsqrhrt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggbak.c b/lapack-netlib/SRC/zggbak.c
index 4c0d44d69d..87aa8dc395 100644
--- a/lapack-netlib/SRC/zggbak.c
+++ b/lapack-netlib/SRC/zggbak.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggbal.c b/lapack-netlib/SRC/zggbal.c
index 45ff961c55..2b16859155 100644
--- a/lapack-netlib/SRC/zggbal.c
+++ b/lapack-netlib/SRC/zggbal.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgges.c b/lapack-netlib/SRC/zgges.c
index 06bca33b2e..84d51edfb7 100644
--- a/lapack-netlib/SRC/zgges.c
+++ b/lapack-netlib/SRC/zgges.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgges3.c b/lapack-netlib/SRC/zgges3.c
index 5bfa8a561e..1fa0cffaf4 100644
--- a/lapack-netlib/SRC/zgges3.c
+++ b/lapack-netlib/SRC/zgges3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggesx.c b/lapack-netlib/SRC/zggesx.c
index bc16e4b786..a41ef4471d 100644
--- a/lapack-netlib/SRC/zggesx.c
+++ b/lapack-netlib/SRC/zggesx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggev.c b/lapack-netlib/SRC/zggev.c
index d0ecdc8b74..8a43a1604b 100644
--- a/lapack-netlib/SRC/zggev.c
+++ b/lapack-netlib/SRC/zggev.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggev3.c b/lapack-netlib/SRC/zggev3.c
index c58614db3d..a2faf5a5c3 100644
--- a/lapack-netlib/SRC/zggev3.c
+++ b/lapack-netlib/SRC/zggev3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggevx.c b/lapack-netlib/SRC/zggevx.c
index 8926a750d3..8227201d7d 100644
--- a/lapack-netlib/SRC/zggevx.c
+++ b/lapack-netlib/SRC/zggevx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggglm.c b/lapack-netlib/SRC/zggglm.c
index 85ab28511c..b2b4f0ca12 100644
--- a/lapack-netlib/SRC/zggglm.c
+++ b/lapack-netlib/SRC/zggglm.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgghd3.c b/lapack-netlib/SRC/zgghd3.c
index 8b8d39c851..fcf2aeee1c 100644
--- a/lapack-netlib/SRC/zgghd3.c
+++ b/lapack-netlib/SRC/zgghd3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgghrd.c b/lapack-netlib/SRC/zgghrd.c
index 6162af7f49..a95ba48373 100644
--- a/lapack-netlib/SRC/zgghrd.c
+++ b/lapack-netlib/SRC/zgghrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgglse.c b/lapack-netlib/SRC/zgglse.c
index 6b79eadfad..e8eb24ef42 100644
--- a/lapack-netlib/SRC/zgglse.c
+++ b/lapack-netlib/SRC/zgglse.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggqrf.c b/lapack-netlib/SRC/zggqrf.c
index efe110bb2c..b01c75e813 100644
--- a/lapack-netlib/SRC/zggqrf.c
+++ b/lapack-netlib/SRC/zggqrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggrqf.c b/lapack-netlib/SRC/zggrqf.c
index 964e6de07b..89dad4bbb1 100644
--- a/lapack-netlib/SRC/zggrqf.c
+++ b/lapack-netlib/SRC/zggrqf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggsvd3.c b/lapack-netlib/SRC/zggsvd3.c
index 7a11df580e..271868c1f9 100644
--- a/lapack-netlib/SRC/zggsvd3.c
+++ b/lapack-netlib/SRC/zggsvd3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zggsvp3.c b/lapack-netlib/SRC/zggsvp3.c
index 1538fd4a57..ec01de9e18 100644
--- a/lapack-netlib/SRC/zggsvp3.c
+++ b/lapack-netlib/SRC/zggsvp3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgsvj0.c b/lapack-netlib/SRC/zgsvj0.c
index 62bd9ad6af..e5a5d5b882 100644
--- a/lapack-netlib/SRC/zgsvj0.c
+++ b/lapack-netlib/SRC/zgsvj0.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgsvj1.c b/lapack-netlib/SRC/zgsvj1.c
index 7fbecc3241..63e2658d6f 100644
--- a/lapack-netlib/SRC/zgsvj1.c
+++ b/lapack-netlib/SRC/zgsvj1.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgtcon.c b/lapack-netlib/SRC/zgtcon.c
index 7177d2018c..c2f28b1af5 100644
--- a/lapack-netlib/SRC/zgtcon.c
+++ b/lapack-netlib/SRC/zgtcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgtrfs.c b/lapack-netlib/SRC/zgtrfs.c
index 8f179c9301..973d16c98e 100644
--- a/lapack-netlib/SRC/zgtrfs.c
+++ b/lapack-netlib/SRC/zgtrfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgtsv.c b/lapack-netlib/SRC/zgtsv.c
index 53acdaa7d3..7bc08c9aad 100644
--- a/lapack-netlib/SRC/zgtsv.c
+++ b/lapack-netlib/SRC/zgtsv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgtsvx.c b/lapack-netlib/SRC/zgtsvx.c
index 6b37d42873..4b3e7d01c2 100644
--- a/lapack-netlib/SRC/zgtsvx.c
+++ b/lapack-netlib/SRC/zgtsvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgttrf.c b/lapack-netlib/SRC/zgttrf.c
index 00789f32a4..3cadc59a91 100644
--- a/lapack-netlib/SRC/zgttrf.c
+++ b/lapack-netlib/SRC/zgttrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgttrs.c b/lapack-netlib/SRC/zgttrs.c
index f01c7404b3..18b03c3dc1 100644
--- a/lapack-netlib/SRC/zgttrs.c
+++ b/lapack-netlib/SRC/zgttrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zgtts2.c b/lapack-netlib/SRC/zgtts2.c
index af017ca984..a8b4e4b6ca 100644
--- a/lapack-netlib/SRC/zgtts2.c
+++ b/lapack-netlib/SRC/zgtts2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhb2st_kernels.c b/lapack-netlib/SRC/zhb2st_kernels.c
index fe84e7cbf0..8d4716014c 100644
--- a/lapack-netlib/SRC/zhb2st_kernels.c
+++ b/lapack-netlib/SRC/zhb2st_kernels.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbev.c b/lapack-netlib/SRC/zhbev.c
index 8de3a88b3c..e847f591c0 100644
--- a/lapack-netlib/SRC/zhbev.c
+++ b/lapack-netlib/SRC/zhbev.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbev_2stage.c b/lapack-netlib/SRC/zhbev_2stage.c
index 8645241b3b..08dc78d6a9 100644
--- a/lapack-netlib/SRC/zhbev_2stage.c
+++ b/lapack-netlib/SRC/zhbev_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbevd.c b/lapack-netlib/SRC/zhbevd.c
index c0f793a9f2..a6d796f68b 100644
--- a/lapack-netlib/SRC/zhbevd.c
+++ b/lapack-netlib/SRC/zhbevd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbevd_2stage.c b/lapack-netlib/SRC/zhbevd_2stage.c
index c456f110bf..2f5a6386fe 100644
--- a/lapack-netlib/SRC/zhbevd_2stage.c
+++ b/lapack-netlib/SRC/zhbevd_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbevx.c b/lapack-netlib/SRC/zhbevx.c
index 1c467bb60e..7f75ca7481 100644
--- a/lapack-netlib/SRC/zhbevx.c
+++ b/lapack-netlib/SRC/zhbevx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbevx_2stage.c b/lapack-netlib/SRC/zhbevx_2stage.c
index cb8b996785..083e7677ee 100644
--- a/lapack-netlib/SRC/zhbevx_2stage.c
+++ b/lapack-netlib/SRC/zhbevx_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbgst.c b/lapack-netlib/SRC/zhbgst.c
index 3cc0109380..ade2b8460b 100644
--- a/lapack-netlib/SRC/zhbgst.c
+++ b/lapack-netlib/SRC/zhbgst.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbgv.c b/lapack-netlib/SRC/zhbgv.c
index 3ad1fe3799..80b7ef1f95 100644
--- a/lapack-netlib/SRC/zhbgv.c
+++ b/lapack-netlib/SRC/zhbgv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbgvd.c b/lapack-netlib/SRC/zhbgvd.c
index 5ca500187a..f44100a2e9 100644
--- a/lapack-netlib/SRC/zhbgvd.c
+++ b/lapack-netlib/SRC/zhbgvd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbgvx.c b/lapack-netlib/SRC/zhbgvx.c
index eb2648b302..5d564f9e62 100644
--- a/lapack-netlib/SRC/zhbgvx.c
+++ b/lapack-netlib/SRC/zhbgvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhbtrd.c b/lapack-netlib/SRC/zhbtrd.c
index d030f1e425..0cdcc48b21 100644
--- a/lapack-netlib/SRC/zhbtrd.c
+++ b/lapack-netlib/SRC/zhbtrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhecon.c b/lapack-netlib/SRC/zhecon.c
index 674004f924..d1b6bd00a0 100644
--- a/lapack-netlib/SRC/zhecon.c
+++ b/lapack-netlib/SRC/zhecon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhecon_3.c b/lapack-netlib/SRC/zhecon_3.c
index 3c96ebbdb1..3e3d22943e 100644
--- a/lapack-netlib/SRC/zhecon_3.c
+++ b/lapack-netlib/SRC/zhecon_3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhecon_rook.c b/lapack-netlib/SRC/zhecon_rook.c
index e5b481558f..14b1574924 100644
--- a/lapack-netlib/SRC/zhecon_rook.c
+++ b/lapack-netlib/SRC/zhecon_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheequb.c b/lapack-netlib/SRC/zheequb.c
index f23d710863..5a0e7ca48f 100644
--- a/lapack-netlib/SRC/zheequb.c
+++ b/lapack-netlib/SRC/zheequb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheev.c b/lapack-netlib/SRC/zheev.c
index 49896ac636..46bf424bd3 100644
--- a/lapack-netlib/SRC/zheev.c
+++ b/lapack-netlib/SRC/zheev.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheev_2stage.c b/lapack-netlib/SRC/zheev_2stage.c
index 148fc65fc9..d15ec295b0 100644
--- a/lapack-netlib/SRC/zheev_2stage.c
+++ b/lapack-netlib/SRC/zheev_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheevd.c b/lapack-netlib/SRC/zheevd.c
index 4d0f96c495..952a76cfcb 100644
--- a/lapack-netlib/SRC/zheevd.c
+++ b/lapack-netlib/SRC/zheevd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheevd_2stage.c b/lapack-netlib/SRC/zheevd_2stage.c
index 492573d178..7cfd4f1bd4 100644
--- a/lapack-netlib/SRC/zheevd_2stage.c
+++ b/lapack-netlib/SRC/zheevd_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheevr.c b/lapack-netlib/SRC/zheevr.c
index bd888eec05..5f362f683b 100644
--- a/lapack-netlib/SRC/zheevr.c
+++ b/lapack-netlib/SRC/zheevr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheevr_2stage.c b/lapack-netlib/SRC/zheevr_2stage.c
index 8425f8a486..757465d5af 100644
--- a/lapack-netlib/SRC/zheevr_2stage.c
+++ b/lapack-netlib/SRC/zheevr_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheevx.c b/lapack-netlib/SRC/zheevx.c
index 45a4941d9b..2b953e33e7 100644
--- a/lapack-netlib/SRC/zheevx.c
+++ b/lapack-netlib/SRC/zheevx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheevx_2stage.c b/lapack-netlib/SRC/zheevx_2stage.c
index 6ca4a08d98..f60080dbd7 100644
--- a/lapack-netlib/SRC/zheevx_2stage.c
+++ b/lapack-netlib/SRC/zheevx_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhegs2.c b/lapack-netlib/SRC/zhegs2.c
index ed87ce7c60..3980acfc3f 100644
--- a/lapack-netlib/SRC/zhegs2.c
+++ b/lapack-netlib/SRC/zhegs2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhegst.c b/lapack-netlib/SRC/zhegst.c
index 1490323917..984930a8e8 100644
--- a/lapack-netlib/SRC/zhegst.c
+++ b/lapack-netlib/SRC/zhegst.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhegv.c b/lapack-netlib/SRC/zhegv.c
index 3cd1292347..d176e77dfd 100644
--- a/lapack-netlib/SRC/zhegv.c
+++ b/lapack-netlib/SRC/zhegv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhegv_2stage.c b/lapack-netlib/SRC/zhegv_2stage.c
index 0b25e1a1ad..62f53bf607 100644
--- a/lapack-netlib/SRC/zhegv_2stage.c
+++ b/lapack-netlib/SRC/zhegv_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhegvd.c b/lapack-netlib/SRC/zhegvd.c
index ebd5826e0f..5a0b5e4f06 100644
--- a/lapack-netlib/SRC/zhegvd.c
+++ b/lapack-netlib/SRC/zhegvd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhegvx.c b/lapack-netlib/SRC/zhegvx.c
index 901e8ede95..d3ce9fdf18 100644
--- a/lapack-netlib/SRC/zhegvx.c
+++ b/lapack-netlib/SRC/zhegvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zherfs.c b/lapack-netlib/SRC/zherfs.c
index af2cae103b..21d0bc7439 100644
--- a/lapack-netlib/SRC/zherfs.c
+++ b/lapack-netlib/SRC/zherfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhesv.c b/lapack-netlib/SRC/zhesv.c
index bb0f743109..94da226a51 100644
--- a/lapack-netlib/SRC/zhesv.c
+++ b/lapack-netlib/SRC/zhesv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhesv_aa.c b/lapack-netlib/SRC/zhesv_aa.c
index be54fb5059..7c7b2d211c 100644
--- a/lapack-netlib/SRC/zhesv_aa.c
+++ b/lapack-netlib/SRC/zhesv_aa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhesv_aa_2stage.c b/lapack-netlib/SRC/zhesv_aa_2stage.c
index 8c8c84297b..7212e80188 100644
--- a/lapack-netlib/SRC/zhesv_aa_2stage.c
+++ b/lapack-netlib/SRC/zhesv_aa_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhesv_rk.c b/lapack-netlib/SRC/zhesv_rk.c
index 7aa68591a7..1014af1e11 100644
--- a/lapack-netlib/SRC/zhesv_rk.c
+++ b/lapack-netlib/SRC/zhesv_rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhesv_rook.c b/lapack-netlib/SRC/zhesv_rook.c
index 488e5fce04..71a9f0ffba 100644
--- a/lapack-netlib/SRC/zhesv_rook.c
+++ b/lapack-netlib/SRC/zhesv_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhesvx.c b/lapack-netlib/SRC/zhesvx.c
index 4f2fb6b952..7b93752f66 100644
--- a/lapack-netlib/SRC/zhesvx.c
+++ b/lapack-netlib/SRC/zhesvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhesvxx.c b/lapack-netlib/SRC/zhesvxx.c
index 2db7f9dbbb..b3cb8328fb 100644
--- a/lapack-netlib/SRC/zhesvxx.c
+++ b/lapack-netlib/SRC/zhesvxx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zheswapr.c b/lapack-netlib/SRC/zheswapr.c
index 7c615ae9a0..a534fbce19 100644
--- a/lapack-netlib/SRC/zheswapr.c
+++ b/lapack-netlib/SRC/zheswapr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetd2.c b/lapack-netlib/SRC/zhetd2.c
index 71f091ddda..62f9bce3cd 100644
--- a/lapack-netlib/SRC/zhetd2.c
+++ b/lapack-netlib/SRC/zhetd2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetf2.c b/lapack-netlib/SRC/zhetf2.c
index 6770849bf9..26ff4f5119 100644
--- a/lapack-netlib/SRC/zhetf2.c
+++ b/lapack-netlib/SRC/zhetf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetf2_rk.c b/lapack-netlib/SRC/zhetf2_rk.c
index b9cb9edc01..56b1155e2c 100644
--- a/lapack-netlib/SRC/zhetf2_rk.c
+++ b/lapack-netlib/SRC/zhetf2_rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetf2_rook.c b/lapack-netlib/SRC/zhetf2_rook.c
index f1eb3e66a5..7c02c1757a 100644
--- a/lapack-netlib/SRC/zhetf2_rook.c
+++ b/lapack-netlib/SRC/zhetf2_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrd.c b/lapack-netlib/SRC/zhetrd.c
index e2c9d199f6..89f7b7554b 100644
--- a/lapack-netlib/SRC/zhetrd.c
+++ b/lapack-netlib/SRC/zhetrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrd_2stage.c b/lapack-netlib/SRC/zhetrd_2stage.c
index fa61377e74..d595a599dc 100644
--- a/lapack-netlib/SRC/zhetrd_2stage.c
+++ b/lapack-netlib/SRC/zhetrd_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrd_hb2st.c b/lapack-netlib/SRC/zhetrd_hb2st.c
index 051dcda31b..01308fe37f 100644
--- a/lapack-netlib/SRC/zhetrd_hb2st.c
+++ b/lapack-netlib/SRC/zhetrd_hb2st.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrd_he2hb.c b/lapack-netlib/SRC/zhetrd_he2hb.c
index f0049c32bf..ef5768e5c5 100644
--- a/lapack-netlib/SRC/zhetrd_he2hb.c
+++ b/lapack-netlib/SRC/zhetrd_he2hb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrf.c b/lapack-netlib/SRC/zhetrf.c
index 5373946010..5205a56e1e 100644
--- a/lapack-netlib/SRC/zhetrf.c
+++ b/lapack-netlib/SRC/zhetrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrf_aa.c b/lapack-netlib/SRC/zhetrf_aa.c
index 1af2a0305c..ea9329d9f7 100644
--- a/lapack-netlib/SRC/zhetrf_aa.c
+++ b/lapack-netlib/SRC/zhetrf_aa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrf_aa_2stage.c b/lapack-netlib/SRC/zhetrf_aa_2stage.c
index cc47cccf5a..d6ee3319e2 100644
--- a/lapack-netlib/SRC/zhetrf_aa_2stage.c
+++ b/lapack-netlib/SRC/zhetrf_aa_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrf_rk.c b/lapack-netlib/SRC/zhetrf_rk.c
index ad00c400f5..3ebfdf4f5c 100644
--- a/lapack-netlib/SRC/zhetrf_rk.c
+++ b/lapack-netlib/SRC/zhetrf_rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrf_rook.c b/lapack-netlib/SRC/zhetrf_rook.c
index a570d561c8..dc9f5554c8 100644
--- a/lapack-netlib/SRC/zhetrf_rook.c
+++ b/lapack-netlib/SRC/zhetrf_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetri.c b/lapack-netlib/SRC/zhetri.c
index f7db6519eb..ae27fba90c 100644
--- a/lapack-netlib/SRC/zhetri.c
+++ b/lapack-netlib/SRC/zhetri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetri2.c b/lapack-netlib/SRC/zhetri2.c
index a78c824a81..ea13cdc8b6 100644
--- a/lapack-netlib/SRC/zhetri2.c
+++ b/lapack-netlib/SRC/zhetri2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetri2x.c b/lapack-netlib/SRC/zhetri2x.c
index e6f9b7d1d8..4aa21e925e 100644
--- a/lapack-netlib/SRC/zhetri2x.c
+++ b/lapack-netlib/SRC/zhetri2x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetri_3.c b/lapack-netlib/SRC/zhetri_3.c
index 74bade7da1..aed01b6efd 100644
--- a/lapack-netlib/SRC/zhetri_3.c
+++ b/lapack-netlib/SRC/zhetri_3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetri_3x.c b/lapack-netlib/SRC/zhetri_3x.c
index 620963ebe9..ae5d6b59b4 100644
--- a/lapack-netlib/SRC/zhetri_3x.c
+++ b/lapack-netlib/SRC/zhetri_3x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetri_rook.c b/lapack-netlib/SRC/zhetri_rook.c
index dc3c5ad026..9172440f66 100644
--- a/lapack-netlib/SRC/zhetri_rook.c
+++ b/lapack-netlib/SRC/zhetri_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrs.c b/lapack-netlib/SRC/zhetrs.c
index 05c34bbc72..72716f4109 100644
--- a/lapack-netlib/SRC/zhetrs.c
+++ b/lapack-netlib/SRC/zhetrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrs2.c b/lapack-netlib/SRC/zhetrs2.c
index c00df57445..b4d096d911 100644
--- a/lapack-netlib/SRC/zhetrs2.c
+++ b/lapack-netlib/SRC/zhetrs2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrs_3.c b/lapack-netlib/SRC/zhetrs_3.c
index 371ca07c69..b4adcccde2 100644
--- a/lapack-netlib/SRC/zhetrs_3.c
+++ b/lapack-netlib/SRC/zhetrs_3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrs_aa.c b/lapack-netlib/SRC/zhetrs_aa.c
index ef57b0cdc4..52c1409039 100644
--- a/lapack-netlib/SRC/zhetrs_aa.c
+++ b/lapack-netlib/SRC/zhetrs_aa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrs_aa_2stage.c b/lapack-netlib/SRC/zhetrs_aa_2stage.c
index 4dd156bb56..1b507d4372 100644
--- a/lapack-netlib/SRC/zhetrs_aa_2stage.c
+++ b/lapack-netlib/SRC/zhetrs_aa_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhetrs_rook.c b/lapack-netlib/SRC/zhetrs_rook.c
index 3d369ae18d..707211b669 100644
--- a/lapack-netlib/SRC/zhetrs_rook.c
+++ b/lapack-netlib/SRC/zhetrs_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhfrk.c b/lapack-netlib/SRC/zhfrk.c
index cc691a4c3f..afed46fd3a 100644
--- a/lapack-netlib/SRC/zhfrk.c
+++ b/lapack-netlib/SRC/zhfrk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhgeqz.c b/lapack-netlib/SRC/zhgeqz.c
index 5624dd0114..09282813be 100644
--- a/lapack-netlib/SRC/zhgeqz.c
+++ b/lapack-netlib/SRC/zhgeqz.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpcon.c b/lapack-netlib/SRC/zhpcon.c
index 7963e09903..2f6a8f2f6c 100644
--- a/lapack-netlib/SRC/zhpcon.c
+++ b/lapack-netlib/SRC/zhpcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpev.c b/lapack-netlib/SRC/zhpev.c
index 2b81a42df6..bbac141da6 100644
--- a/lapack-netlib/SRC/zhpev.c
+++ b/lapack-netlib/SRC/zhpev.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpevd.c b/lapack-netlib/SRC/zhpevd.c
index 90f2327c48..121b90d0d3 100644
--- a/lapack-netlib/SRC/zhpevd.c
+++ b/lapack-netlib/SRC/zhpevd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpevx.c b/lapack-netlib/SRC/zhpevx.c
index 8651f10b0e..efc5ba8f22 100644
--- a/lapack-netlib/SRC/zhpevx.c
+++ b/lapack-netlib/SRC/zhpevx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpgst.c b/lapack-netlib/SRC/zhpgst.c
index 412d0306c5..df52be07f5 100644
--- a/lapack-netlib/SRC/zhpgst.c
+++ b/lapack-netlib/SRC/zhpgst.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpgv.c b/lapack-netlib/SRC/zhpgv.c
index ef79b652f6..e7d0183f44 100644
--- a/lapack-netlib/SRC/zhpgv.c
+++ b/lapack-netlib/SRC/zhpgv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpgvd.c b/lapack-netlib/SRC/zhpgvd.c
index c138280be7..c3701bdfb5 100644
--- a/lapack-netlib/SRC/zhpgvd.c
+++ b/lapack-netlib/SRC/zhpgvd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpgvx.c b/lapack-netlib/SRC/zhpgvx.c
index 7bcf04ae0d..6cdb01f393 100644
--- a/lapack-netlib/SRC/zhpgvx.c
+++ b/lapack-netlib/SRC/zhpgvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhprfs.c b/lapack-netlib/SRC/zhprfs.c
index 9bd3304c42..64bdfd69ac 100644
--- a/lapack-netlib/SRC/zhprfs.c
+++ b/lapack-netlib/SRC/zhprfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpsv.c b/lapack-netlib/SRC/zhpsv.c
index a942bc096b..3124eeb827 100644
--- a/lapack-netlib/SRC/zhpsv.c
+++ b/lapack-netlib/SRC/zhpsv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhpsvx.c b/lapack-netlib/SRC/zhpsvx.c
index 3b113255db..ec3c43cf05 100644
--- a/lapack-netlib/SRC/zhpsvx.c
+++ b/lapack-netlib/SRC/zhpsvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhptrd.c b/lapack-netlib/SRC/zhptrd.c
index 3596d710e0..c11e3d9d90 100644
--- a/lapack-netlib/SRC/zhptrd.c
+++ b/lapack-netlib/SRC/zhptrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhptrf.c b/lapack-netlib/SRC/zhptrf.c
index 99627c9038..9e1b23fb00 100644
--- a/lapack-netlib/SRC/zhptrf.c
+++ b/lapack-netlib/SRC/zhptrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhptri.c b/lapack-netlib/SRC/zhptri.c
index d019d1e6f1..2be7a46a83 100644
--- a/lapack-netlib/SRC/zhptri.c
+++ b/lapack-netlib/SRC/zhptri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhptrs.c b/lapack-netlib/SRC/zhptrs.c
index eb2230b83f..f8ca39f822 100644
--- a/lapack-netlib/SRC/zhptrs.c
+++ b/lapack-netlib/SRC/zhptrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhsein.c b/lapack-netlib/SRC/zhsein.c
index c47d5283b6..49eeafb400 100644
--- a/lapack-netlib/SRC/zhsein.c
+++ b/lapack-netlib/SRC/zhsein.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zhseqr.c b/lapack-netlib/SRC/zhseqr.c
index 2a7006211d..b8a90cbfe3 100644
--- a/lapack-netlib/SRC/zhseqr.c
+++ b/lapack-netlib/SRC/zhseqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gbamv.c b/lapack-netlib/SRC/zla_gbamv.c
index 6c75c009ff..0e7a51aac6 100644
--- a/lapack-netlib/SRC/zla_gbamv.c
+++ b/lapack-netlib/SRC/zla_gbamv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gbrcond_c.c b/lapack-netlib/SRC/zla_gbrcond_c.c
index 03be96c0ce..46f22f803a 100644
--- a/lapack-netlib/SRC/zla_gbrcond_c.c
+++ b/lapack-netlib/SRC/zla_gbrcond_c.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gbrcond_x.c b/lapack-netlib/SRC/zla_gbrcond_x.c
index 50ce467c1b..b15bcebb8f 100644
--- a/lapack-netlib/SRC/zla_gbrcond_x.c
+++ b/lapack-netlib/SRC/zla_gbrcond_x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gbrfsx_extended.c b/lapack-netlib/SRC/zla_gbrfsx_extended.c
index 868b90a72c..c61f074e4f 100644
--- a/lapack-netlib/SRC/zla_gbrfsx_extended.c
+++ b/lapack-netlib/SRC/zla_gbrfsx_extended.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gbrpvgrw.c b/lapack-netlib/SRC/zla_gbrpvgrw.c
index 79fd8fd6f6..6ab84125b8 100644
--- a/lapack-netlib/SRC/zla_gbrpvgrw.c
+++ b/lapack-netlib/SRC/zla_gbrpvgrw.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_geamv.c b/lapack-netlib/SRC/zla_geamv.c
index 07b788eb26..a35bc0c12b 100644
--- a/lapack-netlib/SRC/zla_geamv.c
+++ b/lapack-netlib/SRC/zla_geamv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gercond_c.c b/lapack-netlib/SRC/zla_gercond_c.c
index 84d54a7d0e..436b0dc324 100644
--- a/lapack-netlib/SRC/zla_gercond_c.c
+++ b/lapack-netlib/SRC/zla_gercond_c.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gercond_x.c b/lapack-netlib/SRC/zla_gercond_x.c
index 266a671445..3dd3e9f110 100644
--- a/lapack-netlib/SRC/zla_gercond_x.c
+++ b/lapack-netlib/SRC/zla_gercond_x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gerfsx_extended.c b/lapack-netlib/SRC/zla_gerfsx_extended.c
index fa75af27cd..c659e82b70 100644
--- a/lapack-netlib/SRC/zla_gerfsx_extended.c
+++ b/lapack-netlib/SRC/zla_gerfsx_extended.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_gerpvgrw.c b/lapack-netlib/SRC/zla_gerpvgrw.c
index df186ec838..a5e69433bf 100644
--- a/lapack-netlib/SRC/zla_gerpvgrw.c
+++ b/lapack-netlib/SRC/zla_gerpvgrw.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_heamv.c b/lapack-netlib/SRC/zla_heamv.c
index 5e0c0d6fdd..160f819e6e 100644
--- a/lapack-netlib/SRC/zla_heamv.c
+++ b/lapack-netlib/SRC/zla_heamv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_hercond_c.c b/lapack-netlib/SRC/zla_hercond_c.c
index 31c4e02642..4329094675 100644
--- a/lapack-netlib/SRC/zla_hercond_c.c
+++ b/lapack-netlib/SRC/zla_hercond_c.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_hercond_x.c b/lapack-netlib/SRC/zla_hercond_x.c
index 33ba442eeb..b416a241fd 100644
--- a/lapack-netlib/SRC/zla_hercond_x.c
+++ b/lapack-netlib/SRC/zla_hercond_x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_herfsx_extended.c b/lapack-netlib/SRC/zla_herfsx_extended.c
index 8f7e28e745..50019928b9 100644
--- a/lapack-netlib/SRC/zla_herfsx_extended.c
+++ b/lapack-netlib/SRC/zla_herfsx_extended.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_herpvgrw.c b/lapack-netlib/SRC/zla_herpvgrw.c
index e18549cb8b..6de9cd3405 100644
--- a/lapack-netlib/SRC/zla_herpvgrw.c
+++ b/lapack-netlib/SRC/zla_herpvgrw.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_lin_berr.c b/lapack-netlib/SRC/zla_lin_berr.c
index 49f938867d..8b44d6a870 100644
--- a/lapack-netlib/SRC/zla_lin_berr.c
+++ b/lapack-netlib/SRC/zla_lin_berr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_porcond_c.c b/lapack-netlib/SRC/zla_porcond_c.c
index 44da30b143..9339ae34fd 100644
--- a/lapack-netlib/SRC/zla_porcond_c.c
+++ b/lapack-netlib/SRC/zla_porcond_c.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_porcond_x.c b/lapack-netlib/SRC/zla_porcond_x.c
index faec9052ac..86e89eb1b9 100644
--- a/lapack-netlib/SRC/zla_porcond_x.c
+++ b/lapack-netlib/SRC/zla_porcond_x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_porfsx_extended.c b/lapack-netlib/SRC/zla_porfsx_extended.c
index 0d77130412..41c63b98fa 100644
--- a/lapack-netlib/SRC/zla_porfsx_extended.c
+++ b/lapack-netlib/SRC/zla_porfsx_extended.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_porpvgrw.c b/lapack-netlib/SRC/zla_porpvgrw.c
index 704c2af56e..925e9bf294 100644
--- a/lapack-netlib/SRC/zla_porpvgrw.c
+++ b/lapack-netlib/SRC/zla_porpvgrw.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_syamv.c b/lapack-netlib/SRC/zla_syamv.c
index 54639e22a3..1c1246d2e2 100644
--- a/lapack-netlib/SRC/zla_syamv.c
+++ b/lapack-netlib/SRC/zla_syamv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_syrcond_c.c b/lapack-netlib/SRC/zla_syrcond_c.c
index a1363f3347..c27bc09373 100644
--- a/lapack-netlib/SRC/zla_syrcond_c.c
+++ b/lapack-netlib/SRC/zla_syrcond_c.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_syrcond_x.c b/lapack-netlib/SRC/zla_syrcond_x.c
index a30e5d6f14..8731177617 100644
--- a/lapack-netlib/SRC/zla_syrcond_x.c
+++ b/lapack-netlib/SRC/zla_syrcond_x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_syrfsx_extended.c b/lapack-netlib/SRC/zla_syrfsx_extended.c
index 72ec1f3375..01255c1365 100644
--- a/lapack-netlib/SRC/zla_syrfsx_extended.c
+++ b/lapack-netlib/SRC/zla_syrfsx_extended.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_syrpvgrw.c b/lapack-netlib/SRC/zla_syrpvgrw.c
index ba8d3c814e..d7c8943e62 100644
--- a/lapack-netlib/SRC/zla_syrpvgrw.c
+++ b/lapack-netlib/SRC/zla_syrpvgrw.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zla_wwaddw.c b/lapack-netlib/SRC/zla_wwaddw.c
index 8d76f32f5a..a991d4d5e6 100644
--- a/lapack-netlib/SRC/zla_wwaddw.c
+++ b/lapack-netlib/SRC/zla_wwaddw.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlabrd.c b/lapack-netlib/SRC/zlabrd.c
index cad99d9cba..fdadeb5313 100644
--- a/lapack-netlib/SRC/zlabrd.c
+++ b/lapack-netlib/SRC/zlabrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlacgv.c b/lapack-netlib/SRC/zlacgv.c
index 7064f1764f..7215ff10a6 100644
--- a/lapack-netlib/SRC/zlacgv.c
+++ b/lapack-netlib/SRC/zlacgv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlacn2.c b/lapack-netlib/SRC/zlacn2.c
index 4b1f7b6380..1ec08eb718 100644
--- a/lapack-netlib/SRC/zlacn2.c
+++ b/lapack-netlib/SRC/zlacn2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlacon.c b/lapack-netlib/SRC/zlacon.c
index 1f28ee5727..b851a073fc 100644
--- a/lapack-netlib/SRC/zlacon.c
+++ b/lapack-netlib/SRC/zlacon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlacp2.c b/lapack-netlib/SRC/zlacp2.c
index 288b7a17af..4f8790154f 100644
--- a/lapack-netlib/SRC/zlacp2.c
+++ b/lapack-netlib/SRC/zlacp2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlacpy.c b/lapack-netlib/SRC/zlacpy.c
index 76e2cee700..b134bbad41 100644
--- a/lapack-netlib/SRC/zlacpy.c
+++ b/lapack-netlib/SRC/zlacpy.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlacrm.c b/lapack-netlib/SRC/zlacrm.c
index 14aa5f5daf..8535f0ffcf 100644
--- a/lapack-netlib/SRC/zlacrm.c
+++ b/lapack-netlib/SRC/zlacrm.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlacrt.c b/lapack-netlib/SRC/zlacrt.c
index 7626f27792..f758f572d0 100644
--- a/lapack-netlib/SRC/zlacrt.c
+++ b/lapack-netlib/SRC/zlacrt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zladiv.c b/lapack-netlib/SRC/zladiv.c
index 3b0b7a63a4..9035410ef5 100644
--- a/lapack-netlib/SRC/zladiv.c
+++ b/lapack-netlib/SRC/zladiv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaed0.c b/lapack-netlib/SRC/zlaed0.c
index c666317969..ff0352b302 100644
--- a/lapack-netlib/SRC/zlaed0.c
+++ b/lapack-netlib/SRC/zlaed0.c
@@ -420,7 +420,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaed7.c b/lapack-netlib/SRC/zlaed7.c
index 1e0cb7d0e9..47b7dfa8be 100644
--- a/lapack-netlib/SRC/zlaed7.c
+++ b/lapack-netlib/SRC/zlaed7.c
@@ -420,7 +420,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaed8.c b/lapack-netlib/SRC/zlaed8.c
index 7b125fb274..d353ab18d2 100644
--- a/lapack-netlib/SRC/zlaed8.c
+++ b/lapack-netlib/SRC/zlaed8.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaein.c b/lapack-netlib/SRC/zlaein.c
index 4708bcafc6..0615de6354 100644
--- a/lapack-netlib/SRC/zlaein.c
+++ b/lapack-netlib/SRC/zlaein.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaesy.c b/lapack-netlib/SRC/zlaesy.c
index e83dc9ecaf..14a032e013 100644
--- a/lapack-netlib/SRC/zlaesy.c
+++ b/lapack-netlib/SRC/zlaesy.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaev2.c b/lapack-netlib/SRC/zlaev2.c
index 367b5c4921..4e625aaf19 100644
--- a/lapack-netlib/SRC/zlaev2.c
+++ b/lapack-netlib/SRC/zlaev2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlag2c.c b/lapack-netlib/SRC/zlag2c.c
index a5a1f2afc5..3b007a7f70 100644
--- a/lapack-netlib/SRC/zlag2c.c
+++ b/lapack-netlib/SRC/zlag2c.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlags2.c b/lapack-netlib/SRC/zlags2.c
index dda8a6b06a..47caf839c6 100644
--- a/lapack-netlib/SRC/zlags2.c
+++ b/lapack-netlib/SRC/zlags2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlagtm.c b/lapack-netlib/SRC/zlagtm.c
index 98a175399f..1f071c2e01 100644
--- a/lapack-netlib/SRC/zlagtm.c
+++ b/lapack-netlib/SRC/zlagtm.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlahef.c b/lapack-netlib/SRC/zlahef.c
index 38e6fb33de..318a170d2f 100644
--- a/lapack-netlib/SRC/zlahef.c
+++ b/lapack-netlib/SRC/zlahef.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlahef_aa.c b/lapack-netlib/SRC/zlahef_aa.c
index 5b25990402..66110bf04a 100644
--- a/lapack-netlib/SRC/zlahef_aa.c
+++ b/lapack-netlib/SRC/zlahef_aa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlahef_rk.c b/lapack-netlib/SRC/zlahef_rk.c
index b5d23f8173..4406f7a696 100644
--- a/lapack-netlib/SRC/zlahef_rk.c
+++ b/lapack-netlib/SRC/zlahef_rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlahef_rook.c b/lapack-netlib/SRC/zlahef_rook.c
index 917c08823c..03f25bfcd8 100644
--- a/lapack-netlib/SRC/zlahef_rook.c
+++ b/lapack-netlib/SRC/zlahef_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlahqr.c b/lapack-netlib/SRC/zlahqr.c
index 5be76a9e29..1bc5a2c31f 100644
--- a/lapack-netlib/SRC/zlahqr.c
+++ b/lapack-netlib/SRC/zlahqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlahr2.c b/lapack-netlib/SRC/zlahr2.c
index 04640fb323..aecdd96732 100644
--- a/lapack-netlib/SRC/zlahr2.c
+++ b/lapack-netlib/SRC/zlahr2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaic1.c b/lapack-netlib/SRC/zlaic1.c
index 064b801b55..4bdb2b3c08 100644
--- a/lapack-netlib/SRC/zlaic1.c
+++ b/lapack-netlib/SRC/zlaic1.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlals0.c b/lapack-netlib/SRC/zlals0.c
index 0c79180f6f..1734250ac8 100644
--- a/lapack-netlib/SRC/zlals0.c
+++ b/lapack-netlib/SRC/zlals0.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlalsa.c b/lapack-netlib/SRC/zlalsa.c
index a1685f076d..db320cc735 100644
--- a/lapack-netlib/SRC/zlalsa.c
+++ b/lapack-netlib/SRC/zlalsa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlalsd.c b/lapack-netlib/SRC/zlalsd.c
index 44486c6481..79c1a519ea 100644
--- a/lapack-netlib/SRC/zlalsd.c
+++ b/lapack-netlib/SRC/zlalsd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlamswlq.c b/lapack-netlib/SRC/zlamswlq.c
index e163e4818e..9ad17fc492 100644
--- a/lapack-netlib/SRC/zlamswlq.c
+++ b/lapack-netlib/SRC/zlamswlq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlamtsqr.c b/lapack-netlib/SRC/zlamtsqr.c
index c30e8b1798..81c5e0ec21 100644
--- a/lapack-netlib/SRC/zlamtsqr.c
+++ b/lapack-netlib/SRC/zlamtsqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlangb.c b/lapack-netlib/SRC/zlangb.c
index 2362e8441d..77ddbfb262 100644
--- a/lapack-netlib/SRC/zlangb.c
+++ b/lapack-netlib/SRC/zlangb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlange.c b/lapack-netlib/SRC/zlange.c
index 17a619ddca..dcc427d80a 100644
--- a/lapack-netlib/SRC/zlange.c
+++ b/lapack-netlib/SRC/zlange.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlangt.c b/lapack-netlib/SRC/zlangt.c
index f8f3f2e03b..a7e6f1698b 100644
--- a/lapack-netlib/SRC/zlangt.c
+++ b/lapack-netlib/SRC/zlangt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlanhb.c b/lapack-netlib/SRC/zlanhb.c
index 2c3d2740d9..3981a2258a 100644
--- a/lapack-netlib/SRC/zlanhb.c
+++ b/lapack-netlib/SRC/zlanhb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlanhe.c b/lapack-netlib/SRC/zlanhe.c
index 2349eedf4b..d7ed45dab9 100644
--- a/lapack-netlib/SRC/zlanhe.c
+++ b/lapack-netlib/SRC/zlanhe.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlanhf.c b/lapack-netlib/SRC/zlanhf.c
index 8fed821e28..125723cb89 100644
--- a/lapack-netlib/SRC/zlanhf.c
+++ b/lapack-netlib/SRC/zlanhf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlanhp.c b/lapack-netlib/SRC/zlanhp.c
index c900e6ddea..f22333b3fd 100644
--- a/lapack-netlib/SRC/zlanhp.c
+++ b/lapack-netlib/SRC/zlanhp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlanhs.c b/lapack-netlib/SRC/zlanhs.c
index 8260374e41..5bdcdbeeb6 100644
--- a/lapack-netlib/SRC/zlanhs.c
+++ b/lapack-netlib/SRC/zlanhs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlanht.c b/lapack-netlib/SRC/zlanht.c
index 922c615043..429a9d0a1d 100644
--- a/lapack-netlib/SRC/zlanht.c
+++ b/lapack-netlib/SRC/zlanht.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlansb.c b/lapack-netlib/SRC/zlansb.c
index 102c6f94f7..dee127342b 100644
--- a/lapack-netlib/SRC/zlansb.c
+++ b/lapack-netlib/SRC/zlansb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlansp.c b/lapack-netlib/SRC/zlansp.c
index c76890f98f..3338f5c750 100644
--- a/lapack-netlib/SRC/zlansp.c
+++ b/lapack-netlib/SRC/zlansp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlansy.c b/lapack-netlib/SRC/zlansy.c
index f730748b68..e3eb82039f 100644
--- a/lapack-netlib/SRC/zlansy.c
+++ b/lapack-netlib/SRC/zlansy.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlantb.c b/lapack-netlib/SRC/zlantb.c
index 9eb6579216..fee31b682b 100644
--- a/lapack-netlib/SRC/zlantb.c
+++ b/lapack-netlib/SRC/zlantb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlantp.c b/lapack-netlib/SRC/zlantp.c
index 58a2f6b242..e21bd5db2a 100644
--- a/lapack-netlib/SRC/zlantp.c
+++ b/lapack-netlib/SRC/zlantp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlantr.c b/lapack-netlib/SRC/zlantr.c
index 95ab076b9e..bc3c5dcbf3 100644
--- a/lapack-netlib/SRC/zlantr.c
+++ b/lapack-netlib/SRC/zlantr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlapll.c b/lapack-netlib/SRC/zlapll.c
index d8efa8673f..9cf6b253e8 100644
--- a/lapack-netlib/SRC/zlapll.c
+++ b/lapack-netlib/SRC/zlapll.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlapmr.c b/lapack-netlib/SRC/zlapmr.c
index 53c99a52bc..8c6e8d8077 100644
--- a/lapack-netlib/SRC/zlapmr.c
+++ b/lapack-netlib/SRC/zlapmr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlapmt.c b/lapack-netlib/SRC/zlapmt.c
index 149748e378..23988b9efb 100644
--- a/lapack-netlib/SRC/zlapmt.c
+++ b/lapack-netlib/SRC/zlapmt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqgb.c b/lapack-netlib/SRC/zlaqgb.c
index a258176e96..c98ddb137c 100644
--- a/lapack-netlib/SRC/zlaqgb.c
+++ b/lapack-netlib/SRC/zlaqgb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqge.c b/lapack-netlib/SRC/zlaqge.c
index d349b2b9c7..e7064c0c5e 100644
--- a/lapack-netlib/SRC/zlaqge.c
+++ b/lapack-netlib/SRC/zlaqge.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqhb.c b/lapack-netlib/SRC/zlaqhb.c
index 216c46b196..08ccc2e25b 100644
--- a/lapack-netlib/SRC/zlaqhb.c
+++ b/lapack-netlib/SRC/zlaqhb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqhe.c b/lapack-netlib/SRC/zlaqhe.c
index 8dc8133c3a..3d7e93fbff 100644
--- a/lapack-netlib/SRC/zlaqhe.c
+++ b/lapack-netlib/SRC/zlaqhe.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqhp.c b/lapack-netlib/SRC/zlaqhp.c
index 288a405d95..4050cb0863 100644
--- a/lapack-netlib/SRC/zlaqhp.c
+++ b/lapack-netlib/SRC/zlaqhp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqp2.c b/lapack-netlib/SRC/zlaqp2.c
index 4e76219439..399d9522a0 100644
--- a/lapack-netlib/SRC/zlaqp2.c
+++ b/lapack-netlib/SRC/zlaqp2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqp2rk.c b/lapack-netlib/SRC/zlaqp2rk.c
index 4fdfb1a71e..7955362f35 100644
--- a/lapack-netlib/SRC/zlaqp2rk.c
+++ b/lapack-netlib/SRC/zlaqp2rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqp3rk.c b/lapack-netlib/SRC/zlaqp3rk.c
index 46b2370a1d..3799643b75 100644
--- a/lapack-netlib/SRC/zlaqp3rk.c
+++ b/lapack-netlib/SRC/zlaqp3rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqps.c b/lapack-netlib/SRC/zlaqps.c
index deafc63ff1..953c104e4b 100644
--- a/lapack-netlib/SRC/zlaqps.c
+++ b/lapack-netlib/SRC/zlaqps.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqr0.c b/lapack-netlib/SRC/zlaqr0.c
index 8c891a777c..8c115368fc 100644
--- a/lapack-netlib/SRC/zlaqr0.c
+++ b/lapack-netlib/SRC/zlaqr0.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqr1.c b/lapack-netlib/SRC/zlaqr1.c
index f0c1bf871c..61439afc4c 100644
--- a/lapack-netlib/SRC/zlaqr1.c
+++ b/lapack-netlib/SRC/zlaqr1.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqr2.c b/lapack-netlib/SRC/zlaqr2.c
index 70b19dc2f7..df1f6537bc 100644
--- a/lapack-netlib/SRC/zlaqr2.c
+++ b/lapack-netlib/SRC/zlaqr2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqr3.c b/lapack-netlib/SRC/zlaqr3.c
index 465b6519a0..45f49e4502 100644
--- a/lapack-netlib/SRC/zlaqr3.c
+++ b/lapack-netlib/SRC/zlaqr3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqr4.c b/lapack-netlib/SRC/zlaqr4.c
index b4e57ebba6..8a3b3ce5bd 100644
--- a/lapack-netlib/SRC/zlaqr4.c
+++ b/lapack-netlib/SRC/zlaqr4.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqr5.c b/lapack-netlib/SRC/zlaqr5.c
index ad0b9da10f..5ed54544c2 100644
--- a/lapack-netlib/SRC/zlaqr5.c
+++ b/lapack-netlib/SRC/zlaqr5.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqsb.c b/lapack-netlib/SRC/zlaqsb.c
index a0f60cde79..230d7cee93 100644
--- a/lapack-netlib/SRC/zlaqsb.c
+++ b/lapack-netlib/SRC/zlaqsb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqsp.c b/lapack-netlib/SRC/zlaqsp.c
index 71229f4614..639cca6397 100644
--- a/lapack-netlib/SRC/zlaqsp.c
+++ b/lapack-netlib/SRC/zlaqsp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaqsy.c b/lapack-netlib/SRC/zlaqsy.c
index 7a18cd8450..13e9c1d296 100644
--- a/lapack-netlib/SRC/zlaqsy.c
+++ b/lapack-netlib/SRC/zlaqsy.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlar1v.c b/lapack-netlib/SRC/zlar1v.c
index 9788581cd4..15da2f3cfd 100644
--- a/lapack-netlib/SRC/zlar1v.c
+++ b/lapack-netlib/SRC/zlar1v.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlar2v.c b/lapack-netlib/SRC/zlar2v.c
index bd1367cef7..8727f4f1ca 100644
--- a/lapack-netlib/SRC/zlar2v.c
+++ b/lapack-netlib/SRC/zlar2v.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarcm.c b/lapack-netlib/SRC/zlarcm.c
index 21cd381332..9d875c3a22 100644
--- a/lapack-netlib/SRC/zlarcm.c
+++ b/lapack-netlib/SRC/zlarcm.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarf.c b/lapack-netlib/SRC/zlarf.c
index ad90726d29..09f53e3657 100644
--- a/lapack-netlib/SRC/zlarf.c
+++ b/lapack-netlib/SRC/zlarf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarfb.c b/lapack-netlib/SRC/zlarfb.c
index 799998aa92..50fd8bc8a8 100644
--- a/lapack-netlib/SRC/zlarfb.c
+++ b/lapack-netlib/SRC/zlarfb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarfb_gett.c b/lapack-netlib/SRC/zlarfb_gett.c
index 4fba03b1eb..695b6cdf3c 100644
--- a/lapack-netlib/SRC/zlarfb_gett.c
+++ b/lapack-netlib/SRC/zlarfb_gett.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarfg.c b/lapack-netlib/SRC/zlarfg.c
index a3234c389b..f176464fa3 100644
--- a/lapack-netlib/SRC/zlarfg.c
+++ b/lapack-netlib/SRC/zlarfg.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarfgp.c b/lapack-netlib/SRC/zlarfgp.c
index a2fe429e94..ae9385f9c6 100644
--- a/lapack-netlib/SRC/zlarfgp.c
+++ b/lapack-netlib/SRC/zlarfgp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarft.c b/lapack-netlib/SRC/zlarft.c
index 841feb365d..abfe4e0e4a 100644
--- a/lapack-netlib/SRC/zlarft.c
+++ b/lapack-netlib/SRC/zlarft.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarfx.c b/lapack-netlib/SRC/zlarfx.c
index 0eeba6f1c3..9eb4cba875 100644
--- a/lapack-netlib/SRC/zlarfx.c
+++ b/lapack-netlib/SRC/zlarfx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarfy.c b/lapack-netlib/SRC/zlarfy.c
index 7cd9636760..2e3e9f88a3 100644
--- a/lapack-netlib/SRC/zlarfy.c
+++ b/lapack-netlib/SRC/zlarfy.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlargv.c b/lapack-netlib/SRC/zlargv.c
index 1c7c12f141..15b594898e 100644
--- a/lapack-netlib/SRC/zlargv.c
+++ b/lapack-netlib/SRC/zlargv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarnv.c b/lapack-netlib/SRC/zlarnv.c
index 47210a9000..be6cb3ac61 100644
--- a/lapack-netlib/SRC/zlarnv.c
+++ b/lapack-netlib/SRC/zlarnv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarrv.c b/lapack-netlib/SRC/zlarrv.c
index 16fb8d0078..37af016180 100644
--- a/lapack-netlib/SRC/zlarrv.c
+++ b/lapack-netlib/SRC/zlarrv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarscl2.c b/lapack-netlib/SRC/zlarscl2.c
index 5cbe1e7a15..e019e54069 100644
--- a/lapack-netlib/SRC/zlarscl2.c
+++ b/lapack-netlib/SRC/zlarscl2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlartg.c b/lapack-netlib/SRC/zlartg.c
index dc09dce35b..b3de09313e 100644
--- a/lapack-netlib/SRC/zlartg.c
+++ b/lapack-netlib/SRC/zlartg.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlartv.c b/lapack-netlib/SRC/zlartv.c
index e8db403fee..606fa35127 100644
--- a/lapack-netlib/SRC/zlartv.c
+++ b/lapack-netlib/SRC/zlartv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarz.c b/lapack-netlib/SRC/zlarz.c
index 0236234ed8..8f91b16152 100644
--- a/lapack-netlib/SRC/zlarz.c
+++ b/lapack-netlib/SRC/zlarz.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarzb.c b/lapack-netlib/SRC/zlarzb.c
index 3149900014..86535b2089 100644
--- a/lapack-netlib/SRC/zlarzb.c
+++ b/lapack-netlib/SRC/zlarzb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlarzt.c b/lapack-netlib/SRC/zlarzt.c
index 07e198a597..7fb52ee281 100644
--- a/lapack-netlib/SRC/zlarzt.c
+++ b/lapack-netlib/SRC/zlarzt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlascl.c b/lapack-netlib/SRC/zlascl.c
index 3775a75678..7287fd502c 100644
--- a/lapack-netlib/SRC/zlascl.c
+++ b/lapack-netlib/SRC/zlascl.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlascl2.c b/lapack-netlib/SRC/zlascl2.c
index 86edf9a99e..d5fa8e4037 100644
--- a/lapack-netlib/SRC/zlascl2.c
+++ b/lapack-netlib/SRC/zlascl2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaset.c b/lapack-netlib/SRC/zlaset.c
index 9d0a3cf427..4c88776814 100644
--- a/lapack-netlib/SRC/zlaset.c
+++ b/lapack-netlib/SRC/zlaset.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlasr.c b/lapack-netlib/SRC/zlasr.c
index a2909c396f..9c5dadcf2b 100644
--- a/lapack-netlib/SRC/zlasr.c
+++ b/lapack-netlib/SRC/zlasr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlassq.c b/lapack-netlib/SRC/zlassq.c
index 3402e115da..004214a7dd 100644
--- a/lapack-netlib/SRC/zlassq.c
+++ b/lapack-netlib/SRC/zlassq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaswlq.c b/lapack-netlib/SRC/zlaswlq.c
index 275859711f..44649a7f06 100644
--- a/lapack-netlib/SRC/zlaswlq.c
+++ b/lapack-netlib/SRC/zlaswlq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaswp.c b/lapack-netlib/SRC/zlaswp.c
index 3a89bccd2c..f6087b584b 100644
--- a/lapack-netlib/SRC/zlaswp.c
+++ b/lapack-netlib/SRC/zlaswp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlasyf.c b/lapack-netlib/SRC/zlasyf.c
index c620fe56b4..6eaf05e9a5 100644
--- a/lapack-netlib/SRC/zlasyf.c
+++ b/lapack-netlib/SRC/zlasyf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlasyf_aa.c b/lapack-netlib/SRC/zlasyf_aa.c
index b2b23dc113..b9fc4e9e2a 100644
--- a/lapack-netlib/SRC/zlasyf_aa.c
+++ b/lapack-netlib/SRC/zlasyf_aa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlasyf_rk.c b/lapack-netlib/SRC/zlasyf_rk.c
index 9379f478ff..8b1948ff9d 100644
--- a/lapack-netlib/SRC/zlasyf_rk.c
+++ b/lapack-netlib/SRC/zlasyf_rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlasyf_rook.c b/lapack-netlib/SRC/zlasyf_rook.c
index cde8554d7c..71e1c33f87 100644
--- a/lapack-netlib/SRC/zlasyf_rook.c
+++ b/lapack-netlib/SRC/zlasyf_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlat2c.c b/lapack-netlib/SRC/zlat2c.c
index 6b4edabeaa..d773330e46 100644
--- a/lapack-netlib/SRC/zlat2c.c
+++ b/lapack-netlib/SRC/zlat2c.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlatbs.c b/lapack-netlib/SRC/zlatbs.c
index 5a17396dc0..2622dbcc66 100644
--- a/lapack-netlib/SRC/zlatbs.c
+++ b/lapack-netlib/SRC/zlatbs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlatdf.c b/lapack-netlib/SRC/zlatdf.c
index 3a9fb2f789..5f3e99f62a 100644
--- a/lapack-netlib/SRC/zlatdf.c
+++ b/lapack-netlib/SRC/zlatdf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlatps.c b/lapack-netlib/SRC/zlatps.c
index b5765e3bc2..b8a12b6b13 100644
--- a/lapack-netlib/SRC/zlatps.c
+++ b/lapack-netlib/SRC/zlatps.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlatrd.c b/lapack-netlib/SRC/zlatrd.c
index 6cd79672eb..7aa45aabf9 100644
--- a/lapack-netlib/SRC/zlatrd.c
+++ b/lapack-netlib/SRC/zlatrd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlatrs.c b/lapack-netlib/SRC/zlatrs.c
index 98c3801f75..692f486cad 100644
--- a/lapack-netlib/SRC/zlatrs.c
+++ b/lapack-netlib/SRC/zlatrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlatrs3.c b/lapack-netlib/SRC/zlatrs3.c
index a8a1ccfd20..46b2b69fe2 100644
--- a/lapack-netlib/SRC/zlatrs3.c
+++ b/lapack-netlib/SRC/zlatrs3.c
@@ -424,7 +424,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlatrz.c b/lapack-netlib/SRC/zlatrz.c
index 06054741bf..ea81cead7b 100644
--- a/lapack-netlib/SRC/zlatrz.c
+++ b/lapack-netlib/SRC/zlatrz.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlatsqr.c b/lapack-netlib/SRC/zlatsqr.c
index d62a0378db..6ae03f8b60 100644
--- a/lapack-netlib/SRC/zlatsqr.c
+++ b/lapack-netlib/SRC/zlatsqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp.c b/lapack-netlib/SRC/zlaunhr_col_getrfnp.c
index df4a155d81..76539bf1d4 100644
--- a/lapack-netlib/SRC/zlaunhr_col_getrfnp.c
+++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c
index 612fe767a9..0a8cd5819a 100644
--- a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c
+++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlauu2.c b/lapack-netlib/SRC/zlauu2.c
index bdfab02d01..d5854548bd 100644
--- a/lapack-netlib/SRC/zlauu2.c
+++ b/lapack-netlib/SRC/zlauu2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zlauum.c b/lapack-netlib/SRC/zlauum.c
index 50a3c3d726..ed7b19de69 100644
--- a/lapack-netlib/SRC/zlauum.c
+++ b/lapack-netlib/SRC/zlauum.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbcon.c b/lapack-netlib/SRC/zpbcon.c
index 492510dcb0..fa173d103b 100644
--- a/lapack-netlib/SRC/zpbcon.c
+++ b/lapack-netlib/SRC/zpbcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbequ.c b/lapack-netlib/SRC/zpbequ.c
index 43705ff36d..6b7dd75253 100644
--- a/lapack-netlib/SRC/zpbequ.c
+++ b/lapack-netlib/SRC/zpbequ.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbrfs.c b/lapack-netlib/SRC/zpbrfs.c
index bddfc15baa..c9c9a1c35e 100644
--- a/lapack-netlib/SRC/zpbrfs.c
+++ b/lapack-netlib/SRC/zpbrfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbstf.c b/lapack-netlib/SRC/zpbstf.c
index 9e7ce65dea..c7d4f15745 100644
--- a/lapack-netlib/SRC/zpbstf.c
+++ b/lapack-netlib/SRC/zpbstf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbsv.c b/lapack-netlib/SRC/zpbsv.c
index e06eaf94ed..a4a7ff67cc 100644
--- a/lapack-netlib/SRC/zpbsv.c
+++ b/lapack-netlib/SRC/zpbsv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbsvx.c b/lapack-netlib/SRC/zpbsvx.c
index b8333ca3ad..9716357b04 100644
--- a/lapack-netlib/SRC/zpbsvx.c
+++ b/lapack-netlib/SRC/zpbsvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbtf2.c b/lapack-netlib/SRC/zpbtf2.c
index 295fc2630a..62591c3812 100644
--- a/lapack-netlib/SRC/zpbtf2.c
+++ b/lapack-netlib/SRC/zpbtf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbtrf.c b/lapack-netlib/SRC/zpbtrf.c
index 64a6eb4062..616cfc67ec 100644
--- a/lapack-netlib/SRC/zpbtrf.c
+++ b/lapack-netlib/SRC/zpbtrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpbtrs.c b/lapack-netlib/SRC/zpbtrs.c
index f13b1baa65..3dcbc8e641 100644
--- a/lapack-netlib/SRC/zpbtrs.c
+++ b/lapack-netlib/SRC/zpbtrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpftrf.c b/lapack-netlib/SRC/zpftrf.c
index 8c21654a56..5540e47b2f 100644
--- a/lapack-netlib/SRC/zpftrf.c
+++ b/lapack-netlib/SRC/zpftrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpftri.c b/lapack-netlib/SRC/zpftri.c
index 024a4126a8..2c0d3ac86c 100644
--- a/lapack-netlib/SRC/zpftri.c
+++ b/lapack-netlib/SRC/zpftri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpftrs.c b/lapack-netlib/SRC/zpftrs.c
index 43975b3da7..6992619478 100644
--- a/lapack-netlib/SRC/zpftrs.c
+++ b/lapack-netlib/SRC/zpftrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpocon.c b/lapack-netlib/SRC/zpocon.c
index a487e43607..c5af537aba 100644
--- a/lapack-netlib/SRC/zpocon.c
+++ b/lapack-netlib/SRC/zpocon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpoequ.c b/lapack-netlib/SRC/zpoequ.c
index b673b1966b..9a31ad6cf7 100644
--- a/lapack-netlib/SRC/zpoequ.c
+++ b/lapack-netlib/SRC/zpoequ.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpoequb.c b/lapack-netlib/SRC/zpoequb.c
index a02b059261..528f63d982 100644
--- a/lapack-netlib/SRC/zpoequb.c
+++ b/lapack-netlib/SRC/zpoequb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zporfs.c b/lapack-netlib/SRC/zporfs.c
index bc7ca9e2f4..fdd7e29457 100644
--- a/lapack-netlib/SRC/zporfs.c
+++ b/lapack-netlib/SRC/zporfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zposv.c b/lapack-netlib/SRC/zposv.c
index e280d85f7c..4e461c1684 100644
--- a/lapack-netlib/SRC/zposv.c
+++ b/lapack-netlib/SRC/zposv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zposvx.c b/lapack-netlib/SRC/zposvx.c
index c256fe410e..a9ee31d214 100644
--- a/lapack-netlib/SRC/zposvx.c
+++ b/lapack-netlib/SRC/zposvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zposvxx.c b/lapack-netlib/SRC/zposvxx.c
index de3c4eb65c..1d4725c536 100644
--- a/lapack-netlib/SRC/zposvxx.c
+++ b/lapack-netlib/SRC/zposvxx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpotf2.c b/lapack-netlib/SRC/zpotf2.c
index 863c8afd63..ffb26ba972 100644
--- a/lapack-netlib/SRC/zpotf2.c
+++ b/lapack-netlib/SRC/zpotf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpotrf.c b/lapack-netlib/SRC/zpotrf.c
index 1a1b8a80a4..46ed1b672b 100644
--- a/lapack-netlib/SRC/zpotrf.c
+++ b/lapack-netlib/SRC/zpotrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpotrf2.c b/lapack-netlib/SRC/zpotrf2.c
index 53782ca245..13842d94dc 100644
--- a/lapack-netlib/SRC/zpotrf2.c
+++ b/lapack-netlib/SRC/zpotrf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpotri.c b/lapack-netlib/SRC/zpotri.c
index b1106cb1ef..31ba608792 100644
--- a/lapack-netlib/SRC/zpotri.c
+++ b/lapack-netlib/SRC/zpotri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpotrs.c b/lapack-netlib/SRC/zpotrs.c
index 009b132421..ee8b8e69e3 100644
--- a/lapack-netlib/SRC/zpotrs.c
+++ b/lapack-netlib/SRC/zpotrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zppcon.c b/lapack-netlib/SRC/zppcon.c
index 795545acac..223bc751f7 100644
--- a/lapack-netlib/SRC/zppcon.c
+++ b/lapack-netlib/SRC/zppcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zppequ.c b/lapack-netlib/SRC/zppequ.c
index 8da3f14db9..d6b0c261de 100644
--- a/lapack-netlib/SRC/zppequ.c
+++ b/lapack-netlib/SRC/zppequ.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpprfs.c b/lapack-netlib/SRC/zpprfs.c
index 9df06e333d..611701391c 100644
--- a/lapack-netlib/SRC/zpprfs.c
+++ b/lapack-netlib/SRC/zpprfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zppsv.c b/lapack-netlib/SRC/zppsv.c
index 90ce97f9b4..2e48190479 100644
--- a/lapack-netlib/SRC/zppsv.c
+++ b/lapack-netlib/SRC/zppsv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zppsvx.c b/lapack-netlib/SRC/zppsvx.c
index c8973bbe35..14fe3e418a 100644
--- a/lapack-netlib/SRC/zppsvx.c
+++ b/lapack-netlib/SRC/zppsvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpptrf.c b/lapack-netlib/SRC/zpptrf.c
index 6951bbb884..ecbe960be5 100644
--- a/lapack-netlib/SRC/zpptrf.c
+++ b/lapack-netlib/SRC/zpptrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpptri.c b/lapack-netlib/SRC/zpptri.c
index d08184ab3e..02e30eabb6 100644
--- a/lapack-netlib/SRC/zpptri.c
+++ b/lapack-netlib/SRC/zpptri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpptrs.c b/lapack-netlib/SRC/zpptrs.c
index c18db6e836..9230e7763a 100644
--- a/lapack-netlib/SRC/zpptrs.c
+++ b/lapack-netlib/SRC/zpptrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpstf2.c b/lapack-netlib/SRC/zpstf2.c
index 6b04fc4aed..a7ae15302c 100644
--- a/lapack-netlib/SRC/zpstf2.c
+++ b/lapack-netlib/SRC/zpstf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpstrf.c b/lapack-netlib/SRC/zpstrf.c
index e61415817d..ca8e4e7ed4 100644
--- a/lapack-netlib/SRC/zpstrf.c
+++ b/lapack-netlib/SRC/zpstrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zptcon.c b/lapack-netlib/SRC/zptcon.c
index 5a12bed832..fccd46d16a 100644
--- a/lapack-netlib/SRC/zptcon.c
+++ b/lapack-netlib/SRC/zptcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpteqr.c b/lapack-netlib/SRC/zpteqr.c
index d8bac9039f..691a5034db 100644
--- a/lapack-netlib/SRC/zpteqr.c
+++ b/lapack-netlib/SRC/zpteqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zptrfs.c b/lapack-netlib/SRC/zptrfs.c
index 58d674aaba..4a2cff21c5 100644
--- a/lapack-netlib/SRC/zptrfs.c
+++ b/lapack-netlib/SRC/zptrfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zptsv.c b/lapack-netlib/SRC/zptsv.c
index 6f93243fc7..6545fda7fc 100644
--- a/lapack-netlib/SRC/zptsv.c
+++ b/lapack-netlib/SRC/zptsv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zptsvx.c b/lapack-netlib/SRC/zptsvx.c
index 707f56851a..3a142e9fb9 100644
--- a/lapack-netlib/SRC/zptsvx.c
+++ b/lapack-netlib/SRC/zptsvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpttrf.c b/lapack-netlib/SRC/zpttrf.c
index a35fc9bb20..0888399bf4 100644
--- a/lapack-netlib/SRC/zpttrf.c
+++ b/lapack-netlib/SRC/zpttrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zpttrs.c b/lapack-netlib/SRC/zpttrs.c
index 38201a605a..415d683f4a 100644
--- a/lapack-netlib/SRC/zpttrs.c
+++ b/lapack-netlib/SRC/zpttrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zptts2.c b/lapack-netlib/SRC/zptts2.c
index 338d9905df..a355db5280 100644
--- a/lapack-netlib/SRC/zptts2.c
+++ b/lapack-netlib/SRC/zptts2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zrot.c b/lapack-netlib/SRC/zrot.c
index 1f7dc7dd6b..cfced35a91 100644
--- a/lapack-netlib/SRC/zrot.c
+++ b/lapack-netlib/SRC/zrot.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zrscl.c b/lapack-netlib/SRC/zrscl.c
index 7c5459210c..aaff7bb741 100644
--- a/lapack-netlib/SRC/zrscl.c
+++ b/lapack-netlib/SRC/zrscl.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zspcon.c b/lapack-netlib/SRC/zspcon.c
index 1606170fab..a8362bbdb4 100644
--- a/lapack-netlib/SRC/zspcon.c
+++ b/lapack-netlib/SRC/zspcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zspmv.c b/lapack-netlib/SRC/zspmv.c
index a2ecbfc4ec..615205fea1 100644
--- a/lapack-netlib/SRC/zspmv.c
+++ b/lapack-netlib/SRC/zspmv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zspr.c b/lapack-netlib/SRC/zspr.c
index ad4d2efda6..e5a260c453 100644
--- a/lapack-netlib/SRC/zspr.c
+++ b/lapack-netlib/SRC/zspr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsprfs.c b/lapack-netlib/SRC/zsprfs.c
index 6a3cd1dc50..11b3dfb999 100644
--- a/lapack-netlib/SRC/zsprfs.c
+++ b/lapack-netlib/SRC/zsprfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zspsv.c b/lapack-netlib/SRC/zspsv.c
index 106ea53580..ae35b02b8d 100644
--- a/lapack-netlib/SRC/zspsv.c
+++ b/lapack-netlib/SRC/zspsv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zspsvx.c b/lapack-netlib/SRC/zspsvx.c
index 674f4a01ec..51a9a2cc71 100644
--- a/lapack-netlib/SRC/zspsvx.c
+++ b/lapack-netlib/SRC/zspsvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsptrf.c b/lapack-netlib/SRC/zsptrf.c
index 278a905635..0adb5ed7df 100644
--- a/lapack-netlib/SRC/zsptrf.c
+++ b/lapack-netlib/SRC/zsptrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsptri.c b/lapack-netlib/SRC/zsptri.c
index 3fc57242aa..80d44482ad 100644
--- a/lapack-netlib/SRC/zsptri.c
+++ b/lapack-netlib/SRC/zsptri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsptrs.c b/lapack-netlib/SRC/zsptrs.c
index d3a5487fe5..920a43af25 100644
--- a/lapack-netlib/SRC/zsptrs.c
+++ b/lapack-netlib/SRC/zsptrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zstedc.c b/lapack-netlib/SRC/zstedc.c
index 855daf4e6e..f0661828f4 100644
--- a/lapack-netlib/SRC/zstedc.c
+++ b/lapack-netlib/SRC/zstedc.c
@@ -420,7 +420,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zstegr.c b/lapack-netlib/SRC/zstegr.c
index 5ae37b9e6c..bec10027da 100644
--- a/lapack-netlib/SRC/zstegr.c
+++ b/lapack-netlib/SRC/zstegr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zstein.c b/lapack-netlib/SRC/zstein.c
index ffc955d03c..50a4a7ecda 100644
--- a/lapack-netlib/SRC/zstein.c
+++ b/lapack-netlib/SRC/zstein.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zstemr.c b/lapack-netlib/SRC/zstemr.c
index 98817ee8c2..f7c9bb6222 100644
--- a/lapack-netlib/SRC/zstemr.c
+++ b/lapack-netlib/SRC/zstemr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsteqr.c b/lapack-netlib/SRC/zsteqr.c
index 643ae3fdae..56c5295e1e 100644
--- a/lapack-netlib/SRC/zsteqr.c
+++ b/lapack-netlib/SRC/zsteqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsycon.c b/lapack-netlib/SRC/zsycon.c
index c2cef24e7e..38950f5c7a 100644
--- a/lapack-netlib/SRC/zsycon.c
+++ b/lapack-netlib/SRC/zsycon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsycon_3.c b/lapack-netlib/SRC/zsycon_3.c
index a65ee7a0dc..ae9f45b8ee 100644
--- a/lapack-netlib/SRC/zsycon_3.c
+++ b/lapack-netlib/SRC/zsycon_3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsycon_rook.c b/lapack-netlib/SRC/zsycon_rook.c
index 1c6d183673..67e1799033 100644
--- a/lapack-netlib/SRC/zsycon_rook.c
+++ b/lapack-netlib/SRC/zsycon_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsyconv.c b/lapack-netlib/SRC/zsyconv.c
index 27368263b8..23c7bc8b53 100644
--- a/lapack-netlib/SRC/zsyconv.c
+++ b/lapack-netlib/SRC/zsyconv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsyconvf.c b/lapack-netlib/SRC/zsyconvf.c
index 4be43ed1c2..36b638bd47 100644
--- a/lapack-netlib/SRC/zsyconvf.c
+++ b/lapack-netlib/SRC/zsyconvf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsyconvf_rook.c b/lapack-netlib/SRC/zsyconvf_rook.c
index ec60a45335..36a4fd8f7e 100644
--- a/lapack-netlib/SRC/zsyconvf_rook.c
+++ b/lapack-netlib/SRC/zsyconvf_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsyequb.c b/lapack-netlib/SRC/zsyequb.c
index 691e5a7688..e089dfc937 100644
--- a/lapack-netlib/SRC/zsyequb.c
+++ b/lapack-netlib/SRC/zsyequb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsymv.c b/lapack-netlib/SRC/zsymv.c
index a61939efd7..04db719ce9 100644
--- a/lapack-netlib/SRC/zsymv.c
+++ b/lapack-netlib/SRC/zsymv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsyr.c b/lapack-netlib/SRC/zsyr.c
index 6070742beb..22b625da38 100644
--- a/lapack-netlib/SRC/zsyr.c
+++ b/lapack-netlib/SRC/zsyr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsyrfs.c b/lapack-netlib/SRC/zsyrfs.c
index 6eae2cb525..8154810624 100644
--- a/lapack-netlib/SRC/zsyrfs.c
+++ b/lapack-netlib/SRC/zsyrfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsysv.c b/lapack-netlib/SRC/zsysv.c
index 206e8cc4c4..acc95d8a03 100644
--- a/lapack-netlib/SRC/zsysv.c
+++ b/lapack-netlib/SRC/zsysv.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsysv_aa.c b/lapack-netlib/SRC/zsysv_aa.c
index 8fa822c03d..b920cdd582 100644
--- a/lapack-netlib/SRC/zsysv_aa.c
+++ b/lapack-netlib/SRC/zsysv_aa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsysv_aa_2stage.c b/lapack-netlib/SRC/zsysv_aa_2stage.c
index bf378c2172..7090ffa00d 100644
--- a/lapack-netlib/SRC/zsysv_aa_2stage.c
+++ b/lapack-netlib/SRC/zsysv_aa_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsysv_rk.c b/lapack-netlib/SRC/zsysv_rk.c
index 73bb4ea151..ce74ea3cfd 100644
--- a/lapack-netlib/SRC/zsysv_rk.c
+++ b/lapack-netlib/SRC/zsysv_rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsysv_rook.c b/lapack-netlib/SRC/zsysv_rook.c
index 93fafc8190..26f4a48e1c 100644
--- a/lapack-netlib/SRC/zsysv_rook.c
+++ b/lapack-netlib/SRC/zsysv_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsysvx.c b/lapack-netlib/SRC/zsysvx.c
index 931e2dc05e..d61f8fe2b8 100644
--- a/lapack-netlib/SRC/zsysvx.c
+++ b/lapack-netlib/SRC/zsysvx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsysvxx.c b/lapack-netlib/SRC/zsysvxx.c
index b55df68629..93f61b4412 100644
--- a/lapack-netlib/SRC/zsysvxx.c
+++ b/lapack-netlib/SRC/zsysvxx.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsyswapr.c b/lapack-netlib/SRC/zsyswapr.c
index 9c3ffe293d..3293de66e6 100644
--- a/lapack-netlib/SRC/zsyswapr.c
+++ b/lapack-netlib/SRC/zsyswapr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytf2.c b/lapack-netlib/SRC/zsytf2.c
index 4582daf15d..35079211e4 100644
--- a/lapack-netlib/SRC/zsytf2.c
+++ b/lapack-netlib/SRC/zsytf2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytf2_rk.c b/lapack-netlib/SRC/zsytf2_rk.c
index ee4ff55ffc..935ff21d4d 100644
--- a/lapack-netlib/SRC/zsytf2_rk.c
+++ b/lapack-netlib/SRC/zsytf2_rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytf2_rook.c b/lapack-netlib/SRC/zsytf2_rook.c
index 85fa8a8cf3..0075dd697c 100644
--- a/lapack-netlib/SRC/zsytf2_rook.c
+++ b/lapack-netlib/SRC/zsytf2_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrf.c b/lapack-netlib/SRC/zsytrf.c
index d249cccd30..b314e75ebb 100644
--- a/lapack-netlib/SRC/zsytrf.c
+++ b/lapack-netlib/SRC/zsytrf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrf_aa.c b/lapack-netlib/SRC/zsytrf_aa.c
index f19afd955f..447a836ec3 100644
--- a/lapack-netlib/SRC/zsytrf_aa.c
+++ b/lapack-netlib/SRC/zsytrf_aa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrf_aa_2stage.c b/lapack-netlib/SRC/zsytrf_aa_2stage.c
index da830024cf..3ee939c28e 100644
--- a/lapack-netlib/SRC/zsytrf_aa_2stage.c
+++ b/lapack-netlib/SRC/zsytrf_aa_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrf_rk.c b/lapack-netlib/SRC/zsytrf_rk.c
index 677995756b..586b647477 100644
--- a/lapack-netlib/SRC/zsytrf_rk.c
+++ b/lapack-netlib/SRC/zsytrf_rk.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrf_rook.c b/lapack-netlib/SRC/zsytrf_rook.c
index d5e122a179..412389c875 100644
--- a/lapack-netlib/SRC/zsytrf_rook.c
+++ b/lapack-netlib/SRC/zsytrf_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytri.c b/lapack-netlib/SRC/zsytri.c
index a45c06a40c..501f84a7cf 100644
--- a/lapack-netlib/SRC/zsytri.c
+++ b/lapack-netlib/SRC/zsytri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytri2.c b/lapack-netlib/SRC/zsytri2.c
index 62640095b2..e391375d39 100644
--- a/lapack-netlib/SRC/zsytri2.c
+++ b/lapack-netlib/SRC/zsytri2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytri2x.c b/lapack-netlib/SRC/zsytri2x.c
index b0b40ee26b..96160d637a 100644
--- a/lapack-netlib/SRC/zsytri2x.c
+++ b/lapack-netlib/SRC/zsytri2x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytri_3.c b/lapack-netlib/SRC/zsytri_3.c
index f97235d10f..d4a9970beb 100644
--- a/lapack-netlib/SRC/zsytri_3.c
+++ b/lapack-netlib/SRC/zsytri_3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytri_3x.c b/lapack-netlib/SRC/zsytri_3x.c
index 0de99df201..e324885b14 100644
--- a/lapack-netlib/SRC/zsytri_3x.c
+++ b/lapack-netlib/SRC/zsytri_3x.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytri_rook.c b/lapack-netlib/SRC/zsytri_rook.c
index 293de11dd4..2c8e6ead4b 100644
--- a/lapack-netlib/SRC/zsytri_rook.c
+++ b/lapack-netlib/SRC/zsytri_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrs.c b/lapack-netlib/SRC/zsytrs.c
index bcf5613a2a..134e0c7065 100644
--- a/lapack-netlib/SRC/zsytrs.c
+++ b/lapack-netlib/SRC/zsytrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrs2.c b/lapack-netlib/SRC/zsytrs2.c
index a9105dd724..d7ccd4aba3 100644
--- a/lapack-netlib/SRC/zsytrs2.c
+++ b/lapack-netlib/SRC/zsytrs2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrs_3.c b/lapack-netlib/SRC/zsytrs_3.c
index 726e4c146f..aa505026eb 100644
--- a/lapack-netlib/SRC/zsytrs_3.c
+++ b/lapack-netlib/SRC/zsytrs_3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrs_aa.c b/lapack-netlib/SRC/zsytrs_aa.c
index c129d84739..ade89fb595 100644
--- a/lapack-netlib/SRC/zsytrs_aa.c
+++ b/lapack-netlib/SRC/zsytrs_aa.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrs_aa_2stage.c b/lapack-netlib/SRC/zsytrs_aa_2stage.c
index 02bd12581b..7fdd5506a8 100644
--- a/lapack-netlib/SRC/zsytrs_aa_2stage.c
+++ b/lapack-netlib/SRC/zsytrs_aa_2stage.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zsytrs_rook.c b/lapack-netlib/SRC/zsytrs_rook.c
index db08393a47..bc0b49c6fd 100644
--- a/lapack-netlib/SRC/zsytrs_rook.c
+++ b/lapack-netlib/SRC/zsytrs_rook.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztbcon.c b/lapack-netlib/SRC/ztbcon.c
index f0df6b1bd1..9ee5f8efc9 100644
--- a/lapack-netlib/SRC/ztbcon.c
+++ b/lapack-netlib/SRC/ztbcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztbrfs.c b/lapack-netlib/SRC/ztbrfs.c
index e235f3992d..613db68975 100644
--- a/lapack-netlib/SRC/ztbrfs.c
+++ b/lapack-netlib/SRC/ztbrfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztbtrs.c b/lapack-netlib/SRC/ztbtrs.c
index 6d48909e74..241784dacf 100644
--- a/lapack-netlib/SRC/ztbtrs.c
+++ b/lapack-netlib/SRC/ztbtrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztfsm.c b/lapack-netlib/SRC/ztfsm.c
index fb179b0378..3e1a99a799 100644
--- a/lapack-netlib/SRC/ztfsm.c
+++ b/lapack-netlib/SRC/ztfsm.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztftri.c b/lapack-netlib/SRC/ztftri.c
index 1de1cf59bf..1b7566048c 100644
--- a/lapack-netlib/SRC/ztftri.c
+++ b/lapack-netlib/SRC/ztftri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztfttp.c b/lapack-netlib/SRC/ztfttp.c
index 0932796ea5..1f6168bcbe 100644
--- a/lapack-netlib/SRC/ztfttp.c
+++ b/lapack-netlib/SRC/ztfttp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztfttr.c b/lapack-netlib/SRC/ztfttr.c
index cedff8c027..9c6f765204 100644
--- a/lapack-netlib/SRC/ztfttr.c
+++ b/lapack-netlib/SRC/ztfttr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztgevc.c b/lapack-netlib/SRC/ztgevc.c
index ceb5aee779..418485767a 100644
--- a/lapack-netlib/SRC/ztgevc.c
+++ b/lapack-netlib/SRC/ztgevc.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztgex2.c b/lapack-netlib/SRC/ztgex2.c
index 421a98bfc3..323d89ae92 100644
--- a/lapack-netlib/SRC/ztgex2.c
+++ b/lapack-netlib/SRC/ztgex2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztgexc.c b/lapack-netlib/SRC/ztgexc.c
index acf5e4babb..9cdfdd766d 100644
--- a/lapack-netlib/SRC/ztgexc.c
+++ b/lapack-netlib/SRC/ztgexc.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztgsen.c b/lapack-netlib/SRC/ztgsen.c
index 9a055dacfe..2162acc027 100644
--- a/lapack-netlib/SRC/ztgsen.c
+++ b/lapack-netlib/SRC/ztgsen.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztgsja.c b/lapack-netlib/SRC/ztgsja.c
index c2ae4b0bc5..eb029d34f5 100644
--- a/lapack-netlib/SRC/ztgsja.c
+++ b/lapack-netlib/SRC/ztgsja.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztgsna.c b/lapack-netlib/SRC/ztgsna.c
index b0e81e8e8d..c4cb80cd56 100644
--- a/lapack-netlib/SRC/ztgsna.c
+++ b/lapack-netlib/SRC/ztgsna.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztgsy2.c b/lapack-netlib/SRC/ztgsy2.c
index 2b1bb59be6..7222d0fca2 100644
--- a/lapack-netlib/SRC/ztgsy2.c
+++ b/lapack-netlib/SRC/ztgsy2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztgsyl.c b/lapack-netlib/SRC/ztgsyl.c
index 38d279b38d..61244ceadc 100644
--- a/lapack-netlib/SRC/ztgsyl.c
+++ b/lapack-netlib/SRC/ztgsyl.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztpcon.c b/lapack-netlib/SRC/ztpcon.c
index 0dfc1e9595..38a28f7cd6 100644
--- a/lapack-netlib/SRC/ztpcon.c
+++ b/lapack-netlib/SRC/ztpcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztplqt.c b/lapack-netlib/SRC/ztplqt.c
index 01f26d895b..362d80e557 100644
--- a/lapack-netlib/SRC/ztplqt.c
+++ b/lapack-netlib/SRC/ztplqt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztplqt2.c b/lapack-netlib/SRC/ztplqt2.c
index 55e01ac7f9..9a58089767 100644
--- a/lapack-netlib/SRC/ztplqt2.c
+++ b/lapack-netlib/SRC/ztplqt2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztpmlqt.c b/lapack-netlib/SRC/ztpmlqt.c
index 824ccc4853..a237c3264d 100644
--- a/lapack-netlib/SRC/ztpmlqt.c
+++ b/lapack-netlib/SRC/ztpmlqt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztpmqrt.c b/lapack-netlib/SRC/ztpmqrt.c
index ea2642acf3..91cea80e64 100644
--- a/lapack-netlib/SRC/ztpmqrt.c
+++ b/lapack-netlib/SRC/ztpmqrt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztpqrt.c b/lapack-netlib/SRC/ztpqrt.c
index 31c7539792..05c244da57 100644
--- a/lapack-netlib/SRC/ztpqrt.c
+++ b/lapack-netlib/SRC/ztpqrt.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztpqrt2.c b/lapack-netlib/SRC/ztpqrt2.c
index 84f2cdc27a..a9792ab637 100644
--- a/lapack-netlib/SRC/ztpqrt2.c
+++ b/lapack-netlib/SRC/ztpqrt2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztprfb.c b/lapack-netlib/SRC/ztprfb.c
index 28cc593928..599d6a8f63 100644
--- a/lapack-netlib/SRC/ztprfb.c
+++ b/lapack-netlib/SRC/ztprfb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztprfs.c b/lapack-netlib/SRC/ztprfs.c
index b7381f99c6..71f66b5165 100644
--- a/lapack-netlib/SRC/ztprfs.c
+++ b/lapack-netlib/SRC/ztprfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztptri.c b/lapack-netlib/SRC/ztptri.c
index e570d5381f..08672e71cf 100644
--- a/lapack-netlib/SRC/ztptri.c
+++ b/lapack-netlib/SRC/ztptri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztptrs.c b/lapack-netlib/SRC/ztptrs.c
index 249dc44e47..5f98f71913 100644
--- a/lapack-netlib/SRC/ztptrs.c
+++ b/lapack-netlib/SRC/ztptrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztpttf.c b/lapack-netlib/SRC/ztpttf.c
index 77ddf93b3a..e5497353ce 100644
--- a/lapack-netlib/SRC/ztpttf.c
+++ b/lapack-netlib/SRC/ztpttf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztpttr.c b/lapack-netlib/SRC/ztpttr.c
index c2a5c80127..7489d7a09b 100644
--- a/lapack-netlib/SRC/ztpttr.c
+++ b/lapack-netlib/SRC/ztpttr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrcon.c b/lapack-netlib/SRC/ztrcon.c
index dfb25dfea6..2733118eaf 100644
--- a/lapack-netlib/SRC/ztrcon.c
+++ b/lapack-netlib/SRC/ztrcon.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrevc.c b/lapack-netlib/SRC/ztrevc.c
index ef1d11cb2c..0a9c8d907f 100644
--- a/lapack-netlib/SRC/ztrevc.c
+++ b/lapack-netlib/SRC/ztrevc.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrevc3.c b/lapack-netlib/SRC/ztrevc3.c
index 5a9a5f8e88..1172d6d738 100644
--- a/lapack-netlib/SRC/ztrevc3.c
+++ b/lapack-netlib/SRC/ztrevc3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrexc.c b/lapack-netlib/SRC/ztrexc.c
index b77c62617c..6ba2e391d7 100644
--- a/lapack-netlib/SRC/ztrexc.c
+++ b/lapack-netlib/SRC/ztrexc.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrrfs.c b/lapack-netlib/SRC/ztrrfs.c
index b295787031..f95df0426b 100644
--- a/lapack-netlib/SRC/ztrrfs.c
+++ b/lapack-netlib/SRC/ztrrfs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrsen.c b/lapack-netlib/SRC/ztrsen.c
index 61640f968a..3259e306cb 100644
--- a/lapack-netlib/SRC/ztrsen.c
+++ b/lapack-netlib/SRC/ztrsen.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrsna.c b/lapack-netlib/SRC/ztrsna.c
index 81cf6777c4..798cf6ab6e 100644
--- a/lapack-netlib/SRC/ztrsna.c
+++ b/lapack-netlib/SRC/ztrsna.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrsyl.c b/lapack-netlib/SRC/ztrsyl.c
index b09d073f15..7ac882983a 100644
--- a/lapack-netlib/SRC/ztrsyl.c
+++ b/lapack-netlib/SRC/ztrsyl.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrsyl3.c b/lapack-netlib/SRC/ztrsyl3.c
index 7850978bfd..2a8769f192 100644
--- a/lapack-netlib/SRC/ztrsyl3.c
+++ b/lapack-netlib/SRC/ztrsyl3.c
@@ -425,7 +425,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrti2.c b/lapack-netlib/SRC/ztrti2.c
index 3c1d0fa3dc..91da8391e4 100644
--- a/lapack-netlib/SRC/ztrti2.c
+++ b/lapack-netlib/SRC/ztrti2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrtri.c b/lapack-netlib/SRC/ztrtri.c
index 3856e08602..98119242cd 100644
--- a/lapack-netlib/SRC/ztrtri.c
+++ b/lapack-netlib/SRC/ztrtri.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrtrs.c b/lapack-netlib/SRC/ztrtrs.c
index f5981b3470..308ec63d81 100644
--- a/lapack-netlib/SRC/ztrtrs.c
+++ b/lapack-netlib/SRC/ztrtrs.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrttf.c b/lapack-netlib/SRC/ztrttf.c
index ab9584e173..c9d6f36528 100644
--- a/lapack-netlib/SRC/ztrttf.c
+++ b/lapack-netlib/SRC/ztrttf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztrttp.c b/lapack-netlib/SRC/ztrttp.c
index 873ca0aaef..8e8eec338b 100644
--- a/lapack-netlib/SRC/ztrttp.c
+++ b/lapack-netlib/SRC/ztrttp.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/ztzrzf.c b/lapack-netlib/SRC/ztzrzf.c
index f1c47af041..7e656ff6db 100644
--- a/lapack-netlib/SRC/ztzrzf.c
+++ b/lapack-netlib/SRC/ztzrzf.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunbdb.c b/lapack-netlib/SRC/zunbdb.c
index ab7e5781fa..f5bad0ae99 100644
--- a/lapack-netlib/SRC/zunbdb.c
+++ b/lapack-netlib/SRC/zunbdb.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunbdb1.c b/lapack-netlib/SRC/zunbdb1.c
index c706f69dfe..2808045b99 100644
--- a/lapack-netlib/SRC/zunbdb1.c
+++ b/lapack-netlib/SRC/zunbdb1.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunbdb2.c b/lapack-netlib/SRC/zunbdb2.c
index 37763c53d6..ffabd78790 100644
--- a/lapack-netlib/SRC/zunbdb2.c
+++ b/lapack-netlib/SRC/zunbdb2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunbdb3.c b/lapack-netlib/SRC/zunbdb3.c
index 76c2b0538c..03672dc3d0 100644
--- a/lapack-netlib/SRC/zunbdb3.c
+++ b/lapack-netlib/SRC/zunbdb3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunbdb4.c b/lapack-netlib/SRC/zunbdb4.c
index 3f033fc14d..8e5b0560f2 100644
--- a/lapack-netlib/SRC/zunbdb4.c
+++ b/lapack-netlib/SRC/zunbdb4.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunbdb5.c b/lapack-netlib/SRC/zunbdb5.c
index e0192ed89e..d61ba93c70 100644
--- a/lapack-netlib/SRC/zunbdb5.c
+++ b/lapack-netlib/SRC/zunbdb5.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunbdb6.c b/lapack-netlib/SRC/zunbdb6.c
index b8f0b3092d..bab884b06b 100644
--- a/lapack-netlib/SRC/zunbdb6.c
+++ b/lapack-netlib/SRC/zunbdb6.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zuncsd.c b/lapack-netlib/SRC/zuncsd.c
index e45afbf235..d53946df6a 100644
--- a/lapack-netlib/SRC/zuncsd.c
+++ b/lapack-netlib/SRC/zuncsd.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zuncsd2by1.c b/lapack-netlib/SRC/zuncsd2by1.c
index c443a294f2..c21a455b10 100644
--- a/lapack-netlib/SRC/zuncsd2by1.c
+++ b/lapack-netlib/SRC/zuncsd2by1.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zung2l.c b/lapack-netlib/SRC/zung2l.c
index c9c432987c..ad761d7e1a 100644
--- a/lapack-netlib/SRC/zung2l.c
+++ b/lapack-netlib/SRC/zung2l.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zung2r.c b/lapack-netlib/SRC/zung2r.c
index 2283940a65..6d4f80381c 100644
--- a/lapack-netlib/SRC/zung2r.c
+++ b/lapack-netlib/SRC/zung2r.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungbr.c b/lapack-netlib/SRC/zungbr.c
index 46978e7bb4..8b01a94409 100644
--- a/lapack-netlib/SRC/zungbr.c
+++ b/lapack-netlib/SRC/zungbr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunghr.c b/lapack-netlib/SRC/zunghr.c
index 6323f3540a..273664aec0 100644
--- a/lapack-netlib/SRC/zunghr.c
+++ b/lapack-netlib/SRC/zunghr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungl2.c b/lapack-netlib/SRC/zungl2.c
index 4ba7e2642c..34278a637d 100644
--- a/lapack-netlib/SRC/zungl2.c
+++ b/lapack-netlib/SRC/zungl2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunglq.c b/lapack-netlib/SRC/zunglq.c
index 33675dcef4..0ad221011a 100644
--- a/lapack-netlib/SRC/zunglq.c
+++ b/lapack-netlib/SRC/zunglq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungql.c b/lapack-netlib/SRC/zungql.c
index f040f29e1a..8cdcee734c 100644
--- a/lapack-netlib/SRC/zungql.c
+++ b/lapack-netlib/SRC/zungql.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungqr.c b/lapack-netlib/SRC/zungqr.c
index 164cd63ac0..88480657c2 100644
--- a/lapack-netlib/SRC/zungqr.c
+++ b/lapack-netlib/SRC/zungqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungr2.c b/lapack-netlib/SRC/zungr2.c
index 0496b8fb80..6c32ac9c49 100644
--- a/lapack-netlib/SRC/zungr2.c
+++ b/lapack-netlib/SRC/zungr2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungrq.c b/lapack-netlib/SRC/zungrq.c
index c3f7762472..edd726e9ce 100644
--- a/lapack-netlib/SRC/zungrq.c
+++ b/lapack-netlib/SRC/zungrq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungtr.c b/lapack-netlib/SRC/zungtr.c
index 16c1601a33..90ac915521 100644
--- a/lapack-netlib/SRC/zungtr.c
+++ b/lapack-netlib/SRC/zungtr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungtsqr.c b/lapack-netlib/SRC/zungtsqr.c
index c79b9f65df..d774a0ba81 100644
--- a/lapack-netlib/SRC/zungtsqr.c
+++ b/lapack-netlib/SRC/zungtsqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zungtsqr_row.c b/lapack-netlib/SRC/zungtsqr_row.c
index 60cbd4e5b9..4f7a8cf921 100644
--- a/lapack-netlib/SRC/zungtsqr_row.c
+++ b/lapack-netlib/SRC/zungtsqr_row.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunhr_col.c b/lapack-netlib/SRC/zunhr_col.c
index 608c10d675..9bdd81b8ae 100644
--- a/lapack-netlib/SRC/zunhr_col.c
+++ b/lapack-netlib/SRC/zunhr_col.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunm22.c b/lapack-netlib/SRC/zunm22.c
index b01ff40ec6..9291ad6e0b 100644
--- a/lapack-netlib/SRC/zunm22.c
+++ b/lapack-netlib/SRC/zunm22.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunm2l.c b/lapack-netlib/SRC/zunm2l.c
index ef12caedc3..08900cf78f 100644
--- a/lapack-netlib/SRC/zunm2l.c
+++ b/lapack-netlib/SRC/zunm2l.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunm2r.c b/lapack-netlib/SRC/zunm2r.c
index a9c20d6305..8efd0f97ec 100644
--- a/lapack-netlib/SRC/zunm2r.c
+++ b/lapack-netlib/SRC/zunm2r.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmbr.c b/lapack-netlib/SRC/zunmbr.c
index 16f1cef683..820211a2c4 100644
--- a/lapack-netlib/SRC/zunmbr.c
+++ b/lapack-netlib/SRC/zunmbr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmhr.c b/lapack-netlib/SRC/zunmhr.c
index 24f0162abd..1b69f9bedd 100644
--- a/lapack-netlib/SRC/zunmhr.c
+++ b/lapack-netlib/SRC/zunmhr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunml2.c b/lapack-netlib/SRC/zunml2.c
index b2c8517117..eee511a099 100644
--- a/lapack-netlib/SRC/zunml2.c
+++ b/lapack-netlib/SRC/zunml2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmlq.c b/lapack-netlib/SRC/zunmlq.c
index 7a859afc2b..3350cbf1e8 100644
--- a/lapack-netlib/SRC/zunmlq.c
+++ b/lapack-netlib/SRC/zunmlq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmql.c b/lapack-netlib/SRC/zunmql.c
index 40cd075086..bec3cab014 100644
--- a/lapack-netlib/SRC/zunmql.c
+++ b/lapack-netlib/SRC/zunmql.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmqr.c b/lapack-netlib/SRC/zunmqr.c
index c5db5b0ff1..3d324c68a7 100644
--- a/lapack-netlib/SRC/zunmqr.c
+++ b/lapack-netlib/SRC/zunmqr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmr2.c b/lapack-netlib/SRC/zunmr2.c
index 398459225e..1744572fea 100644
--- a/lapack-netlib/SRC/zunmr2.c
+++ b/lapack-netlib/SRC/zunmr2.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmr3.c b/lapack-netlib/SRC/zunmr3.c
index fab63ed432..62a06ea29b 100644
--- a/lapack-netlib/SRC/zunmr3.c
+++ b/lapack-netlib/SRC/zunmr3.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmrq.c b/lapack-netlib/SRC/zunmrq.c
index 11b2419085..7b23f07810 100644
--- a/lapack-netlib/SRC/zunmrq.c
+++ b/lapack-netlib/SRC/zunmrq.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmrz.c b/lapack-netlib/SRC/zunmrz.c
index b4b556def6..c2f63c6a39 100644
--- a/lapack-netlib/SRC/zunmrz.c
+++ b/lapack-netlib/SRC/zunmrz.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zunmtr.c b/lapack-netlib/SRC/zunmtr.c
index a236d84ffd..31fbca863e 100644
--- a/lapack-netlib/SRC/zunmtr.c
+++ b/lapack-netlib/SRC/zunmtr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zupgtr.c b/lapack-netlib/SRC/zupgtr.c
index 51c69b1258..4b3823de2e 100644
--- a/lapack-netlib/SRC/zupgtr.c
+++ b/lapack-netlib/SRC/zupgtr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}
diff --git a/lapack-netlib/SRC/zupmtr.c b/lapack-netlib/SRC/zupmtr.c
index d3a2f5e99d..7efad8c8b4 100644
--- a/lapack-netlib/SRC/zupmtr.c
+++ b/lapack-netlib/SRC/zupmtr.c
@@ -421,7 +421,7 @@ static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integ
 	if (incx == 1 && incy == 1) {
 		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
 			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0]
-				+ Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+				+ Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
 			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1]
 				- Cd(&x[i])._Val[0] * Cd(&y[i])._Val[1];
 		}