From 8df791e513bd55e202604d2b7c056689a7dc285e Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Wed, 14 Dec 2022 14:06:55 +0100 Subject: [PATCH] Fix signatures of external functions in the f2c-generated C sources --- lapack-netlib/SRC/cbbcsd.c | 22 +++++----- lapack-netlib/SRC/cbdsqr.c | 25 +++++------ lapack-netlib/SRC/cgbbrd.c | 19 +++++---- lapack-netlib/SRC/cgbcon.c | 22 +++++----- lapack-netlib/SRC/cgbequ.c | 12 +++--- lapack-netlib/SRC/cgbequb.c | 12 +++--- lapack-netlib/SRC/cgbrfs.c | 17 ++++---- lapack-netlib/SRC/cgbsv.c | 13 +++--- lapack-netlib/SRC/cgbsvx.c | 24 +++++------ lapack-netlib/SRC/cgbsvxx.c | 22 +++++----- lapack-netlib/SRC/cgbtf2.c | 10 ++--- lapack-netlib/SRC/cgbtrf.c | 14 +++---- lapack-netlib/SRC/cgbtrs.c | 14 +++---- lapack-netlib/SRC/cgebak.c | 19 +++++---- lapack-netlib/SRC/cgebal.c | 15 +++---- lapack-netlib/SRC/cgebd2.c | 12 +++--- lapack-netlib/SRC/cgebrd.c | 16 +++---- lapack-netlib/SRC/cgecon.c | 14 +++---- lapack-netlib/SRC/cgeequ.c | 12 +++--- lapack-netlib/SRC/cgeequb.c | 12 +++--- lapack-netlib/SRC/cgees.c | 22 +++++----- lapack-netlib/SRC/cgeesx.c | 24 +++++------ lapack-netlib/SRC/cgeev.c | 25 +++++------ lapack-netlib/SRC/cgeevx.c | 27 ++++++------ lapack-netlib/SRC/cgehd2.c | 12 +++--- lapack-netlib/SRC/cgehrd.c | 16 +++---- lapack-netlib/SRC/cgejsv.c | 53 ++++++++++++------------ lapack-netlib/SRC/cgelq.c | 14 +++---- lapack-netlib/SRC/cgelq2.c | 12 +++--- lapack-netlib/SRC/cgelqf.c | 19 +++++---- lapack-netlib/SRC/cgelqt.c | 15 +++---- lapack-netlib/SRC/cgelqt3.c | 15 +++---- lapack-netlib/SRC/cgels.c | 29 ++++++------- lapack-netlib/SRC/cgelsd.c | 23 +++++----- lapack-netlib/SRC/cgelss.c | 30 +++++++------- lapack-netlib/SRC/cgelst.c | 39 ++++++++--------- lapack-netlib/SRC/cgelsy.c | 32 +++++++------- lapack-netlib/SRC/cgemlq.c | 14 +++---- lapack-netlib/SRC/cgemlqt.c | 13 +++--- lapack-netlib/SRC/cgemqr.c | 14 +++---- lapack-netlib/SRC/cgemqrt.c | 13 +++--- lapack-netlib/SRC/cgeql2.c | 12 +++--- lapack-netlib/SRC/cgeqlf.c | 19 +++++---- lapack-netlib/SRC/cgeqp3.c | 22 +++++----- lapack-netlib/SRC/cgeqr.c | 14 +++---- lapack-netlib/SRC/cgeqr2.c | 12 +++--- lapack-netlib/SRC/cgeqr2p.c | 13 +++--- lapack-netlib/SRC/cgeqrf.c | 19 +++++---- lapack-netlib/SRC/cgeqrfp.c | 19 +++++---- lapack-netlib/SRC/cgeqrt.c | 15 +++---- lapack-netlib/SRC/cgeqrt2.c | 13 +++--- lapack-netlib/SRC/cgeqrt3.c | 15 +++---- lapack-netlib/SRC/cgerfs.c | 17 ++++---- lapack-netlib/SRC/cgerq2.c | 12 +++--- lapack-netlib/SRC/cgerqf.c | 19 +++++---- lapack-netlib/SRC/cgesc2.c | 6 +-- lapack-netlib/SRC/cgesdd.c | 30 +++++++------- lapack-netlib/SRC/cgesv.c | 6 ++- lapack-netlib/SRC/cgesvd.c | 27 ++++++------ lapack-netlib/SRC/cgesvdq.c | 34 ++++++++------- lapack-netlib/SRC/cgesvdx.c | 29 ++++++------- lapack-netlib/SRC/cgesvj.c | 41 +++++++++--------- lapack-netlib/SRC/cgesvx.c | 24 ++++++----- lapack-netlib/SRC/cgesvxx.c | 20 ++++----- lapack-netlib/SRC/cgetc2.c | 10 ++--- lapack-netlib/SRC/cgetf2.c | 12 +++--- lapack-netlib/SRC/cgetrf.c | 14 +++---- lapack-netlib/SRC/cgetrf2.c | 15 +++---- lapack-netlib/SRC/cgetri.c | 16 +++---- lapack-netlib/SRC/cgetrs.c | 15 +++---- lapack-netlib/SRC/cgetsls.c | 33 ++++++++------- lapack-netlib/SRC/cgetsqrhrt.c | 19 +++++---- lapack-netlib/SRC/cggbak.c | 19 +++++---- lapack-netlib/SRC/cggbal.c | 27 ++++++------ lapack-netlib/SRC/cgges.c | 25 +++++------ lapack-netlib/SRC/cgges3.c | 27 ++++++------ lapack-netlib/SRC/cggesx.c | 26 ++++++------ lapack-netlib/SRC/cggev.c | 26 ++++++------ lapack-netlib/SRC/cggev3.c | 28 ++++++------- lapack-netlib/SRC/cggevx.c | 28 ++++++------- lapack-netlib/SRC/cggglm.c | 23 +++++----- lapack-netlib/SRC/cgghd3.c | 24 +++++------ lapack-netlib/SRC/cgghrd.c | 16 +++---- lapack-netlib/SRC/cgglse.c | 23 +++++----- lapack-netlib/SRC/cggqrf.c | 15 +++---- lapack-netlib/SRC/cggrqf.c | 15 +++---- lapack-netlib/SRC/cggsvd3.c | 18 ++++---- lapack-netlib/SRC/cggsvp3.c | 15 +++---- lapack-netlib/SRC/cgsvj0.c | 19 +++++---- lapack-netlib/SRC/cgsvj1.c | 19 +++++---- lapack-netlib/SRC/cgtcon.c | 19 +++++---- lapack-netlib/SRC/cgtrfs.c | 14 +++---- lapack-netlib/SRC/cgtsv.c | 12 +++--- lapack-netlib/SRC/cgtsvx.c | 19 +++++---- lapack-netlib/SRC/cgttrf.c | 8 ++-- lapack-netlib/SRC/cgttrs.c | 10 ++--- lapack-netlib/SRC/cgtts2.c | 6 +-- lapack-netlib/SRC/chb2st_kernels.c | 8 ++-- lapack-netlib/SRC/chbev.c | 16 +++---- lapack-netlib/SRC/chbev_2stage.c | 20 ++++----- lapack-netlib/SRC/chbevd.c | 22 +++++----- lapack-netlib/SRC/chbevd_2stage.c | 24 +++++------ lapack-netlib/SRC/chbevx.c | 28 ++++++------- lapack-netlib/SRC/chbevx_2stage.c | 32 +++++++------- lapack-netlib/SRC/chbgst.c | 29 ++++++------- lapack-netlib/SRC/chbgv.c | 18 ++++---- lapack-netlib/SRC/chbgvd.c | 23 +++++----- lapack-netlib/SRC/chbgvx.c | 30 +++++++------- lapack-netlib/SRC/chbtrd.c | 21 +++++----- lapack-netlib/SRC/checon.c | 21 +++++----- lapack-netlib/SRC/checon_3.c | 21 +++++----- lapack-netlib/SRC/checon_rook.c | 21 +++++----- lapack-netlib/SRC/cheequb.c | 12 +++--- lapack-netlib/SRC/cheev.c | 20 ++++----- lapack-netlib/SRC/cheev_2stage.c | 20 ++++----- lapack-netlib/SRC/cheevd.c | 22 +++++----- lapack-netlib/SRC/cheevd_2stage.c | 24 +++++------ lapack-netlib/SRC/cheevr.c | 28 ++++++------- lapack-netlib/SRC/cheevr_2stage.c | 30 +++++++------- lapack-netlib/SRC/cheevx.c | 26 ++++++------ lapack-netlib/SRC/cheevx_2stage.c | 28 ++++++------- lapack-netlib/SRC/chegs2.c | 18 ++++---- lapack-netlib/SRC/chegst.c | 14 +++---- lapack-netlib/SRC/chegv.c | 23 +++++----- lapack-netlib/SRC/chegv_2stage.c | 24 ++++++----- lapack-netlib/SRC/chegvd.c | 22 +++++----- lapack-netlib/SRC/chegvx.c | 24 ++++++----- lapack-netlib/SRC/cherfs.c | 17 ++++---- lapack-netlib/SRC/chesv.c | 18 ++++---- lapack-netlib/SRC/chesv_aa.c | 15 +++---- lapack-netlib/SRC/chesv_aa_2stage.c | 12 +++--- lapack-netlib/SRC/chesv_rk.c | 15 +++---- lapack-netlib/SRC/chesv_rook.c | 10 ++--- lapack-netlib/SRC/chesvx.c | 17 ++++---- lapack-netlib/SRC/chesvxx.c | 19 +++++---- lapack-netlib/SRC/cheswapr.c | 6 +-- lapack-netlib/SRC/chetd2.c | 17 ++++---- lapack-netlib/SRC/chetf2.c | 15 +++---- lapack-netlib/SRC/chetf2_rk.c | 15 +++---- lapack-netlib/SRC/chetf2_rook.c | 15 +++---- lapack-netlib/SRC/chetrd.c | 18 ++++---- lapack-netlib/SRC/chetrd_2stage.c | 18 ++++---- lapack-netlib/SRC/chetrd_hb2st.c | 23 +++++----- lapack-netlib/SRC/chetrd_he2hb.c | 23 +++++----- lapack-netlib/SRC/chetrf.c | 15 +++---- lapack-netlib/SRC/chetrf_aa.c | 18 ++++---- lapack-netlib/SRC/chetrf_aa_2stage.c | 31 +++++++------- lapack-netlib/SRC/chetrf_rk.c | 14 +++---- lapack-netlib/SRC/chetrf_rook.c | 12 +++--- lapack-netlib/SRC/chetri.c | 14 +++---- lapack-netlib/SRC/chetri2.c | 14 +++---- lapack-netlib/SRC/chetri2x.c | 23 +++++----- lapack-netlib/SRC/chetri_3.c | 12 +++--- lapack-netlib/SRC/chetri_3x.c | 18 ++++---- lapack-netlib/SRC/chetri_rook.c | 14 +++---- lapack-netlib/SRC/chetrs.c | 16 +++---- lapack-netlib/SRC/chetrs2.c | 17 ++++---- lapack-netlib/SRC/chetrs_3.c | 15 +++---- lapack-netlib/SRC/chetrs_aa.c | 17 ++++---- lapack-netlib/SRC/chetrs_aa_2stage.c | 17 ++++---- lapack-netlib/SRC/chetrs_rook.c | 16 +++---- lapack-netlib/SRC/chfrk.c | 12 +++--- lapack-netlib/SRC/chgeqz.c | 16 +++---- lapack-netlib/SRC/chpcon.c | 18 ++++---- lapack-netlib/SRC/chpev.c | 18 ++++---- lapack-netlib/SRC/chpevd.c | 24 +++++------ lapack-netlib/SRC/chpevx.c | 24 +++++------ lapack-netlib/SRC/chpgst.c | 17 ++++---- lapack-netlib/SRC/chpgv.c | 19 +++++---- lapack-netlib/SRC/chpgvd.c | 23 +++++----- lapack-netlib/SRC/chpgvx.c | 17 ++++---- lapack-netlib/SRC/chprfs.c | 15 +++---- lapack-netlib/SRC/chpsv.c | 9 ++-- lapack-netlib/SRC/chpsvx.c | 16 +++---- lapack-netlib/SRC/chptrd.c | 17 ++++---- lapack-netlib/SRC/chptrf.c | 15 +++---- lapack-netlib/SRC/chptri.c | 14 +++---- lapack-netlib/SRC/chptrs.c | 16 +++---- lapack-netlib/SRC/chsein.c | 12 +++--- lapack-netlib/SRC/chseqr.c | 21 +++++----- lapack-netlib/SRC/cla_gbamv.c | 8 ++-- lapack-netlib/SRC/cla_gbrcond_c.c | 5 ++- lapack-netlib/SRC/cla_gbrcond_x.c | 5 ++- lapack-netlib/SRC/cla_gbrfsx_extended.c | 20 ++++----- lapack-netlib/SRC/cla_geamv.c | 8 ++-- lapack-netlib/SRC/cla_gercond_c.c | 7 ++-- lapack-netlib/SRC/cla_gercond_x.c | 7 ++-- lapack-netlib/SRC/cla_gerfsx_extended.c | 18 ++++---- lapack-netlib/SRC/cla_heamv.c | 8 ++-- lapack-netlib/SRC/cla_hercond_c.c | 4 +- lapack-netlib/SRC/cla_hercond_x.c | 4 +- lapack-netlib/SRC/cla_herfsx_extended.c | 21 +++++----- lapack-netlib/SRC/cla_lin_berr.c | 4 +- lapack-netlib/SRC/cla_porcond_c.c | 4 +- lapack-netlib/SRC/cla_porcond_x.c | 4 +- lapack-netlib/SRC/cla_porfsx_extended.c | 20 ++++----- lapack-netlib/SRC/cla_syamv.c | 8 ++-- lapack-netlib/SRC/cla_syrcond_c.c | 4 +- lapack-netlib/SRC/cla_syrcond_x.c | 4 +- lapack-netlib/SRC/cla_syrfsx_extended.c | 20 ++++----- lapack-netlib/SRC/cla_wwaddw.c | 4 +- lapack-netlib/SRC/clabrd.c | 8 ++-- lapack-netlib/SRC/clacgv.c | 4 +- lapack-netlib/SRC/clacn2.c | 16 +++---- lapack-netlib/SRC/clacon.c | 16 +++---- lapack-netlib/SRC/clacp2.c | 4 +- lapack-netlib/SRC/clacpy.c | 4 +- lapack-netlib/SRC/clacrm.c | 8 ++-- lapack-netlib/SRC/clacrt.c | 8 ++-- lapack-netlib/SRC/cladiv.c | 2 +- lapack-netlib/SRC/claed0.c | 22 +++++----- lapack-netlib/SRC/claed7.c | 17 ++++---- lapack-netlib/SRC/claed8.c | 22 +++++----- lapack-netlib/SRC/claein.c | 6 +-- lapack-netlib/SRC/claesy.c | 4 +- lapack-netlib/SRC/claev2.c | 6 +-- lapack-netlib/SRC/clag2z.c | 4 +- lapack-netlib/SRC/clags2.c | 6 +-- lapack-netlib/SRC/clagtm.c | 6 +-- lapack-netlib/SRC/clahef.c | 12 +++--- lapack-netlib/SRC/clahef_aa.c | 12 +++--- lapack-netlib/SRC/clahef_rk.c | 16 +++---- lapack-netlib/SRC/clahef_rook.c | 16 +++---- lapack-netlib/SRC/clahqr.c | 14 +++---- lapack-netlib/SRC/clahr2.c | 10 ++--- lapack-netlib/SRC/claic1.c | 24 +++++------ lapack-netlib/SRC/clals0.c | 13 +++--- lapack-netlib/SRC/clalsa.c | 15 +++---- lapack-netlib/SRC/clalsd.c | 46 ++++++++++---------- lapack-netlib/SRC/clamswlq.c | 14 +++---- lapack-netlib/SRC/clamtsqr.c | 14 +++---- lapack-netlib/SRC/clangb.c | 4 +- lapack-netlib/SRC/clange.c | 4 +- lapack-netlib/SRC/clangt.c | 2 +- lapack-netlib/SRC/clanhb.c | 4 +- lapack-netlib/SRC/clanhe.c | 4 +- lapack-netlib/SRC/clanhf.c | 2 +- lapack-netlib/SRC/clanhp.c | 4 +- lapack-netlib/SRC/clanhs.c | 4 +- lapack-netlib/SRC/clanht.c | 4 +- lapack-netlib/SRC/clansb.c | 4 +- lapack-netlib/SRC/clansp.c | 4 +- lapack-netlib/SRC/clansy.c | 4 +- lapack-netlib/SRC/clantb.c | 4 +- lapack-netlib/SRC/clantp.c | 4 +- lapack-netlib/SRC/clantr.c | 4 +- lapack-netlib/SRC/clapll.c | 12 +++--- lapack-netlib/SRC/clapmr.c | 6 +-- lapack-netlib/SRC/clapmt.c | 6 +-- lapack-netlib/SRC/claqgb.c | 6 +-- lapack-netlib/SRC/claqge.c | 6 +-- lapack-netlib/SRC/claqhb.c | 6 +-- lapack-netlib/SRC/claqhe.c | 6 +-- lapack-netlib/SRC/claqhp.c | 6 +-- lapack-netlib/SRC/claqp2.c | 10 ++--- lapack-netlib/SRC/claqps.c | 8 ++-- lapack-netlib/SRC/claqr0.c | 12 +++--- lapack-netlib/SRC/claqr1.c | 6 +-- lapack-netlib/SRC/claqr2.c | 20 ++++----- lapack-netlib/SRC/claqr3.c | 20 ++++----- lapack-netlib/SRC/claqr4.c | 12 +++--- lapack-netlib/SRC/claqr5.c | 16 +++---- lapack-netlib/SRC/claqsb.c | 6 +-- lapack-netlib/SRC/claqsp.c | 6 +-- lapack-netlib/SRC/claqsy.c | 6 +-- lapack-netlib/SRC/clar1v.c | 4 +- lapack-netlib/SRC/clar2v.c | 4 +- lapack-netlib/SRC/clarcm.c | 8 ++-- lapack-netlib/SRC/clarf.c | 6 +-- lapack-netlib/SRC/clarfb.c | 10 ++--- lapack-netlib/SRC/clarfb_gett.c | 10 ++--- lapack-netlib/SRC/clarfg.c | 10 ++--- lapack-netlib/SRC/clarfgp.c | 10 ++--- lapack-netlib/SRC/clarft.c | 12 +++--- lapack-netlib/SRC/clarfx.c | 8 ++-- lapack-netlib/SRC/clarfy.c | 10 ++--- lapack-netlib/SRC/clargv.c | 4 +- lapack-netlib/SRC/clarnv.c | 6 +-- lapack-netlib/SRC/clarrv.c | 26 ++++++------ lapack-netlib/SRC/clarscl2.c | 4 +- lapack-netlib/SRC/clartg.c | 8 ++-- lapack-netlib/SRC/clartv.c | 4 +- lapack-netlib/SRC/clarz.c | 8 ++-- lapack-netlib/SRC/clarzb.c | 15 +++---- lapack-netlib/SRC/clarzt.c | 14 +++---- lapack-netlib/SRC/clascl.c | 8 ++-- lapack-netlib/SRC/clascl2.c | 4 +- lapack-netlib/SRC/claset.c | 4 +- lapack-netlib/SRC/clasr.c | 8 ++-- lapack-netlib/SRC/classq.c | 4 +- lapack-netlib/SRC/claswlq.c | 15 +++---- lapack-netlib/SRC/claswp.c | 6 +-- lapack-netlib/SRC/clasyf.c | 8 ++-- lapack-netlib/SRC/clasyf_aa.c | 10 ++--- lapack-netlib/SRC/clasyf_rk.c | 12 +++--- lapack-netlib/SRC/clasyf_rook.c | 12 +++--- lapack-netlib/SRC/clatbs.c | 19 +++++---- lapack-netlib/SRC/clatdf.c | 21 +++++----- lapack-netlib/SRC/clatps.c | 19 +++++---- lapack-netlib/SRC/clatrd.c | 12 +++--- lapack-netlib/SRC/clatrs.c | 19 +++++---- lapack-netlib/SRC/clatrs3.c | 24 +++++------ lapack-netlib/SRC/clatrz.c | 10 ++--- lapack-netlib/SRC/clatsqr.c | 15 +++---- lapack-netlib/SRC/claunhr_col_getrfnp.c | 14 +++---- lapack-netlib/SRC/claunhr_col_getrfnp2.c | 12 +++--- lapack-netlib/SRC/clauu2.c | 16 +++---- lapack-netlib/SRC/clauum.c | 14 +++---- lapack-netlib/SRC/cpbcon.c | 16 +++---- lapack-netlib/SRC/cpbequ.c | 10 ++--- lapack-netlib/SRC/cpbrfs.c | 17 ++++---- lapack-netlib/SRC/cpbstf.c | 18 ++++---- lapack-netlib/SRC/cpbsv.c | 9 ++-- lapack-netlib/SRC/cpbsvx.c | 23 +++++----- lapack-netlib/SRC/cpbtf2.c | 18 ++++---- lapack-netlib/SRC/cpbtrf.c | 19 +++++---- lapack-netlib/SRC/cpbtrs.c | 10 ++--- lapack-netlib/SRC/cpftrf.c | 28 ++++++------- lapack-netlib/SRC/cpftri.c | 17 ++++---- lapack-netlib/SRC/cpftrs.c | 10 ++--- lapack-netlib/SRC/cpocon.c | 14 +++---- lapack-netlib/SRC/cpoequ.c | 10 ++--- lapack-netlib/SRC/cpoequb.c | 10 ++--- lapack-netlib/SRC/cporfs.c | 17 ++++---- lapack-netlib/SRC/cposv.c | 13 +++--- lapack-netlib/SRC/cposvx.c | 26 ++++++------ lapack-netlib/SRC/cposvxx.c | 20 ++++----- lapack-netlib/SRC/cpotf2.c | 16 +++---- lapack-netlib/SRC/cpotrf.c | 14 +++---- lapack-netlib/SRC/cpotrf2.c | 20 ++++----- lapack-netlib/SRC/cpotri.c | 17 ++++---- lapack-netlib/SRC/cpotrs.c | 10 ++--- lapack-netlib/SRC/cppcon.c | 17 ++++---- lapack-netlib/SRC/cppequ.c | 10 ++--- lapack-netlib/SRC/cpprfs.c | 15 +++---- lapack-netlib/SRC/cppsv.c | 9 ++-- lapack-netlib/SRC/cppsvx.c | 24 +++++------ lapack-netlib/SRC/cpptrf.c | 17 ++++---- lapack-netlib/SRC/cpptri.c | 20 +++++---- lapack-netlib/SRC/cpptrs.c | 14 +++---- lapack-netlib/SRC/cpstf2.c | 19 +++++---- lapack-netlib/SRC/cpstrf.c | 23 +++++----- lapack-netlib/SRC/cptcon.c | 12 +++--- lapack-netlib/SRC/cpteqr.c | 21 +++++----- lapack-netlib/SRC/cptrfs.c | 12 +++--- lapack-netlib/SRC/cptsv.c | 9 ++-- lapack-netlib/SRC/cptsvx.c | 17 ++++---- lapack-netlib/SRC/cpttrf.c | 8 ++-- lapack-netlib/SRC/cpttrs.c | 10 ++--- lapack-netlib/SRC/cptts2.c | 8 ++-- lapack-netlib/SRC/crot.c | 8 ++-- lapack-netlib/SRC/cspcon.c | 18 ++++---- lapack-netlib/SRC/cspmv.c | 10 ++--- lapack-netlib/SRC/cspr.c | 8 ++-- lapack-netlib/SRC/csprfs.c | 16 +++---- lapack-netlib/SRC/cspsv.c | 9 ++-- lapack-netlib/SRC/cspsvx.c | 18 ++++---- lapack-netlib/SRC/csptrf.c | 12 +++--- lapack-netlib/SRC/csptri.c | 18 ++++---- lapack-netlib/SRC/csptrs.c | 12 +++--- lapack-netlib/SRC/csrscl.c | 10 ++--- lapack-netlib/SRC/cstedc.c | 32 +++++++------- lapack-netlib/SRC/cstegr.c | 6 +-- lapack-netlib/SRC/cstein.c | 21 +++++----- lapack-netlib/SRC/cstemr.c | 36 ++++++++-------- lapack-netlib/SRC/csteqr.c | 28 ++++++------- lapack-netlib/SRC/csycon.c | 21 +++++----- lapack-netlib/SRC/csycon_3.c | 21 +++++----- lapack-netlib/SRC/csycon_rook.c | 21 +++++----- lapack-netlib/SRC/csyconv.c | 8 ++-- lapack-netlib/SRC/csyconvf.c | 10 ++--- lapack-netlib/SRC/csyconvf_rook.c | 10 ++--- lapack-netlib/SRC/csyequb.c | 12 +++--- lapack-netlib/SRC/csymv.c | 10 ++--- lapack-netlib/SRC/csyr.c | 8 ++-- lapack-netlib/SRC/csyrfs.c | 14 +++---- lapack-netlib/SRC/csysv.c | 13 +++--- lapack-netlib/SRC/csysv_aa.c | 13 +++--- lapack-netlib/SRC/csysv_aa_2stage.c | 10 ++--- lapack-netlib/SRC/csysv_rk.c | 15 +++---- lapack-netlib/SRC/csysv_rook.c | 10 ++--- lapack-netlib/SRC/csysvx.c | 20 ++++----- lapack-netlib/SRC/csysvxx.c | 18 ++++---- lapack-netlib/SRC/csyswapr.c | 6 +-- lapack-netlib/SRC/csytf2.c | 12 +++--- lapack-netlib/SRC/csytf2_rk.c | 12 +++--- lapack-netlib/SRC/csytf2_rook.c | 12 +++--- lapack-netlib/SRC/csytrf.c | 12 +++--- lapack-netlib/SRC/csytrf_aa.c | 16 +++---- lapack-netlib/SRC/csytrf_aa_2stage.c | 27 ++++++------ lapack-netlib/SRC/csytrf_rk.c | 14 +++---- lapack-netlib/SRC/csytrf_rook.c | 10 ++--- lapack-netlib/SRC/csytri.c | 18 ++++---- lapack-netlib/SRC/csytri2.c | 14 +++---- lapack-netlib/SRC/csytri2x.c | 23 +++++----- lapack-netlib/SRC/csytri_3.c | 12 +++--- lapack-netlib/SRC/csytri_3x.c | 18 ++++---- lapack-netlib/SRC/csytri_rook.c | 18 ++++---- lapack-netlib/SRC/csytrs.c | 12 +++--- lapack-netlib/SRC/csytrs2.c | 14 +++---- lapack-netlib/SRC/csytrs_3.c | 12 +++--- lapack-netlib/SRC/csytrs_aa.c | 18 ++++---- lapack-netlib/SRC/csytrs_aa_2stage.c | 17 ++++---- lapack-netlib/SRC/csytrs_rook.c | 12 +++--- lapack-netlib/SRC/ctbcon.c | 18 ++++---- lapack-netlib/SRC/ctbrfs.c | 12 +++--- lapack-netlib/SRC/ctbtrs.c | 14 +++---- lapack-netlib/SRC/ctfsm.c | 14 +++---- lapack-netlib/SRC/ctftri.c | 42 +++++++++---------- lapack-netlib/SRC/ctfttp.c | 10 ++--- lapack-netlib/SRC/ctfttr.c | 8 ++-- lapack-netlib/SRC/ctgevc.c | 14 +++---- lapack-netlib/SRC/ctgex2.c | 14 +++---- lapack-netlib/SRC/ctgexc.c | 20 ++++----- lapack-netlib/SRC/ctgsen.c | 25 +++++------ lapack-netlib/SRC/ctgsja.c | 17 ++++---- lapack-netlib/SRC/ctgsna.c | 21 +++++----- lapack-netlib/SRC/ctgsy2.c | 10 ++--- lapack-netlib/SRC/ctgsyl.c | 21 +++++----- lapack-netlib/SRC/ctpcon.c | 14 +++---- lapack-netlib/SRC/ctplqt.c | 11 ++--- lapack-netlib/SRC/ctplqt2.c | 17 ++++---- lapack-netlib/SRC/ctpmlqt.c | 11 ++--- lapack-netlib/SRC/ctpmqrt.c | 11 ++--- lapack-netlib/SRC/ctpqrt.c | 11 ++--- lapack-netlib/SRC/ctpqrt2.c | 17 ++++---- lapack-netlib/SRC/ctprfb.c | 10 ++--- lapack-netlib/SRC/ctprfs.c | 12 +++--- lapack-netlib/SRC/ctptri.c | 14 +++---- lapack-netlib/SRC/ctptrs.c | 14 +++---- lapack-netlib/SRC/ctpttf.c | 10 ++--- lapack-netlib/SRC/ctpttr.c | 6 +-- lapack-netlib/SRC/ctrcon.c | 12 +++--- lapack-netlib/SRC/ctrevc.c | 20 +++++---- lapack-netlib/SRC/ctrevc3.c | 26 ++++++------ lapack-netlib/SRC/ctrexc.c | 15 +++---- lapack-netlib/SRC/ctrrfs.c | 12 +++--- lapack-netlib/SRC/ctrsen.c | 20 ++++----- lapack-netlib/SRC/ctrsna.c | 24 +++++------ lapack-netlib/SRC/ctrsyl.c | 15 +++---- lapack-netlib/SRC/ctrsyl3.c | 26 ++++++------ lapack-netlib/SRC/ctrti2.c | 13 +++--- lapack-netlib/SRC/ctrtri.c | 14 +++---- lapack-netlib/SRC/ctrtrs.c | 16 +++---- lapack-netlib/SRC/ctrttf.c | 8 ++-- lapack-netlib/SRC/ctrttp.c | 6 +-- lapack-netlib/SRC/ctzrzf.c | 17 ++++---- lapack-netlib/SRC/cunbdb.c | 18 ++++---- lapack-netlib/SRC/cunbdb1.c | 20 ++++----- lapack-netlib/SRC/cunbdb2.c | 20 ++++----- lapack-netlib/SRC/cunbdb3.c | 20 ++++----- lapack-netlib/SRC/cunbdb4.c | 20 ++++----- lapack-netlib/SRC/cunbdb5.c | 15 +++---- lapack-netlib/SRC/cunbdb6.c | 16 +++---- lapack-netlib/SRC/cuncsd.c | 27 ++++++------ lapack-netlib/SRC/cuncsd2by1.c | 25 +++++------ lapack-netlib/SRC/cung2l.c | 10 ++--- lapack-netlib/SRC/cung2r.c | 14 +++---- lapack-netlib/SRC/cungbr.c | 13 +++--- lapack-netlib/SRC/cunghr.c | 12 +++--- lapack-netlib/SRC/cungl2.c | 14 +++---- lapack-netlib/SRC/cunglq.c | 19 +++++---- lapack-netlib/SRC/cungql.c | 19 +++++---- lapack-netlib/SRC/cungqr.c | 19 +++++---- lapack-netlib/SRC/cungr2.c | 14 +++---- lapack-netlib/SRC/cungrq.c | 19 +++++---- lapack-netlib/SRC/cungtr.c | 12 +++--- lapack-netlib/SRC/cungtsqr.c | 20 ++++----- lapack-netlib/SRC/cungtsqr_row.c | 18 ++++---- lapack-netlib/SRC/cunhr_col.c | 14 +++---- lapack-netlib/SRC/cunm22.c | 24 +++++------ lapack-netlib/SRC/cunm2l.c | 10 ++--- lapack-netlib/SRC/cunm2r.c | 10 ++--- lapack-netlib/SRC/cunmbr.c | 14 +++---- lapack-netlib/SRC/cunmhr.c | 12 +++--- lapack-netlib/SRC/cunml2.c | 14 +++---- lapack-netlib/SRC/cunmlq.c | 19 +++++---- lapack-netlib/SRC/cunmql.c | 19 +++++---- lapack-netlib/SRC/cunmqr.c | 19 +++++---- lapack-netlib/SRC/cunmr2.c | 14 +++---- lapack-netlib/SRC/cunmr3.c | 10 ++--- lapack-netlib/SRC/cunmrq.c | 19 +++++---- lapack-netlib/SRC/cunmrz.c | 17 ++++---- lapack-netlib/SRC/cunmtr.c | 12 +++--- lapack-netlib/SRC/cupgtr.c | 10 ++--- lapack-netlib/SRC/cupmtr.c | 10 ++--- lapack-netlib/SRC/dbbcsd.c | 22 +++++----- lapack-netlib/SRC/dbdsdc.c | 22 +++++----- lapack-netlib/SRC/dbdsqr.c | 28 ++++++------- lapack-netlib/SRC/dbdsvdx.c | 34 +++++++-------- lapack-netlib/SRC/dcombssq.c | 4 +- lapack-netlib/SRC/ddisna.c | 8 ++-- lapack-netlib/SRC/dgbbrd.c | 16 +++---- lapack-netlib/SRC/dgbcon.c | 19 +++++---- lapack-netlib/SRC/dgbequ.c | 12 +++--- lapack-netlib/SRC/dgbequb.c | 12 +++--- lapack-netlib/SRC/dgbrfs.c | 17 ++++---- lapack-netlib/SRC/dgbrfsx.c | 16 +++---- lapack-netlib/SRC/dgbsv.c | 13 +++--- lapack-netlib/SRC/dgbsvx.c | 22 +++++----- lapack-netlib/SRC/dgbsvxx.c | 22 +++++----- lapack-netlib/SRC/dgbtf2.c | 12 +++--- lapack-netlib/SRC/dgbtrf.c | 16 +++---- lapack-netlib/SRC/dgbtrs.c | 12 +++--- lapack-netlib/SRC/dgebak.c | 16 +++---- lapack-netlib/SRC/dgebal.c | 12 +++--- lapack-netlib/SRC/dgebd2.c | 11 ++--- lapack-netlib/SRC/dgebrd.c | 16 +++---- lapack-netlib/SRC/dgecon.c | 14 +++---- lapack-netlib/SRC/dgeequ.c | 12 +++--- lapack-netlib/SRC/dgeequb.c | 12 +++--- lapack-netlib/SRC/dgees.c | 22 +++++----- lapack-netlib/SRC/dgeesx.c | 24 +++++------ lapack-netlib/SRC/dgeev.c | 29 ++++++------- lapack-netlib/SRC/dgeevx.c | 29 ++++++------- lapack-netlib/SRC/dgehd2.c | 11 ++--- lapack-netlib/SRC/dgehrd.c | 16 +++---- lapack-netlib/SRC/dgejsv.c | 42 ++++++++++--------- lapack-netlib/SRC/dgelq.c | 14 +++---- lapack-netlib/SRC/dgelq2.c | 11 ++--- lapack-netlib/SRC/dgelqf.c | 19 +++++---- lapack-netlib/SRC/dgelqt.c | 15 +++---- lapack-netlib/SRC/dgelqt3.c | 15 +++---- lapack-netlib/SRC/dgels.c | 27 ++++++------ lapack-netlib/SRC/dgelsd.c | 24 +++++------ lapack-netlib/SRC/dgelss.c | 31 +++++++------- lapack-netlib/SRC/dgelst.c | 35 ++++++++-------- lapack-netlib/SRC/dgelsy.c | 28 ++++++------- lapack-netlib/SRC/dgemlq.c | 14 +++---- lapack-netlib/SRC/dgemlqt.c | 14 +++---- lapack-netlib/SRC/dgemqr.c | 14 +++---- lapack-netlib/SRC/dgemqrt.c | 13 +++--- lapack-netlib/SRC/dgeql2.c | 11 ++--- lapack-netlib/SRC/dgeqlf.c | 19 +++++---- lapack-netlib/SRC/dgeqp3.c | 22 +++++----- lapack-netlib/SRC/dgeqr.c | 14 +++---- lapack-netlib/SRC/dgeqr2.c | 11 ++--- lapack-netlib/SRC/dgeqr2p.c | 13 +++--- lapack-netlib/SRC/dgeqrf.c | 19 +++++---- lapack-netlib/SRC/dgeqrfp.c | 19 +++++---- lapack-netlib/SRC/dgeqrt.c | 15 +++---- lapack-netlib/SRC/dgeqrt2.c | 14 +++---- lapack-netlib/SRC/dgeqrt3.c | 15 +++---- lapack-netlib/SRC/dgerfs.c | 17 ++++---- lapack-netlib/SRC/dgerfsx.c | 15 +++---- lapack-netlib/SRC/dgerq2.c | 11 ++--- lapack-netlib/SRC/dgerqf.c | 19 +++++---- lapack-netlib/SRC/dgesc2.c | 6 +-- lapack-netlib/SRC/dgesdd.c | 27 ++++++------ lapack-netlib/SRC/dgesv.c | 6 ++- lapack-netlib/SRC/dgesvd.c | 18 ++++---- lapack-netlib/SRC/dgesvdq.c | 35 +++++++++------- lapack-netlib/SRC/dgesvdx.c | 26 ++++++------ lapack-netlib/SRC/dgesvj.c | 42 +++++++++---------- lapack-netlib/SRC/dgesvx.c | 23 +++++----- lapack-netlib/SRC/dgesvxx.c | 19 +++++---- lapack-netlib/SRC/dgetc2.c | 12 +++--- lapack-netlib/SRC/dgetf2.c | 14 +++---- lapack-netlib/SRC/dgetrf.c | 14 +++---- lapack-netlib/SRC/dgetrf2.c | 15 +++---- lapack-netlib/SRC/dgetri.c | 16 +++---- lapack-netlib/SRC/dgetrs.c | 15 +++---- lapack-netlib/SRC/dgetsls.c | 33 ++++++++------- lapack-netlib/SRC/dgetsqrhrt.c | 19 +++++---- lapack-netlib/SRC/dggbak.c | 16 +++---- lapack-netlib/SRC/dggbal.c | 22 +++++----- lapack-netlib/SRC/dgges.c | 24 +++++------ lapack-netlib/SRC/dgges3.c | 26 ++++++------ lapack-netlib/SRC/dggesx.c | 28 ++++++------- lapack-netlib/SRC/dggev.c | 27 ++++++------ lapack-netlib/SRC/dggev3.c | 29 ++++++------- lapack-netlib/SRC/dggevx.c | 30 +++++++------- lapack-netlib/SRC/dggglm.c | 24 +++++------ lapack-netlib/SRC/dgghd3.c | 30 +++++++------- lapack-netlib/SRC/dgghrd.c | 15 +++---- lapack-netlib/SRC/dgglse.c | 24 +++++------ lapack-netlib/SRC/dggqrf.c | 15 +++---- lapack-netlib/SRC/dggrqf.c | 17 ++++---- lapack-netlib/SRC/dggsvd3.c | 17 ++++---- lapack-netlib/SRC/dggsvp3.c | 15 +++---- lapack-netlib/SRC/dgsvj0.c | 16 +++---- lapack-netlib/SRC/dgsvj1.c | 16 +++---- lapack-netlib/SRC/dgtcon.c | 20 ++++----- lapack-netlib/SRC/dgtrfs.c | 16 +++---- lapack-netlib/SRC/dgtsv.c | 20 ++++----- lapack-netlib/SRC/dgtsvx.c | 19 +++++---- lapack-netlib/SRC/dgttrf.c | 8 ++-- lapack-netlib/SRC/dgttrs.c | 10 ++--- lapack-netlib/SRC/dgtts2.c | 6 +-- lapack-netlib/SRC/dhgeqz.c | 20 ++++----- lapack-netlib/SRC/dhsein.c | 12 +++--- lapack-netlib/SRC/dhseqr.c | 16 +++---- lapack-netlib/SRC/dla_gbamv.c | 8 ++-- lapack-netlib/SRC/dla_gbrcond.c | 5 ++- lapack-netlib/SRC/dla_gbrfsx_extended.c | 20 ++++----- lapack-netlib/SRC/dla_geamv.c | 8 ++-- lapack-netlib/SRC/dla_gercond.c | 8 ++-- lapack-netlib/SRC/dla_gerfsx_extended.c | 16 +++---- lapack-netlib/SRC/dla_lin_berr.c | 4 +- lapack-netlib/SRC/dla_porcond.c | 4 +- lapack-netlib/SRC/dla_porfsx_extended.c | 18 ++++---- lapack-netlib/SRC/dla_syamv.c | 8 ++-- lapack-netlib/SRC/dla_syrcond.c | 4 +- lapack-netlib/SRC/dla_syrfsx_extended.c | 20 ++++----- lapack-netlib/SRC/dla_wwaddw.c | 4 +- lapack-netlib/SRC/dlabad.c | 4 +- lapack-netlib/SRC/dlabrd.c | 8 ++-- lapack-netlib/SRC/dlacn2.c | 16 +++---- lapack-netlib/SRC/dlacon.c | 16 +++---- lapack-netlib/SRC/dlacpy.c | 4 +- lapack-netlib/SRC/dladiv.c | 10 ++--- lapack-netlib/SRC/dlae2.c | 4 +- lapack-netlib/SRC/dlaebz.c | 12 +++--- lapack-netlib/SRC/dlaed0.c | 20 ++++----- lapack-netlib/SRC/dlaed1.c | 17 ++++---- lapack-netlib/SRC/dlaed2.c | 17 ++++---- lapack-netlib/SRC/dlaed3.c | 15 +++---- lapack-netlib/SRC/dlaed4.c | 10 ++--- lapack-netlib/SRC/dlaed5.c | 4 +- lapack-netlib/SRC/dlaed6.c | 4 +- lapack-netlib/SRC/dlaed7.c | 17 ++++---- lapack-netlib/SRC/dlaed8.c | 19 +++++---- lapack-netlib/SRC/dlaed9.c | 10 ++--- lapack-netlib/SRC/dlaeda.c | 16 +++---- lapack-netlib/SRC/dlaein.c | 10 ++--- lapack-netlib/SRC/dlaev2.c | 4 +- lapack-netlib/SRC/dlaexc.c | 18 ++++---- lapack-netlib/SRC/dlag2.c | 4 +- lapack-netlib/SRC/dlag2s.c | 4 +- lapack-netlib/SRC/dlags2.c | 6 +-- lapack-netlib/SRC/dlagtf.c | 10 ++--- lapack-netlib/SRC/dlagtm.c | 6 +-- lapack-netlib/SRC/dlagts.c | 16 +++---- lapack-netlib/SRC/dlagv2.c | 10 ++--- lapack-netlib/SRC/dlahqr.c | 20 ++++----- lapack-netlib/SRC/dlahr2.c | 10 ++--- lapack-netlib/SRC/dlaic1.c | 24 +++++------ lapack-netlib/SRC/dlaln2.c | 10 ++--- lapack-netlib/SRC/dlals0.c | 18 ++++---- lapack-netlib/SRC/dlalsa.c | 18 ++++---- lapack-netlib/SRC/dlalsd.c | 46 ++++++++++---------- lapack-netlib/SRC/dlamrg.c | 4 +- lapack-netlib/SRC/dlamswlq.c | 14 +++---- lapack-netlib/SRC/dlamtsqr.c | 14 +++---- lapack-netlib/SRC/dlangb.c | 4 +- lapack-netlib/SRC/dlange.c | 4 +- lapack-netlib/SRC/dlangt.c | 2 +- lapack-netlib/SRC/dlanhs.c | 4 +- lapack-netlib/SRC/dlansb.c | 4 +- lapack-netlib/SRC/dlansf.c | 2 +- lapack-netlib/SRC/dlansp.c | 4 +- lapack-netlib/SRC/dlanst.c | 2 +- lapack-netlib/SRC/dlansy.c | 4 +- lapack-netlib/SRC/dlantb.c | 4 +- lapack-netlib/SRC/dlantp.c | 4 +- lapack-netlib/SRC/dlantr.c | 4 +- lapack-netlib/SRC/dlanv2.c | 4 +- lapack-netlib/SRC/dlaorhr_col_getrfnp.c | 14 +++---- lapack-netlib/SRC/dlaorhr_col_getrfnp2.c | 12 +++--- lapack-netlib/SRC/dlapll.c | 12 +++--- lapack-netlib/SRC/dlapmr.c | 6 +-- lapack-netlib/SRC/dlapmt.c | 6 +-- lapack-netlib/SRC/dlaqgb.c | 6 +-- lapack-netlib/SRC/dlaqge.c | 6 +-- lapack-netlib/SRC/dlaqp2.c | 10 ++--- lapack-netlib/SRC/dlaqps.c | 10 ++--- lapack-netlib/SRC/dlaqr0.c | 12 +++--- lapack-netlib/SRC/dlaqr1.c | 6 +-- lapack-netlib/SRC/dlaqr2.c | 26 ++++++------ lapack-netlib/SRC/dlaqr3.c | 26 ++++++------ lapack-netlib/SRC/dlaqr4.c | 12 +++--- lapack-netlib/SRC/dlaqr5.c | 18 ++++---- lapack-netlib/SRC/dlaqsb.c | 6 +-- lapack-netlib/SRC/dlaqsp.c | 6 +-- lapack-netlib/SRC/dlaqsy.c | 6 +-- lapack-netlib/SRC/dlaqtr.c | 14 +++---- lapack-netlib/SRC/dlar1v.c | 4 +- lapack-netlib/SRC/dlar2v.c | 4 +- lapack-netlib/SRC/dlarf.c | 8 ++-- lapack-netlib/SRC/dlarfb.c | 10 ++--- lapack-netlib/SRC/dlarfb_gett.c | 10 ++--- lapack-netlib/SRC/dlarfg.c | 8 ++-- lapack-netlib/SRC/dlarfgp.c | 8 ++-- lapack-netlib/SRC/dlarft.c | 11 +++-- lapack-netlib/SRC/dlarfx.c | 8 ++-- lapack-netlib/SRC/dlarfy.c | 10 ++--- lapack-netlib/SRC/dlargv.c | 4 +- lapack-netlib/SRC/dlarnv.c | 6 +-- lapack-netlib/SRC/dlarra.c | 6 +-- lapack-netlib/SRC/dlarrb.c | 6 +-- lapack-netlib/SRC/dlarrc.c | 6 +-- lapack-netlib/SRC/dlarrd.c | 22 +++++----- lapack-netlib/SRC/dlarre.c | 32 +++++++------- lapack-netlib/SRC/dlarrf.c | 10 ++--- lapack-netlib/SRC/dlarrj.c | 6 +-- lapack-netlib/SRC/dlarrk.c | 6 +-- lapack-netlib/SRC/dlarrr.c | 8 ++-- lapack-netlib/SRC/dlarrv.c | 28 ++++++------- lapack-netlib/SRC/dlarscl2.c | 4 +- lapack-netlib/SRC/dlartg.c | 4 +- lapack-netlib/SRC/dlartgp.c | 4 +- lapack-netlib/SRC/dlartgs.c | 6 +-- lapack-netlib/SRC/dlartv.c | 4 +- lapack-netlib/SRC/dlaruv.c | 4 +- lapack-netlib/SRC/dlarz.c | 8 ++-- lapack-netlib/SRC/dlarzb.c | 16 +++---- lapack-netlib/SRC/dlarzt.c | 11 ++--- lapack-netlib/SRC/dlas2.c | 4 +- lapack-netlib/SRC/dlascl.c | 8 ++-- lapack-netlib/SRC/dlascl2.c | 4 +- lapack-netlib/SRC/dlasd0.c | 22 +++++----- lapack-netlib/SRC/dlasd1.c | 14 +++---- lapack-netlib/SRC/dlasd2.c | 16 +++---- lapack-netlib/SRC/dlasd3.c | 24 +++++------ lapack-netlib/SRC/dlasd4.c | 10 ++--- lapack-netlib/SRC/dlasd5.c | 4 +- lapack-netlib/SRC/dlasd6.c | 14 +++---- lapack-netlib/SRC/dlasd7.c | 15 +++---- lapack-netlib/SRC/dlasd8.c | 20 ++++----- lapack-netlib/SRC/dlasda.c | 23 +++++----- lapack-netlib/SRC/dlasdq.c | 17 ++++---- lapack-netlib/SRC/dlasdt.c | 4 +- lapack-netlib/SRC/dlaset.c | 4 +- lapack-netlib/SRC/dlasq1.c | 25 +++++------ lapack-netlib/SRC/dlasq2.c | 38 ++++++++--------- lapack-netlib/SRC/dlasq3.c | 8 ++-- lapack-netlib/SRC/dlasq4.c | 26 ++++++------ lapack-netlib/SRC/dlasq5.c | 22 +++++----- lapack-netlib/SRC/dlasq6.c | 6 +-- lapack-netlib/SRC/dlasr.c | 8 ++-- lapack-netlib/SRC/dlasrt.c | 8 ++-- lapack-netlib/SRC/dlassq.c | 4 +- lapack-netlib/SRC/dlasv2.c | 4 +- lapack-netlib/SRC/dlaswlq.c | 15 +++---- lapack-netlib/SRC/dlaswp.c | 6 +-- lapack-netlib/SRC/dlasy2.c | 12 +++--- lapack-netlib/SRC/dlasyf.c | 8 ++-- lapack-netlib/SRC/dlasyf_aa.c | 10 ++--- lapack-netlib/SRC/dlasyf_rk.c | 10 ++--- lapack-netlib/SRC/dlasyf_rook.c | 10 ++--- lapack-netlib/SRC/dlat2s.c | 4 +- lapack-netlib/SRC/dlatbs.c | 12 +++--- lapack-netlib/SRC/dlatdf.c | 17 ++++---- lapack-netlib/SRC/dlatps.c | 14 +++---- lapack-netlib/SRC/dlatrd.c | 10 ++--- lapack-netlib/SRC/dlatrs.c | 14 +++---- lapack-netlib/SRC/dlatrs3.c | 24 +++++------ lapack-netlib/SRC/dlatrz.c | 10 ++--- lapack-netlib/SRC/dlatsqr.c | 15 +++---- lapack-netlib/SRC/dlauu2.c | 12 +++--- lapack-netlib/SRC/dlauum.c | 14 +++---- lapack-netlib/SRC/dopgtr.c | 10 ++--- lapack-netlib/SRC/dopmtr.c | 10 ++--- lapack-netlib/SRC/dorbdb.c | 14 +++---- lapack-netlib/SRC/dorbdb1.c | 16 +++---- lapack-netlib/SRC/dorbdb2.c | 16 +++---- lapack-netlib/SRC/dorbdb3.c | 16 +++---- lapack-netlib/SRC/dorbdb4.c | 16 +++---- lapack-netlib/SRC/dorbdb5.c | 15 +++---- lapack-netlib/SRC/dorbdb6.c | 17 ++++---- lapack-netlib/SRC/dorcsd.c | 27 ++++++------ lapack-netlib/SRC/dorcsd2by1.c | 23 +++++----- lapack-netlib/SRC/dorg2l.c | 10 ++--- lapack-netlib/SRC/dorg2r.c | 13 +++--- lapack-netlib/SRC/dorgbr.c | 13 +++--- lapack-netlib/SRC/dorghr.c | 12 +++--- lapack-netlib/SRC/dorgl2.c | 13 +++--- lapack-netlib/SRC/dorglq.c | 19 +++++---- lapack-netlib/SRC/dorgql.c | 19 +++++---- lapack-netlib/SRC/dorgqr.c | 19 +++++---- lapack-netlib/SRC/dorgr2.c | 10 ++--- lapack-netlib/SRC/dorgrq.c | 19 +++++---- lapack-netlib/SRC/dorgtr.c | 12 +++--- lapack-netlib/SRC/dorgtsqr.c | 20 ++++----- lapack-netlib/SRC/dorgtsqr_row.c | 18 ++++---- lapack-netlib/SRC/dorhr_col.c | 14 +++---- lapack-netlib/SRC/dorm22.c | 24 +++++------ lapack-netlib/SRC/dorm2l.c | 10 ++--- lapack-netlib/SRC/dorm2r.c | 10 ++--- lapack-netlib/SRC/dormbr.c | 14 +++---- lapack-netlib/SRC/dormhr.c | 12 +++--- lapack-netlib/SRC/dorml2.c | 10 ++--- lapack-netlib/SRC/dormlq.c | 19 +++++---- lapack-netlib/SRC/dormql.c | 19 +++++---- lapack-netlib/SRC/dormqr.c | 19 +++++---- lapack-netlib/SRC/dormr2.c | 10 ++--- lapack-netlib/SRC/dormr3.c | 10 ++--- lapack-netlib/SRC/dormrq.c | 19 +++++---- lapack-netlib/SRC/dormrz.c | 14 +++---- lapack-netlib/SRC/dormtr.c | 12 +++--- lapack-netlib/SRC/dpbcon.c | 16 +++---- lapack-netlib/SRC/dpbequ.c | 10 ++--- lapack-netlib/SRC/dpbrfs.c | 15 +++---- lapack-netlib/SRC/dpbstf.c | 14 +++---- lapack-netlib/SRC/dpbsv.c | 9 ++-- lapack-netlib/SRC/dpbsvx.c | 23 +++++----- lapack-netlib/SRC/dpbtf2.c | 14 +++---- lapack-netlib/SRC/dpbtrf.c | 19 +++++---- lapack-netlib/SRC/dpbtrs.c | 10 ++--- lapack-netlib/SRC/dpftrf.c | 26 ++++++------ lapack-netlib/SRC/dpftri.c | 17 ++++---- lapack-netlib/SRC/dpftrs.c | 10 ++--- lapack-netlib/SRC/dpocon.c | 16 +++---- lapack-netlib/SRC/dpoequ.c | 10 ++--- lapack-netlib/SRC/dpoequb.c | 10 ++--- lapack-netlib/SRC/dporfs.c | 15 +++---- lapack-netlib/SRC/dporfsx.c | 13 +++--- lapack-netlib/SRC/dposv.c | 13 +++--- lapack-netlib/SRC/dposvx.c | 23 +++++----- lapack-netlib/SRC/dposvxx.c | 18 ++++---- lapack-netlib/SRC/dpotf2.c | 12 +++--- lapack-netlib/SRC/dpotrf.c | 16 +++---- lapack-netlib/SRC/dpotrf2.c | 20 ++++----- lapack-netlib/SRC/dpotri.c | 17 ++++---- lapack-netlib/SRC/dpotrs.c | 10 ++--- lapack-netlib/SRC/dppcon.c | 17 ++++---- lapack-netlib/SRC/dppequ.c | 10 ++--- lapack-netlib/SRC/dpprfs.c | 16 +++---- lapack-netlib/SRC/dppsv.c | 9 ++-- lapack-netlib/SRC/dppsvx.c | 22 +++++----- lapack-netlib/SRC/dpptrf.c | 14 +++---- lapack-netlib/SRC/dpptri.c | 19 +++++---- lapack-netlib/SRC/dpptrs.c | 14 +++---- lapack-netlib/SRC/dpstf2.c | 14 +++---- lapack-netlib/SRC/dpstrf.c | 16 +++---- lapack-netlib/SRC/dptcon.c | 12 +++--- lapack-netlib/SRC/dpteqr.c | 21 +++++----- lapack-netlib/SRC/dptrfs.c | 12 +++--- lapack-netlib/SRC/dptsv.c | 9 ++-- lapack-netlib/SRC/dptsvx.c | 18 ++++---- lapack-netlib/SRC/dpttrf.c | 8 ++-- lapack-netlib/SRC/dpttrs.c | 13 +++--- lapack-netlib/SRC/dptts2.c | 8 ++-- lapack-netlib/SRC/drscl.c | 8 ++-- lapack-netlib/SRC/dsb2st_kernels.c | 8 ++-- lapack-netlib/SRC/dsbev.c | 18 ++++---- lapack-netlib/SRC/dsbev_2stage.c | 20 ++++----- lapack-netlib/SRC/dsbevd.c | 20 ++++----- lapack-netlib/SRC/dsbevd_2stage.c | 20 ++++----- lapack-netlib/SRC/dsbevx.c | 28 ++++++------- lapack-netlib/SRC/dsbevx_2stage.c | 30 +++++++------- lapack-netlib/SRC/dsbgst.c | 24 ++++++----- lapack-netlib/SRC/dsbgv.c | 15 +++---- lapack-netlib/SRC/dsbgvd.c | 20 +++++---- lapack-netlib/SRC/dsbgvx.c | 27 ++++++------ lapack-netlib/SRC/dsbtrd.c | 18 ++++---- lapack-netlib/SRC/dsfrk.c | 14 +++---- lapack-netlib/SRC/dsgesv.c | 34 ++++++++------- lapack-netlib/SRC/dspcon.c | 18 ++++---- lapack-netlib/SRC/dspev.c | 16 +++---- lapack-netlib/SRC/dspevd.c | 20 ++++----- lapack-netlib/SRC/dspevx.c | 20 ++++----- lapack-netlib/SRC/dspgst.c | 14 +++---- lapack-netlib/SRC/dspgv.c | 17 ++++---- lapack-netlib/SRC/dspgvd.c | 19 +++++---- lapack-netlib/SRC/dspgvx.c | 15 +++---- lapack-netlib/SRC/dsposv.c | 29 +++++++------ lapack-netlib/SRC/dsprfs.c | 16 +++---- lapack-netlib/SRC/dspsv.c | 9 ++-- lapack-netlib/SRC/dspsvx.c | 18 ++++---- lapack-netlib/SRC/dsptrd.c | 17 ++++---- lapack-netlib/SRC/dsptrf.c | 12 +++--- lapack-netlib/SRC/dsptri.c | 16 +++---- lapack-netlib/SRC/dsptrs.c | 14 +++---- lapack-netlib/SRC/dstebz.c | 14 +++---- lapack-netlib/SRC/dstedc.c | 24 +++++------ lapack-netlib/SRC/dstegr.c | 6 +-- lapack-netlib/SRC/dstein.c | 23 +++++----- lapack-netlib/SRC/dstemr.c | 35 ++++++++-------- lapack-netlib/SRC/dsteqr.c | 24 +++++------ lapack-netlib/SRC/dsterf.c | 14 +++---- lapack-netlib/SRC/dstev.c | 14 +++---- lapack-netlib/SRC/dstevd.c | 18 ++++---- lapack-netlib/SRC/dstevr.c | 20 ++++----- lapack-netlib/SRC/dstevx.c | 20 ++++----- lapack-netlib/SRC/dsycon.c | 22 +++++----- lapack-netlib/SRC/dsycon_3.c | 22 +++++----- lapack-netlib/SRC/dsycon_rook.c | 22 +++++----- lapack-netlib/SRC/dsyconv.c | 8 ++-- lapack-netlib/SRC/dsyconvf.c | 10 ++--- lapack-netlib/SRC/dsyconvf_rook.c | 10 ++--- lapack-netlib/SRC/dsyequb.c | 12 +++--- lapack-netlib/SRC/dsyev.c | 20 ++++----- lapack-netlib/SRC/dsyev_2stage.c | 24 +++++------ lapack-netlib/SRC/dsyevd.c | 20 ++++----- lapack-netlib/SRC/dsyevd_2stage.c | 24 +++++------ lapack-netlib/SRC/dsyevr.c | 24 +++++------ lapack-netlib/SRC/dsyevr_2stage.c | 22 +++++----- lapack-netlib/SRC/dsyevx.c | 26 ++++++------ lapack-netlib/SRC/dsyevx_2stage.c | 26 ++++++------ lapack-netlib/SRC/dsygs2.c | 14 +++---- lapack-netlib/SRC/dsygst.c | 14 +++---- lapack-netlib/SRC/dsygv.c | 20 ++++----- lapack-netlib/SRC/dsygv_2stage.c | 25 +++++------ lapack-netlib/SRC/dsygvd.c | 21 +++++----- lapack-netlib/SRC/dsygvx.c | 20 ++++----- lapack-netlib/SRC/dsyrfs.c | 14 +++---- lapack-netlib/SRC/dsyrfsx.c | 12 +++--- lapack-netlib/SRC/dsysv.c | 13 +++--- lapack-netlib/SRC/dsysv_aa.c | 13 +++--- lapack-netlib/SRC/dsysv_aa_2stage.c | 10 ++--- lapack-netlib/SRC/dsysv_rk.c | 15 +++---- lapack-netlib/SRC/dsysv_rook.c | 10 ++--- lapack-netlib/SRC/dsysvx.c | 20 ++++----- lapack-netlib/SRC/dsysvxx.c | 18 ++++---- lapack-netlib/SRC/dsyswapr.c | 6 +-- lapack-netlib/SRC/dsytd2.c | 17 ++++---- lapack-netlib/SRC/dsytf2.c | 12 +++--- lapack-netlib/SRC/dsytf2_rk.c | 12 +++--- lapack-netlib/SRC/dsytf2_rook.c | 12 +++--- lapack-netlib/SRC/dsytrd.c | 17 ++++---- lapack-netlib/SRC/dsytrd_2stage.c | 18 ++++---- lapack-netlib/SRC/dsytrd_sb2st.c | 23 +++++----- lapack-netlib/SRC/dsytrd_sy2sb.c | 27 ++++++------ lapack-netlib/SRC/dsytrf.c | 12 +++--- lapack-netlib/SRC/dsytrf_aa.c | 16 +++---- lapack-netlib/SRC/dsytrf_aa_2stage.c | 29 ++++++------- lapack-netlib/SRC/dsytrf_rk.c | 14 +++---- lapack-netlib/SRC/dsytrf_rook.c | 10 ++--- lapack-netlib/SRC/dsytri.c | 16 +++---- lapack-netlib/SRC/dsytri2.c | 14 +++---- lapack-netlib/SRC/dsytri2x.c | 23 +++++----- lapack-netlib/SRC/dsytri_3.c | 12 +++--- lapack-netlib/SRC/dsytri_3x.c | 18 ++++---- lapack-netlib/SRC/dsytri_rook.c | 16 +++---- lapack-netlib/SRC/dsytrs.c | 14 +++---- lapack-netlib/SRC/dsytrs2.c | 14 +++---- lapack-netlib/SRC/dsytrs_3.c | 12 +++--- lapack-netlib/SRC/dsytrs_aa.c | 18 ++++---- lapack-netlib/SRC/dsytrs_aa_2stage.c | 17 ++++---- lapack-netlib/SRC/dsytrs_rook.c | 14 +++---- lapack-netlib/SRC/dtbcon.c | 17 ++++---- lapack-netlib/SRC/dtbrfs.c | 12 +++--- lapack-netlib/SRC/dtbtrs.c | 14 +++---- lapack-netlib/SRC/dtfsm.c | 14 +++---- lapack-netlib/SRC/dtftri.c | 42 +++++++++---------- lapack-netlib/SRC/dtfttp.c | 10 ++--- lapack-netlib/SRC/dtfttr.c | 8 ++-- lapack-netlib/SRC/dtgevc.c | 24 +++++------ lapack-netlib/SRC/dtgex2.c | 26 ++++++------ lapack-netlib/SRC/dtgexc.c | 41 +++++++++--------- lapack-netlib/SRC/dtgsen.c | 23 +++++----- lapack-netlib/SRC/dtgsja.c | 18 ++++---- lapack-netlib/SRC/dtgsna.c | 23 +++++----- lapack-netlib/SRC/dtgsy2.c | 20 ++++----- lapack-netlib/SRC/dtgsyl.c | 18 ++++---- lapack-netlib/SRC/dtpcon.c | 14 +++---- lapack-netlib/SRC/dtplqt.c | 11 ++--- lapack-netlib/SRC/dtplqt2.c | 17 ++++---- lapack-netlib/SRC/dtpmlqt.c | 11 ++--- lapack-netlib/SRC/dtpmqrt.c | 11 ++--- lapack-netlib/SRC/dtpqrt.c | 11 ++--- lapack-netlib/SRC/dtpqrt2.c | 17 ++++---- lapack-netlib/SRC/dtprfb.c | 10 ++--- lapack-netlib/SRC/dtprfs.c | 12 +++--- lapack-netlib/SRC/dtptri.c | 14 +++---- lapack-netlib/SRC/dtptrs.c | 14 +++---- lapack-netlib/SRC/dtpttf.c | 10 ++--- lapack-netlib/SRC/dtpttr.c | 6 +-- lapack-netlib/SRC/dtrcon.c | 14 +++---- lapack-netlib/SRC/dtrevc.c | 18 ++++---- lapack-netlib/SRC/dtrevc3.c | 32 +++++++------- lapack-netlib/SRC/dtrexc.c | 27 ++++++------ lapack-netlib/SRC/dtrrfs.c | 12 +++--- lapack-netlib/SRC/dtrsen.c | 20 ++++----- lapack-netlib/SRC/dtrsna.c | 24 +++++------ lapack-netlib/SRC/dtrsyl.c | 14 +++---- lapack-netlib/SRC/dtrsyl3.c | 24 +++++------ lapack-netlib/SRC/dtrti2.c | 13 +++--- lapack-netlib/SRC/dtrtri.c | 14 +++---- lapack-netlib/SRC/dtrtrs.c | 15 +++---- lapack-netlib/SRC/dtrttf.c | 8 ++-- lapack-netlib/SRC/dtrttp.c | 6 +-- lapack-netlib/SRC/dtzrzf.c | 19 +++++---- lapack-netlib/SRC/sbbcsd.c | 24 +++++------ lapack-netlib/SRC/sbdsdc.c | 30 +++++++------- lapack-netlib/SRC/sbdsqr.c | 24 +++++------ lapack-netlib/SRC/sbdsvdx.c | 28 ++++++------- lapack-netlib/SRC/scombssq.c | 4 +- lapack-netlib/SRC/sdisna.c | 8 ++-- lapack-netlib/SRC/sgbbrd.c | 17 ++++---- lapack-netlib/SRC/sgbcon.c | 14 +++---- lapack-netlib/SRC/sgbequ.c | 12 +++--- lapack-netlib/SRC/sgbequb.c | 12 +++--- lapack-netlib/SRC/sgbrfs.c | 14 +++---- lapack-netlib/SRC/sgbrfsx.c | 15 +++---- lapack-netlib/SRC/sgbsv.c | 9 ++-- lapack-netlib/SRC/sgbsvx.c | 23 +++++----- lapack-netlib/SRC/sgbsvxx.c | 16 +++---- lapack-netlib/SRC/sgbtf2.c | 12 +++--- lapack-netlib/SRC/sgbtrf.c | 14 +++---- lapack-netlib/SRC/sgbtrs.c | 14 +++---- lapack-netlib/SRC/sgebak.c | 16 +++---- lapack-netlib/SRC/sgebal.c | 10 ++--- lapack-netlib/SRC/sgebd2.c | 13 +++--- lapack-netlib/SRC/sgebrd.c | 16 +++---- lapack-netlib/SRC/sgecon.c | 14 +++---- lapack-netlib/SRC/sgeequ.c | 12 +++--- lapack-netlib/SRC/sgeequb.c | 12 +++--- lapack-netlib/SRC/sgees.c | 28 ++++++------- lapack-netlib/SRC/sgeesx.c | 28 ++++++------- lapack-netlib/SRC/sgeev.c | 30 +++++++------- lapack-netlib/SRC/sgeevx.c | 32 +++++++------- lapack-netlib/SRC/sgehd2.c | 14 +++---- lapack-netlib/SRC/sgehrd.c | 17 ++++---- lapack-netlib/SRC/sgejsv.c | 35 ++++++++-------- lapack-netlib/SRC/sgelq.c | 14 +++---- lapack-netlib/SRC/sgelq2.c | 14 +++---- lapack-netlib/SRC/sgelqf.c | 19 +++++---- lapack-netlib/SRC/sgelqt.c | 14 ++++--- lapack-netlib/SRC/sgelqt3.c | 14 ++++--- lapack-netlib/SRC/sgels.c | 29 ++++++------- lapack-netlib/SRC/sgelsd.c | 24 +++++------ lapack-netlib/SRC/sgelss.c | 30 +++++++------- lapack-netlib/SRC/sgelst.c | 33 ++++++++------- lapack-netlib/SRC/sgelsy.c | 20 ++++----- lapack-netlib/SRC/sgemlq.c | 14 +++---- lapack-netlib/SRC/sgemlqt.c | 13 +++--- lapack-netlib/SRC/sgemqr.c | 14 +++---- lapack-netlib/SRC/sgemqrt.c | 13 +++--- lapack-netlib/SRC/sgeql2.c | 14 +++---- lapack-netlib/SRC/sgeqlf.c | 19 +++++---- lapack-netlib/SRC/sgeqp3.c | 16 +++---- lapack-netlib/SRC/sgeqr.c | 14 +++---- lapack-netlib/SRC/sgeqr2.c | 14 +++---- lapack-netlib/SRC/sgeqr2p.c | 14 +++---- lapack-netlib/SRC/sgeqrf.c | 19 +++++---- lapack-netlib/SRC/sgeqrfp.c | 19 +++++---- lapack-netlib/SRC/sgeqrt.c | 14 ++++--- lapack-netlib/SRC/sgeqrt2.c | 15 +++---- lapack-netlib/SRC/sgeqrt3.c | 14 ++++--- lapack-netlib/SRC/sgerfs.c | 12 +++--- lapack-netlib/SRC/sgerfsx.c | 13 +++--- lapack-netlib/SRC/sgerq2.c | 13 +++--- lapack-netlib/SRC/sgerqf.c | 19 +++++---- lapack-netlib/SRC/sgesc2.c | 6 +-- lapack-netlib/SRC/sgesdd.c | 28 ++++++------- lapack-netlib/SRC/sgesv.c | 3 +- lapack-netlib/SRC/sgesvd.c | 20 ++++----- lapack-netlib/SRC/sgesvdq.c | 29 ++++++------- lapack-netlib/SRC/sgesvdx.c | 26 ++++++------ lapack-netlib/SRC/sgesvj.c | 36 ++++++++-------- lapack-netlib/SRC/sgesvx.c | 22 +++++----- lapack-netlib/SRC/sgesvxx.c | 22 +++++----- lapack-netlib/SRC/sgetc2.c | 12 +++--- lapack-netlib/SRC/sgetf2.c | 14 +++---- lapack-netlib/SRC/sgetrf.c | 12 +++--- lapack-netlib/SRC/sgetrf2.c | 12 +++--- lapack-netlib/SRC/sgetri.c | 14 +++---- lapack-netlib/SRC/sgetrs.c | 15 +++---- lapack-netlib/SRC/sgetsls.c | 26 ++++++------ lapack-netlib/SRC/sgetsqrhrt.c | 18 ++++---- lapack-netlib/SRC/sggbak.c | 19 +++++---- lapack-netlib/SRC/sggbal.c | 22 +++++----- lapack-netlib/SRC/sgges.c | 28 ++++++------- lapack-netlib/SRC/sgges3.c | 28 ++++++------- lapack-netlib/SRC/sggesx.c | 26 ++++++------ lapack-netlib/SRC/sggev.c | 29 ++++++------- lapack-netlib/SRC/sggev3.c | 28 ++++++------- lapack-netlib/SRC/sggevx.c | 31 +++++++------- lapack-netlib/SRC/sggglm.c | 24 +++++------ lapack-netlib/SRC/sgghd3.c | 20 ++++----- lapack-netlib/SRC/sgghrd.c | 12 +++--- lapack-netlib/SRC/sgglse.c | 24 +++++------ lapack-netlib/SRC/sggqrf.c | 12 +++--- lapack-netlib/SRC/sggrqf.c | 12 +++--- lapack-netlib/SRC/sggsvd3.c | 15 +++---- lapack-netlib/SRC/sggsvp3.c | 15 +++---- lapack-netlib/SRC/sgsvj0.c | 14 +++---- lapack-netlib/SRC/sgsvj1.c | 14 +++---- lapack-netlib/SRC/sgtcon.c | 19 +++++---- lapack-netlib/SRC/sgtrfs.c | 15 +++---- lapack-netlib/SRC/sgtsv.c | 20 ++++----- lapack-netlib/SRC/sgtsvx.c | 14 +++---- lapack-netlib/SRC/sgttrf.c | 8 ++-- lapack-netlib/SRC/sgttrs.c | 14 +++---- lapack-netlib/SRC/sgtts2.c | 6 +-- lapack-netlib/SRC/shgeqz.c | 18 ++++---- lapack-netlib/SRC/shsein.c | 16 +++---- lapack-netlib/SRC/shseqr.c | 16 +++---- lapack-netlib/SRC/sla_gbamv.c | 8 ++-- lapack-netlib/SRC/sla_gbrcond.c | 4 +- lapack-netlib/SRC/sla_gbrfsx_extended.c | 18 ++++---- lapack-netlib/SRC/sla_geamv.c | 8 ++-- lapack-netlib/SRC/sla_gercond.c | 7 ++-- lapack-netlib/SRC/sla_gerfsx_extended.c | 18 ++++---- lapack-netlib/SRC/sla_lin_berr.c | 4 +- lapack-netlib/SRC/sla_porcond.c | 4 +- lapack-netlib/SRC/sla_porfsx_extended.c | 18 ++++---- lapack-netlib/SRC/sla_syamv.c | 8 ++-- lapack-netlib/SRC/sla_syrcond.c | 4 +- lapack-netlib/SRC/sla_syrfsx_extended.c | 20 ++++----- lapack-netlib/SRC/sla_wwaddw.c | 4 +- lapack-netlib/SRC/slabad.c | 4 +- lapack-netlib/SRC/slabrd.c | 8 ++-- lapack-netlib/SRC/slacn2.c | 16 +++---- lapack-netlib/SRC/slacon.c | 16 +++---- lapack-netlib/SRC/slacpy.c | 4 +- lapack-netlib/SRC/sladiv.c | 10 ++--- lapack-netlib/SRC/slae2.c | 4 +- lapack-netlib/SRC/slaebz.c | 12 +++--- lapack-netlib/SRC/slaed0.c | 18 ++++---- lapack-netlib/SRC/slaed1.c | 15 +++---- lapack-netlib/SRC/slaed2.c | 16 +++---- lapack-netlib/SRC/slaed3.c | 15 +++---- lapack-netlib/SRC/slaed4.c | 10 ++--- lapack-netlib/SRC/slaed5.c | 4 +- lapack-netlib/SRC/slaed6.c | 4 +- lapack-netlib/SRC/slaed7.c | 15 +++---- lapack-netlib/SRC/slaed8.c | 18 ++++---- lapack-netlib/SRC/slaed9.c | 10 ++--- lapack-netlib/SRC/slaeda.c | 16 +++---- lapack-netlib/SRC/slaein.c | 10 ++--- lapack-netlib/SRC/slaev2.c | 4 +- lapack-netlib/SRC/slaexc.c | 18 ++++---- lapack-netlib/SRC/slag2.c | 4 +- lapack-netlib/SRC/slag2d.c | 4 +- lapack-netlib/SRC/slags2.c | 6 +-- lapack-netlib/SRC/slagtf.c | 10 ++--- lapack-netlib/SRC/slagtm.c | 6 +-- lapack-netlib/SRC/slagts.c | 16 +++---- lapack-netlib/SRC/slagv2.c | 10 ++--- lapack-netlib/SRC/slahqr.c | 20 ++++----- lapack-netlib/SRC/slahr2.c | 10 ++--- lapack-netlib/SRC/slaic1.c | 24 +++++------ lapack-netlib/SRC/slaln2.c | 10 ++--- lapack-netlib/SRC/slals0.c | 12 +++--- lapack-netlib/SRC/slalsa.c | 13 +++--- lapack-netlib/SRC/slalsd.c | 39 ++++++++--------- lapack-netlib/SRC/slamrg.c | 4 +- lapack-netlib/SRC/slamswlq.c | 14 +++---- lapack-netlib/SRC/slamtsqr.c | 14 +++---- lapack-netlib/SRC/slangb.c | 4 +- lapack-netlib/SRC/slange.c | 4 +- lapack-netlib/SRC/slangt.c | 2 +- lapack-netlib/SRC/slanhs.c | 4 +- lapack-netlib/SRC/slansb.c | 4 +- lapack-netlib/SRC/slansf.c | 2 +- lapack-netlib/SRC/slansp.c | 4 +- lapack-netlib/SRC/slanst.c | 2 +- lapack-netlib/SRC/slansy.c | 4 +- lapack-netlib/SRC/slantb.c | 4 +- lapack-netlib/SRC/slantp.c | 4 +- lapack-netlib/SRC/slantr.c | 4 +- lapack-netlib/SRC/slanv2.c | 4 +- lapack-netlib/SRC/slaorhr_col_getrfnp.c | 12 +++--- lapack-netlib/SRC/slaorhr_col_getrfnp2.c | 12 +++--- lapack-netlib/SRC/slapll.c | 12 +++--- lapack-netlib/SRC/slapmr.c | 6 +-- lapack-netlib/SRC/slapmt.c | 6 +-- lapack-netlib/SRC/slaqgb.c | 6 +-- lapack-netlib/SRC/slaqge.c | 6 +-- lapack-netlib/SRC/slaqp2.c | 10 ++--- lapack-netlib/SRC/slaqps.c | 10 ++--- lapack-netlib/SRC/slaqr0.c | 16 +++---- lapack-netlib/SRC/slaqr1.c | 6 +-- lapack-netlib/SRC/slaqr2.c | 26 ++++++------ lapack-netlib/SRC/slaqr3.c | 28 ++++++------- lapack-netlib/SRC/slaqr4.c | 14 +++---- lapack-netlib/SRC/slaqr5.c | 16 +++---- lapack-netlib/SRC/slaqsb.c | 6 +-- lapack-netlib/SRC/slaqsp.c | 6 +-- lapack-netlib/SRC/slaqsy.c | 6 +-- lapack-netlib/SRC/slaqtr.c | 12 +++--- lapack-netlib/SRC/slar1v.c | 4 +- lapack-netlib/SRC/slar2v.c | 4 +- lapack-netlib/SRC/slarf.c | 8 ++-- lapack-netlib/SRC/slarfb.c | 8 ++-- lapack-netlib/SRC/slarfb_gett.c | 8 ++-- lapack-netlib/SRC/slarfg.c | 8 ++-- lapack-netlib/SRC/slarfgp.c | 8 ++-- lapack-netlib/SRC/slarft.c | 12 +++--- lapack-netlib/SRC/slarfx.c | 8 ++-- lapack-netlib/SRC/slarfy.c | 10 ++--- lapack-netlib/SRC/slargv.c | 4 +- lapack-netlib/SRC/slarnv.c | 6 +-- lapack-netlib/SRC/slarra.c | 6 +-- lapack-netlib/SRC/slarrb.c | 6 +-- lapack-netlib/SRC/slarrc.c | 6 +-- lapack-netlib/SRC/slarrd.c | 22 +++++----- lapack-netlib/SRC/slarre.c | 32 +++++++------- lapack-netlib/SRC/slarrf.c | 10 ++--- lapack-netlib/SRC/slarrj.c | 6 +-- lapack-netlib/SRC/slarrk.c | 6 +-- lapack-netlib/SRC/slarrr.c | 8 ++-- lapack-netlib/SRC/slarrv.c | 26 ++++++------ lapack-netlib/SRC/slarscl2.c | 4 +- lapack-netlib/SRC/slartg.c | 4 +- lapack-netlib/SRC/slartgp.c | 4 +- lapack-netlib/SRC/slartgs.c | 6 +-- lapack-netlib/SRC/slartv.c | 4 +- lapack-netlib/SRC/slaruv.c | 4 +- lapack-netlib/SRC/slarz.c | 8 ++-- lapack-netlib/SRC/slarzb.c | 13 +++--- lapack-netlib/SRC/slarzt.c | 11 ++--- lapack-netlib/SRC/slas2.c | 4 +- lapack-netlib/SRC/slascl.c | 8 ++-- lapack-netlib/SRC/slascl2.c | 4 +- lapack-netlib/SRC/slasd0.c | 19 +++++---- lapack-netlib/SRC/slasd1.c | 13 +++--- lapack-netlib/SRC/slasd2.c | 15 +++---- lapack-netlib/SRC/slasd3.c | 21 +++++----- lapack-netlib/SRC/slasd4.c | 12 +++--- lapack-netlib/SRC/slasd5.c | 4 +- lapack-netlib/SRC/slasd6.c | 15 +++---- lapack-netlib/SRC/slasd7.c | 13 +++--- lapack-netlib/SRC/slasd8.c | 16 +++---- lapack-netlib/SRC/slasda.c | 19 +++++---- lapack-netlib/SRC/slasdq.c | 17 ++++---- lapack-netlib/SRC/slasdt.c | 4 +- lapack-netlib/SRC/slaset.c | 4 +- lapack-netlib/SRC/slasq1.c | 21 +++++----- lapack-netlib/SRC/slasq2.c | 38 ++++++++--------- lapack-netlib/SRC/slasq3.c | 8 ++-- lapack-netlib/SRC/slasq4.c | 26 ++++++------ lapack-netlib/SRC/slasq5.c | 22 +++++----- lapack-netlib/SRC/slasq6.c | 6 +-- lapack-netlib/SRC/slasr.c | 8 ++-- lapack-netlib/SRC/slasrt.c | 8 ++-- lapack-netlib/SRC/slassq.c | 4 +- lapack-netlib/SRC/slasv2.c | 4 +- lapack-netlib/SRC/slaswlq.c | 17 ++++---- lapack-netlib/SRC/slaswp.c | 6 +-- lapack-netlib/SRC/slasy2.c | 12 +++--- lapack-netlib/SRC/slasyf.c | 8 ++-- lapack-netlib/SRC/slasyf_aa.c | 10 ++--- lapack-netlib/SRC/slasyf_rk.c | 10 ++--- lapack-netlib/SRC/slasyf_rook.c | 10 ++--- lapack-netlib/SRC/slatbs.c | 12 +++--- lapack-netlib/SRC/slatdf.c | 15 +++---- lapack-netlib/SRC/slatps.c | 12 +++--- lapack-netlib/SRC/slatrd.c | 10 ++--- lapack-netlib/SRC/slatrs.c | 12 +++--- lapack-netlib/SRC/slatrs3.c | 22 +++++----- lapack-netlib/SRC/slatrz.c | 10 ++--- lapack-netlib/SRC/slatsqr.c | 17 ++++---- lapack-netlib/SRC/slauu2.c | 10 ++--- lapack-netlib/SRC/slauum.c | 14 +++---- lapack-netlib/SRC/sopgtr.c | 10 ++--- lapack-netlib/SRC/sopmtr.c | 10 ++--- lapack-netlib/SRC/sorbdb.c | 12 +++--- lapack-netlib/SRC/sorbdb1.c | 14 +++---- lapack-netlib/SRC/sorbdb2.c | 14 +++---- lapack-netlib/SRC/sorbdb3.c | 14 +++---- lapack-netlib/SRC/sorbdb4.c | 14 +++---- lapack-netlib/SRC/sorbdb5.c | 15 +++---- lapack-netlib/SRC/sorbdb6.c | 16 +++---- lapack-netlib/SRC/sorcsd.c | 27 ++++++------ lapack-netlib/SRC/sorcsd2by1.c | 23 +++++----- lapack-netlib/SRC/sorg2l.c | 10 ++--- lapack-netlib/SRC/sorg2r.c | 13 +++--- lapack-netlib/SRC/sorgbr.c | 13 +++--- lapack-netlib/SRC/sorghr.c | 12 +++--- lapack-netlib/SRC/sorgl2.c | 13 +++--- lapack-netlib/SRC/sorglq.c | 19 +++++---- lapack-netlib/SRC/sorgql.c | 19 +++++---- lapack-netlib/SRC/sorgqr.c | 19 +++++---- lapack-netlib/SRC/sorgr2.c | 10 ++--- lapack-netlib/SRC/sorgrq.c | 19 +++++---- lapack-netlib/SRC/sorgtr.c | 12 +++--- lapack-netlib/SRC/sorgtsqr.c | 17 ++++---- lapack-netlib/SRC/sorgtsqr_row.c | 15 +++---- lapack-netlib/SRC/sorhr_col.c | 12 +++--- lapack-netlib/SRC/sorm22.c | 19 +++++---- lapack-netlib/SRC/sorm2l.c | 10 ++--- lapack-netlib/SRC/sorm2r.c | 10 ++--- lapack-netlib/SRC/sormbr.c | 14 +++---- lapack-netlib/SRC/sormhr.c | 12 +++--- lapack-netlib/SRC/sorml2.c | 10 ++--- lapack-netlib/SRC/sormlq.c | 19 +++++---- lapack-netlib/SRC/sormql.c | 19 +++++---- lapack-netlib/SRC/sormqr.c | 19 +++++---- lapack-netlib/SRC/sormr2.c | 10 ++--- lapack-netlib/SRC/sormr3.c | 10 ++--- lapack-netlib/SRC/sormrq.c | 19 +++++---- lapack-netlib/SRC/sormrz.c | 16 +++---- lapack-netlib/SRC/sormtr.c | 14 +++---- lapack-netlib/SRC/spbcon.c | 16 +++---- lapack-netlib/SRC/spbequ.c | 10 ++--- lapack-netlib/SRC/spbrfs.c | 14 +++---- lapack-netlib/SRC/spbstf.c | 14 +++---- lapack-netlib/SRC/spbsv.c | 9 ++-- lapack-netlib/SRC/spbsvx.c | 16 +++---- lapack-netlib/SRC/spbtf2.c | 14 +++---- lapack-netlib/SRC/spbtrf.c | 14 +++---- lapack-netlib/SRC/spbtrs.c | 13 +++--- lapack-netlib/SRC/spftrf.c | 29 ++++++------- lapack-netlib/SRC/spftri.c | 18 ++++---- lapack-netlib/SRC/spftrs.c | 13 +++--- lapack-netlib/SRC/spocon.c | 16 +++---- lapack-netlib/SRC/spoequ.c | 10 ++--- lapack-netlib/SRC/spoequb.c | 10 ++--- lapack-netlib/SRC/sporfs.c | 12 +++--- lapack-netlib/SRC/sporfsx.c | 13 +++--- lapack-netlib/SRC/sposv.c | 12 +++--- lapack-netlib/SRC/sposvx.c | 18 ++++---- lapack-netlib/SRC/sposvxx.c | 12 +++--- lapack-netlib/SRC/spotf2.c | 10 ++--- lapack-netlib/SRC/spotrf.c | 14 +++---- lapack-netlib/SRC/spotrf2.c | 21 +++++----- lapack-netlib/SRC/spotri.c | 16 +++---- lapack-netlib/SRC/spotrs.c | 13 +++--- lapack-netlib/SRC/sppcon.c | 16 +++---- lapack-netlib/SRC/sppequ.c | 10 ++--- lapack-netlib/SRC/spprfs.c | 12 +++--- lapack-netlib/SRC/sppsv.c | 9 ++-- lapack-netlib/SRC/sppsvx.c | 16 +++---- lapack-netlib/SRC/spptrf.c | 14 +++---- lapack-netlib/SRC/spptri.c | 19 +++++---- lapack-netlib/SRC/spptrs.c | 13 +++--- lapack-netlib/SRC/spstf2.c | 14 +++---- lapack-netlib/SRC/spstrf.c | 18 ++++---- lapack-netlib/SRC/sptcon.c | 12 +++--- lapack-netlib/SRC/spteqr.c | 17 ++++---- lapack-netlib/SRC/sptrfs.c | 12 +++--- lapack-netlib/SRC/sptsv.c | 9 ++-- lapack-netlib/SRC/sptsvx.c | 15 +++---- lapack-netlib/SRC/spttrf.c | 8 ++-- lapack-netlib/SRC/spttrs.c | 13 +++--- lapack-netlib/SRC/sptts2.c | 8 ++-- lapack-netlib/SRC/srscl.c | 8 ++-- lapack-netlib/SRC/ssb2st_kernels.c | 8 ++-- lapack-netlib/SRC/ssbev.c | 18 ++++---- lapack-netlib/SRC/ssbev_2stage.c | 22 +++++----- lapack-netlib/SRC/ssbevd.c | 18 ++++---- lapack-netlib/SRC/ssbevd_2stage.c | 20 ++++----- lapack-netlib/SRC/ssbevx.c | 24 +++++------ lapack-netlib/SRC/ssbevx_2stage.c | 30 +++++++------- lapack-netlib/SRC/ssbgst.c | 22 +++++----- lapack-netlib/SRC/ssbgv.c | 12 +++--- lapack-netlib/SRC/ssbgvd.c | 19 +++++---- lapack-netlib/SRC/ssbgvx.c | 20 ++++----- lapack-netlib/SRC/ssbtrd.c | 17 ++++---- lapack-netlib/SRC/ssfrk.c | 14 +++---- lapack-netlib/SRC/sspcon.c | 18 ++++---- lapack-netlib/SRC/sspev.c | 16 +++---- lapack-netlib/SRC/sspevd.c | 22 +++++----- lapack-netlib/SRC/sspevx.c | 20 ++++----- lapack-netlib/SRC/sspgst.c | 12 +++--- lapack-netlib/SRC/sspgv.c | 18 ++++---- lapack-netlib/SRC/sspgvd.c | 21 +++++----- lapack-netlib/SRC/sspgvx.c | 15 +++---- lapack-netlib/SRC/ssprfs.c | 12 +++--- lapack-netlib/SRC/sspsv.c | 9 ++-- lapack-netlib/SRC/sspsvx.c | 15 +++---- lapack-netlib/SRC/ssptrd.c | 15 +++---- lapack-netlib/SRC/ssptrf.c | 12 +++--- lapack-netlib/SRC/ssptri.c | 14 +++---- lapack-netlib/SRC/ssptrs.c | 14 +++---- lapack-netlib/SRC/sstebz.c | 14 +++---- lapack-netlib/SRC/sstedc.c | 22 +++++----- lapack-netlib/SRC/sstegr.c | 6 +-- lapack-netlib/SRC/sstein.c | 23 +++++----- lapack-netlib/SRC/sstemr.c | 34 +++++++-------- lapack-netlib/SRC/ssteqr.c | 24 +++++------ lapack-netlib/SRC/ssterf.c | 14 +++---- lapack-netlib/SRC/sstev.c | 16 +++---- lapack-netlib/SRC/sstevd.c | 18 ++++---- lapack-netlib/SRC/sstevr.c | 22 +++++----- lapack-netlib/SRC/sstevx.c | 20 ++++----- lapack-netlib/SRC/ssycon.c | 21 +++++----- lapack-netlib/SRC/ssycon_3.c | 21 +++++----- lapack-netlib/SRC/ssycon_rook.c | 21 +++++----- lapack-netlib/SRC/ssyconv.c | 8 ++-- lapack-netlib/SRC/ssyconvf.c | 10 ++--- lapack-netlib/SRC/ssyconvf_rook.c | 10 ++--- lapack-netlib/SRC/ssyequb.c | 12 +++--- lapack-netlib/SRC/ssyev.c | 20 ++++----- lapack-netlib/SRC/ssyev_2stage.c | 26 ++++++------ lapack-netlib/SRC/ssyevd.c | 22 +++++----- lapack-netlib/SRC/ssyevd_2stage.c | 26 ++++++------ lapack-netlib/SRC/ssyevr.c | 22 +++++----- lapack-netlib/SRC/ssyevr_2stage.c | 22 +++++----- lapack-netlib/SRC/ssyevx.c | 24 +++++------ lapack-netlib/SRC/ssyevx_2stage.c | 24 +++++------ lapack-netlib/SRC/ssygs2.c | 12 +++--- lapack-netlib/SRC/ssygst.c | 15 +++---- lapack-netlib/SRC/ssygv.c | 18 ++++---- lapack-netlib/SRC/ssygv_2stage.c | 23 +++++----- lapack-netlib/SRC/ssygvd.c | 24 ++++++----- lapack-netlib/SRC/ssygvx.c | 18 ++++---- lapack-netlib/SRC/ssyrfs.c | 12 +++--- lapack-netlib/SRC/ssyrfsx.c | 12 +++--- lapack-netlib/SRC/ssysv.c | 10 ++--- lapack-netlib/SRC/ssysv_aa.c | 13 +++--- lapack-netlib/SRC/ssysv_aa_2stage.c | 10 ++--- lapack-netlib/SRC/ssysv_rk.c | 15 +++---- lapack-netlib/SRC/ssysv_rook.c | 10 ++--- lapack-netlib/SRC/ssysvx.c | 16 +++---- lapack-netlib/SRC/ssysvxx.c | 14 +++---- lapack-netlib/SRC/ssyswapr.c | 6 +-- lapack-netlib/SRC/ssytd2.c | 18 ++++---- lapack-netlib/SRC/ssytf2.c | 12 +++--- lapack-netlib/SRC/ssytf2_rk.c | 12 +++--- lapack-netlib/SRC/ssytf2_rook.c | 12 +++--- lapack-netlib/SRC/ssytrd.c | 14 +++---- lapack-netlib/SRC/ssytrd_2stage.c | 16 +++---- lapack-netlib/SRC/ssytrd_sb2st.c | 18 ++++---- lapack-netlib/SRC/ssytrd_sy2sb.c | 19 +++++---- lapack-netlib/SRC/ssytrf.c | 15 +++---- lapack-netlib/SRC/ssytrf_aa.c | 16 +++---- lapack-netlib/SRC/ssytrf_aa_2stage.c | 25 +++++------ lapack-netlib/SRC/ssytrf_rk.c | 12 +++--- lapack-netlib/SRC/ssytrf_rook.c | 10 ++--- lapack-netlib/SRC/ssytri.c | 14 +++---- lapack-netlib/SRC/ssytri2.c | 14 +++---- lapack-netlib/SRC/ssytri2x.c | 23 +++++----- lapack-netlib/SRC/ssytri_3.c | 12 +++--- lapack-netlib/SRC/ssytri_3x.c | 18 ++++---- lapack-netlib/SRC/ssytri_rook.c | 14 +++---- lapack-netlib/SRC/ssytrs.c | 14 +++---- lapack-netlib/SRC/ssytrs2.c | 14 +++---- lapack-netlib/SRC/ssytrs_3.c | 12 +++--- lapack-netlib/SRC/ssytrs_aa.c | 15 +++---- lapack-netlib/SRC/ssytrs_aa_2stage.c | 17 ++++---- lapack-netlib/SRC/ssytrs_rook.c | 14 +++---- lapack-netlib/SRC/stbcon.c | 14 +++---- lapack-netlib/SRC/stbrfs.c | 10 ++--- lapack-netlib/SRC/stbtrs.c | 17 ++++---- lapack-netlib/SRC/stfsm.c | 17 ++++---- lapack-netlib/SRC/stftri.c | 45 ++++++++++---------- lapack-netlib/SRC/stfttp.c | 10 ++--- lapack-netlib/SRC/stfttr.c | 8 ++-- lapack-netlib/SRC/stgevc.c | 22 +++++----- lapack-netlib/SRC/stgex2.c | 32 +++++++------- lapack-netlib/SRC/stgexc.c | 41 +++++++++--------- lapack-netlib/SRC/stgsen.c | 21 +++++----- lapack-netlib/SRC/stgsja.c | 17 ++++---- lapack-netlib/SRC/stgsna.c | 18 ++++---- lapack-netlib/SRC/stgsy2.c | 17 ++++---- lapack-netlib/SRC/stgsyl.c | 20 ++++----- lapack-netlib/SRC/stpcon.c | 14 +++---- lapack-netlib/SRC/stplqt.c | 11 ++--- lapack-netlib/SRC/stplqt2.c | 15 +++---- lapack-netlib/SRC/stpmlqt.c | 11 ++--- lapack-netlib/SRC/stpmqrt.c | 11 ++--- lapack-netlib/SRC/stpqrt.c | 11 ++--- lapack-netlib/SRC/stpqrt2.c | 15 +++---- lapack-netlib/SRC/stprfb.c | 10 ++--- lapack-netlib/SRC/stprfs.c | 10 ++--- lapack-netlib/SRC/stptri.c | 14 +++---- lapack-netlib/SRC/stptrs.c | 14 +++---- lapack-netlib/SRC/stpttf.c | 10 ++--- lapack-netlib/SRC/stpttr.c | 6 +-- lapack-netlib/SRC/strcon.c | 14 +++---- lapack-netlib/SRC/strevc.c | 18 ++++---- lapack-netlib/SRC/strevc3.c | 24 +++++------ lapack-netlib/SRC/strexc.c | 25 +++++------ lapack-netlib/SRC/strrfs.c | 10 ++--- lapack-netlib/SRC/strsen.c | 16 +++---- lapack-netlib/SRC/strsna.c | 20 ++++----- lapack-netlib/SRC/strsyl.c | 14 +++---- lapack-netlib/SRC/strsyl3.c | 24 +++++------ lapack-netlib/SRC/strti2.c | 14 +++---- lapack-netlib/SRC/strtri.c | 14 +++---- lapack-netlib/SRC/strtrs.c | 15 +++---- lapack-netlib/SRC/strttf.c | 8 ++-- lapack-netlib/SRC/strttp.c | 6 +-- lapack-netlib/SRC/stzrzf.c | 16 +++---- lapack-netlib/SRC/xerbla_array.c | 4 +- lapack-netlib/SRC/zbbcsd.c | 22 +++++----- lapack-netlib/SRC/zbdsqr.c | 21 +++++----- lapack-netlib/SRC/zcgesv.c | 28 +++++++------ lapack-netlib/SRC/zcposv.c | 25 ++++++----- lapack-netlib/SRC/zdrscl.c | 10 ++--- lapack-netlib/SRC/zgbbrd.c | 16 +++---- lapack-netlib/SRC/zgbcon.c | 14 +++---- lapack-netlib/SRC/zgbequ.c | 12 +++--- lapack-netlib/SRC/zgbequb.c | 12 +++--- lapack-netlib/SRC/zgbrfs.c | 14 +++---- lapack-netlib/SRC/zgbsv.c | 9 ++-- lapack-netlib/SRC/zgbsvx.c | 21 +++++----- lapack-netlib/SRC/zgbsvxx.c | 19 +++++---- lapack-netlib/SRC/zgbtf2.c | 10 ++--- lapack-netlib/SRC/zgbtrf.c | 12 +++--- lapack-netlib/SRC/zgbtrs.c | 13 +++--- lapack-netlib/SRC/zgebak.c | 17 ++++---- lapack-netlib/SRC/zgebal.c | 13 +++--- lapack-netlib/SRC/zgebd2.c | 12 +++--- lapack-netlib/SRC/zgebrd.c | 15 +++---- lapack-netlib/SRC/zgecon.c | 16 +++---- lapack-netlib/SRC/zgeequ.c | 12 +++--- lapack-netlib/SRC/zgeequb.c | 12 +++--- lapack-netlib/SRC/zgees.c | 25 +++++------ lapack-netlib/SRC/zgeesx.c | 27 ++++++------ lapack-netlib/SRC/zgeev.c | 22 +++++----- lapack-netlib/SRC/zgeevx.c | 24 +++++------ lapack-netlib/SRC/zgehd2.c | 12 +++--- lapack-netlib/SRC/zgehrd.c | 14 +++---- lapack-netlib/SRC/zgejsv.c | 42 +++++++++---------- lapack-netlib/SRC/zgelq.c | 14 +++---- lapack-netlib/SRC/zgelq2.c | 12 +++--- lapack-netlib/SRC/zgelqf.c | 16 +++---- lapack-netlib/SRC/zgelqt.c | 11 ++--- lapack-netlib/SRC/zgelqt3.c | 15 +++---- lapack-netlib/SRC/zgels.c | 27 ++++++------ lapack-netlib/SRC/zgelsd.c | 27 ++++++------ lapack-netlib/SRC/zgelss.c | 33 ++++++++------- lapack-netlib/SRC/zgelst.c | 35 ++++++++-------- lapack-netlib/SRC/zgelsy.c | 18 ++++---- lapack-netlib/SRC/zgemlq.c | 14 +++---- lapack-netlib/SRC/zgemlqt.c | 11 ++--- lapack-netlib/SRC/zgemqr.c | 14 +++---- lapack-netlib/SRC/zgemqrt.c | 11 ++--- lapack-netlib/SRC/zgeql2.c | 12 +++--- lapack-netlib/SRC/zgeqlf.c | 16 +++---- lapack-netlib/SRC/zgeqp3.c | 16 +++---- lapack-netlib/SRC/zgeqr.c | 14 +++---- lapack-netlib/SRC/zgeqr2.c | 12 +++--- lapack-netlib/SRC/zgeqr2p.c | 12 +++--- lapack-netlib/SRC/zgeqrf.c | 16 +++---- lapack-netlib/SRC/zgeqrfp.c | 16 +++---- lapack-netlib/SRC/zgeqrt.c | 11 ++--- lapack-netlib/SRC/zgeqrt2.c | 13 +++--- lapack-netlib/SRC/zgeqrt3.c | 15 +++---- lapack-netlib/SRC/zgerfs.c | 10 ++--- lapack-netlib/SRC/zgerq2.c | 12 +++--- lapack-netlib/SRC/zgerqf.c | 16 +++---- lapack-netlib/SRC/zgesc2.c | 6 +-- lapack-netlib/SRC/zgesdd.c | 32 +++++++------- lapack-netlib/SRC/zgesv.c | 3 +- lapack-netlib/SRC/zgesvd.c | 29 ++++++------- lapack-netlib/SRC/zgesvdq.c | 35 ++++++++-------- lapack-netlib/SRC/zgesvdx.c | 27 ++++++------ lapack-netlib/SRC/zgesvj.c | 38 ++++++++--------- lapack-netlib/SRC/zgesvx.c | 20 +++++---- lapack-netlib/SRC/zgesvxx.c | 16 +++---- lapack-netlib/SRC/zgetc2.c | 10 ++--- lapack-netlib/SRC/zgetf2.c | 10 ++--- lapack-netlib/SRC/zgetrf.c | 12 +++--- lapack-netlib/SRC/zgetrf2.c | 12 +++--- lapack-netlib/SRC/zgetri.c | 14 +++---- lapack-netlib/SRC/zgetrs.c | 16 +++---- lapack-netlib/SRC/zgetsls.c | 24 +++++------ lapack-netlib/SRC/zgetsqrhrt.c | 17 ++++---- lapack-netlib/SRC/zggbak.c | 19 +++++---- lapack-netlib/SRC/zggbal.c | 25 +++++------ lapack-netlib/SRC/zgges.c | 22 +++++----- lapack-netlib/SRC/zgges3.c | 22 +++++----- lapack-netlib/SRC/zggesx.c | 22 +++++----- lapack-netlib/SRC/zggev.c | 22 +++++----- lapack-netlib/SRC/zggev3.c | 22 +++++----- lapack-netlib/SRC/zggevx.c | 24 +++++------ lapack-netlib/SRC/zggglm.c | 23 +++++----- lapack-netlib/SRC/zgghd3.c | 22 +++++----- lapack-netlib/SRC/zgghrd.c | 12 +++--- lapack-netlib/SRC/zgglse.c | 22 +++++----- lapack-netlib/SRC/zggqrf.c | 12 +++--- lapack-netlib/SRC/zggrqf.c | 12 +++--- lapack-netlib/SRC/zggsvd3.c | 14 +++---- lapack-netlib/SRC/zggsvp3.c | 16 +++---- lapack-netlib/SRC/zgsvj0.c | 14 +++---- lapack-netlib/SRC/zgsvj1.c | 14 +++---- lapack-netlib/SRC/zgtcon.c | 20 ++++----- lapack-netlib/SRC/zgtrfs.c | 15 +++---- lapack-netlib/SRC/zgtsv.c | 12 +++--- lapack-netlib/SRC/zgtsvx.c | 12 +++--- lapack-netlib/SRC/zgttrf.c | 8 ++-- lapack-netlib/SRC/zgttrs.c | 14 +++---- lapack-netlib/SRC/zgtts2.c | 6 +-- lapack-netlib/SRC/zhb2st_kernels.c | 8 ++-- lapack-netlib/SRC/zhbev.c | 16 +++---- lapack-netlib/SRC/zhbev_2stage.c | 20 ++++----- lapack-netlib/SRC/zhbevd.c | 20 ++++----- lapack-netlib/SRC/zhbevd_2stage.c | 22 +++++----- lapack-netlib/SRC/zhbevx.c | 24 +++++------ lapack-netlib/SRC/zhbevx_2stage.c | 30 +++++++------- lapack-netlib/SRC/zhbgst.c | 29 ++++++------- lapack-netlib/SRC/zhbgv.c | 15 +++---- lapack-netlib/SRC/zhbgvd.c | 21 +++++----- lapack-netlib/SRC/zhbgvx.c | 20 ++++----- lapack-netlib/SRC/zhbtrd.c | 19 +++++---- lapack-netlib/SRC/zhecon.c | 22 +++++----- lapack-netlib/SRC/zhecon_3.c | 22 +++++----- lapack-netlib/SRC/zhecon_rook.c | 22 +++++----- lapack-netlib/SRC/zheequb.c | 12 +++--- lapack-netlib/SRC/zheev.c | 20 ++++----- lapack-netlib/SRC/zheev_2stage.c | 20 ++++----- lapack-netlib/SRC/zheevd.c | 20 ++++----- lapack-netlib/SRC/zheevd_2stage.c | 22 +++++----- lapack-netlib/SRC/zheevr.c | 31 +++++++------- lapack-netlib/SRC/zheevr_2stage.c | 31 +++++++------- lapack-netlib/SRC/zheevx.c | 31 +++++++------- lapack-netlib/SRC/zheevx_2stage.c | 31 +++++++------- lapack-netlib/SRC/zhegs2.c | 13 +++--- lapack-netlib/SRC/zhegst.c | 12 +++--- lapack-netlib/SRC/zhegv.c | 18 ++++---- lapack-netlib/SRC/zhegv_2stage.c | 19 +++++---- lapack-netlib/SRC/zhegvd.c | 21 +++++----- lapack-netlib/SRC/zhegvx.c | 16 +++---- lapack-netlib/SRC/zherfs.c | 14 +++---- lapack-netlib/SRC/zhesv.c | 12 +++--- lapack-netlib/SRC/zhesv_aa.c | 13 +++--- lapack-netlib/SRC/zhesv_aa_2stage.c | 10 ++--- lapack-netlib/SRC/zhesv_rk.c | 15 +++---- lapack-netlib/SRC/zhesv_rook.c | 12 +++--- lapack-netlib/SRC/zhesvx.c | 12 +++--- lapack-netlib/SRC/zhesvxx.c | 14 +++---- lapack-netlib/SRC/zheswapr.c | 6 +-- lapack-netlib/SRC/zhetd2.c | 19 +++++---- lapack-netlib/SRC/zhetf2.c | 13 +++--- lapack-netlib/SRC/zhetf2_rk.c | 13 +++--- lapack-netlib/SRC/zhetf2_rook.c | 13 +++--- lapack-netlib/SRC/zhetrd.c | 14 +++---- lapack-netlib/SRC/zhetrd_2stage.c | 18 ++++---- lapack-netlib/SRC/zhetrd_hb2st.c | 18 ++++---- lapack-netlib/SRC/zhetrd_he2hb.c | 17 ++++---- lapack-netlib/SRC/zhetrf.c | 15 +++---- lapack-netlib/SRC/zhetrf_aa.c | 18 ++++---- lapack-netlib/SRC/zhetrf_aa_2stage.c | 22 +++++----- lapack-netlib/SRC/zhetrf_rk.c | 14 +++---- lapack-netlib/SRC/zhetrf_rook.c | 12 +++--- lapack-netlib/SRC/zhetri.c | 16 +++---- lapack-netlib/SRC/zhetri2.c | 14 +++---- lapack-netlib/SRC/zhetri2x.c | 23 +++++----- lapack-netlib/SRC/zhetri_3.c | 12 +++--- lapack-netlib/SRC/zhetri_3x.c | 18 ++++---- lapack-netlib/SRC/zhetri_rook.c | 16 +++---- lapack-netlib/SRC/zhetrs.c | 15 +++---- lapack-netlib/SRC/zhetrs2.c | 15 +++---- lapack-netlib/SRC/zhetrs_3.c | 13 +++--- lapack-netlib/SRC/zhetrs_aa.c | 15 +++---- lapack-netlib/SRC/zhetrs_aa_2stage.c | 16 +++---- lapack-netlib/SRC/zhetrs_rook.c | 15 +++---- lapack-netlib/SRC/zhfrk.c | 12 +++--- lapack-netlib/SRC/zhgeqz.c | 18 ++++---- lapack-netlib/SRC/zhpcon.c | 18 ++++---- lapack-netlib/SRC/zhpev.c | 19 +++++---- lapack-netlib/SRC/zhpevd.c | 25 +++++------ lapack-netlib/SRC/zhpevx.c | 23 +++++----- lapack-netlib/SRC/zhpgst.c | 13 +++--- lapack-netlib/SRC/zhpgv.c | 19 +++++---- lapack-netlib/SRC/zhpgvd.c | 24 +++++------ lapack-netlib/SRC/zhpgvx.c | 15 +++---- lapack-netlib/SRC/zhprfs.c | 12 +++--- lapack-netlib/SRC/zhpsv.c | 9 ++-- lapack-netlib/SRC/zhpsvx.c | 12 +++--- lapack-netlib/SRC/zhptrd.c | 15 +++---- lapack-netlib/SRC/zhptrf.c | 13 +++--- lapack-netlib/SRC/zhptri.c | 14 +++---- lapack-netlib/SRC/zhptrs.c | 15 +++---- lapack-netlib/SRC/zhsein.c | 13 +++--- lapack-netlib/SRC/zhseqr.c | 16 +++---- lapack-netlib/SRC/zla_gbamv.c | 8 ++-- lapack-netlib/SRC/zla_gbrcond_c.c | 4 +- lapack-netlib/SRC/zla_gbrcond_x.c | 4 +- lapack-netlib/SRC/zla_gbrfsx_extended.c | 18 ++++---- lapack-netlib/SRC/zla_geamv.c | 8 ++-- lapack-netlib/SRC/zla_gercond_c.c | 8 ++-- lapack-netlib/SRC/zla_gercond_x.c | 8 ++-- lapack-netlib/SRC/zla_gerfsx_extended.c | 20 ++++----- lapack-netlib/SRC/zla_heamv.c | 8 ++-- lapack-netlib/SRC/zla_hercond_c.c | 4 +- lapack-netlib/SRC/zla_hercond_x.c | 4 +- lapack-netlib/SRC/zla_herfsx_extended.c | 18 ++++---- lapack-netlib/SRC/zla_lin_berr.c | 4 +- lapack-netlib/SRC/zla_porcond_c.c | 4 +- lapack-netlib/SRC/zla_porcond_x.c | 4 +- lapack-netlib/SRC/zla_porfsx_extended.c | 18 ++++---- lapack-netlib/SRC/zla_syamv.c | 8 ++-- lapack-netlib/SRC/zla_syrcond_c.c | 4 +- lapack-netlib/SRC/zla_syrcond_x.c | 4 +- lapack-netlib/SRC/zla_syrfsx_extended.c | 18 ++++---- lapack-netlib/SRC/zla_wwaddw.c | 4 +- lapack-netlib/SRC/zlabrd.c | 8 ++-- lapack-netlib/SRC/zlacgv.c | 4 +- lapack-netlib/SRC/zlacn2.c | 16 +++---- lapack-netlib/SRC/zlacon.c | 16 +++---- lapack-netlib/SRC/zlacp2.c | 4 +- lapack-netlib/SRC/zlacpy.c | 4 +- lapack-netlib/SRC/zlacrm.c | 8 ++-- lapack-netlib/SRC/zlacrt.c | 8 ++-- lapack-netlib/SRC/zladiv.c | 2 +- lapack-netlib/SRC/zlaed0.c | 20 ++++----- lapack-netlib/SRC/zlaed7.c | 18 ++++---- lapack-netlib/SRC/zlaed8.c | 20 +++++---- lapack-netlib/SRC/zlaein.c | 8 ++-- lapack-netlib/SRC/zlaesy.c | 4 +- lapack-netlib/SRC/zlaev2.c | 6 +-- lapack-netlib/SRC/zlag2c.c | 4 +- lapack-netlib/SRC/zlags2.c | 8 ++-- lapack-netlib/SRC/zlagtm.c | 6 +-- lapack-netlib/SRC/zlahef.c | 14 +++---- lapack-netlib/SRC/zlahef_aa.c | 12 +++--- lapack-netlib/SRC/zlahef_rk.c | 14 +++---- lapack-netlib/SRC/zlahef_rook.c | 14 +++---- lapack-netlib/SRC/zlahqr.c | 18 ++++---- lapack-netlib/SRC/zlahr2.c | 10 ++--- lapack-netlib/SRC/zlaic1.c | 24 +++++------ lapack-netlib/SRC/zlals0.c | 12 +++--- lapack-netlib/SRC/zlalsa.c | 16 +++---- lapack-netlib/SRC/zlalsd.c | 41 +++++++++--------- lapack-netlib/SRC/zlamswlq.c | 14 +++---- lapack-netlib/SRC/zlamtsqr.c | 16 +++---- lapack-netlib/SRC/zlangb.c | 4 +- lapack-netlib/SRC/zlange.c | 4 +- lapack-netlib/SRC/zlangt.c | 2 +- lapack-netlib/SRC/zlanhb.c | 4 +- lapack-netlib/SRC/zlanhe.c | 4 +- lapack-netlib/SRC/zlanhf.c | 2 +- lapack-netlib/SRC/zlanhp.c | 4 +- lapack-netlib/SRC/zlanhs.c | 4 +- lapack-netlib/SRC/zlanht.c | 2 +- lapack-netlib/SRC/zlansb.c | 4 +- lapack-netlib/SRC/zlansp.c | 4 +- lapack-netlib/SRC/zlansy.c | 4 +- lapack-netlib/SRC/zlantb.c | 4 +- lapack-netlib/SRC/zlantp.c | 4 +- lapack-netlib/SRC/zlantr.c | 4 +- lapack-netlib/SRC/zlapll.c | 12 +++--- lapack-netlib/SRC/zlapmr.c | 6 +-- lapack-netlib/SRC/zlapmt.c | 6 +-- lapack-netlib/SRC/zlaqgb.c | 6 +-- lapack-netlib/SRC/zlaqge.c | 6 +-- lapack-netlib/SRC/zlaqhb.c | 6 +-- lapack-netlib/SRC/zlaqhe.c | 6 +-- lapack-netlib/SRC/zlaqhp.c | 6 +-- lapack-netlib/SRC/zlaqp2.c | 8 ++-- lapack-netlib/SRC/zlaqps.c | 8 ++-- lapack-netlib/SRC/zlaqr0.c | 12 +++--- lapack-netlib/SRC/zlaqr1.c | 6 +-- lapack-netlib/SRC/zlaqr2.c | 24 +++++------ lapack-netlib/SRC/zlaqr3.c | 24 +++++------ lapack-netlib/SRC/zlaqr4.c | 12 +++--- lapack-netlib/SRC/zlaqr5.c | 18 ++++---- lapack-netlib/SRC/zlaqsb.c | 6 +-- lapack-netlib/SRC/zlaqsp.c | 6 +-- lapack-netlib/SRC/zlaqsy.c | 6 +-- lapack-netlib/SRC/zlar1v.c | 4 +- lapack-netlib/SRC/zlar2v.c | 4 +- lapack-netlib/SRC/zlarcm.c | 8 ++-- lapack-netlib/SRC/zlarf.c | 6 +-- lapack-netlib/SRC/zlarfb.c | 8 ++-- lapack-netlib/SRC/zlarfb_gett.c | 8 ++-- lapack-netlib/SRC/zlarfg.c | 10 ++--- lapack-netlib/SRC/zlarfgp.c | 10 ++--- lapack-netlib/SRC/zlarft.c | 12 +++--- lapack-netlib/SRC/zlarfx.c | 8 ++-- lapack-netlib/SRC/zlarfy.c | 10 ++--- lapack-netlib/SRC/zlargv.c | 4 +- lapack-netlib/SRC/zlarnv.c | 6 +-- lapack-netlib/SRC/zlarrv.c | 28 ++++++------- lapack-netlib/SRC/zlarscl2.c | 4 +- lapack-netlib/SRC/zlartg.c | 8 ++-- lapack-netlib/SRC/zlartv.c | 4 +- lapack-netlib/SRC/zlarz.c | 6 +-- lapack-netlib/SRC/zlarzb.c | 15 +++---- lapack-netlib/SRC/zlarzt.c | 14 +++---- lapack-netlib/SRC/zlascl.c | 8 ++-- lapack-netlib/SRC/zlascl2.c | 4 +- lapack-netlib/SRC/zlaset.c | 4 +- lapack-netlib/SRC/zlasr.c | 8 ++-- lapack-netlib/SRC/zlassq.c | 4 +- lapack-netlib/SRC/zlaswlq.c | 17 ++++---- lapack-netlib/SRC/zlaswp.c | 6 +-- lapack-netlib/SRC/zlasyf.c | 10 ++--- lapack-netlib/SRC/zlasyf_aa.c | 10 ++--- lapack-netlib/SRC/zlasyf_rk.c | 12 +++--- lapack-netlib/SRC/zlasyf_rook.c | 12 +++--- lapack-netlib/SRC/zlat2c.c | 4 +- lapack-netlib/SRC/zlatbs.c | 15 +++---- lapack-netlib/SRC/zlatdf.c | 19 +++++---- lapack-netlib/SRC/zlatps.c | 15 +++---- lapack-netlib/SRC/zlatrd.c | 12 +++--- lapack-netlib/SRC/zlatrs.c | 15 +++---- lapack-netlib/SRC/zlatrs3.c | 24 +++++------ lapack-netlib/SRC/zlatrz.c | 10 ++--- lapack-netlib/SRC/zlatsqr.c | 17 ++++---- lapack-netlib/SRC/zlaunhr_col_getrfnp.c | 12 +++--- lapack-netlib/SRC/zlaunhr_col_getrfnp2.c | 12 +++--- lapack-netlib/SRC/zlauu2.c | 13 +++--- lapack-netlib/SRC/zlauum.c | 17 ++++---- lapack-netlib/SRC/zpbcon.c | 14 +++---- lapack-netlib/SRC/zpbequ.c | 10 ++--- lapack-netlib/SRC/zpbrfs.c | 14 +++---- lapack-netlib/SRC/zpbstf.c | 15 +++---- lapack-netlib/SRC/zpbsv.c | 9 ++-- lapack-netlib/SRC/zpbsvx.c | 16 +++---- lapack-netlib/SRC/zpbtf2.c | 15 +++---- lapack-netlib/SRC/zpbtrf.c | 17 ++++---- lapack-netlib/SRC/zpbtrs.c | 12 +++--- lapack-netlib/SRC/zpftrf.c | 32 +++++++------- lapack-netlib/SRC/zpftri.c | 21 +++++----- lapack-netlib/SRC/zpftrs.c | 13 +++--- lapack-netlib/SRC/zpocon.c | 16 +++---- lapack-netlib/SRC/zpoequ.c | 10 ++--- lapack-netlib/SRC/zpoequb.c | 10 ++--- lapack-netlib/SRC/zporfs.c | 14 +++---- lapack-netlib/SRC/zposv.c | 13 +++--- lapack-netlib/SRC/zposvx.c | 21 +++++----- lapack-netlib/SRC/zposvxx.c | 14 +++---- lapack-netlib/SRC/zpotf2.c | 13 +++--- lapack-netlib/SRC/zpotrf.c | 14 +++---- lapack-netlib/SRC/zpotrf2.c | 20 ++++----- lapack-netlib/SRC/zpotri.c | 17 ++++---- lapack-netlib/SRC/zpotrs.c | 14 +++---- lapack-netlib/SRC/zppcon.c | 16 +++---- lapack-netlib/SRC/zppequ.c | 10 ++--- lapack-netlib/SRC/zpprfs.c | 12 +++--- lapack-netlib/SRC/zppsv.c | 9 ++-- lapack-netlib/SRC/zppsvx.c | 14 +++---- lapack-netlib/SRC/zpptrf.c | 15 +++---- lapack-netlib/SRC/zpptri.c | 17 ++++---- lapack-netlib/SRC/zpptrs.c | 13 +++--- lapack-netlib/SRC/zpstf2.c | 15 +++---- lapack-netlib/SRC/zpstrf.c | 16 +++---- lapack-netlib/SRC/zptcon.c | 12 +++--- lapack-netlib/SRC/zpteqr.c | 14 +++---- lapack-netlib/SRC/zptrfs.c | 12 +++--- lapack-netlib/SRC/zptsv.c | 9 ++-- lapack-netlib/SRC/zptsvx.c | 12 +++--- lapack-netlib/SRC/zpttrf.c | 8 ++-- lapack-netlib/SRC/zpttrs.c | 14 +++---- lapack-netlib/SRC/zptts2.c | 8 ++-- lapack-netlib/SRC/zrot.c | 8 ++-- lapack-netlib/SRC/zspcon.c | 18 ++++---- lapack-netlib/SRC/zspmv.c | 10 ++--- lapack-netlib/SRC/zspr.c | 8 ++-- lapack-netlib/SRC/zsprfs.c | 12 +++--- lapack-netlib/SRC/zspsv.c | 9 ++-- lapack-netlib/SRC/zspsvx.c | 15 +++---- lapack-netlib/SRC/zsptrf.c | 12 +++--- lapack-netlib/SRC/zsptri.c | 16 +++---- lapack-netlib/SRC/zsptrs.c | 12 +++--- lapack-netlib/SRC/zstedc.c | 25 +++++------ lapack-netlib/SRC/zstegr.c | 6 +-- lapack-netlib/SRC/zstein.c | 21 +++++----- lapack-netlib/SRC/zstemr.c | 37 +++++++++-------- lapack-netlib/SRC/zsteqr.c | 26 ++++++------ lapack-netlib/SRC/zsycon.c | 22 +++++----- lapack-netlib/SRC/zsycon_3.c | 22 +++++----- lapack-netlib/SRC/zsycon_rook.c | 22 +++++----- lapack-netlib/SRC/zsyconv.c | 8 ++-- lapack-netlib/SRC/zsyconvf.c | 10 ++--- lapack-netlib/SRC/zsyconvf_rook.c | 10 ++--- lapack-netlib/SRC/zsyequb.c | 12 +++--- lapack-netlib/SRC/zsymv.c | 10 ++--- lapack-netlib/SRC/zsyr.c | 8 ++-- lapack-netlib/SRC/zsyrfs.c | 12 +++--- lapack-netlib/SRC/zsysv.c | 10 ++--- lapack-netlib/SRC/zsysv_aa.c | 13 +++--- lapack-netlib/SRC/zsysv_aa_2stage.c | 10 ++--- lapack-netlib/SRC/zsysv_rk.c | 15 +++---- lapack-netlib/SRC/zsysv_rook.c | 10 ++--- lapack-netlib/SRC/zsysvx.c | 14 +++---- lapack-netlib/SRC/zsysvxx.c | 14 +++---- lapack-netlib/SRC/zsyswapr.c | 6 +-- lapack-netlib/SRC/zsytf2.c | 12 +++--- lapack-netlib/SRC/zsytf2_rk.c | 12 +++--- lapack-netlib/SRC/zsytf2_rook.c | 12 +++--- lapack-netlib/SRC/zsytrf.c | 16 +++---- lapack-netlib/SRC/zsytrf_aa.c | 16 +++---- lapack-netlib/SRC/zsytrf_aa_2stage.c | 23 +++++----- lapack-netlib/SRC/zsytrf_rk.c | 12 +++--- lapack-netlib/SRC/zsytrf_rook.c | 12 +++--- lapack-netlib/SRC/zsytri.c | 16 +++---- lapack-netlib/SRC/zsytri2.c | 14 +++---- lapack-netlib/SRC/zsytri2x.c | 23 +++++----- lapack-netlib/SRC/zsytri_3.c | 12 +++--- lapack-netlib/SRC/zsytri_3x.c | 18 ++++---- lapack-netlib/SRC/zsytri_rook.c | 16 +++---- lapack-netlib/SRC/zsytrs.c | 12 +++--- lapack-netlib/SRC/zsytrs2.c | 14 +++---- lapack-netlib/SRC/zsytrs_3.c | 12 +++--- lapack-netlib/SRC/zsytrs_aa.c | 15 +++---- lapack-netlib/SRC/zsytrs_aa_2stage.c | 16 +++---- lapack-netlib/SRC/zsytrs_rook.c | 12 +++--- lapack-netlib/SRC/ztbcon.c | 12 +++--- lapack-netlib/SRC/ztbrfs.c | 10 ++--- lapack-netlib/SRC/ztbtrs.c | 17 ++++---- lapack-netlib/SRC/ztfsm.c | 18 ++++---- lapack-netlib/SRC/ztftri.c | 46 ++++++++++---------- lapack-netlib/SRC/ztfttp.c | 10 ++--- lapack-netlib/SRC/ztfttr.c | 8 ++-- lapack-netlib/SRC/ztgevc.c | 14 +++---- lapack-netlib/SRC/ztgex2.c | 14 +++---- lapack-netlib/SRC/ztgexc.c | 19 +++++---- lapack-netlib/SRC/ztgsen.c | 20 ++++----- lapack-netlib/SRC/ztgsja.c | 16 +++---- lapack-netlib/SRC/ztgsna.c | 18 ++++---- lapack-netlib/SRC/ztgsy2.c | 11 ++--- lapack-netlib/SRC/ztgsyl.c | 18 ++++---- lapack-netlib/SRC/ztpcon.c | 14 +++---- lapack-netlib/SRC/ztplqt.c | 11 ++--- lapack-netlib/SRC/ztplqt2.c | 13 +++--- lapack-netlib/SRC/ztpmlqt.c | 10 ++--- lapack-netlib/SRC/ztpmqrt.c | 10 ++--- lapack-netlib/SRC/ztpqrt.c | 11 ++--- lapack-netlib/SRC/ztpqrt2.c | 13 +++--- lapack-netlib/SRC/ztprfb.c | 8 ++-- lapack-netlib/SRC/ztprfs.c | 10 ++--- lapack-netlib/SRC/ztptri.c | 14 +++---- lapack-netlib/SRC/ztptrs.c | 14 +++---- lapack-netlib/SRC/ztpttf.c | 10 ++--- lapack-netlib/SRC/ztpttr.c | 6 +-- lapack-netlib/SRC/ztrcon.c | 14 +++---- lapack-netlib/SRC/ztrevc.c | 17 ++++---- lapack-netlib/SRC/ztrevc3.c | 24 +++++------ lapack-netlib/SRC/ztrexc.c | 13 +++--- lapack-netlib/SRC/ztrrfs.c | 10 ++--- lapack-netlib/SRC/ztrsen.c | 16 +++---- lapack-netlib/SRC/ztrsna.c | 20 ++++----- lapack-netlib/SRC/ztrsyl.c | 12 +++--- lapack-netlib/SRC/ztrsyl3.c | 24 +++++------ lapack-netlib/SRC/ztrti2.c | 13 +++--- lapack-netlib/SRC/ztrtri.c | 18 ++++---- lapack-netlib/SRC/ztrtrs.c | 16 +++---- lapack-netlib/SRC/ztrttf.c | 8 ++-- lapack-netlib/SRC/ztrttp.c | 6 +-- lapack-netlib/SRC/ztzrzf.c | 16 +++---- lapack-netlib/SRC/zunbdb.c | 17 ++++---- lapack-netlib/SRC/zunbdb1.c | 15 +++---- lapack-netlib/SRC/zunbdb2.c | 17 ++++---- lapack-netlib/SRC/zunbdb3.c | 15 +++---- lapack-netlib/SRC/zunbdb4.c | 17 ++++---- lapack-netlib/SRC/zunbdb5.c | 15 +++---- lapack-netlib/SRC/zunbdb6.c | 17 ++++---- lapack-netlib/SRC/zuncsd.c | 26 ++++++------ lapack-netlib/SRC/zuncsd2by1.c | 23 +++++----- lapack-netlib/SRC/zung2l.c | 10 ++--- lapack-netlib/SRC/zung2r.c | 13 +++--- lapack-netlib/SRC/zungbr.c | 12 +++--- lapack-netlib/SRC/zunghr.c | 12 +++--- lapack-netlib/SRC/zungl2.c | 14 ++++--- lapack-netlib/SRC/zunglq.c | 16 +++---- lapack-netlib/SRC/zungql.c | 16 +++---- lapack-netlib/SRC/zungqr.c | 16 +++---- lapack-netlib/SRC/zungr2.c | 13 +++--- lapack-netlib/SRC/zungrq.c | 16 +++---- lapack-netlib/SRC/zungtr.c | 12 +++--- lapack-netlib/SRC/zungtsqr.c | 17 ++++---- lapack-netlib/SRC/zungtsqr_row.c | 14 +++---- lapack-netlib/SRC/zunhr_col.c | 12 +++--- lapack-netlib/SRC/zunm22.c | 18 ++++---- lapack-netlib/SRC/zunm2l.c | 10 ++--- lapack-netlib/SRC/zunm2r.c | 10 ++--- lapack-netlib/SRC/zunmbr.c | 12 +++--- lapack-netlib/SRC/zunmhr.c | 12 +++--- lapack-netlib/SRC/zunml2.c | 13 +++--- lapack-netlib/SRC/zunmlq.c | 16 +++---- lapack-netlib/SRC/zunmql.c | 16 +++---- lapack-netlib/SRC/zunmqr.c | 16 +++---- lapack-netlib/SRC/zunmr2.c | 13 +++--- lapack-netlib/SRC/zunmr3.c | 10 ++--- lapack-netlib/SRC/zunmrq.c | 16 +++---- lapack-netlib/SRC/zunmrz.c | 16 +++---- lapack-netlib/SRC/zunmtr.c | 12 +++--- lapack-netlib/SRC/zupgtr.c | 15 +++---- lapack-netlib/SRC/zupmtr.c | 10 ++--- 1949 files changed, 14669 insertions(+), 14041 deletions(-) diff --git a/lapack-netlib/SRC/cbbcsd.c b/lapack-netlib/SRC/cbbcsd.c index d3cbea59c..5754ab80b 100644 --- a/lapack-netlib/SRC/cbbcsd.c +++ b/lapack-netlib/SRC/cbbcsd.c @@ -849,7 +849,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * +/* Subroutine */ void cbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * jobv2t, char *trans, integer *m, integer *p, integer *q, real *theta, real *phi, complex *u1, integer *ldu1, complex *u2, integer *ldu2, complex *v1t, integer *ldv1t, complex *v2t, integer *ldv2t, real * @@ -869,14 +869,14 @@ f"> */ real thetamin, thetamax; logical restart11, restart12, restart21, restart22; integer iu1cs, iu2cs; - extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *) ; integer iu1sn, iu2sn, i__, j; real r__; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int clasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void clasr_(char *, char *, char *, integer *, integer *, real *, real *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); integer maxit; @@ -888,12 +888,12 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real thresh, tolmul; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); logical lquery; real b11bulge; logical wantv1t, wantv2t; real b12bulge, b21bulge, b22bulge, eps, tol; - extern /* Subroutine */ int slartgp_(real *, real *, real *, real *, real + extern /* Subroutine */ void slartgp_(real *, real *, real *, real *, real *), slartgs_(real *, real *, real *, real *, real *); @@ -966,7 +966,7 @@ f"> */ if (*info == 0 && *q == 0) { lrworkmin = 1; rwork[1] = (real) lrworkmin; - return 0; + return; } /* Compute workspace */ @@ -991,9 +991,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CBBCSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Get machine constants */ @@ -1086,7 +1086,7 @@ f"> */ ++(*info); } } - return 0; + return; } iter = iter + imax - imin; @@ -1800,7 +1800,7 @@ f"> */ } - return 0; + return; /* End of CBBCSD */ diff --git a/lapack-netlib/SRC/cbdsqr.c b/lapack-netlib/SRC/cbdsqr.c index 288053863..c9b4d0098 100644 --- a/lapack-netlib/SRC/cbdsqr.c +++ b/lapack-netlib/SRC/cbdsqr.c @@ -742,7 +742,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer * +/* Subroutine */ void cbdsqr_(char *uplo, integer *n, integer *ncvt, integer * nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt, complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork, integer *info) @@ -761,23 +761,23 @@ f"> */ real cosl; integer isub, iter; real unfl, sinl, cosr, smin, smax, sinr; - extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *) ; real f, g, h__; integer i__, j, m; real r__; extern logical lsame_(char *, char *); real oldcs; - extern /* Subroutine */ int clasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void clasr_(char *, char *, char *, integer *, integer *, real *, real *, complex *, integer *); integer oldll; real shift, sigmn, oldsn; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer maxit; real sminl, sigmx; logical lower; - extern /* Subroutine */ int csrot_(integer *, complex *, integer *, + extern /* Subroutine */ void csrot_(integer *, complex *, integer *, complex *, integer *, real *, real *), slasq1_(integer *, real *, real *, real *, integer *), slasv2_(real *, real *, real *, real * , real *, real *, real *, real *, real *); @@ -785,10 +785,11 @@ f"> */ integer ll; real sn, mu; extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real sminoa; - extern /* Subroutine */ int slartg_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slartg_(real *, real *, real *, real *, real * ); real thresh; logical rotate; @@ -846,10 +847,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CBDSQR", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } if (*n == 1) { goto L160; @@ -867,7 +868,7 @@ f"> */ /* If INFO equals 2, dqds didn't finish, try to finish */ if (*info != 2) { - return 0; + return; } *info = 0; } @@ -1492,7 +1493,7 @@ L200: /* L210: */ } L220: - return 0; + return; /* End of CBDSQR */ diff --git a/lapack-netlib/SRC/cgbbrd.c b/lapack-netlib/SRC/cgbbrd.c index 61b9e9b50..929f34d13 100644 --- a/lapack-netlib/SRC/cgbbrd.c +++ b/lapack-netlib/SRC/cgbbrd.c @@ -712,7 +712,7 @@ f"> */ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc, +/* Subroutine */ void cgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *ldq, complex *pt, integer *ldpt, complex *c__, integer *ldc, complex *work, real *rwork, integer *info) @@ -725,11 +725,11 @@ f"> */ /* Local variables */ integer inca; real abst; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); integer i__, j, l; complex t; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); logical wantb, wantc; @@ -742,10 +742,11 @@ f"> */ complex rb; integer ml, nr, mu; complex rs; - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clartg_(complex *, - complex *, real *, complex *, complex *), xerbla_(char *, integer - *, ftnlen), clargv_(integer *, complex *, integer *, complex *, + complex *, real *, complex *, complex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clargv_(integer *, complex *, integer *, complex *, integer *, real *, integer *), clartv_(integer *, complex *, integer *, complex *, integer *, real *, complex *, integer *); integer kb1, ml0; @@ -813,7 +814,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBBRD", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize Q and P**H to the unit matrix, if needed */ @@ -828,7 +829,7 @@ f"> */ /* Quick return if possible. */ if (*m == 0 || *n == 0) { - return 0; + return; } minmn = f2cmin(*m,*n); @@ -1237,7 +1238,7 @@ f"> */ } /* L120: */ } - return 0; + return; /* End of CGBBRD */ diff --git a/lapack-netlib/SRC/cgbcon.c b/lapack-netlib/SRC/cgbcon.c index e5bb9a9e8..87565510f 100644 --- a/lapack-netlib/SRC/cgbcon.c +++ b/lapack-netlib/SRC/cgbcon.c @@ -664,7 +664,7 @@ f"> */ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku, +/* Subroutine */ void cgbcon_(char *norm, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, complex *work, real *rwork, integer *info) { @@ -681,20 +681,20 @@ f"> */ *, complex *, integer *); extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical lnoti; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer kd, lm, jp, ix; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatbs_(char *, char *, char *, char *, integer *, integer *, complex *, integer *, complex *, real *, - real *, integer *), xerbla_(char * - , integer *, ftnlen); + real *, integer *); + extern int xerbla_(char * , integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int csrscl_(integer *, real *, complex *, integer + extern /* Subroutine */ void csrscl_(integer *, real *, complex *, integer *); logical onenrm; char normin[1]; @@ -739,7 +739,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -747,9 +747,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -863,7 +863,7 @@ L10: } L40: - return 0; + return; /* End of CGBCON */ diff --git a/lapack-netlib/SRC/cgbequ.c b/lapack-netlib/SRC/cgbequ.c index 18f641204..149497aaf 100644 --- a/lapack-netlib/SRC/cgbequ.c +++ b/lapack-netlib/SRC/cgbequ.c @@ -674,7 +674,7 @@ f"> */ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void cgbequ_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info) { @@ -725,7 +725,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -734,7 +734,7 @@ f"> */ *rowcnd = 1.f; *colcnd = 1.f; *amax = 0.f; - return 0; + return; } /* Get machine constants. */ @@ -795,7 +795,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.f) { *info = i__; - return 0; + return; } /* L50: */ } @@ -872,7 +872,7 @@ f"> */ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.f) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -895,7 +895,7 @@ f"> */ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of CGBEQU */ diff --git a/lapack-netlib/SRC/cgbequb.c b/lapack-netlib/SRC/cgbequb.c index 5de604ee6..caa935499 100644 --- a/lapack-netlib/SRC/cgbequb.c +++ b/lapack-netlib/SRC/cgbequb.c @@ -681,7 +681,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgbequb_(integer *m, integer *n, integer *kl, integer * +/* Subroutine */ void cgbequb_(integer *m, integer *n, integer *kl, integer * ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info) { @@ -732,7 +732,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGBEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -741,7 +741,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rowcnd = 1.f; *colcnd = 1.f; *amax = 0.f; - return 0; + return; } /* Get machine constants. Assume SMLNUM is a power of the radix. */ @@ -811,7 +811,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.f) { *info = i__; - return 0; + return; } /* L50: */ } @@ -891,7 +891,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.f) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -914,7 +914,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of CGBEQUB */ diff --git a/lapack-netlib/SRC/cgbrfs.c b/lapack-netlib/SRC/cgbrfs.c index 373331227..8b9ab20d9 100644 --- a/lapack-netlib/SRC/cgbrfs.c +++ b/lapack-netlib/SRC/cgbrfs.c @@ -730,7 +730,7 @@ f"> */ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer * +/* Subroutine */ void cgbrfs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer * ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer * ldx, real *ferr, real *berr, complex *work, real *rwork, integer * @@ -747,23 +747,24 @@ f"> */ real safe1, safe2; integer i__, j, k; real s; - extern /* Subroutine */ int cgbmv_(char *, integer *, integer *, integer * + extern /* Subroutine */ void cgbmv_(char *, integer *, integer *, integer * , integer *, complex *, complex *, integer *, complex *, integer * , complex *, complex *, integer *); extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer kk; real xk; extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cgbtrs_( char *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); logical notran; @@ -827,7 +828,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -839,7 +840,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1078,7 +1079,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CGBRFS */ diff --git a/lapack-netlib/SRC/cgbsv.c b/lapack-netlib/SRC/cgbsv.c index c5fcd2f82..2bc88cc76 100644 --- a/lapack-netlib/SRC/cgbsv.c +++ b/lapack-netlib/SRC/cgbsv.c @@ -684,7 +684,7 @@ e driver) */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer * +/* Subroutine */ void cgbsv_(integer *n, integer *kl, integer *ku, integer * nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer * ldb, integer *info) { @@ -692,9 +692,10 @@ e driver) */ integer ab_dim1, ab_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int cgbtrf_(integer *, integer *, integer *, - integer *, complex *, integer *, integer *, integer *), xerbla_( - char *, integer *, ftnlen), cgbtrs_(char *, integer *, integer *, + extern /* Subroutine */ void cgbtrf_(integer *, integer *, integer *, + integer *, complex *, integer *, integer *, integer *); + extern int xerbla_( char *, integer *, ftnlen); + extern void cgbtrs_(char *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -737,7 +738,7 @@ e driver) */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the LU factorization of the band matrix A. */ @@ -750,7 +751,7 @@ e driver) */ cgbtrs_("No transpose", n, kl, ku, nrhs, &ab[ab_offset], ldab, &ipiv[ 1], &b[b_offset], ldb, info); } - return 0; + return; /* End of CGBSV */ diff --git a/lapack-netlib/SRC/cgbsvx.c b/lapack-netlib/SRC/cgbsvx.c index 0712d114c..92118b392 100644 --- a/lapack-netlib/SRC/cgbsvx.c +++ b/lapack-netlib/SRC/cgbsvx.c @@ -893,7 +893,7 @@ f"> */ /* > \ingroup complexGBsolve */ /* ===================================================================== */ -/* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl, +/* Subroutine */ void cgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real @@ -911,13 +911,13 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); real rcmin, rcmax, anorm; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); logical equil; integer j1, j2; extern real clangb_(char *, integer *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int claqgb_(integer *, integer *, integer *, + extern /* Subroutine */ void claqgb_(integer *, integer *, integer *, integer *, complex *, integer *, real *, real *, real *, real *, real *, char *), cgbcon_(char *, integer *, integer *, integer *, complex *, integer *, integer *, real *, real *, @@ -925,22 +925,22 @@ f"> */ real colcnd; extern real clantb_(char *, char *, char *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int cgbequ_(integer *, integer *, integer *, + extern /* Subroutine */ void cgbequ_(integer *, integer *, integer *, integer *, complex *, integer *, real *, real *, real *, real *, real *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int cgbrfs_(char *, integer *, integer *, integer + extern /* Subroutine */ void cgbrfs_(char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *), cgbtrf_(integer *, integer *, integer *, integer *, complex *, integer *, integer *, integer *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int cgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void cgbtrs_(char *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); integer infequ; @@ -1080,7 +1080,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1195,7 +1195,7 @@ f"> */ } rwork[1] = rpvgrw; *rcond = 0.f; - return 0; + return; } } @@ -1289,7 +1289,7 @@ f"> */ } rwork[1] = rpvgrw; - return 0; + return; /* End of CGBSVX */ diff --git a/lapack-netlib/SRC/cgbsvxx.c b/lapack-netlib/SRC/cgbsvxx.c index 50804b179..7e0142b46 100644 --- a/lapack-netlib/SRC/cgbsvxx.c +++ b/lapack-netlib/SRC/cgbsvxx.c @@ -1080,7 +1080,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexGBsolve */ /* ===================================================================== */ -/* Subroutine */ int cgbsvxx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void cgbsvxx_(char *fact, char *trans, integer *n, integer * kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex * afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, @@ -1102,19 +1102,19 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); real rcmin, rcmax; logical equil; - extern /* Subroutine */ int claqgb_(integer *, integer *, integer *, + extern /* Subroutine */ void claqgb_(integer *, integer *, integer *, integer *, complex *, integer *, real *, real *, real *, real *, real *, char *); real colcnd; extern real slamch_(char *); - extern /* Subroutine */ int cgbtrf_(integer *, integer *, integer *, + extern /* Subroutine */ void cgbtrf_(integer *, integer *, integer *, integer *, complex *, integer *, integer *, integer *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int cgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void cgbtrs_(char *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); integer infequ; @@ -1123,7 +1123,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical notran; real smlnum; logical rowequ; - extern /* Subroutine */ int clascl2_(integer *, integer *, real *, + extern /* Subroutine */ void clascl2_(integer *, integer *, real *, complex *, integer *), cgbequb_(integer *, integer *, integer *, integer *, complex *, integer *, real *, real *, real *, real *, real *, integer *), cgbrfsx_(char *, char *, integer *, integer *, @@ -1270,7 +1270,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGBSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1346,7 +1346,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = cla_gbrpvgrw_(n, kl, ku, info, &ab[ab_offset], ldab, & afb[afb_offset], ldafb); - return 0; + return; } } @@ -1379,7 +1379,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ clascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); } - return 0; + return; /* End of CGBSVXX */ diff --git a/lapack-netlib/SRC/cgbtf2.c b/lapack-netlib/SRC/cgbtf2.c index 1e2e88535..e09126c80 100644 --- a/lapack-netlib/SRC/cgbtf2.c +++ b/lapack-netlib/SRC/cgbtf2.c @@ -672,7 +672,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info) { /* System generated locals */ @@ -681,7 +681,7 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), cswap_( integer *, complex *, integer *, complex *, integer *); @@ -728,13 +728,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Gaussian elimination with partial pivoting */ @@ -827,7 +827,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of CGBTF2 */ diff --git a/lapack-netlib/SRC/cgbtrf.c b/lapack-netlib/SRC/cgbtrf.c index 8bfcdf526..36a782d54 100644 --- a/lapack-netlib/SRC/cgbtrf.c +++ b/lapack-netlib/SRC/cgbtrf.c @@ -671,7 +671,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info) { /* System generated locals */ @@ -681,7 +681,7 @@ f"> */ /* Local variables */ complex temp; integer i__, j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *), cgeru_(integer *, @@ -691,11 +691,11 @@ f"> */ complex *, integer *); complex work13[4160] /* was [65][64] */, work31[4160] /* was [65][64] */; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer i2, i3, j2, j3, k2; - extern /* Subroutine */ int cgbtf2_(integer *, integer *, integer *, + extern /* Subroutine */ void cgbtf2_(integer *, integer *, integer *, integer *, complex *, integer *, integer *, integer *); integer jb, nb, ii, jj, jm, ip, jp, km, ju, kv; extern integer icamax_(integer *, complex *, integer *); @@ -745,13 +745,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size for this environment */ @@ -1162,7 +1162,7 @@ f"> */ } } - return 0; + return; /* End of CGBTRF */ diff --git a/lapack-netlib/SRC/cgbtrs.c b/lapack-netlib/SRC/cgbtrs.c index df1ea67ee..86df26e23 100644 --- a/lapack-netlib/SRC/cgbtrs.c +++ b/lapack-netlib/SRC/cgbtrs.c @@ -663,7 +663,7 @@ f"> */ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer * +/* Subroutine */ void cgbtrs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *ldb, integer *info) { @@ -674,7 +674,7 @@ f"> */ /* Local variables */ integer i__, j, l; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), @@ -683,8 +683,8 @@ f"> */ integer *, complex *, integer *); logical lnoti; integer kd, lm; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; @@ -730,13 +730,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } kd = *ku + *kl + 1; @@ -851,7 +851,7 @@ f"> */ } } } - return 0; + return; /* End of CGBTRS */ diff --git a/lapack-netlib/SRC/cgebak.c b/lapack-netlib/SRC/cgebak.c index c406a3d39..a40b10ba2 100644 --- a/lapack-netlib/SRC/cgebak.c +++ b/lapack-netlib/SRC/cgebak.c @@ -651,7 +651,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo, +/* Subroutine */ void cgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *scale, integer *m, complex *v, integer *ldv, integer *info) { @@ -662,12 +662,13 @@ f"> */ integer i__, k; real s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical leftv; integer ii; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); logical rightv; @@ -712,19 +713,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEBAK", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*m == 0) { - return 0; + return; } if (lsame_(job, "N")) { - return 0; + return; } if (*ilo == *ihi) { @@ -803,7 +804,7 @@ L50: } } - return 0; + return; /* End of CGEBAK */ diff --git a/lapack-netlib/SRC/cgebal.c b/lapack-netlib/SRC/cgebal.c index 45e8b0f4e..26e827944 100644 --- a/lapack-netlib/SRC/cgebal.c +++ b/lapack-netlib/SRC/cgebal.c @@ -686,7 +686,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgebal_(char *job, integer *n, complex *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info) { /* System generated locals */ @@ -699,15 +699,16 @@ f"> */ integer i__, j, k, l, m; real r__, s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); real sfmin1, sfmin2, sfmax1, sfmax2, ca; extern real scnrm2_(integer *, complex *, integer *); real ra; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); extern logical sisnan_(real *); logical noconv; integer ica, ira; @@ -743,7 +744,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEBAL", &i__1, (ftnlen)6); - return 0; + return; } k = 1; @@ -909,7 +910,7 @@ L160: *info = -3; i__2 = -(*info); xerbla_("CGEBAL", &i__2, (ftnlen)6); - return 0; + return; } f *= 2.f; c__ *= 2.f; @@ -971,7 +972,7 @@ L210: *ilo = k; *ihi = l; - return 0; + return; /* End of CGEBAL */ diff --git a/lapack-netlib/SRC/cgebd2.c b/lapack-netlib/SRC/cgebd2.c index 6f8229b2f..6beb67a56 100644 --- a/lapack-netlib/SRC/cgebd2.c +++ b/lapack-netlib/SRC/cgebd2.c @@ -715,7 +715,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgebd2_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *info) { @@ -726,11 +726,11 @@ f"> */ /* Local variables */ integer i__; complex alpha; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *), - clacgv_(integer *, complex *, integer *), xerbla_(char *, integer - *, ftnlen); + clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.1) -- */ @@ -766,7 +766,7 @@ f"> */ if (*info < 0) { i__1 = -(*info); xerbla_("CGEBD2", &i__1, (ftnlen)6); - return 0; + return; } if (*m >= *n) { @@ -912,7 +912,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of CGEBD2 */ diff --git a/lapack-netlib/SRC/cgebrd.c b/lapack-netlib/SRC/cgebrd.c index 6389348a7..e474cdac3 100644 --- a/lapack-netlib/SRC/cgebrd.c +++ b/lapack-netlib/SRC/cgebrd.c @@ -722,7 +722,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgebrd_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *lwork, integer *info) { @@ -733,15 +733,15 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer nbmin, iinfo, minmn; - extern /* Subroutine */ int cgebd2_(integer *, integer *, complex *, + extern /* Subroutine */ void cgebd2_(integer *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, integer *); integer nb; - extern /* Subroutine */ int clabrd_(integer *, integer *, integer *, + extern /* Subroutine */ void clabrd_(integer *, integer *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, integer *, complex *, integer *); integer nx, ws; @@ -799,9 +799,9 @@ f"> */ if (*info < 0) { i__1 = -(*info); xerbla_("CGEBRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -809,7 +809,7 @@ f"> */ minmn = f2cmin(*m,*n); if (minmn == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } ws = f2cmax(*m,*n); @@ -914,7 +914,7 @@ f"> */ cgebd2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &d__[i__], &e[i__], & tauq[i__], &taup[i__], &work[1], &iinfo); work[1].r = (real) ws, work[1].i = 0.f; - return 0; + return; /* End of CGEBRD */ diff --git a/lapack-netlib/SRC/cgecon.c b/lapack-netlib/SRC/cgecon.c index 4dd42754a..dd67491be 100644 --- a/lapack-netlib/SRC/cgecon.c +++ b/lapack-netlib/SRC/cgecon.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgecon_(char *norm, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info) { /* System generated locals */ @@ -647,7 +647,7 @@ f"> */ real scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real sl; integer ix; @@ -656,7 +656,7 @@ f"> */ real su; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int clatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatrs_(char *, char *, char *, char *, integer *, complex *, integer *, complex *, real *, real *, integer *), csrscl_(integer *, real *, complex *, integer *); @@ -698,7 +698,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGECON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -706,9 +706,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -773,7 +773,7 @@ L10: } L20: - return 0; + return; /* End of CGECON */ diff --git a/lapack-netlib/SRC/cgeequ.c b/lapack-netlib/SRC/cgeequ.c index dfa45c381..466b9290d 100644 --- a/lapack-netlib/SRC/cgeequ.c +++ b/lapack-netlib/SRC/cgeequ.c @@ -648,7 +648,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgeequ_(integer *m, integer *n, complex *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info) { @@ -694,7 +694,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -703,7 +703,7 @@ f"> */ *rowcnd = 1.f; *colcnd = 1.f; *amax = 0.f; - return 0; + return; } /* Get machine constants. */ @@ -759,7 +759,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.f) { *info = i__; - return 0; + return; } /* L50: */ } @@ -830,7 +830,7 @@ f"> */ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.f) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -853,7 +853,7 @@ f"> */ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of CGEEQU */ diff --git a/lapack-netlib/SRC/cgeequb.c b/lapack-netlib/SRC/cgeequb.c index 788d4c841..483403930 100644 --- a/lapack-netlib/SRC/cgeequb.c +++ b/lapack-netlib/SRC/cgeequb.c @@ -656,7 +656,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgeequb_(integer *m, integer *n, complex *a, integer * +/* Subroutine */ void cgeequb_(integer *m, integer *n, complex *a, integer * lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info) { @@ -702,7 +702,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGEEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -711,7 +711,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rowcnd = 1.f; *colcnd = 1.f; *amax = 0.f; - return 0; + return; } /* Get machine constants. Assume SMLNUM is a power of the radix. */ @@ -776,7 +776,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.f) { *info = i__; - return 0; + return; } /* L50: */ } @@ -851,7 +851,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.f) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -874,7 +874,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of CGEEQUB */ diff --git a/lapack-netlib/SRC/cgees.c b/lapack-netlib/SRC/cgees.c index 7b0f60880..a0b44c4b3 100644 --- a/lapack-netlib/SRC/cgees.c +++ b/lapack-netlib/SRC/cgees.c @@ -710,7 +710,7 @@ or GE matrices */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n, +/* Subroutine */ void cgees_(char *jobvs, char *sort, L_fp select, integer *n, complex *a, integer *lda, integer *sdim, complex *w, complex *vs, integer *ldvs, complex *work, integer *lwork, real *rwork, logical * bwork, integer *info) @@ -725,7 +725,7 @@ or GE matrices */ real s; integer icond, ieval; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cgebak_(char *, char *, integer *, integer *, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, integer *, integer *, real *, integer *), slabad_(real *, @@ -734,18 +734,18 @@ or GE matrices */ extern real clange_(char *, integer *, integer *, complex *, integer *, real *); real cscale; - extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void cgehrd_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int chseqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void chseqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunghr_(integer *, integer *, integer *, complex *, integer *, complex *, complex @@ -844,16 +844,16 @@ or GE matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEES ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -971,7 +971,7 @@ or GE matrices */ } work[1].r = (real) maxwrk, work[1].i = 0.f; - return 0; + return; /* End of CGEES */ diff --git a/lapack-netlib/SRC/cgeesx.c b/lapack-netlib/SRC/cgeesx.c index 46ab3631f..848125f1e 100644 --- a/lapack-netlib/SRC/cgeesx.c +++ b/lapack-netlib/SRC/cgeesx.c @@ -752,7 +752,7 @@ f"> */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char * +/* Subroutine */ void cgeesx_(char *jobvs, char *sort, L_fp select, char * sense, integer *n, complex *a, integer *lda, integer *sdim, complex * w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex * work, integer *lwork, real *rwork, logical *bwork, integer *info) @@ -765,7 +765,7 @@ f"> */ real anrm; integer ierr, itau, iwrk, lwrk, i__, icond, ieval; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cgebak_(char *, char *, integer *, integer *, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, integer *, integer *, real *, integer *), slabad_(real *, @@ -774,25 +774,25 @@ f"> */ extern real clange_(char *, integer *, integer *, complex *, integer *, real *); real cscale; - extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void cgehrd_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), chseqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunghr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); logical wantsb; - extern /* Subroutine */ int ctrsen_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ctrsen_(char *, char *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, integer *, integer *); logical wantse; @@ -906,16 +906,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEESX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1054,7 +1054,7 @@ f"> */ } work[1].r = (real) maxwrk, work[1].i = 0.f; - return 0; + return; /* End of CGEESX */ diff --git a/lapack-netlib/SRC/cgeev.c b/lapack-netlib/SRC/cgeev.c index ba4338b1d..b5022234b 100644 --- a/lapack-netlib/SRC/cgeev.c +++ b/lapack-netlib/SRC/cgeev.c @@ -695,7 +695,7 @@ ices */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, +/* Subroutine */ void cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *work, integer *lwork, real *rwork, integer * info) @@ -711,11 +711,11 @@ ices */ char side[1]; real anrm; integer ierr, itau, iwrk, nout, i__, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int cgebak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgebak_(char *, char *, integer *, integer *, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, integer *, integer *, real *, integer *), slabad_(real *, real *); @@ -723,20 +723,21 @@ ices */ extern real clange_(char *, integer *, integer *, complex *, integer *, real *); real cscale; - extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void cgehrd_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, - complex *, integer *), xerbla_(char *, integer *, ftnlen); + complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical select[1]; real bignum; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int chseqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void chseqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunghr_(integer *, integer *, integer *, complex *, integer *, complex *, complex @@ -746,7 +747,7 @@ ices */ real smlnum; integer hswork, irwork; logical lquery, wantvr; - extern /* Subroutine */ int ctrevc3_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ctrevc3_(char *, char *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, real *, integer *, integer *); @@ -868,15 +869,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1111,7 +1112,7 @@ L50: } work[1].r = (real) maxwrk, work[1].i = 0.f; - return 0; + return; /* End of CGEEV */ diff --git a/lapack-netlib/SRC/cgeevx.c b/lapack-netlib/SRC/cgeevx.c index d4e6a2e5d..1d59f2c70 100644 --- a/lapack-netlib/SRC/cgeevx.c +++ b/lapack-netlib/SRC/cgeevx.c @@ -802,7 +802,7 @@ f"> */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char * +/* Subroutine */ void cgeevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, complex *a, integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi, real *scale, real *abnrm, real *rconde, real *rcondv, complex *work, @@ -818,12 +818,12 @@ f"> */ char side[1]; real anrm; integer ierr, itau, iwrk, nout, i__, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); integer icond; extern logical lsame_(char *, char *); extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int cgebak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgebak_(char *, char *, integer *, integer *, integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, integer *, integer *, real *, integer *), slabad_(real *, real *); @@ -831,22 +831,23 @@ f"> */ extern real clange_(char *, integer *, integer *, complex *, integer *, real *); real cscale; - extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void cgehrd_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, - complex *, integer *), xerbla_(char *, integer *, ftnlen); + complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical select[1]; real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int chseqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void chseqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunghr_(integer *, integer *, integer *, complex *, integer *, complex *, complex @@ -860,7 +861,7 @@ f"> */ logical wntsne; real smlnum; logical lquery, wantvr, wntsnn, wntsnv; - extern /* Subroutine */ int ctrevc3_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ctrevc3_(char *, char *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, real *, integer *, integer *); @@ -1019,15 +1020,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1285,7 +1286,7 @@ L50: } work[1].r = (real) maxwrk, work[1].i = 0.f; - return 0; + return; /* End of CGEEVX */ diff --git a/lapack-netlib/SRC/cgehd2.c b/lapack-netlib/SRC/cgehd2.c index 329b3c1b2..16d4fd76e 100644 --- a/lapack-netlib/SRC/cgehd2.c +++ b/lapack-netlib/SRC/cgehd2.c @@ -664,7 +664,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex * +/* Subroutine */ void cgehd2_(integer *n, integer *ilo, integer *ihi, complex * a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -674,10 +674,10 @@ f"> */ /* Local variables */ integer i__; complex alpha; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *), - clarfg_(integer *, complex *, complex *, integer *, complex *), - xerbla_(char *, integer *, ftnlen); + clarfg_(integer *, complex *, complex *, integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -712,7 +712,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEHD2", &i__1, (ftnlen)6); - return 0; + return; } i__1 = *ihi - 1; @@ -749,7 +749,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of CGEHD2 */ diff --git a/lapack-netlib/SRC/cgehrd.c b/lapack-netlib/SRC/cgehrd.c index 6706ff60d..86f3705a1 100644 --- a/lapack-netlib/SRC/cgehrd.c +++ b/lapack-netlib/SRC/cgehrd.c @@ -686,7 +686,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex * +/* Subroutine */ void cgehrd_(integer *n, integer *ilo, integer *ihi, complex * a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { @@ -696,11 +696,11 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer nbmin, iinfo; - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *), cgehd2_( @@ -711,7 +711,7 @@ f"> */ integer ib; complex ei; integer nb, nh; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nx; @@ -771,9 +771,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEHRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Set elements 1:ILO-1 and IHI:N-1 of TAU to zero */ @@ -796,7 +796,7 @@ f"> */ nh = *ihi - *ilo + 1; if (nh <= 1) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Determine the block size */ @@ -913,7 +913,7 @@ f"> */ cgehd2_(n, &i__, ihi, &a[a_offset], lda, &tau[1], &work[1], &iinfo); work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CGEHRD */ diff --git a/lapack-netlib/SRC/cgejsv.c b/lapack-netlib/SRC/cgejsv.c index ca5a5f23a..e4bfd86ae 100644 --- a/lapack-netlib/SRC/cgejsv.c +++ b/lapack-netlib/SRC/cgejsv.c @@ -1086,7 +1086,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgejsv_(char *joba, char *jobu, char *jobv, char *jobr, +/* Subroutine */ void cgejsv_(char *joba, char *jobu, char *jobv, char *jobr, char *jobt, char *jobp, integer *m, integer *n, complex *a, integer * lda, real *sva, complex *u, integer *ldu, complex *v, integer *ldv, complex *cwork, integer *lwork, real *rwork, integer *lrwork, integer @@ -1109,24 +1109,24 @@ f"> */ p, q; logical jracc; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); complex ctemp; real entra, small; integer iwoff; real sfmin; logical lsvec; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); real epsln; logical rsvec; integer lwcon, lwlqf; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer lwqrf, n1; logical l2aber; - extern /* Subroutine */ int cgeqp3_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqp3_(integer *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, real *, integer *); real condr1, condr2, uscal1, uscal2; @@ -1134,53 +1134,54 @@ f"> */ extern real scnrm2_(integer *, complex *, integer *); logical l2pert; integer lrwqp3; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); integer nr; - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); extern integer icamax_(integer *, complex *, integer *); - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); real scalem, sconda; logical goscal; real aatmin; extern real slamch_(char *); real aatmax; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clacpy_( char *, integer *, integer *, complex *, integer *, complex *, integer *), clapmr_(logical *, integer *, integer *, complex *, integer *, integer *); logical noscal; - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), cpocon_(char *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *), csscal_(integer *, real *, complex *, integer *), classq_(integer *, complex *, - integer *, real *, real *), xerbla_(char *, integer *, ftnlen), - cgesvj_(char *, char *, char *, integer *, integer *, complex *, + integer *, real *, real *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cgesvj_(char *, char *, char *, integer *, integer *, complex *, integer *, real *, integer *, complex *, integer *, complex *, - integer *, real *, integer *, integer *), - claswp_(integer *, complex *, integer *, integer *, integer *, + integer *, real *, integer *, integer *); + extern int claswp_(integer *, complex *, integer *, integer *, integer *, integer *, integer *); real entrat; logical almort; complex cdummy[1]; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); real maxprj; - extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); logical errest; integer lrwcon; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); logical transp; integer minwrk, lwsvdj; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); real rdummy[1]; @@ -1784,13 +1785,13 @@ f"> */ /* #:( */ i__1 = -(*info); xerbla_("CGEJSV", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { cwork[1].r = (real) optwrk, cwork[1].i = 0.f; cwork[2].r = (real) minwrk, cwork[2].i = 0.f; rwork[1] = (real) minrwrk; iwork[1] = f2cmax(4,miniwrk); - return 0; + return; } /* Quick return for void matrix (Y3K safe) */ @@ -1807,7 +1808,7 @@ f"> */ rwork[5] = 0.f; rwork[6] = 0.f; rwork[7] = 0.f; - return 0; + return; } /* Determine whether the matrix U should be M x N or M x M */ @@ -1847,7 +1848,7 @@ f"> */ *info = -9; i__2 = -(*info); xerbla_("CGEJSV", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscal) { @@ -1909,7 +1910,7 @@ f"> */ iwork[2] = 0; iwork[3] = 0; iwork[4] = -1; - return 0; + return; } /* Issue warning if denormalized column norms detected. Override the */ @@ -1976,7 +1977,7 @@ f"> */ rwork[6] = 0.f; rwork[7] = 0.f; } - return 0; + return; } @@ -3547,6 +3548,6 @@ L3302: iwork[4] = -1; } - return 0; + return; } /* cgejsv_ */ diff --git a/lapack-netlib/SRC/cgelq.c b/lapack-netlib/SRC/cgelq.c index eefd0fa26..0d9ca6399 100644 --- a/lapack-netlib/SRC/cgelq.c +++ b/lapack-netlib/SRC/cgelq.c @@ -681,7 +681,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgelq_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgelq_(integer *m, integer *n, complex *a, integer *lda, complex *t, integer *tsize, complex *work, integer *lwork, integer * info) { @@ -694,11 +694,11 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cgelqt_(integer *, integer *, integer *, + extern /* Subroutine */ void cgelqt_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); logical lminws, lquery; integer mintsz; - extern /* Subroutine */ int claswlq_(integer *, integer *, integer *, + extern /* Subroutine */ void claswlq_(integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -839,15 +839,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("CGELQ", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The LQ Decomposition */ @@ -861,7 +861,7 @@ static integer c__2 = 2; work[1].r = (real) lwreq, work[1].i = 0.f; - return 0; + return; /* End of CGELQ */ diff --git a/lapack-netlib/SRC/cgelq2.c b/lapack-netlib/SRC/cgelq2.c index 0b2c9b144..5dae7577f 100644 --- a/lapack-netlib/SRC/cgelq2.c +++ b/lapack-netlib/SRC/cgelq2.c @@ -639,7 +639,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgelq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -648,11 +648,11 @@ f"> */ /* Local variables */ integer i__, k; complex alpha; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *), - clacgv_(integer *, complex *, integer *), xerbla_(char *, integer - *, ftnlen); + clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.9.0) -- */ @@ -685,7 +685,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGELQ2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -721,7 +721,7 @@ f"> */ clacgv_(&i__2, &a[i__ + i__ * a_dim1], lda); /* L10: */ } - return 0; + return; /* End of CGELQ2 */ diff --git a/lapack-netlib/SRC/cgelqf.c b/lapack-netlib/SRC/cgelqf.c index 22fe3e5ad..3aa95c177 100644 --- a/lapack-netlib/SRC/cgelqf.c +++ b/lapack-netlib/SRC/cgelqf.c @@ -659,7 +659,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgelqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -667,15 +667,16 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int cgelq2_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelq2_(integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer ib, nb; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -720,9 +721,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGELQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -730,7 +731,7 @@ f"> */ k = f2cmin(*m,*n); if (k == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } nbmin = 2; @@ -815,7 +816,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CGELQF */ diff --git a/lapack-netlib/SRC/cgelqt.c b/lapack-netlib/SRC/cgelqt.c index 969003d43..9f05cfa34 100644 --- a/lapack-netlib/SRC/cgelqt.c +++ b/lapack-netlib/SRC/cgelqt.c @@ -630,7 +630,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgelqt_(integer *m, integer *n, integer *mb, complex *a, +/* Subroutine */ void cgelqt_(integer *m, integer *n, integer *mb, complex *a, integer *lda, complex *t, integer *ldt, complex *work, integer *info) { /* System generated locals */ @@ -638,10 +638,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ integer i__, k, iinfo, ib; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, - integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen), - cgelqt3_(integer *, integer *, complex *, integer *, complex *, + integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cgelqt3_(integer *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -681,14 +682,14 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGELQT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ k = f2cmin(*m,*n); if (k == 0) { - return 0; + return; } /* Blocked loop of length K */ @@ -717,7 +718,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ i__ * a_dim1], lda, &work[1], &i__5); } } - return 0; + return; /* End of CGELQT */ diff --git a/lapack-netlib/SRC/cgelqt3.c b/lapack-netlib/SRC/cgelqt3.c index 5e667dcbe..0d7b3d051 100644 --- a/lapack-netlib/SRC/cgelqt3.c +++ b/lapack-netlib/SRC/cgelqt3.c @@ -627,7 +627,7 @@ static complex c_b1 = {1.f,0.f}; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgelqt3_(integer *m, integer *n, complex *a, integer * +/* Subroutine */ void cgelqt3_(integer *m, integer *n, complex *a, integer * lda, complex *t, integer *ldt, integer *info) { /* System generated locals */ @@ -636,16 +636,17 @@ static complex c_b1 = {1.f,0.f}; /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer iinfo; - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer i1, j1, m1, m2; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, - integer *, complex *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, + integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.8.0) -- */ @@ -679,7 +680,7 @@ static complex c_b1 = {1.f,0.f}; if (*info != 0) { i__1 = -(*info); xerbla_("CGELQT3", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 1) { @@ -793,7 +794,7 @@ static complex c_b1 = {1.f,0.f}; } - return 0; + return; /* End of CGELQT3 */ diff --git a/lapack-netlib/SRC/cgels.c b/lapack-netlib/SRC/cgels.c index 0b2228b0d..6ac7240a8 100644 --- a/lapack-netlib/SRC/cgels.c +++ b/lapack-netlib/SRC/cgels.c @@ -697,7 +697,7 @@ static integer c__0 = 0; /* > \ingroup complexGEsolve */ /* ===================================================================== */ -/* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void cgels_(char *trans, integer *m, integer *n, integer * nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex * work, integer *lwork, integer *info) { @@ -714,24 +714,25 @@ static integer c__0 = 0; integer wsize; real rwork[1]; integer nb; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer mn; - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_( char *, integer *, integer *, real *, real *, integer *, integer * , complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), claset_( char *, integer *, integer *, complex *, complex *, complex *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer scllen; real bignum; - extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, @@ -840,9 +841,9 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("CGELS ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -852,7 +853,7 @@ static integer c__0 = 0; if (f2cmin(i__1,*nrhs) == 0) { i__1 = f2cmax(*m,*n); claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); - return 0; + return; } /* Get machine parameters */ @@ -939,7 +940,7 @@ static integer c__0 = 0; , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; @@ -954,7 +955,7 @@ static integer c__0 = 0; a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* B(N+1:M,1:NRHS) = ZERO */ @@ -1002,7 +1003,7 @@ static integer c__0 = 0; , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* B(M+1:N,1:NRHS) = 0 */ @@ -1047,7 +1048,7 @@ static integer c__0 = 0; a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1077,7 +1078,7 @@ L50: r__1 = (real) wsize; work[1].r = r__1, work[1].i = 0.f; - return 0; + return; /* End of CGELS */ diff --git a/lapack-netlib/SRC/cgelsd.c b/lapack-netlib/SRC/cgelsd.c index a7368621b..195e7b8d2 100644 --- a/lapack-netlib/SRC/cgelsd.c +++ b/lapack-netlib/SRC/cgelsd.c @@ -744,7 +744,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, complex * +/* Subroutine */ void cgelsd_(integer *m, integer *n, integer *nrhs, complex * a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer * iwork, integer *info) @@ -757,13 +757,13 @@ f"> */ integer itau, nlvl, iascl, ibscl; real sfmin; integer minmn, maxmn, itaup, itauq, mnthr, nwork, ie, il; - extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, + extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, integer *, integer *), slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer mm; - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clalsd_( char *, integer *, integer *, integer *, real *, real *, complex * , integer *, real *, integer *, complex *, real *, integer *, @@ -771,13 +771,14 @@ f"> */ real *, integer *, integer *, complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), cunmbr_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), slaset_( @@ -785,7 +786,7 @@ f"> */ complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer ldwork; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer liwork, minwrk, maxwrk; @@ -994,16 +995,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGELSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters. */ @@ -1299,7 +1300,7 @@ L10: work[1].r = (real) maxwrk, work[1].i = 0.f; iwork[1] = liwork; rwork[1] = (real) lrwork; - return 0; + return; /* End of CGELSD */ diff --git a/lapack-netlib/SRC/cgelss.c b/lapack-netlib/SRC/cgelss.c index 683e3c839..2fe469a91 100644 --- a/lapack-netlib/SRC/cgelss.c +++ b/lapack-netlib/SRC/cgelss.c @@ -696,7 +696,7 @@ f"> */ /* > \ingroup complexGEsolve */ /* ===================================================================== */ -/* Subroutine */ int cgelss_(integer *m, integer *n, integer *nrhs, complex * +/* Subroutine */ void cgelss_(integer *m, integer *n, integer *nrhs, complex * a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer * info) @@ -710,41 +710,43 @@ f"> */ integer itau, lwork_cgebrd__, lwork_cgelqf__, lwork_cgeqrf__, lwork_cungbr__, lwork_cunmbr__, i__, lwork_cunmlq__, lwork_cunmqr__; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer iascl, ibscl; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); integer chunk; real sfmin; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer minmn, maxmn, itaup, itauq, mnthr, iwork, bl, ie, il; - extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, + extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, integer *, integer *), slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer mm; - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_( char *, integer *, integer *, real *, real *, integer *, integer * , complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen), cbdsqr_(char *, + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cbdsqr_(char *, integer *, integer *, integer *, integer *, real *, real *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int cungbr_(char *, integer *, integer *, integer + extern /* Subroutine */ void cungbr_(char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), @@ -756,7 +758,7 @@ f"> */ char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer ldwork; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer minwrk, maxwrk; @@ -963,16 +965,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGELSS", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters */ @@ -1431,7 +1433,7 @@ f"> */ } L70: work[1].r = (real) maxwrk, work[1].i = 0.f; - return 0; + return; /* End of CGELSS */ diff --git a/lapack-netlib/SRC/cgelst.c b/lapack-netlib/SRC/cgelst.c index 48ded643d..21187e28d 100644 --- a/lapack-netlib/SRC/cgelst.c +++ b/lapack-netlib/SRC/cgelst.c @@ -710,7 +710,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int cgelst_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void cgelst_(char *trans, integer *m, integer *n, integer * nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex * work, integer *lwork, integer *info) { @@ -727,29 +727,30 @@ f"> */ integer nbmin; real rwork[1]; integer lwopt, nb; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer mn; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex - *, complex *, complex *, integer *), xerbla_(char *, - integer *); + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex + *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cgelqt_(integer *, integer *, integer *, + extern /* Subroutine */ void cgelqt_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer scllen; real bignum; - extern /* Subroutine */ int cgeqrt_(integer *, integer *, integer *, + extern /* Subroutine */ void cgeqrt_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer mnnrhs; real smlnum; logical lquery; extern /* Subroutine */ int ctrtrs_(char *, char *, char *, integer *, - integer *, complex *, integer *, complex *, integer *, integer *), cgemlqt_(char *, char *, integer *, + integer *, complex *, integer *, complex *, integer *, integer *); + extern void cgemlqt_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *), cgemqrt_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, @@ -826,10 +827,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("CGELST ", &i__1); - return 0; + xerbla_("CGELST ", &i__1, 6); + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -841,7 +842,7 @@ f"> */ claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); r__1 = (real) lwopt; work[1].r = r__1, work[1].i = 0.f; - return 0; + return; } /* *GEQRT and *GELQT routines cannot accept NB larger than f2cmin(M,N) */ @@ -901,7 +902,7 @@ f"> */ claset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); r__1 = (real) lwopt; work[1].r = r__1, work[1].i = 0.f; - return 0; + return; } brow = *m; @@ -956,7 +957,7 @@ f"> */ , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; @@ -975,7 +976,7 @@ f"> */ a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* Block 2: Zero out all rows below the N-th row in B: */ @@ -1026,7 +1027,7 @@ f"> */ , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* Block 2: Zero out all rows below the M-th row in B: */ @@ -1071,7 +1072,7 @@ f"> */ a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1100,7 +1101,7 @@ f"> */ r__1 = (real) lwopt; work[1].r = r__1, work[1].i = 0.f; - return 0; + return; /* End of CGELST */ diff --git a/lapack-netlib/SRC/cgelsy.c b/lapack-netlib/SRC/cgelsy.c index 3f974deaf..a9db55ea3 100644 --- a/lapack-netlib/SRC/cgelsy.c +++ b/lapack-netlib/SRC/cgelsy.c @@ -727,7 +727,7 @@ f"> */ /* > G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex * +/* Subroutine */ void cgelsy_(integer *m, integer *n, integer *nrhs, complex * a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer * info) @@ -740,45 +740,45 @@ f"> */ /* Local variables */ real anrm, bnrm, smin, smax; integer i__, j, iascl, ibscl; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer ismin, ismax; complex c1, c2; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *), claic1_(integer *, integer *, complex *, real *, complex *, complex *, real *, complex *, complex *); real wsize; complex s1, s2; - extern /* Subroutine */ int cgeqp3_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqp3_(integer *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, real *, integer *); integer nb; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer mn; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex - *, complex *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex + *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; integer nb1, nb2, nb3, nb4; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); real sminpr, smaxpr, smlnum; - extern /* Subroutine */ int cunmrz_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmrz_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int ctzrzf_(integer *, integer *, complex *, + extern /* Subroutine */ void ctzrzf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); @@ -854,9 +854,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGELSY", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -865,7 +865,7 @@ f"> */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*nrhs) == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters */ @@ -1082,7 +1082,7 @@ L70: q__1.r = (real) lwkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGELSY */ diff --git a/lapack-netlib/SRC/cgemlq.c b/lapack-netlib/SRC/cgemlq.c index a11fc8ce8..527ab2fed 100644 --- a/lapack-netlib/SRC/cgemlq.c +++ b/lapack-netlib/SRC/cgemlq.c @@ -673,7 +673,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgemlq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cgemlq_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *t, integer *tsize, complex *c__, integer *ldc, complex *work, integer *lwork, integer * info) @@ -684,7 +684,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ logical left, tran; - extern /* Subroutine */ int clamswlq_(char *, char *, integer *, integer * + extern /* Subroutine */ void clamswlq_(char *, char *, integer *, integer * , integer *, integer *, integer *, complex *, integer *, complex * , integer *, complex *, integer *, complex *, integer *, integer * ); @@ -693,7 +693,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer mb, nb, mn, lw, nblcks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; - extern /* Subroutine */ int cgemlqt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemlqt_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); @@ -775,9 +775,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGEMLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -785,7 +785,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -802,7 +802,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ r__1 = (real) lw; work[1].r = r__1, work[1].i = 0.f; - return 0; + return; /* End of CGEMLQ */ diff --git a/lapack-netlib/SRC/cgemlqt.c b/lapack-netlib/SRC/cgemlqt.c index 07caec98b..ef6e1cfab 100644 --- a/lapack-netlib/SRC/cgemlqt.c +++ b/lapack-netlib/SRC/cgemlqt.c @@ -658,7 +658,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgemlqt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cgemlqt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *mb, complex *v, integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, integer * info) @@ -673,9 +673,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, kf; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, - integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork; @@ -737,12 +738,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGEMLQT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran) { @@ -803,7 +804,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of CGEMLQT */ diff --git a/lapack-netlib/SRC/cgemqr.c b/lapack-netlib/SRC/cgemqr.c index e9a0efaa8..0ec64b796 100644 --- a/lapack-netlib/SRC/cgemqr.c +++ b/lapack-netlib/SRC/cgemqr.c @@ -675,7 +675,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgemqr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cgemqr_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *t, integer *tsize, complex *c__, integer *ldc, complex *work, integer *lwork, integer * info) @@ -685,7 +685,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ logical left, tran; - extern /* Subroutine */ int clamtsqr_(char *, char *, integer *, integer * + extern /* Subroutine */ void clamtsqr_(char *, char *, integer *, integer * , integer *, integer *, integer *, complex *, integer *, complex * , integer *, complex *, integer *, complex *, integer *, integer * ); @@ -694,7 +694,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer mb, nb, mn, lw, nblcks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; - extern /* Subroutine */ int cgemqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemqrt_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); @@ -775,9 +775,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGEMQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -785,7 +785,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -801,7 +801,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ work[1].r = (real) lw, work[1].i = 0.f; - return 0; + return; /* End of CGEMQR */ diff --git a/lapack-netlib/SRC/cgemqrt.c b/lapack-netlib/SRC/cgemqrt.c index 0771c8508..f374c4a64 100644 --- a/lapack-netlib/SRC/cgemqrt.c +++ b/lapack-netlib/SRC/cgemqrt.c @@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgemqrt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cgemqrt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *nb, complex *v, integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, integer * info) @@ -691,9 +691,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, kf; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, - integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork; @@ -757,12 +758,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGEMQRT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && tran) { @@ -823,7 +824,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of CGEMQRT */ diff --git a/lapack-netlib/SRC/cgeql2.c b/lapack-netlib/SRC/cgeql2.c index 6e8095ffe..240c0dc95 100644 --- a/lapack-netlib/SRC/cgeql2.c +++ b/lapack-netlib/SRC/cgeql2.c @@ -637,7 +637,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgeql2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -647,10 +647,10 @@ f"> */ /* Local variables */ integer i__, k; complex alpha; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *), - clarfg_(integer *, complex *, complex *, integer *, complex *), - xerbla_(char *, integer *, ftnlen); + clarfg_(integer *, complex *, complex *, integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -683,7 +683,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQL2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -712,7 +712,7 @@ f"> */ a[i__1].r = alpha.r, a[i__1].i = alpha.i; /* L10: */ } - return 0; + return; /* End of CGEQL2 */ diff --git a/lapack-netlib/SRC/cgeqlf.c b/lapack-netlib/SRC/cgeqlf.c index 7ca416479..08a18a335 100644 --- a/lapack-netlib/SRC/cgeqlf.c +++ b/lapack-netlib/SRC/cgeqlf.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgeqlf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -662,15 +662,16 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int cgeql2_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeql2_(integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer ib, nb, ki, kk; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer mu, nu, nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -726,15 +727,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQLF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } nbmin = 2; @@ -826,7 +827,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CGEQLF */ diff --git a/lapack-netlib/SRC/cgeqp3.c b/lapack-netlib/SRC/cgeqp3.c index 0e93eae68..8376d54dc 100644 --- a/lapack-netlib/SRC/cgeqp3.c +++ b/lapack-netlib/SRC/cgeqp3.c @@ -674,7 +674,7 @@ f"> */ /* > X. Sun, Computer Science Dept., Duke University, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgeqp3_(integer *m, integer *n, complex *a, integer *lda, integer *jpvt, complex *tau, complex *work, integer *lwork, real * rwork, integer *info) { @@ -684,24 +684,24 @@ f"> */ /* Local variables */ integer nfxd, j, nbmin; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer minmn, minws; - extern /* Subroutine */ int claqp2_(integer *, integer *, integer *, + extern /* Subroutine */ void claqp2_(integer *, integer *, integer *, complex *, integer *, integer *, complex *, real *, real *, complex *); extern real scnrm2_(integer *, complex *, integer *); integer jb, na, nb, sm, sn, nx; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, - integer *, complex *, complex *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, + integer *, complex *, complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int claqps_(integer *, integer *, integer *, + extern /* Subroutine */ void claqps_(integer *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, real *, real *, complex *, complex *, integer *); integer topbmn, sminmn; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer lwkopt; @@ -763,9 +763,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQP3", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Move initial columns up front. */ @@ -921,7 +921,7 @@ L30: q__1.r = (real) lwkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGEQP3 */ diff --git a/lapack-netlib/SRC/cgeqr.c b/lapack-netlib/SRC/cgeqr.c index 6398096ec..2389e358a 100644 --- a/lapack-netlib/SRC/cgeqr.c +++ b/lapack-netlib/SRC/cgeqr.c @@ -683,7 +683,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqr_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgeqr_(integer *m, integer *n, complex *a, integer *lda, complex *t, integer *tsize, complex *work, integer *lwork, integer * info) { @@ -696,11 +696,11 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cgeqrt_(integer *, integer *, integer *, + extern /* Subroutine */ void cgeqrt_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); logical lminws, lquery; integer mintsz; - extern /* Subroutine */ int clatsqr_(integer *, integer *, integer *, + extern /* Subroutine */ void clatsqr_(integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -829,15 +829,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("CGEQR", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The QR Decomposition */ @@ -854,7 +854,7 @@ static integer c__2 = 2; i__1 = f2cmax(i__2,i__3); work[1].r = (real) i__1, work[1].i = 0.f; - return 0; + return; /* End of CGEQR */ diff --git a/lapack-netlib/SRC/cgeqr2.c b/lapack-netlib/SRC/cgeqr2.c index ffffeeeb0..a3adcb7a8 100644 --- a/lapack-netlib/SRC/cgeqr2.c +++ b/lapack-netlib/SRC/cgeqr2.c @@ -644,7 +644,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgeqr2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -654,10 +654,10 @@ f"> */ /* Local variables */ integer i__, k; complex alpha; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *), - clarfg_(integer *, complex *, complex *, integer *, complex *), - xerbla_(char *, integer *, ftnlen); + clarfg_(integer *, complex *, complex *, integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.9.0) -- */ @@ -690,7 +690,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQR2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -723,7 +723,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of CGEQR2 */ diff --git a/lapack-netlib/SRC/cgeqr2p.c b/lapack-netlib/SRC/cgeqr2p.c index 960ffc590..cdefd0c9b 100644 --- a/lapack-netlib/SRC/cgeqr2p.c +++ b/lapack-netlib/SRC/cgeqr2p.c @@ -648,7 +648,7 @@ l elements using an unblocked algorithm. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqr2p_(integer *m, integer *n, complex *a, integer * +/* Subroutine */ void cgeqr2p_(integer *m, integer *n, complex *a, integer * lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -658,9 +658,10 @@ l elements using an unblocked algorithm. */ /* Local variables */ integer i__, k; complex alpha; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * - , integer *, complex *, complex *, integer *, complex *), - xerbla_(char *, integer *, ftnlen), clarfgp_(integer *, complex *, + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * + , integer *, complex *, complex *, integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clarfgp_(integer *, complex *, complex *, integer *, complex *); @@ -694,7 +695,7 @@ l elements using an unblocked algorithm. */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQR2P", &i__1, (ftnlen)7); - return 0; + return; } k = f2cmin(*m,*n); @@ -727,7 +728,7 @@ l elements using an unblocked algorithm. */ } /* L10: */ } - return 0; + return; /* End of CGEQR2P */ diff --git a/lapack-netlib/SRC/cgeqrf.c b/lapack-netlib/SRC/cgeqrf.c index 0fd9debac..42aa20b31 100644 --- a/lapack-netlib/SRC/cgeqrf.c +++ b/lapack-netlib/SRC/cgeqrf.c @@ -661,7 +661,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgeqrf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -669,15 +669,16 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int cgeqr2_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqr2_(integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer ib, nb; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -722,9 +723,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -732,7 +733,7 @@ f"> */ k = f2cmin(*m,*n); if (k == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } nbmin = 2; @@ -817,7 +818,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CGEQRF */ diff --git a/lapack-netlib/SRC/cgeqrfp.c b/lapack-netlib/SRC/cgeqrfp.c index 5079824c8..3f577aa74 100644 --- a/lapack-netlib/SRC/cgeqrfp.c +++ b/lapack-netlib/SRC/cgeqrfp.c @@ -665,7 +665,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqrfp_(integer *m, integer *n, complex *a, integer * +/* Subroutine */ void cgeqrfp_(integer *m, integer *n, complex *a, integer * lda, complex *tau, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -673,17 +673,18 @@ static integer c__2 = 2; /* Local variables */ integer i__, k, nbmin, iinfo, ib, nb; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; logical lquery; - extern /* Subroutine */ int cgeqr2p_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqr2p_(integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer iws; @@ -725,9 +726,9 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("CGEQRFP", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -735,7 +736,7 @@ static integer c__2 = 2; k = f2cmin(*m,*n); if (k == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } nbmin = 2; @@ -820,7 +821,7 @@ static integer c__2 = 2; } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CGEQRFP */ diff --git a/lapack-netlib/SRC/cgeqrt.c b/lapack-netlib/SRC/cgeqrt.c index 3fdeabfd0..362ae322d 100644 --- a/lapack-netlib/SRC/cgeqrt.c +++ b/lapack-netlib/SRC/cgeqrt.c @@ -650,7 +650,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqrt_(integer *m, integer *n, integer *nb, complex *a, +/* Subroutine */ void cgeqrt_(integer *m, integer *n, integer *nb, complex *a, integer *lda, complex *t, integer *ldt, complex *work, integer *info) { /* System generated locals */ @@ -658,10 +658,11 @@ f"> */ /* Local variables */ integer i__, k, iinfo, ib; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, - integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen), - cgeqrt2_(integer *, integer *, complex *, integer *, complex *, + integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cgeqrt2_(integer *, integer *, complex *, integer *, complex *, integer *, integer *), cgeqrt3_(integer *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -702,14 +703,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ k = f2cmin(*m,*n); if (k == 0) { - return 0; + return; } /* Blocked loop of length K */ @@ -744,7 +745,7 @@ f"> */ ib) * a_dim1], lda, &work[1], &i__5); } } - return 0; + return; /* End of CGEQRT */ diff --git a/lapack-netlib/SRC/cgeqrt2.c b/lapack-netlib/SRC/cgeqrt2.c index 3a34ab385..fb7ceb441 100644 --- a/lapack-netlib/SRC/cgeqrt2.c +++ b/lapack-netlib/SRC/cgeqrt2.c @@ -643,7 +643,7 @@ presentation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqrt2_(integer *m, integer *n, complex *a, integer * +/* Subroutine */ void cgeqrt2_(integer *m, integer *n, complex *a, integer * lda, complex *t, integer *ldt, integer *info) { /* System generated locals */ @@ -652,14 +652,15 @@ presentation of Q. */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, + extern /* Subroutine */ void cgerc_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *); complex alpha; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *), clarfg_(integer *, complex *, complex *, integer *, - complex *), xerbla_(char *, integer *, ftnlen); + complex *); + extern int xerbla_(char *, integer *, ftnlen); complex aii; @@ -696,7 +697,7 @@ presentation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQRT2", &i__1, (ftnlen)7); - return 0; + return; } k = f2cmin(*m,*n); @@ -778,6 +779,6 @@ presentation of Q. */ /* End of CGEQRT2 */ - return 0; + return; } /* cgeqrt2_ */ diff --git a/lapack-netlib/SRC/cgeqrt3.c b/lapack-netlib/SRC/cgeqrt3.c index c2aea5dc5..8471a6f05 100644 --- a/lapack-netlib/SRC/cgeqrt3.c +++ b/lapack-netlib/SRC/cgeqrt3.c @@ -647,7 +647,7 @@ compact WY representation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgeqrt3_(integer *m, integer *n, complex *a, integer * +/* Subroutine */ void cgeqrt3_(integer *m, integer *n, complex *a, integer * lda, complex *t, integer *ldt, integer *info) { /* System generated locals */ @@ -656,16 +656,17 @@ compact WY representation of Q. */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer iinfo; - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer i1, j1, n1, n2; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, - integer *, complex *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, + integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -699,7 +700,7 @@ compact WY representation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("CGEQRT3", &i__1, (ftnlen)7); - return 0; + return; } if (*n == 1) { @@ -809,7 +810,7 @@ compact WY representation of Q. */ } - return 0; + return; /* End of CGEQRT3 */ diff --git a/lapack-netlib/SRC/cgerfs.c b/lapack-netlib/SRC/cgerfs.c index a4ce88fad..91b60c677 100644 --- a/lapack-netlib/SRC/cgerfs.c +++ b/lapack-netlib/SRC/cgerfs.c @@ -699,7 +699,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex * +/* Subroutine */ void cgerfs_(char *trans, integer *n, integer *nrhs, complex * a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -716,21 +716,22 @@ f"> */ integer i__, j, k; real s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xk; extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgetrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int cgetrs_( char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); logical notran; @@ -790,7 +791,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGERFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -802,7 +803,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1028,7 +1029,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CGERFS */ diff --git a/lapack-netlib/SRC/cgerq2.c b/lapack-netlib/SRC/cgerq2.c index e3144ff13..05e6d6c9c 100644 --- a/lapack-netlib/SRC/cgerq2.c +++ b/lapack-netlib/SRC/cgerq2.c @@ -633,7 +633,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgerq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -642,11 +642,11 @@ f"> */ /* Local variables */ integer i__, k; complex alpha; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *), clarfg_(integer *, complex *, complex *, integer *, complex *), - clacgv_(integer *, complex *, integer *), xerbla_(char *, integer - *, ftnlen); + clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -679,7 +679,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGERQ2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -710,7 +710,7 @@ f"> */ clacgv_(&i__1, &a[*m - k + i__ + a_dim1], lda); /* L10: */ } - return 0; + return; /* End of CGERQ2 */ diff --git a/lapack-netlib/SRC/cgerqf.c b/lapack-netlib/SRC/cgerqf.c index 86a08e8db..f13a5b245 100644 --- a/lapack-netlib/SRC/cgerqf.c +++ b/lapack-netlib/SRC/cgerqf.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgerqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -662,15 +662,16 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int cgerq2_(integer *, integer *, complex *, + extern /* Subroutine */ void cgerq2_(integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer ib, nb, ki, kk; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer mu, nu, nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -726,15 +727,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGERQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } nbmin = 2; @@ -825,7 +826,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CGERQF */ diff --git a/lapack-netlib/SRC/cgesc2.c b/lapack-netlib/SRC/cgesc2.c index dacfda0d8..6bde5e427 100644 --- a/lapack-netlib/SRC/cgesc2.c +++ b/lapack-netlib/SRC/cgesc2.c @@ -631,7 +631,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex * +/* Subroutine */ void cgesc2_(integer *n, complex *a, integer *lda, complex * rhs, integer *ipiv, integer *jpiv, real *scale) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ /* Local variables */ complex temp; integer i__, j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), slabad_(real *, real *); extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); @@ -745,7 +745,7 @@ f"> */ i__1 = *n - 1; claswp_(&c__1, &rhs[1], lda, &c__1, &i__1, &jpiv[1], &c_n1); - return 0; + return; /* End of CGESC2 */ diff --git a/lapack-netlib/SRC/cgesdd.c b/lapack-netlib/SRC/cgesdd.c index ad9c84c17..3ff545231 100644 --- a/lapack-netlib/SRC/cgesdd.c +++ b/lapack-netlib/SRC/cgesdd.c @@ -742,7 +742,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, complex *a, +/* Subroutine */ void cgesdd_(char *jobz, integer *m, integer *n, complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork, integer *info) @@ -760,26 +760,26 @@ f"> */ real anrm; integer ierr, itau, lwork_cunmbr_qln_mm__, lwork_cunmbr_qln_mn__, lwork_cunmbr_qln_nn__, idum[1], irvt, i__; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); integer chunk, minmn, wrkbl, itaup, itauq; logical wntqa; integer nwork; - extern /* Subroutine */ int clacp2_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clacp2_(char *, integer *, integer *, real *, integer *, complex *, integer *); logical wntqn, wntqo, wntqs; integer mnthr1, mnthr2, ie, lwork_cungbr_p_mn__, il, lwork_cungbr_p_nn__, lwork_cungbr_q_mn__, lwork_cungbr_q_mm__; - extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, + extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, integer *, integer *); integer ir; extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer iu; - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clacrm_( integer *, integer *, complex *, integer *, real *, integer *, complex *, integer *, real *), clarcm_(integer *, integer *, real @@ -790,13 +790,15 @@ f"> */ integer *, real *, integer *, real *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen), cungbr_(char *, + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cungbr_(char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), cunmbr_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunglq_( @@ -804,7 +806,7 @@ f"> */ complex *, integer *, integer *); extern logical sisnan_(real *); integer ldwrkl; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); integer ldwrkr, minwrk, ldwrku, maxwrk, ldwkvt; real smlnum; @@ -1267,15 +1269,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGESDD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1289,7 +1291,7 @@ f"> */ anrm = clange_("M", m, n, &a[a_offset], lda, dum); if (sisnan_(&anrm)) { *info = -4; - return 0; + return; } iscl = 0; if (anrm > 0.f && anrm < smlnum) { @@ -2951,7 +2953,7 @@ f"> */ work[1].r = (real) maxwrk, work[1].i = 0.f; - return 0; + return; /* End of CGESDD */ diff --git a/lapack-netlib/SRC/cgesv.c b/lapack-netlib/SRC/cgesv.c index d3a277b0c..f74542d12 100644 --- a/lapack-netlib/SRC/cgesv.c +++ b/lapack-netlib/SRC/cgesv.c @@ -639,8 +639,10 @@ iver) */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int cgetrf_(integer *, integer *, complex *, - integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen), cgetrs_(char *, integer *, integer *, complex *, integer + extern /* Subroutine */ void cgetrf_(integer *, integer *, complex *, + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cgetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); diff --git a/lapack-netlib/SRC/cgesvd.c b/lapack-netlib/SRC/cgesvd.c index 752cc375b..67a2c0030 100644 --- a/lapack-netlib/SRC/cgesvd.c +++ b/lapack-netlib/SRC/cgesvd.c @@ -732,7 +732,7 @@ f"> */ /* > \ingroup complexGEsing */ /* ===================================================================== */ -/* Subroutine */ int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, +/* Subroutine */ void cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, complex *a, integer *lda, real *s, complex *u, integer *ldu, complex * vt, integer *ldvt, complex *work, integer *lwork, real *rwork, integer *info) @@ -749,40 +749,41 @@ f"> */ real anrm; integer ierr, itau, ncvt, nrvt, lwork_cgebrd__, lwork_cgelqf__, lwork_cgeqrf__, i__; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork; logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; integer ie; - extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, + extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, integer *, integer *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer ir, iu; - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_( char *, integer *, integer *, real *, real *, integer *, integer * , complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), cbdsqr_(char *, integer *, integer *, integer *, integer *, real *, real *, complex *, integer *, complex *, integer *, - complex *, integer *, real *, integer *), xerbla_(char *, - integer *, ftnlen), cungbr_(char *, integer *, integer *, integer + complex *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cungbr_(char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cunmbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void cunmbr_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunglq_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), cungqr_( @@ -1334,15 +1335,15 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("CGESVD", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Get machine constants */ @@ -4718,7 +4719,7 @@ f"> */ work[1].r = (real) maxwrk, work[1].i = 0.f; - return 0; + return; /* End of CGESVD */ diff --git a/lapack-netlib/SRC/cgesvdq.c b/lapack-netlib/SRC/cgesvdq.c index d5cf58f82..77f1b45f3 100644 --- a/lapack-netlib/SRC/cgesvdq.c +++ b/lapack-netlib/SRC/cgesvdq.c @@ -932,7 +932,7 @@ static logical c_false = FALSE_; /* > \ingroup complexGEsing */ /* ===================================================================== */ -/* Subroutine */ int cgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, +/* Subroutine */ void cgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, char *jobv, integer *m, integer *n, complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *v, integer *ldv, integer *numrank, integer *iwork, integer *liwork, complex *cwork, integer *lcwork, @@ -965,7 +965,7 @@ static logical c_false = FALSE_; logical dntwu, dntwv, wntuf, wntva; integer lwunq; logical wntur, wntus, wntvr; - extern /* Subroutine */ int cgeqp3_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqp3_(integer *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, real *, integer *); extern real scnrm2_(integer *, complex *, integer *); @@ -973,21 +973,22 @@ static logical c_false = FALSE_; extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer nr; - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_( char *, integer *, integer *, real *, real *, integer *, integer * , complex *, integer *, integer *); real sconda; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), csscal_( integer *, real *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int cgesvd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgesvd_(char *, char *, integer *, integer *, complex *, integer *, real *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, - integer *, complex *, complex *, complex *, integer *), - xerbla_(char *, integer *, ftnlen), clapmt_(logical *, integer *, + integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clapmt_(logical *, integer *, integer *, complex *, integer *, integer *), slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real * , integer *, integer *), cpocon_(char *, integer *, @@ -995,10 +996,11 @@ static logical c_false = FALSE_; ); extern integer isamax_(integer *, real *, integer *); extern /* Subroutine */ int claswp_(integer *, complex *, integer *, - integer *, integer *, integer *, integer *), slaset_(char *, + integer *, integer *, integer *, integer *); + extern void slaset_(char *, integer *, integer *, real *, real *, real *, integer *); complex cdummy[1]; - extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, @@ -1380,7 +1382,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); xerbla_("CGESVDQ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { /* Return optimal workspace */ @@ -1389,13 +1391,13 @@ static logical c_false = FALSE_; cwork[1].r = (real) optwrk, cwork[1].i = 0.f; cwork[2].r = (real) minwrk, cwork[2].i = 0.f; rwork[1] = (real) rminwrk; - return 0; + return; } /* Quick return if the matrix is void. */ if (*m == 0 || *n == 0) { - return 0; + return; } big = slamch_("O"); @@ -1412,7 +1414,7 @@ static logical c_false = FALSE_; *info = -8; i__2 = -(*info); xerbla_("CGESVDQ", &i__2, (ftnlen)7); - return 0; + return; } /* L1904: */ } @@ -1466,7 +1468,7 @@ static logical c_false = FALSE_; rwork[1] = -1.f; } rwork[2] = -1.f; - return 0; + return; } if (rwork[1] > big / sqrt((real) (*m))) { @@ -1490,7 +1492,7 @@ static logical c_false = FALSE_; *info = -8; i__1 = -(*info); xerbla_("CGESVDQ", &i__1, (ftnlen)7); - return 0; + return; } if (rtmp > big / sqrt((real) (*m))) { /* matrix by 1/sqrt(M) if too large entry detected */ @@ -2317,7 +2319,7 @@ L4002: /* full row rank triangular (trapezoidal) factor of A. */ *numrank = nr; - return 0; + return; /* End of CGESVDQ */ diff --git a/lapack-netlib/SRC/cgesvdx.c b/lapack-netlib/SRC/cgesvdx.c index 7df4cf246..0274709a3 100644 --- a/lapack-netlib/SRC/cgesvdx.c +++ b/lapack-netlib/SRC/cgesvdx.c @@ -786,7 +786,7 @@ static integer c_n1 = -1; /* > \ingroup complexGEsing */ /* ===================================================================== */ -/* Subroutine */ int cgesvdx_(char *jobu, char *jobvt, char *range, integer * +/* Subroutine */ void cgesvdx_(char *jobu, char *jobvt, char *range, integer * m, integer *n, complex *a, integer *lda, real *vl, real *vu, integer * il, integer *iu, integer *ns, real *s, complex *u, integer *ldu, complex *vt, integer *ldvt, complex *work, integer *lwork, real * @@ -813,43 +813,44 @@ static integer c_n1 = -1; integer iltgk, itemp, minmn, itaup, itauq, iutgk, itgkz, mnthr; logical wantu; integer id, ie; - extern /* Subroutine */ int cgebrd_(integer *, integer *, complex *, + extern /* Subroutine */ void cgebrd_(integer *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, integer *, integer *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clascl_( char *, integer *, integer *, real *, real *, integer *, integer * , complex *, integer *, integer *), cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clacpy_(char *, - integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); real abstol; - extern /* Subroutine */ int cunmbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void cunmbr_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); char rngtgk[1]; - extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer itempr; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer minwrk, maxwrk; real smlnum; logical lquery, wantvt; real dum[1], eps; - extern /* Subroutine */ int sbdsvdx_(char *, char *, char *, integer *, + extern /* Subroutine */ void sbdsvdx_(char *, char *, char *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -1049,15 +1050,15 @@ static integer c_n1 = -1; if (*info != 0) { i__2 = -(*info); xerbla_("CGESVDX", &i__2, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Set singular values indices accord to RANGE='A'. */ @@ -1501,7 +1502,7 @@ static integer c_n1 = -1; q__1.r = r__1, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGESVDX */ diff --git a/lapack-netlib/SRC/cgesvj.c b/lapack-netlib/SRC/cgesvj.c index 53b113281..82837435b 100644 --- a/lapack-netlib/SRC/cgesvj.c +++ b/lapack-netlib/SRC/cgesvj.c @@ -868,7 +868,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgesvj_(char *joba, char *jobu, char *jobv, integer *m, +/* Subroutine */ void cgesvj_(char *joba, char *jobu, char *jobv, integer *m, integer *n, complex *a, integer *lda, real *sva, integer *mv, complex *v, integer *ldv, complex *cwork, integer *lwork, real *rwork, integer *lrwork, integer *info) @@ -885,7 +885,7 @@ f"> */ real aaqq, ctol; integer ierr; real bigtheta; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); complex ompq; integer pskipped; @@ -898,16 +898,16 @@ f"> */ extern logical lsame_(char *, char *); real theta, small, sfmin; logical lsvec; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); real epsln; logical applv, rsvec, uctol; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical lower, upper, rotok; integer n2, n4; - extern /* Subroutine */ int cgsvj0_(char *, integer *, integer *, complex + extern /* Subroutine */ void cgsvj0_(char *, integer *, integer *, complex *, integer *, complex *, real *, integer *, complex *, integer *, real *, real *, real *, integer *, complex *, integer *, integer * ), cgsvj1_(char *, integer *, integer *, integer *, @@ -918,18 +918,19 @@ f"> */ extern real scnrm2_(integer *, complex *, integer *); integer n34; real cs, sn; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, - complex *, integer *), xerbla_(char *, integer *, ftnlen); + complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer blskip; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); real mxaapq, thsign, mxsinj; integer ir1, emptsw; @@ -1014,18 +1015,18 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGESVJ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { i__1 = *m + *n; cwork[1].r = (real) i__1, cwork[1].i = 0.f; rwork[1] = (real) f2cmax(*n,6); - return 0; + return; } /* #:) Quick return for void matrix */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Set numerical parameters */ @@ -1067,7 +1068,7 @@ f"> */ *info = -4; i__1 = -(*info); xerbla_("CGESVJ", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize the right singular vector matrix. */ @@ -1105,7 +1106,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("CGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1135,7 +1136,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("CGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1165,7 +1166,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("CGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1221,7 +1222,7 @@ f"> */ rwork[4] = 0.f; rwork[5] = 0.f; rwork[6] = 0.f; - return 0; + return; } /* #:) Quick return for one-column matrix */ @@ -1241,7 +1242,7 @@ f"> */ rwork[4] = 0.f; rwork[5] = 0.f; rwork[6] = 0.f; - return 0; + return; } /* Protect small singular values from underflow, and try to */ @@ -2267,6 +2268,6 @@ L1995: /* MXSINJ is the largest absolute value of the sines of Jacobi angles */ /* in the last sweep */ - return 0; + return; } /* cgesvj_ */ diff --git a/lapack-netlib/SRC/cgesvx.c b/lapack-netlib/SRC/cgesvx.c index b39803abb..cc7485672 100644 --- a/lapack-netlib/SRC/cgesvx.c +++ b/lapack-netlib/SRC/cgesvx.c @@ -857,7 +857,7 @@ f"> */ /* > \ingroup complexGEsolve */ /* ===================================================================== */ -/* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void cgesvx_(char *fact, char *trans, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, @@ -878,22 +878,24 @@ f"> */ logical equil; extern real clange_(char *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int claqge_(integer *, integer *, complex *, + extern /* Subroutine */ void claqge_(integer *, integer *, complex *, integer *, real *, real *, real *, real *, real *, char *) , cgecon_(char *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *); real colcnd; extern real slamch_(char *); - extern /* Subroutine */ int cgeequ_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeequ_(integer *, integer *, complex *, integer *, real *, real *, real *, real *, real *, integer *); logical nofact; - extern /* Subroutine */ int cgerfs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cgerfs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, real *, - integer *), cgetrf_(integer *, integer *, complex *, - integer *, integer *, integer *), clacpy_(char *, integer *, - integer *, complex *, integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + integer *); + extern int cgetrf_(integer *, integer *, complex *, + integer *, integer *, integer *); + extern void clacpy_(char *, integer *, + integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; extern real clantr_(char *, char *, char *, integer *, integer *, complex *, integer *, real *); @@ -1029,7 +1031,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGESVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1110,7 +1112,7 @@ f"> */ } rwork[1] = rpvgrw; *rcond = 0.f; - return 0; + return; } } @@ -1203,7 +1205,7 @@ f"> */ } rwork[1] = rpvgrw; - return 0; + return; /* End of CGESVX */ diff --git a/lapack-netlib/SRC/cgesvxx.c b/lapack-netlib/SRC/cgesvxx.c index ced9e0b2c..c17d8f599 100644 --- a/lapack-netlib/SRC/cgesvxx.c +++ b/lapack-netlib/SRC/cgesvxx.c @@ -1048,7 +1048,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexGEsolve */ /* ===================================================================== */ -/* Subroutine */ int cgesvxx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void cgesvxx_(char *fact, char *trans, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, @@ -1070,26 +1070,26 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); real rcmin, rcmax; logical equil; - extern /* Subroutine */ int claqge_(integer *, integer *, complex *, + extern /* Subroutine */ void claqge_(integer *, integer *, complex *, integer *, real *, real *, real *, real *, real *, char *) ; real colcnd; extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int cgetrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgetrf_(integer *, integer *, complex *, integer *, integer *, integer *), clacpy_(char *, integer *, - integer *, complex *, integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; logical colequ; - extern /* Subroutine */ int cgetrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cgetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real rowcnd; logical notran; real smlnum; logical rowequ; - extern /* Subroutine */ int clascl2_(integer *, integer *, real *, + extern /* Subroutine */ void clascl2_(integer *, integer *, real *, complex *, integer *), cgeequb_(integer *, integer *, complex *, integer *, real *, real *, real *, real *, real *, integer *), cgerfsx_(char *, char *, integer *, integer *, complex *, integer @@ -1231,7 +1231,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGESVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1297,7 +1297,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = cla_gerpvgrw_(n, info, &a[a_offset], lda, &af[ af_offset], ldaf); - return 0; + return; } } @@ -1328,7 +1328,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ clascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); } - return 0; + return; /* End of CGESVXX */ diff --git a/lapack-netlib/SRC/cgetc2.c b/lapack-netlib/SRC/cgetc2.c index 8c1d12d83..46362ce92 100644 --- a/lapack-netlib/SRC/cgetc2.c +++ b/lapack-netlib/SRC/cgetc2.c @@ -625,7 +625,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer * +/* Subroutine */ void cgetc2_(integer *n, complex *a, integer *lda, integer * ipiv, integer *jpiv, integer *info) { /* System generated locals */ @@ -636,7 +636,7 @@ f"> */ /* Local variables */ real smin, xmax; integer i__, j; - extern /* Subroutine */ int cgeru_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *), slabad_(real *, real *); @@ -668,7 +668,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -689,7 +689,7 @@ f"> */ q__1.r = smlnum, q__1.i = 0.f; a[i__1].r = q__1.r, a[i__1].i = q__1.i; } - return 0; + return; } /* Factorize A using complete pivoting. */ @@ -770,7 +770,7 @@ f"> */ ipiv[*n] = *n; jpiv[*n] = *n; - return 0; + return; /* End of CGETC2 */ diff --git a/lapack-netlib/SRC/cgetf2.c b/lapack-netlib/SRC/cgetf2.c index 61b27239c..e7b8f558c 100644 --- a/lapack-netlib/SRC/cgetf2.c +++ b/lapack-netlib/SRC/cgetf2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgetf2_(integer *m, integer *n, complex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -632,11 +632,11 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *); real sfmin; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer jp; extern integer icamax_(integer *, complex *, integer *); @@ -673,13 +673,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGETF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Compute machine safe minimum */ @@ -740,7 +740,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of CGETF2 */ diff --git a/lapack-netlib/SRC/cgetrf.c b/lapack-netlib/SRC/cgetrf.c index 485f9d848..a5fc71f1d 100644 --- a/lapack-netlib/SRC/cgetrf.c +++ b/lapack-netlib/SRC/cgetrf.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void cgetrf_(integer *m, integer *n, complex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -632,18 +632,18 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer iinfo; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer jb, nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int claswp_(integer *, complex *, integer *, + extern /* Subroutine */ void claswp_(integer *, complex *, integer *, integer *, integer *, integer *, integer *), cgetrf2_(integer *, integer *, complex *, integer *, integer *, integer *); @@ -677,13 +677,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGETRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -762,7 +762,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of CGETRF */ diff --git a/lapack-netlib/SRC/cgetrf2.c b/lapack-netlib/SRC/cgetrf2.c index 88eff2b44..4d0a8ecc1 100644 --- a/lapack-netlib/SRC/cgetrf2.c +++ b/lapack-netlib/SRC/cgetrf2.c @@ -624,7 +624,7 @@ static integer c__1 = 1; /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgetrf2_(integer *m, integer *n, complex *a, integer * +/* Subroutine */ void cgetrf2_(integer *m, integer *n, complex *a, integer * lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -634,19 +634,20 @@ static integer c__1 = 1; /* Local variables */ complex temp; integer i__; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *); integer iinfo; real sfmin; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer n1, n2; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), claswp_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int claswp_( integer *, complex *, integer *, integer *, integer *, integer *, integer *); @@ -680,13 +681,13 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CGETRF2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (*m == 1) { @@ -807,7 +808,7 @@ static integer c__1 = 1; claswp_(&n1, &a[a_dim1 + 1], lda, &i__1, &i__2, &ipiv[1], &c__1); } - return 0; + return; /* End of CGETRF2 */ diff --git a/lapack-netlib/SRC/cgetri.c b/lapack-netlib/SRC/cgetri.c index 803aa666e..aed0fbd54 100644 --- a/lapack-netlib/SRC/cgetri.c +++ b/lapack-netlib/SRC/cgetri.c @@ -630,7 +630,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer * +/* Subroutine */ void cgetri_(integer *n, complex *a, integer *lda, integer * ipiv, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -639,13 +639,13 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), cgemv_(char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer nbmin; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); @@ -696,15 +696,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGETRI", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form inv(U). If INFO > 0 from CTRTRI, then U is singular, */ @@ -712,7 +712,7 @@ f"> */ ctrtri_("Upper", "Non-unit", n, &a[a_offset], lda, info); if (*info > 0) { - return 0; + return; } nbmin = 2; @@ -817,7 +817,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CGETRI */ diff --git a/lapack-netlib/SRC/cgetrs.c b/lapack-netlib/SRC/cgetrs.c index dfdd204a8..3d895187d 100644 --- a/lapack-netlib/SRC/cgetrs.c +++ b/lapack-netlib/SRC/cgetrs.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex * +/* Subroutine */ void cgetrs_(char *trans, integer *n, integer *nrhs, complex * a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * info) { @@ -645,10 +645,11 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, - integer *), xerbla_(char *, - integer *, ftnlen), claswp_(integer *, complex *, integer *, + integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void claswp_(integer *, complex *, integer *, integer *, integer *, integer *, integer *); logical notran; @@ -691,13 +692,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGETRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (notran) { @@ -736,7 +737,7 @@ f"> */ claswp_(nrhs, &b[b_offset], ldb, &c__1, n, &ipiv[1], &c_n1); } - return 0; + return; /* End of CGETRS */ diff --git a/lapack-netlib/SRC/cgetsls.c b/lapack-netlib/SRC/cgetsls.c index 6f550a9f1..b2a87f4f0 100644 --- a/lapack-netlib/SRC/cgetsls.c +++ b/lapack-netlib/SRC/cgetsls.c @@ -674,7 +674,7 @@ static integer c__0 = 0; /* > \ingroup complexGEsolve */ /* ===================================================================== */ -/* Subroutine */ int cgetsls_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void cgetsls_(char *trans, integer *m, integer *n, integer * nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex * work, integer *lwork, integer *info) { @@ -686,26 +686,27 @@ static integer c__0 = 0; real anrm, bnrm; logical tran; integer brow, tszm, tszo, info2, i__, j, iascl, ibscl; - extern /* Subroutine */ int cgelq_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelq_(integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgeqr_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqr_(integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer minmn, maxmn; complex workq[1]; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); complex tq[5]; extern real slamch_(char *); - extern /* Subroutine */ int cgemlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemlq_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *), claset_(char *, integer *, integer *, complex *, complex *, - complex *, integer *), xerbla_(char *, integer *, ftnlen), - cgemqr_(char *, char *, integer *, integer *, integer *, complex + complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cgemqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer scllen; @@ -821,7 +822,7 @@ static integer c__0 = 0; xerbla_("CGETSLS", &i__1, (ftnlen)7); r__1 = (real) wsizeo; work[1].r = r__1, work[1].i = 0.f; - return 0; + return; } if (lquery) { if (*lwork == -1) { @@ -832,7 +833,7 @@ static integer c__0 = 0; r__1 = (real) wsizem; work[1].r = r__1, work[1].i = 0.f; } - return 0; + return; } if (*lwork < wsizeo) { lw1 = tszm; @@ -849,7 +850,7 @@ static integer c__0 = 0; if (f2cmin(i__1,*nrhs) == 0) { i__1 = f2cmax(*m,*n); claset_("FULL", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); - return 0; + return; } /* Get machine parameters */ @@ -927,7 +928,7 @@ static integer c__0 = 0; ctrtrs_("U", "N", "N", n, nrhs, &a[a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; } else { @@ -940,7 +941,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } /* B(N+1:M,1:NRHS) = CZERO */ @@ -984,7 +985,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } /* B(M+1:N,1:NRHS) = 0 */ @@ -1026,7 +1027,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1055,7 +1056,7 @@ static integer c__0 = 0; L50: r__1 = (real) (tszo + lwo); work[1].r = r__1, work[1].i = 0.f; - return 0; + return; /* End of ZGETSLS */ diff --git a/lapack-netlib/SRC/cgetsqrhrt.c b/lapack-netlib/SRC/cgetsqrhrt.c index 23b525ae6..922a911c3 100644 --- a/lapack-netlib/SRC/cgetsqrhrt.c +++ b/lapack-netlib/SRC/cgetsqrhrt.c @@ -689,7 +689,7 @@ hrt.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgetsqrhrt_(integer *m, integer *n, integer *mb1, +/* Subroutine */ void cgetsqrhrt_(integer *m, integer *n, integer *mb1, integer *nb1, integer *nb2, complex *a, integer *lda, complex *t, integer *ldt, complex *work, integer *lwork, integer *info) { @@ -700,17 +700,18 @@ hrt.f"> */ /* Local variables */ integer ldwt, lworkopt, i__, j; - extern /* Subroutine */ int cungtsqr_row_(integer *, integer *, integer * + extern /* Subroutine */ void cungtsqr_row_(integer *, integer *, integer * , integer *, complex *, integer *, complex *, integer *, complex * , integer *, integer *); integer iinfo; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cunhr_col_(integer *, integer *, integer * , complex *, integer *, complex *, integer *, complex *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; integer lw1, lw2, num_all_row_blocks__, lwt; - extern /* Subroutine */ int clatsqr_(integer *, integer *, integer *, + extern /* Subroutine */ void clatsqr_(integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer nb1local, nb2local; @@ -812,11 +813,11 @@ hrt.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGETSQRHRT", &i__1, (ftnlen)10); - return 0; + return; } else if (lquery) { q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* Quick return if possible */ @@ -824,7 +825,7 @@ hrt.f"> */ if (f2cmin(*m,*n) == 0) { q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } nb2local = f2cmin(*nb2,*n); @@ -895,7 +896,7 @@ hrt.f"> */ q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGETSQRHRT */ diff --git a/lapack-netlib/SRC/cggbak.c b/lapack-netlib/SRC/cggbak.c index aca1d31a8..d55caff2e 100644 --- a/lapack-netlib/SRC/cggbak.c +++ b/lapack-netlib/SRC/cggbak.c @@ -656,7 +656,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo, +/* Subroutine */ void cggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *lscale, real *rscale, integer *m, complex *v, integer *ldv, integer *info) { @@ -666,11 +666,12 @@ f"> */ /* Local variables */ integer i__, k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical leftv; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); logical rightv; @@ -720,19 +721,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGBAK", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*m == 0) { - return 0; + return; } if (lsame_(job, "N")) { - return 0; + return; } if (*ilo == *ihi) { @@ -837,7 +838,7 @@ L100: L110: - return 0; + return; /* End of CGGBAK */ diff --git a/lapack-netlib/SRC/cggbal.c b/lapack-netlib/SRC/cggbal.c index 559244c22..b68f6c362 100644 --- a/lapack-netlib/SRC/cggbal.c +++ b/lapack-netlib/SRC/cggbal.c @@ -691,7 +691,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda, +/* Subroutine */ void cggbal_(char *job, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real *rscale, real *work, integer *info) { @@ -709,13 +709,13 @@ f"> */ integer i__, j, k, l, m; real gamma, t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real sfmin; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); real sfmax; integer iflow, kount; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); integer jc; real ta, tb, tc; @@ -725,8 +725,9 @@ f"> */ real pgamma; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); integer lsfmin, lsfmax, ip1, jp1, lm1; real cab, rab, ewc, cor, sum; integer nrp2, icab; @@ -769,7 +770,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGBAL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -777,7 +778,7 @@ f"> */ if (*n == 0) { *ilo = 1; *ihi = *n; - return 0; + return; } if (*n == 1) { @@ -785,7 +786,7 @@ f"> */ *ihi = *n; lscale[1] = 1.f; rscale[1] = 1.f; - return 0; + return; } if (lsame_(job, "N")) { @@ -797,7 +798,7 @@ f"> */ rscale[i__] = 1.f; /* L10: */ } - return 0; + return; } k = 1; @@ -942,11 +943,11 @@ L190: rscale[i__] = 1.f; /* L195: */ } - return 0; + return; } if (*ilo == *ihi) { - return 0; + return; } /* Balance the submatrix in rows ILO to IHI. */ @@ -1209,7 +1210,7 @@ L350: /* L380: */ } - return 0; + return; /* End of CGGBAL */ diff --git a/lapack-netlib/SRC/cgges.c b/lapack-netlib/SRC/cgges.c index 03dbf28e6..1c1db9a87 100644 --- a/lapack-netlib/SRC/cgges.c +++ b/lapack-netlib/SRC/cgges.c @@ -784,7 +784,7 @@ or GE matrices */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, complex *a, integer *lda, complex *b, integer * ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer * @@ -803,29 +803,30 @@ or GE matrices */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irwrk, irows; - extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, complex *, integer *, integer *), cggbal_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, real *, real *, real *, integer *), slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *), clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *), @@ -839,7 +840,7 @@ or GE matrices */ integer lwkmin; logical lastsl; real bnrmto; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer @@ -964,16 +965,16 @@ or GE matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGES ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1185,7 +1186,7 @@ L30: work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CGGES */ diff --git a/lapack-netlib/SRC/cgges3.c b/lapack-netlib/SRC/cgges3.c index 046f7946b..e7b2e877e 100644 --- a/lapack-netlib/SRC/cgges3.c +++ b/lapack-netlib/SRC/cgges3.c @@ -783,7 +783,7 @@ f"> */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void cgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, complex *a, integer *lda, complex *b, integer * ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer * @@ -803,28 +803,29 @@ f"> */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irwrk; - extern /* Subroutine */ int cgghd3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgghd3_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer irows; - extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, complex *, integer *, integer *), cggbal_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, real *, real *, real *, integer *), slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *), @@ -836,7 +837,7 @@ f"> */ integer ijobvl, iright, ijobvr; real anrmto, bnrmto; logical lastsl; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer @@ -979,16 +980,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGES3 ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1194,7 +1195,7 @@ L30: q__1.r = (real) lwkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGGES3 */ diff --git a/lapack-netlib/SRC/cggesx.c b/lapack-netlib/SRC/cggesx.c index 06102e140..d33dad339 100644 --- a/lapack-netlib/SRC/cggesx.c +++ b/lapack-netlib/SRC/cggesx.c @@ -843,7 +843,7 @@ f"> */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, char *sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *sdim, complex *alpha, complex *beta, complex * vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real @@ -862,7 +862,7 @@ f"> */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irwrk, irows; - extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, complex *, integer *, integer *), cggbal_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, real *, @@ -870,24 +870,24 @@ f"> */ extern real clange_(char *, integer *, integer *, complex *, integer *, real *); real pl; - extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *), clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); real pr; logical ilascl, ilbscl; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clacpy_( char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex - *, complex *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern real slamch_(char *); real bignum; - extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *), @@ -901,12 +901,12 @@ f"> */ integer liwmin; logical wantse, lastsl; real anrmto, bnrmto; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); integer minwrk, maxwrk; logical wantsn; real smlnum; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); logical wantst, lquery, wantsv; @@ -1062,16 +1062,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGESX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1309,7 +1309,7 @@ L40: work[1].r = (real) maxwrk, work[1].i = 0.f; iwork[1] = liwmin; - return 0; + return; /* End of CGGESX */ diff --git a/lapack-netlib/SRC/cggev.c b/lapack-netlib/SRC/cggev.c index 6ef818dbb..bb7b0b4f6 100644 --- a/lapack-netlib/SRC/cggev.c +++ b/lapack-netlib/SRC/cggev.c @@ -734,7 +734,7 @@ ices */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a, +/* Subroutine */ void cggev_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex * work, integer *lwork, real *rwork, integer *info) @@ -753,7 +753,7 @@ ices */ integer iwrk; extern logical lsame_(char *, char *); integer ileft, icols, irwrk, irows, jc; - extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, complex *, integer *, integer *), cggbal_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, real *, @@ -762,25 +762,25 @@ ices */ extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer jr; - extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *), clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clacpy_( char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), ctgevc_(char *, char *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *, integer - *, complex *, real *, integer *), xerbla_(char *, - integer *, ftnlen); + *, complex *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical ldumma[1]; char chtemp[1]; real bignum; - extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *); @@ -788,12 +788,12 @@ ices */ integer *, integer *, ftnlen, ftnlen); extern real slamch_(char *); integer ijobvl, iright, ijobvr; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); real anrmto; integer lwkmin; real bnrmto; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); real smlnum; @@ -913,15 +913,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1164,7 +1164,7 @@ L70: } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CGGEV */ diff --git a/lapack-netlib/SRC/cggev3.c b/lapack-netlib/SRC/cggev3.c index a00f1a18c..511635d3d 100644 --- a/lapack-netlib/SRC/cggev3.c +++ b/lapack-netlib/SRC/cggev3.c @@ -733,7 +733,7 @@ f"> */ /* > \ingroup complexGEeigen */ /* ===================================================================== */ -/* Subroutine */ int cggev3_(char *jobvl, char *jobvr, integer *n, complex *a, +/* Subroutine */ void cggev3_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex * beta, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *work, integer *lwork, real *rwork, integer *info) @@ -752,11 +752,11 @@ f"> */ integer iwrk; extern logical lsame_(char *, char *); integer ileft, icols, irwrk; - extern /* Subroutine */ int cgghd3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgghd3_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer irows, jc; - extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, complex *, integer *, integer *), cggbal_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, real *, @@ -765,31 +765,31 @@ f"> */ extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer jr; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clacpy_( char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), ctgevc_(char *, char *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *, integer - *, complex *, real *, integer *), xerbla_(char *, - integer *, ftnlen); + *, complex *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical ldumma[1]; char chtemp[1]; real bignum; - extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *); extern real slamch_(char *); integer ijobvl, iright, ijobvr; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); real anrmto, bnrmto; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); real smlnum; @@ -932,15 +932,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGEV3 ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1178,7 +1178,7 @@ L70: q__1.r = (real) lwkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGGEV3 */ diff --git a/lapack-netlib/SRC/cggevx.c b/lapack-netlib/SRC/cggevx.c index da6bf9734..4b72816d8 100644 --- a/lapack-netlib/SRC/cggevx.c +++ b/lapack-netlib/SRC/cggevx.c @@ -888,7 +888,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char * +/* Subroutine */ void cggevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vl, integer *ldvl, complex * vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real * @@ -912,7 +912,7 @@ f"> */ integer icols; logical noscl; integer irows, jc; - extern /* Subroutine */ int cggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, complex *, integer *, integer *), cggbal_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, real *, @@ -921,13 +921,13 @@ f"> */ extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer jr; - extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *), clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clacpy_( char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex @@ -935,7 +935,7 @@ f"> */ logical ldumma[1]; char chtemp[1]; real bignum; - extern /* Subroutine */ int chgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void chgeqz_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *), @@ -943,24 +943,24 @@ f"> */ , complex *, integer *, complex *, integer *, complex *, integer * , integer *, integer *, complex *, real *, integer *); integer ijobvl; - extern /* Subroutine */ int ctgsna_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ctgsna_(char *, char *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *, integer *), slascl_(char *, integer *, integer *, real *, real *, integer *, - integer *, real *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + integer *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern real slamch_(char *); integer ijobvr; logical wantsb; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); real anrmto; logical wantse; real bnrmto; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer minwrk, maxwrk; @@ -1106,15 +1106,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1422,7 +1422,7 @@ L90: } work[1].r = (real) maxwrk, work[1].i = 0.f; - return 0; + return; /* End of CGGEVX */ diff --git a/lapack-netlib/SRC/cggglm.c b/lapack-netlib/SRC/cggglm.c index 056bd9142..8165d277b 100644 --- a/lapack-netlib/SRC/cggglm.c +++ b/lapack-netlib/SRC/cggglm.c @@ -699,7 +699,7 @@ f"> */ /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a, +/* Subroutine */ void cggglm_(integer *n, integer *m, integer *p, complex *a, integer *lda, complex *b, integer *ldb, complex *d__, complex *x, complex *y, complex *work, integer *lwork, integer *info) { @@ -709,18 +709,19 @@ f"> */ /* Local variables */ integer lopt, i__; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ccopy_(integer *, complex *, integer *, complex *, integer *); integer nb, np; - extern /* Subroutine */ int cggqrf_(integer *, integer *, integer *, + extern /* Subroutine */ void cggqrf_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, - complex *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer lwkmin, nb1, nb2, nb3, nb4; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunmrq_(char *, char *, integer *, integer *, integer *, complex *, integer *, @@ -801,9 +802,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGGLM", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -819,7 +820,7 @@ f"> */ i__2 = i__; y[i__2].r = 0.f, y[i__2].i = 0.f; } - return 0; + return; } /* Compute the GQR factorization of matrices A and B: */ @@ -860,7 +861,7 @@ f"> */ if (*info > 0) { *info = 1; - return 0; + return; } i__1 = *n - *m; @@ -891,7 +892,7 @@ f"> */ if (*info > 0) { *info = 2; - return 0; + return; } /* Copy D to X */ @@ -914,7 +915,7 @@ f"> */ i__1 = *m + np + f2cmax(i__2,i__3); work[1].r = (real) i__1, work[1].i = 0.f; - return 0; + return; /* End of CGGGLM */ diff --git a/lapack-netlib/SRC/cgghd3.c b/lapack-netlib/SRC/cgghd3.c index a795b803d..71f56c6bb 100644 --- a/lapack-netlib/SRC/cgghd3.c +++ b/lapack-netlib/SRC/cgghd3.c @@ -749,7 +749,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgghd3_(char *compq, char *compz, integer *n, integer * +/* Subroutine */ void cgghd3_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z__, integer *ldz, complex *work, integer *lwork, integer *info) @@ -763,22 +763,22 @@ f"> */ logical blk22; integer cola, jcol, ierr; complex temp; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); integer jrow, topq, ppwo; complex temp1, temp2, temp3; real c__; integer kacc22, i__, j, k; complex s; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); integer nbmin; - extern /* Subroutine */ int cunm22_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunm22_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); complex ctemp; @@ -787,17 +787,17 @@ f"> */ complex c1, c2; logical wantq; integer j0; - extern /* Subroutine */ int ctrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *); logical initz, wantz; complex s1, s2; char compq2[1], compz2[1]; integer nb, jj, nh; - extern /* Subroutine */ int cgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgghrd_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer nx, pw; - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clartg_(complex *, complex *, real *, complex *, complex *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); @@ -876,9 +876,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGHD3", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Initialize Q and Z if desired. */ @@ -903,7 +903,7 @@ f"> */ nh = *ihi - *ilo + 1; if (nh <= 1) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Determine the blocksize. */ @@ -1760,7 +1760,7 @@ f"> */ q__1.r = (real) lwkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGGHD3 */ diff --git a/lapack-netlib/SRC/cgghrd.c b/lapack-netlib/SRC/cgghrd.c index deddb5b25..f67b1460b 100644 --- a/lapack-netlib/SRC/cgghrd.c +++ b/lapack-netlib/SRC/cgghrd.c @@ -718,7 +718,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer * +/* Subroutine */ void cgghrd_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z__, integer *ldz, integer *info) { @@ -729,17 +729,17 @@ f"> */ /* Local variables */ integer jcol; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); integer jrow; real c__; complex s; extern logical lsame_(char *, char *); complex ctemp; - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clartg_(complex *, - complex *, real *, complex *, complex *), xerbla_(char *, integer - *, ftnlen); + complex *, real *, complex *, complex *); + extern int xerbla_(char *, integer *, ftnlen); integer icompq, icompz; logical ilq, ilz; @@ -823,7 +823,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGHRD", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize Q and Z if desired. */ @@ -838,7 +838,7 @@ f"> */ /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } /* Zero out lower triangle of B */ @@ -904,7 +904,7 @@ f"> */ /* L40: */ } - return 0; + return; /* End of CGGHRD */ diff --git a/lapack-netlib/SRC/cgglse.c b/lapack-netlib/SRC/cgglse.c index 80b959a4d..7b35f8fe4 100644 --- a/lapack-netlib/SRC/cgglse.c +++ b/lapack-netlib/SRC/cgglse.c @@ -694,7 +694,7 @@ f"> */ /* > \ingroup complexOTHERsolve */ /* ===================================================================== */ -/* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a, +/* Subroutine */ void cgglse_(integer *m, integer *n, integer *p, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, complex *d__, complex *x, complex *work, integer *lwork, integer *info) { @@ -704,20 +704,21 @@ f"> */ /* Local variables */ integer lopt; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *), ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *); integer nb, mn, nr; - extern /* Subroutine */ int cggrqf_(integer *, integer *, integer *, + extern /* Subroutine */ void cggrqf_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, - complex *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer lwkmin, nb1, nb2, nb3, nb4; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunmrq_(char *, char *, integer *, integer *, integer *, complex *, integer *, @@ -798,15 +799,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGLSE", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Compute the GRQ factorization of matrices B and A: */ @@ -844,7 +845,7 @@ f"> */ if (*info > 0) { *info = 1; - return 0; + return; } /* Put the solution in X */ @@ -869,7 +870,7 @@ f"> */ if (*info > 0) { *info = 2; - return 0; + return; } /* Put the solutions in X */ @@ -910,7 +911,7 @@ f"> */ i__1 = *p + mn + f2cmax(i__2,i__3); work[1].r = (real) i__1, work[1].i = 0.f; - return 0; + return; /* End of CGGLSE */ diff --git a/lapack-netlib/SRC/cggqrf.c b/lapack-netlib/SRC/cggqrf.c index f1e873b66..27da14abe 100644 --- a/lapack-netlib/SRC/cggqrf.c +++ b/lapack-netlib/SRC/cggqrf.c @@ -728,7 +728,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a, +/* Subroutine */ void cggqrf_(integer *n, integer *m, integer *p, complex *a, integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, complex *work, integer *lwork, integer *info) { @@ -737,14 +737,15 @@ f"> */ /* Local variables */ integer lopt, nb; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), cgerqf_( integer *, integer *, complex *, integer *, complex *, complex *, - integer *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer nb1, nb2, nb3; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer lwkopt; @@ -808,9 +809,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGQRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* QR factorization of N-by-M matrix A: A = Q*R */ @@ -835,7 +836,7 @@ f"> */ i__1 = f2cmax(i__2,i__3); work[1].r = (real) i__1, work[1].i = 0.f; - return 0; + return; /* End of CGGQRF */ diff --git a/lapack-netlib/SRC/cggrqf.c b/lapack-netlib/SRC/cggrqf.c index 415373382..d499d7083 100644 --- a/lapack-netlib/SRC/cggrqf.c +++ b/lapack-netlib/SRC/cggrqf.c @@ -727,7 +727,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a, +/* Subroutine */ void cggrqf_(integer *m, integer *p, integer *n, complex *a, integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, complex *work, integer *lwork, integer *info) { @@ -736,14 +736,15 @@ f"> */ /* Local variables */ integer lopt, nb; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), cgerqf_( integer *, integer *, complex *, integer *, complex *, complex *, - integer *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer nb1, nb2, nb3; - extern /* Subroutine */ int cunmrq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmrq_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer lwkopt; @@ -807,9 +808,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGGRQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* RQ factorization of M-by-N matrix A: A = R*Q */ @@ -836,7 +837,7 @@ f"> */ i__1 = f2cmax(i__2,i__3); work[1].r = (real) i__1, work[1].i = 0.f; - return 0; + return; /* End of CGGRQF */ diff --git a/lapack-netlib/SRC/cggsvd3.c b/lapack-netlib/SRC/cggsvd3.c index 0e9e0e42d..b467a606c 100644 --- a/lapack-netlib/SRC/cggsvd3.c +++ b/lapack-netlib/SRC/cggsvd3.c @@ -866,7 +866,7 @@ static integer c__1 = 1; /* > CGGSVD3 replaces the deprecated subroutine CGGSVD. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cggsvd3_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void cggsvd3_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, complex *a, integer * lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, @@ -887,20 +887,20 @@ static integer c__1 = 1; extern logical lsame_(char *, char *); real anorm, bnorm; logical wantq; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantu, wantv; extern real clange_(char *, integer *, integer *, complex *, integer *, real *), slamch_(char *); - extern /* Subroutine */ int ctgsja_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctgsja_(char *, char *, char *, integer *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, real *, real *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, - integer *, integer *), xerbla_(char *, - integer *, ftnlen); + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int cggsvp3_(char *, char *, char *, integer *, + extern /* Subroutine */ void cggsvp3_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *, real *, @@ -996,10 +996,10 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CGGSVD3", &i__1, (ftnlen)7); - return 0; + return; } if (lquery) { - return 0; + return; } /* Compute the Frobenius norm of matrices A and B */ @@ -1062,7 +1062,7 @@ static integer c__1 = 1; q__1.r = (real) lwkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGGSVD3 */ diff --git a/lapack-netlib/SRC/cggsvp3.c b/lapack-netlib/SRC/cggsvp3.c index 6f5f3ac75..a3fc3e4e7 100644 --- a/lapack-netlib/SRC/cggsvp3.c +++ b/lapack-netlib/SRC/cggsvp3.c @@ -791,7 +791,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cggsvp3_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void cggsvp3_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, @@ -807,7 +807,7 @@ static integer c_n1 = -1; integer i__, j; extern logical lsame_(char *, char *); logical wantq, wantu, wantv; - extern /* Subroutine */ int cgeqp3_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqp3_(integer *, integer *, complex *, integer *, integer *, complex *, complex *, integer *, real *, integer *), cgeqr2_(integer *, integer *, complex *, integer *, complex *, complex *, integer *), cgerq2_(integer *, integer *, @@ -820,8 +820,9 @@ static integer c_n1 = -1; complex *, integer *, complex *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer - *, complex *, complex *, complex *, integer *), xerbla_( - char *, integer *, ftnlen), clapmt_(logical *, integer *, integer + *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clapmt_(logical *, integer *, integer *, complex *, integer *, integer *); logical forwrd; integer lwkopt; @@ -927,10 +928,10 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CGGSVP3", &i__1, (ftnlen)7); - return 0; + return; } if (lquery) { - return 0; + return; } /* QR with column pivoting of B: B*P = V*( S11 S12 ) */ @@ -1186,7 +1187,7 @@ static integer c_n1 = -1; q__1.r = (real) lwkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CGGSVP3 */ diff --git a/lapack-netlib/SRC/cgsvj0.c b/lapack-netlib/SRC/cgsvj0.c index 4cb871737..50c00aa63 100644 --- a/lapack-netlib/SRC/cgsvj0.c +++ b/lapack-netlib/SRC/cgsvj0.c @@ -732,7 +732,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* ===================================================================== */ -/* Subroutine */ int cgsvj0_(char *jobv, integer *m, integer *n, complex *a, +/* Subroutine */ void cgsvj0_(char *jobv, integer *m, integer *n, complex *a, integer *lda, complex *d__, real *sva, integer *mv, complex *v, integer *ldv, real *eps, real *sfmin, real *tol, integer *nsweep, complex *work, integer *lwork, integer *info) @@ -749,7 +749,7 @@ f"> */ real aaqq; integer ierr; real bigtheta; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); complex ompq; integer pskipped; @@ -761,22 +761,23 @@ f"> */ real apoaq, aqoap; extern logical lsame_(char *, char *); real theta, small; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); logical applv, rsvec; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical rotok; real rootsfmin; extern real scnrm2_(integer *, complex *, integer *); real cs, sn; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, - real *, integer *, integer *, complex *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, + real *, integer *, integer *, complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband; extern integer isamax_(integer *, real *, integer *); integer blskip; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); real mxaapq, thsign, mxsinj; integer ir1, emptsw, notrot, iswrot, jbc; @@ -840,7 +841,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGSVJ0", &i__1, (ftnlen)6); - return 0; + return; } if (rsvec) { @@ -1661,6 +1662,6 @@ L1995: /* L5991: */ } - return 0; + return; } /* cgsvj0_ */ diff --git a/lapack-netlib/SRC/cgsvj1.c b/lapack-netlib/SRC/cgsvj1.c index 71c9a063a..9ee9d043a 100644 --- a/lapack-netlib/SRC/cgsvj1.c +++ b/lapack-netlib/SRC/cgsvj1.c @@ -751,7 +751,7 @@ f"> */ /* > Zlatko Drmac (Zagreb, Croatia) */ /* ===================================================================== */ -/* Subroutine */ int cgsvj1_(char *jobv, integer *m, integer *n, integer *n1, +/* Subroutine */ void cgsvj1_(char *jobv, integer *m, integer *n, integer *n1, complex *a, integer *lda, complex *d__, real *sva, integer *mv, complex *v, integer *ldv, real *eps, real *sfmin, real *tol, integer * nsweep, complex *work, integer *lwork, integer *info) @@ -769,7 +769,7 @@ f"> */ real aaqq; integer nblr, ierr; real bigtheta; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); complex ompq; integer pskipped; @@ -781,22 +781,23 @@ f"> */ real apoaq, aqoap; extern logical lsame_(char *, char *); real theta, small; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); logical applv, rsvec; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical rotok; real rootsfmin; extern real scnrm2_(integer *, complex *, integer *); real cs, sn; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, - real *, integer *, integer *, complex *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, + real *, integer *, integer *, complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband; extern integer isamax_(integer *, real *, integer *); integer blskip; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); real mxaapq, thsign, mxsinj; integer emptsw, notrot, iswrot, jbc; @@ -860,7 +861,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGSVJ1", &i__1, (ftnlen)6); - return 0; + return; } if (rsvec) { @@ -1345,6 +1346,6 @@ L1995: } - return 0; + return; } /* cgsvj1_ */ diff --git a/lapack-netlib/SRC/cgtcon.c b/lapack-netlib/SRC/cgtcon.c index 5e636caa7..284fc2584 100644 --- a/lapack-netlib/SRC/cgtcon.c +++ b/lapack-netlib/SRC/cgtcon.c @@ -653,7 +653,7 @@ f"> */ /* > \ingroup complexGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex * +/* Subroutine */ void cgtcon_(char *norm, integer *n, complex *dl, complex * d__, complex *du, complex *du2, integer *ipiv, real *anorm, real * rcond, complex *work, integer *info) { @@ -664,11 +664,12 @@ f"> */ integer kase, kase1, i__; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; logical onenrm; - extern /* Subroutine */ int cgttrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cgttrs_(char *, integer *, integer *, complex *, complex *, complex *, complex *, integer *, complex *, integer *, integer *); @@ -705,7 +706,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGTCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -713,9 +714,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } /* Check that D(1:N) is non-zero. */ @@ -724,7 +725,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; if (d__[i__2].r == 0.f && d__[i__2].i == 0.f) { - return 0; + return; } /* L10: */ } @@ -761,7 +762,7 @@ L20: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CGTCON */ diff --git a/lapack-netlib/SRC/cgtrfs.c b/lapack-netlib/SRC/cgtrfs.c index 6010d834e..dd0316af4 100644 --- a/lapack-netlib/SRC/cgtrfs.c +++ b/lapack-netlib/SRC/cgtrfs.c @@ -724,7 +724,7 @@ f"> */ /* > \ingroup complexGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex * +/* Subroutine */ void cgtrfs_(char *trans, integer *n, integer *nrhs, complex * dl, complex *d__, complex *du, complex *dlf, complex *df, complex * duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex * x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, @@ -744,11 +744,11 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *), clagtm_(char *, integer *, integer *, real *, complex *, complex *, complex *, complex *, integer *, real *, complex *, integer *); @@ -758,7 +758,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran; char transn[1]; - extern /* Subroutine */ int cgttrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cgttrs_(char *, integer *, integer *, complex *, complex *, complex *, complex *, integer *, complex *, integer *, integer *); char transt[1]; @@ -814,7 +814,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGTRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -826,7 +826,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1131,7 +1131,7 @@ L70: /* L110: */ } - return 0; + return; /* End of CGTRFS */ diff --git a/lapack-netlib/SRC/cgtsv.c b/lapack-netlib/SRC/cgtsv.c index 1bbbb35d0..acff81cdf 100644 --- a/lapack-netlib/SRC/cgtsv.c +++ b/lapack-netlib/SRC/cgtsv.c @@ -633,7 +633,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexGTsolve */ /* ===================================================================== */ -/* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex * +/* Subroutine */ void cgtsv_(integer *n, integer *nrhs, complex *dl, complex * d__, complex *du, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -676,11 +676,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CGTSV ", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } i__1 = *n - 1; @@ -697,7 +697,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* solution can not be found. */ *info = k; - return 0; + return; } } else /* if(complicated condition) */ { i__2 = k; @@ -785,7 +785,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ i__1 = *n; if (d__[i__1].r == 0.f && d__[i__1].i == 0.f) { *info = *n; - return 0; + return; } /* Back solve with the matrix U from the factorization. */ @@ -826,7 +826,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* L50: */ } - return 0; + return; /* End of CGTSV */ diff --git a/lapack-netlib/SRC/cgtsvx.c b/lapack-netlib/SRC/cgtsvx.c index 2bde80f9d..93956c767 100644 --- a/lapack-netlib/SRC/cgtsvx.c +++ b/lapack-netlib/SRC/cgtsvx.c @@ -805,7 +805,7 @@ f"> */ /* > \ingroup complexGTsolve */ /* ===================================================================== */ -/* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void cgtsvx_(char *fact, char *trans, integer *n, integer * nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex * df, complex *duf, complex *du2, integer *ipiv, complex *b, integer * ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, @@ -818,22 +818,23 @@ f"> */ char norm[1]; extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); extern real slamch_(char *), clangt_(char *, integer *, complex *, complex *, complex *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), cgtcon_(char *, integer *, complex *, complex *, complex *, complex *, integer *, - real *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen), cgtrfs_(char *, integer *, integer *, complex + real *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cgtrfs_(char *, integer *, integer *, complex *, complex *, complex *, complex *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *), cgttrf_(integer *, complex *, complex *, complex *, complex *, integer *, integer *); logical notran; - extern /* Subroutine */ int cgttrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cgttrs_(char *, integer *, integer *, complex *, complex *, complex *, complex *, integer *, complex *, integer *, integer *); @@ -888,7 +889,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGTSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -908,7 +909,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -945,7 +946,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of CGTSVX */ diff --git a/lapack-netlib/SRC/cgttrf.c b/lapack-netlib/SRC/cgttrf.c index fdd5c0206..2b6aa9ce8 100644 --- a/lapack-netlib/SRC/cgttrf.c +++ b/lapack-netlib/SRC/cgttrf.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup complexGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex * +/* Subroutine */ void cgttrf_(integer *n, complex *dl, complex *d__, complex * du, complex *du2, integer *ipiv, integer *info) { /* System generated locals */ @@ -669,13 +669,13 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("CGTTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize IPIV(i) = i and DU2(i) = 0 */ @@ -811,7 +811,7 @@ f"> */ } L50: - return 0; + return; /* End of CGTTRF */ diff --git a/lapack-netlib/SRC/cgttrs.c b/lapack-netlib/SRC/cgttrs.c index 5d6de8f0f..c846fae8b 100644 --- a/lapack-netlib/SRC/cgttrs.c +++ b/lapack-netlib/SRC/cgttrs.c @@ -651,7 +651,7 @@ f"> */ /* > \ingroup complexGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex * +/* Subroutine */ void cgttrs_(char *trans, integer *n, integer *nrhs, complex * dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex * b, integer *ldb, integer *info) { @@ -660,7 +660,7 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int cgtts2_(integer *, integer *, integer *, + extern /* Subroutine */ void cgtts2_(integer *, integer *, integer *, complex *, complex *, complex *, complex *, integer *, complex *, integer *); integer jb, nb; @@ -707,13 +707,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CGTTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Decode TRANS */ @@ -756,6 +756,6 @@ f"> */ /* End of CGTTRS */ - return 0; + return; } /* cgttrs_ */ diff --git a/lapack-netlib/SRC/cgtts2.c b/lapack-netlib/SRC/cgtts2.c index 25e524590..153537493 100644 --- a/lapack-netlib/SRC/cgtts2.c +++ b/lapack-netlib/SRC/cgtts2.c @@ -638,7 +638,7 @@ f"> */ /* > \ingroup complexGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs, +/* Subroutine */ void cgtts2_(integer *itrans, integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *b, integer *ldb) { @@ -674,7 +674,7 @@ f"> */ /* Function Body */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (*itrans == 0) { @@ -1142,6 +1142,6 @@ L130: /* End of CGTTS2 */ - return 0; + return; } /* cgtts2_ */ diff --git a/lapack-netlib/SRC/chb2st_kernels.c b/lapack-netlib/SRC/chb2st_kernels.c index 99e54dfce..58f3d3d94 100644 --- a/lapack-netlib/SRC/chb2st_kernels.c +++ b/lapack-netlib/SRC/chb2st_kernels.c @@ -680,7 +680,7 @@ kernels.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chb2st_kernels_(char *uplo, logical *wantz, integer * +/* Subroutine */ void chb2st_kernels_(char *uplo, logical *wantz, integer * ttype, integer *st, integer *ed, integer *sweep, integer *n, integer * nb, integer *ib, complex *a, integer *lda, complex *v, complex *tau, integer *ldvt, complex *work) @@ -695,10 +695,10 @@ kernels.f"> */ extern logical lsame_(char *, char *); logical upper; integer j1, j2, lm, ln; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, integer *, complex *); integer ajeter; - extern /* Subroutine */ int clarfx_(char *, integer *, integer *, complex + extern /* Subroutine */ void clarfx_(char *, integer *, integer *, complex *, complex *, complex *, integer *, complex *), clarfy_( char *, integer *, complex *, integer *, complex *, complex *, integer *, complex *); @@ -917,7 +917,7 @@ kernels.f"> */ } } - return 0; + return; /* END OF CHB2ST_KERNELS */ diff --git a/lapack-netlib/SRC/chbev.c b/lapack-netlib/SRC/chbev.c index 228212d68..d5a40cc93 100644 --- a/lapack-netlib/SRC/chbev.c +++ b/lapack-netlib/SRC/chbev.c @@ -666,7 +666,7 @@ atrices */ /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd, +/* Subroutine */ void chbev_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info) { @@ -681,12 +681,12 @@ atrices */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical lower, wantz; extern real clanhb_(char *, char *, integer *, integer *, complex *, integer *, real *); integer iscale; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *), chbtrd_(char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *); @@ -695,7 +695,7 @@ atrices */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indrwk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), ssterf_(integer *, real *, real *, integer *); real smlnum, eps; @@ -745,13 +745,13 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("CHBEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -766,7 +766,7 @@ atrices */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -827,7 +827,7 @@ atrices */ sscal_(&imax, &r__1, &w[1], &c__1); } - return 0; + return; /* End of CHBEV */ diff --git a/lapack-netlib/SRC/chbev_2stage.c b/lapack-netlib/SRC/chbev_2stage.c index e39b8ee5c..6e75065d8 100644 --- a/lapack-netlib/SRC/chbev_2stage.c +++ b/lapack-netlib/SRC/chbev_2stage.c @@ -729,7 +729,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chbev_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void chbev_2stage_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer * info) @@ -739,7 +739,7 @@ stage.f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int chetrd_hb2st_(char *, char *, char *, + extern /* Subroutine */ void chetrd_hb2st_(char *, char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *, integer *); integer inde; @@ -750,7 +750,7 @@ stage.f"> */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lhtrd, lwmin; logical lower; integer lwtrd; @@ -759,14 +759,14 @@ stage.f"> */ extern real clanhb_(char *, char *, integer *, integer *, complex *, integer *, real *); integer iscale; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indwrk, indrwk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), ssterf_(integer *, real *, real *, integer *); integer llwork; @@ -842,15 +842,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHBEV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -865,7 +865,7 @@ stage.f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -935,7 +935,7 @@ stage.f"> */ work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CHBEV_2STAGE */ diff --git a/lapack-netlib/SRC/chbevd.c b/lapack-netlib/SRC/chbevd.c index 9b0c599db..a15df5cf4 100644 --- a/lapack-netlib/SRC/chbevd.c +++ b/lapack-netlib/SRC/chbevd.c @@ -731,7 +731,7 @@ f"> */ /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd, +/* Subroutine */ void chbevd_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer * iwork, integer *liwork, integer *info) @@ -746,13 +746,13 @@ f"> */ integer imax; real rmin, rmax; integer llwk2; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lwmin; logical lower; integer llrwk; @@ -761,20 +761,20 @@ f"> */ extern real clanhb_(char *, char *, integer *, integer *, complex *, integer *, real *); integer iscale; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *), cstedc_(char *, integer *, real *, real *, complex *, integer *, complex *, integer *, real *, integer *, integer *, integer *, integer *), chbtrd_(char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indwrk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin; real smlnum; logical lquery; @@ -860,15 +860,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHBEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -878,7 +878,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -948,7 +948,7 @@ f"> */ work[1].r = (real) lwmin, work[1].i = 0.f; rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CHBEVD */ diff --git a/lapack-netlib/SRC/chbevd_2stage.c b/lapack-netlib/SRC/chbevd_2stage.c index 176ff6d7f..d5dbd357c 100644 --- a/lapack-netlib/SRC/chbevd_2stage.c +++ b/lapack-netlib/SRC/chbevd_2stage.c @@ -779,7 +779,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chbevd_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void chbevd_2stage_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer * lrwork, integer *iwork, integer *liwork, integer *info) @@ -789,7 +789,7 @@ static integer c__1 = 1; real r__1; /* Local variables */ - extern /* Subroutine */ int chetrd_hb2st_(char *, char *, char *, + extern /* Subroutine */ void chetrd_hb2st_(char *, char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *, integer *); integer inde; @@ -799,13 +799,13 @@ static integer c__1 = 1; integer imax; real rmin, rmax; integer llwk2; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer indwk, lhtrd, lwmin; logical lower; integer lwtrd, llrwk; @@ -814,18 +814,18 @@ static integer c__1 = 1; extern real clanhb_(char *, char *, integer *, integer *, complex *, integer *, real *); integer iscale; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *), cstedc_(char *, integer *, real *, real *, complex *, integer *, complex *, integer *, real *, integer *, integer *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indrwk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin, llwork; real smlnum; logical lquery; @@ -918,15 +918,15 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CHBEVD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -936,7 +936,7 @@ static integer c__1 = 1; i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -1011,7 +1011,7 @@ static integer c__1 = 1; work[1].r = (real) lwmin, work[1].i = 0.f; rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CHBEVD_2STAGE */ diff --git a/lapack-netlib/SRC/chbevx.c b/lapack-netlib/SRC/chbevx.c index f9c867853..e85480256 100644 --- a/lapack-netlib/SRC/chbevx.c +++ b/lapack-netlib/SRC/chbevx.c @@ -782,7 +782,7 @@ f"> */ /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void chbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer * m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, @@ -803,17 +803,17 @@ f"> */ integer itmp1, i__, j, indee; real sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); logical lower; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantz; integer jj; @@ -821,27 +821,27 @@ f"> */ integer *, real *); logical alleig, indeig; integer iscale, indibl; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *), chbtrd_(char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *); logical valeig; extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indiwk, indisp; - extern /* Subroutine */ int cstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void cstein_(integer *, real *, real *, integer *, real *, integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -919,14 +919,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHBEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -951,7 +951,7 @@ f"> */ z__[i__1].r = 1.f, z__[i__1].i = 0.f; } } - return 0; + return; } /* Get machine constants. */ @@ -1127,7 +1127,7 @@ L30: } } - return 0; + return; /* End of CHBEVX */ diff --git a/lapack-netlib/SRC/chbevx_2stage.c b/lapack-netlib/SRC/chbevx_2stage.c index 96f3aa7a2..157222257 100644 --- a/lapack-netlib/SRC/chbevx_2stage.c +++ b/lapack-netlib/SRC/chbevx_2stage.c @@ -845,7 +845,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chbevx_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void chbevx_2stage_(char *jobz, char *range, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real * abstol, integer *m, real *w, complex *z__, integer *ldz, complex * @@ -858,7 +858,7 @@ static integer c__1 = 1; real r__1, r__2; /* Local variables */ - extern /* Subroutine */ int chetrd_hb2st_(char *, char *, char *, + extern /* Subroutine */ void chetrd_hb2st_(char *, char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *, integer *); integer indd, inde; @@ -872,20 +872,20 @@ static integer c__1 = 1; integer itmp1, i__, j, indee; real sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer lhtrd; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); integer lwmin; logical lower; integer lwtrd; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantz; integer ib, jj; @@ -893,26 +893,26 @@ static integer c__1 = 1; integer *, real *); logical alleig, indeig; integer iscale, indibl; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); logical valeig; extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indiwk, indisp; - extern /* Subroutine */ int cstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void cstein_(integer *, real *, real *, integer *, real *, integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit, llwork; real smlnum; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -1015,16 +1015,16 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CHBEVX_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1049,7 +1049,7 @@ static integer c__1 = 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } } - return 0; + return; } /* Get machine constants. */ @@ -1234,7 +1234,7 @@ L30: work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CHBEVX_2STAGE */ diff --git a/lapack-netlib/SRC/chbgst.c b/lapack-netlib/SRC/chbgst.c index 6836059ca..416ce9ec4 100644 --- a/lapack-netlib/SRC/chbgst.c +++ b/lapack-netlib/SRC/chbgst.c @@ -679,7 +679,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka, +/* Subroutine */ void chbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, complex *x, integer *ldx, complex *work, real *rwork, integer *info) { @@ -691,32 +691,33 @@ f"> */ /* Local variables */ integer inca; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); integer i__, j, k, l, m; - extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, + extern /* Subroutine */ void cgerc_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *); complex t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgeru_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *); integer i0, i1; logical upper; integer i2, j1, j2; logical wantx; - extern /* Subroutine */ int clar2v_(integer *, complex *, complex *, + extern /* Subroutine */ void clar2v_(integer *, complex *, complex *, complex *, integer *, real *, complex *, integer *); complex ra; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); integer nr, nx; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clartg_(complex *, complex *, real - *, complex *, complex *), xerbla_(char *, integer *, ftnlen), - clargv_(integer *, complex *, integer *, complex *, integer *, + *, complex *, complex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clargv_(integer *, complex *, integer *, complex *, integer *, real *, integer *); logical update; - extern /* Subroutine */ int clartv_(integer *, complex *, integer *, + extern /* Subroutine */ void clartv_(integer *, complex *, integer *, complex *, integer *, real *, complex *, integer *); integer ka1, kb1; complex ra1; @@ -775,13 +776,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHBGST", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } inca = *ldab * ka1; @@ -1811,14 +1812,14 @@ L490: --i__; i0 = m + 1; if (*ka == 0) { - return 0; + return; } goto L490; } } else { i__ -= *ka; if (i__ < 2) { - return 0; + return; } } diff --git a/lapack-netlib/SRC/chbgv.c b/lapack-netlib/SRC/chbgv.c index 4d5cbc1cf..1a5c67c60 100644 --- a/lapack-netlib/SRC/chbgv.c +++ b/lapack-netlib/SRC/chbgv.c @@ -691,7 +691,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka, +/* Subroutine */ void chbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info) @@ -705,14 +705,16 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); integer iinfo; logical upper, wantz; - extern /* Subroutine */ int chbtrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void chbtrd_(char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *), chbgst_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, - integer *, complex *, integer *, complex *, real *, integer *), xerbla_(char *, integer *, ftnlen), cpbstf_(char + integer *, complex *, integer *, complex *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cpbstf_(char *, integer *, integer *, complex *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), ssterf_(integer *, real *, real *, integer *); @@ -767,13 +769,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CHBGV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -781,7 +783,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ cpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -809,7 +811,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ csteqr_(jobz, n, &w[1], &rwork[inde], &z__[z_offset], ldz, &rwork[ indwrk], info); } - return 0; + return; /* End of CHBGV */ diff --git a/lapack-netlib/SRC/chbgvd.c b/lapack-netlib/SRC/chbgvd.c index 6fb7e6795..c1aada39f 100644 --- a/lapack-netlib/SRC/chbgvd.c +++ b/lapack-netlib/SRC/chbgvd.c @@ -764,7 +764,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka, +/* Subroutine */ void chbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, @@ -777,7 +777,7 @@ f"> */ integer inde; char vect[1]; integer llwk2; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); @@ -786,7 +786,7 @@ f"> */ integer llrwk; logical wantz; integer indwk2; - extern /* Subroutine */ int cstedc_(char *, integer *, real *, real *, + extern /* Subroutine */ void cstedc_(char *, integer *, real *, real *, complex *, integer *, complex *, integer *, real *, integer *, integer *, integer *, integer *), chbtrd_(char *, char *, integer *, integer *, complex *, integer *, real *, real *, @@ -794,11 +794,12 @@ f"> */ chbgst_(char *, char *, integer *, integer *, integer *, complex * , integer *, complex *, integer *, complex *, integer *, complex * , real *, integer *), clacpy_(char *, integer *, - integer *, complex *, integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen), cpbstf_(char *, integer *, + integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cpbstf_(char *, integer *, integer *, complex *, integer *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin; logical lquery; @@ -887,15 +888,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHBGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -903,7 +904,7 @@ f"> */ cpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -941,7 +942,7 @@ f"> */ work[1].r = (real) lwmin, work[1].i = 0.f; rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CHBGVD */ diff --git a/lapack-netlib/SRC/chbgvx.c b/lapack-netlib/SRC/chbgvx.c index eb81c8a2f..191399fa5 100644 --- a/lapack-netlib/SRC/chbgvx.c +++ b/lapack-netlib/SRC/chbgvx.c @@ -813,7 +813,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void chbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer * il, integer *iu, real *abstol, integer *m, real *w, complex *z__, @@ -830,41 +830,43 @@ f"> */ logical test; integer itmp1, i__, j, indee; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); integer iinfo; char order[1]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantz; integer jj; logical alleig, indeig; integer indibl; - extern /* Subroutine */ int chbtrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void chbtrd_(char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *); logical valeig; - extern /* Subroutine */ int chbgst_(char *, char *, integer *, integer *, + extern /* Subroutine */ void chbgst_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, real *, integer *), clacpy_( char *, integer *, integer *, complex *, integer *, complex *, - integer *), xerbla_(char *, integer *, ftnlen), cpbstf_( + integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cpbstf_( char *, integer *, integer *, complex *, integer *, integer *); integer indiwk, indisp; - extern /* Subroutine */ int cstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void cstein_(integer *, real *, real *, integer *, real *, integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -949,14 +951,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHBGVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -964,7 +966,7 @@ f"> */ cpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -1092,7 +1094,7 @@ L30: } } - return 0; + return; /* End of CHBGVX */ diff --git a/lapack-netlib/SRC/chbtrd.c b/lapack-netlib/SRC/chbtrd.c index 2c91004e3..d748da917 100644 --- a/lapack-netlib/SRC/chbtrd.c +++ b/lapack-netlib/SRC/chbtrd.c @@ -677,7 +677,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd, +/* Subroutine */ void chbtrd_(char *vect, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *d__, real *e, complex *q, integer * ldq, complex *work, integer *info) { @@ -692,24 +692,25 @@ f"> */ real abst; integer incx, last; complex temp; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); integer j1end, j1inc, i__, j, k, l; complex t; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); integer iqend; extern logical lsame_(char *, char *); logical initq, wantq, upper; integer i2, j1, j2; - extern /* Subroutine */ int clar2v_(integer *, complex *, complex *, + extern /* Subroutine */ void clar2v_(integer *, complex *, complex *, complex *, integer *, real *, complex *, integer *); integer nq, nr, iqaend; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clartg_(complex *, complex *, real - *, complex *, complex *), xerbla_(char *, integer *, ftnlen), - clargv_(integer *, complex *, integer *, complex *, integer *, + *, complex *, complex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clargv_(integer *, complex *, integer *, complex *, integer *, real *, integer *), clartv_(integer *, complex *, integer *, complex *, integer *, real *, complex *, integer *); integer kd1, ibl, iqb, kdn, jin, nrt, kdm1; @@ -763,13 +764,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHBTRD", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize Q to the unit matrix, if needed */ @@ -1367,7 +1368,7 @@ f"> */ } } - return 0; + return; /* End of CHBTRD */ diff --git a/lapack-netlib/SRC/checon.c b/lapack-netlib/SRC/checon.c index 4cfcea0fd..853900896 100644 --- a/lapack-netlib/SRC/checon.c +++ b/lapack-netlib/SRC/checon.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void checon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer * info) { @@ -649,10 +649,11 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int chetrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void chetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -689,7 +690,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHECON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -697,9 +698,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -711,7 +712,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } /* L10: */ } @@ -723,7 +724,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } /* L20: */ } @@ -749,7 +750,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CHECON */ diff --git a/lapack-netlib/SRC/checon_3.c b/lapack-netlib/SRC/checon_3.c index 5794b8c7d..b5318afc4 100644 --- a/lapack-netlib/SRC/checon_3.c +++ b/lapack-netlib/SRC/checon_3.c @@ -678,7 +678,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int checon_3_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void checon_3_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, real *anorm, real *rcond, complex * work, integer *info) { @@ -690,10 +690,11 @@ static integer c__1 = 1; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int chetrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void chetrs_3_(char *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -732,7 +733,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CHECON_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ @@ -740,9 +741,9 @@ static integer c__1 = 1; *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -754,7 +755,7 @@ static integer c__1 = 1; for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } } } else { @@ -765,7 +766,7 @@ static integer c__1 = 1; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } } } @@ -790,7 +791,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CHECON_3 */ diff --git a/lapack-netlib/SRC/checon_rook.c b/lapack-netlib/SRC/checon_rook.c index 88a8c80bb..fda6cc631 100644 --- a/lapack-netlib/SRC/checon_rook.c +++ b/lapack-netlib/SRC/checon_rook.c @@ -652,7 +652,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int checon_rook_(char *uplo, integer *n, complex *a, +/* Subroutine */ void checon_rook_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info) { @@ -664,10 +664,11 @@ rook.f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int chetrs_rook_(char *, integer *, integer *, + extern /* Subroutine */ void chetrs_rook_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -704,7 +705,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHECON_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ @@ -712,9 +713,9 @@ rook.f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -726,7 +727,7 @@ rook.f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } /* L10: */ } @@ -738,7 +739,7 @@ rook.f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } /* L20: */ } @@ -764,7 +765,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CHECON_ROOK */ diff --git a/lapack-netlib/SRC/cheequb.c b/lapack-netlib/SRC/cheequb.c index 53d07b974..141ceee14 100644 --- a/lapack-netlib/SRC/cheequb.c +++ b/lapack-netlib/SRC/cheequb.c @@ -645,7 +645,7 @@ static integer c__1 = 1; /* > Tech report version: http://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.3.1679 */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cheequb_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void cheequb_(char *uplo, integer *n, complex *a, integer * lda, real *s, real *scond, real *amax, complex *work, integer *info) { /* System generated locals */ @@ -666,7 +666,7 @@ static integer c__1 = 1; extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); real smlnum, avg, std, tol; @@ -701,7 +701,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CHEEQUB", &i__1, (ftnlen)7); - return 0; + return; } up = lsame_(uplo, "U"); *amax = 0.f; @@ -710,7 +710,7 @@ static integer c__1 = 1; if (*n == 0) { *scond = 1.f; - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -905,7 +905,7 @@ static integer c__1 = 1; d__ = c1 * c1 - c0 * 4 * c2; if (d__ <= 0.f) { *info = -1; - return 0; + return; } si = c0 * -2 / (c1 + sqrt(d__)); d__ = si - s[i__]; @@ -992,6 +992,6 @@ L999: } *scond = f2cmax(smin,smlnum) / f2cmin(smax,bignum); - return 0; + return; } /* cheequb_ */ diff --git a/lapack-netlib/SRC/cheev.c b/lapack-netlib/SRC/cheev.c index 9ef5c529e..03e05dc60 100644 --- a/lapack-netlib/SRC/cheev.c +++ b/lapack-netlib/SRC/cheev.c @@ -656,7 +656,7 @@ ices */ /* > \ingroup complexHEeigen */ /* ===================================================================== */ -/* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a, +/* Subroutine */ void cheev_(char *jobz, char *uplo, integer *n, complex *a, integer *lda, real *w, complex *work, integer *lwork, real *rwork, integer *info) { @@ -671,16 +671,16 @@ ices */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical lower, wantz; integer nb; extern real clanhe_(char *, char *, integer *, complex *, integer *, real *); integer iscale; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int chetrd_(char *, integer *, complex *, integer + extern /* Subroutine */ void chetrd_(char *, integer *, complex *, integer *, real *, real *, complex *, complex *, integer *, integer *); real safmin; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, @@ -688,7 +688,7 @@ ices */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indtau, indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), cungtr_(char *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), ssterf_(integer *, real *, real *, integer *); @@ -752,15 +752,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -771,7 +771,7 @@ ices */ i__1 = a_dim1 + 1; a[i__1].r = 1.f, a[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -837,7 +837,7 @@ ices */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHEEV */ diff --git a/lapack-netlib/SRC/cheev_2stage.c b/lapack-netlib/SRC/cheev_2stage.c index e1ab3e60f..4aec6a933 100644 --- a/lapack-netlib/SRC/cheev_2stage.c +++ b/lapack-netlib/SRC/cheev_2stage.c @@ -708,7 +708,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int cheev_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void cheev_2stage_(char *jobz, char *uplo, integer *n, complex *a, integer *lda, real *w, complex *work, integer *lwork, real *rwork, integer *info) { @@ -723,13 +723,13 @@ stage.f"> */ real anrm; integer imax; real rmin, rmax; - extern /* Subroutine */ int chetrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void chetrd_2stage_(char *, char *, integer *, complex *, integer *, real *, real *, complex *, complex *, integer *, complex *, integer *, integer *); real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lhtrd, lwmin; logical lower; integer lwtrd; @@ -738,14 +738,14 @@ stage.f"> */ extern real clanhe_(char *, char *, integer *, complex *, integer *, real *); integer iscale; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); extern real slamch_(char *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indtau, indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), cungtr_(char *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), ssterf_(integer *, real *, real *, integer *); @@ -811,15 +811,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEEV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -830,7 +830,7 @@ stage.f"> */ i__1 = a_dim1 + 1; a[i__1].r = 1.f, a[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -899,7 +899,7 @@ stage.f"> */ work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CHEEV_2STAGE */ diff --git a/lapack-netlib/SRC/cheevd.c b/lapack-netlib/SRC/cheevd.c index a6a4e33a7..0f494f426 100644 --- a/lapack-netlib/SRC/cheevd.c +++ b/lapack-netlib/SRC/cheevd.c @@ -721,7 +721,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a, +/* Subroutine */ void cheevd_(char *jobz, char *uplo, integer *n, complex *a, integer *lda, real *w, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info) { @@ -738,7 +738,7 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lwmin, liopt; logical lower; integer llrwk, lropt; @@ -747,12 +747,12 @@ f"> */ extern real clanhe_(char *, char *, integer *, complex *, integer *, real *); integer iscale; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *), cstedc_(char *, integer *, real *, real *, complex *, integer *, complex *, integer *, real *, integer *, integer *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int chetrd_(char *, integer *, complex *, integer + extern /* Subroutine */ void chetrd_(char *, integer *, complex *, integer *, real *, real *, complex *, complex *, integer *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); real safmin; @@ -761,9 +761,9 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indtau, indrwk, indwrk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin; - extern /* Subroutine */ int cunmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void cunmtr_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer llwork; @@ -851,15 +851,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -869,7 +869,7 @@ f"> */ i__1 = a_dim1 + 1; a[i__1].r = 1.f, a[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -942,7 +942,7 @@ f"> */ rwork[1] = (real) lropt; iwork[1] = liopt; - return 0; + return; /* End of CHEEVD */ diff --git a/lapack-netlib/SRC/cheevd_2stage.c b/lapack-netlib/SRC/cheevd_2stage.c index 8bc56d092..8ded0446c 100644 --- a/lapack-netlib/SRC/cheevd_2stage.c +++ b/lapack-netlib/SRC/cheevd_2stage.c @@ -772,7 +772,7 @@ static real c_b28 = 1.f; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int cheevd_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void cheevd_2stage_(char *jobz, char *uplo, integer *n, complex *a, integer *lda, real *w, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info) @@ -788,13 +788,13 @@ static real c_b28 = 1.f; real anrm; integer imax; real rmin, rmax; - extern /* Subroutine */ int chetrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void chetrd_2stage_(char *, char *, integer *, complex *, integer *, real *, real *, complex *, complex *, integer *, complex *, integer *, integer *); real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lhtrd, lwmin; logical lower; integer llrwk, lwtrd; @@ -803,20 +803,20 @@ static real c_b28 = 1.f; extern real clanhe_(char *, char *, integer *, complex *, integer *, real *); integer iscale; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *), cstedc_(char *, integer *, real *, real *, complex *, integer *, complex *, integer *, real *, integer *, integer *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indtau, indrwk, indwrk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin; - extern /* Subroutine */ int cunmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void cunmtr_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer llwork; @@ -905,15 +905,15 @@ static real c_b28 = 1.f; if (*info != 0) { i__1 = -(*info); xerbla_("CHEEVD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -923,7 +923,7 @@ static real c_b28 = 1.f; i__1 = a_dim1 + 1; a[i__1].r = 1.f, a[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -999,7 +999,7 @@ static real c_b28 = 1.f; rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CHEEVD_2STAGE */ diff --git a/lapack-netlib/SRC/cheevr.c b/lapack-netlib/SRC/cheevr.c index bf99e339b..0799305ad 100644 --- a/lapack-netlib/SRC/cheevr.c +++ b/lapack-netlib/SRC/cheevr.c @@ -874,7 +874,7 @@ f"> */ /* > California at Berkeley, USA \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void cheevr_(char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *il, integer * iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, integer *isuppz, complex *work, integer *lwork, real *rwork, integer * @@ -893,14 +893,14 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer indwk; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer lwmin; logical lower; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantz; integer nb, jj; @@ -908,7 +908,7 @@ f"> */ integer iscale, ieeeok, indibl, indrdd, indifl, indree; logical valeig; extern real slamch_(char *); - extern /* Subroutine */ int chetrd_(char *, integer *, complex *, integer + extern /* Subroutine */ void chetrd_(char *, integer *, complex *, integer *, real *, real *, complex *, complex *, integer *, integer *), csscal_(integer *, real *, complex *, integer *); real safmin; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, @@ -916,22 +916,22 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indtau, indisp; - extern /* Subroutine */ int cstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void cstein_(integer *, real *, real *, integer *, real *, integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *); integer indiwo, indwkn; extern real clansy_(char *, char *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int cstemr_(char *, char *, integer *, real *, + extern /* Subroutine */ void cstemr_(char *, char *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, complex *, integer *, integer *, integer *, logical *, real *, integer *, integer *, integer *, integer *); integer indrwk, liwmin; logical tryrac; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin, llwrkn, llwork, nsplit; real smlnum; - extern /* Subroutine */ int cunmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void cunmtr_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), sstebz_( char *, char *, integer *, real *, real *, integer *, integer *, @@ -1046,9 +1046,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEEVR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -1056,7 +1056,7 @@ f"> */ *m = 0; if (*n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } if (*n == 1) { @@ -1080,7 +1080,7 @@ f"> */ isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } /* Get machine constants. */ @@ -1300,7 +1300,7 @@ L30: rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CHEEVR */ diff --git a/lapack-netlib/SRC/cheevr_2stage.c b/lapack-netlib/SRC/cheevr_2stage.c index 9ea9f950e..73bbe617d 100644 --- a/lapack-netlib/SRC/cheevr_2stage.c +++ b/lapack-netlib/SRC/cheevr_2stage.c @@ -922,7 +922,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int cheevr_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void cheevr_2stage_(char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, integer *isuppz, complex *work, integer *lwork, real * @@ -941,22 +941,22 @@ static integer c_n1 = -1; real rmin, rmax; logical test; integer itmp1, i__, j; - extern /* Subroutine */ int chetrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void chetrd_2stage_(char *, char *, integer *, complex *, integer *, real *, real *, complex *, complex *, integer *, complex *, integer *, integer *); integer indrd, indre; real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer indwk, lhtrd; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer lwmin; logical lower; integer lwtrd; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantz; integer ib, kd, jj; @@ -964,7 +964,7 @@ static integer c_n1 = -1; integer iscale, ieeeok, indibl, indrdd, indifl, indree; logical valeig; extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real safmin; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, @@ -972,22 +972,22 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indtau, indisp; - extern /* Subroutine */ int cstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void cstein_(integer *, real *, real *, integer *, real *, integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *); integer indiwo, indwkn; extern real clansy_(char *, char *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int cstemr_(char *, char *, integer *, real *, + extern /* Subroutine */ void cstemr_(char *, char *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, complex *, integer *, integer *, integer *, logical *, real *, integer *, integer *, integer *, integer *); integer indrwk, liwmin; logical tryrac; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin, llwrkn, llwork, nsplit; real smlnum; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), cunmtr_(char *, char *, char *, @@ -1095,9 +1095,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CHEEVR_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -1105,7 +1105,7 @@ static integer c_n1 = -1; *m = 0; if (*n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } if (*n == 1) { @@ -1129,7 +1129,7 @@ static integer c_n1 = -1; isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } /* Get machine constants. */ @@ -1351,7 +1351,7 @@ L30: rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CHEEVR_2STAGE */ diff --git a/lapack-netlib/SRC/cheevx.c b/lapack-netlib/SRC/cheevx.c index 2474c6cd7..c68954121 100644 --- a/lapack-netlib/SRC/cheevx.c +++ b/lapack-netlib/SRC/cheevx.c @@ -772,7 +772,7 @@ f"> */ /* > \ingroup complexHEeigen */ /* ===================================================================== */ -/* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void cheevx_(char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *il, integer * iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *iwork, integer * @@ -792,12 +792,12 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical lower; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantz; integer nb, jj; @@ -807,7 +807,7 @@ f"> */ integer iscale, indibl; logical valeig; extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *), chetrd_(char *, integer *, complex *, integer *, real *, real *, complex *, complex *, integer *, integer *), clacpy_( char *, integer *, integer *, complex *, integer *, complex *, @@ -818,11 +818,11 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indiwk, indisp, indtau; - extern /* Subroutine */ int cstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void cstein_(integer *, real *, real *, integer *, real *, integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *); integer indrwk, indwrk, lwkmin; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), cungtr_(char *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), ssterf_(integer *, real *, real *, integer *), @@ -831,7 +831,7 @@ f"> */ integer *); integer nsplit, llwork; real smlnum; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -928,16 +928,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -958,7 +958,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -1141,7 +1141,7 @@ L40: work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHEEVX */ diff --git a/lapack-netlib/SRC/cheevx_2stage.c b/lapack-netlib/SRC/cheevx_2stage.c index beec82da7..3bd68fd65 100644 --- a/lapack-netlib/SRC/cheevx_2stage.c +++ b/lapack-netlib/SRC/cheevx_2stage.c @@ -822,7 +822,7 @@ static integer c__4 = 4; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int cheevx_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void cheevx_2stage_(char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer * @@ -841,22 +841,22 @@ static integer c__4 = 4; real rmin, rmax; logical test; integer itmp1, i__, j; - extern /* Subroutine */ int chetrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void chetrd_2stage_(char *, char *, integer *, complex *, integer *, real *, real *, complex *, complex *, integer *, complex *, integer *, integer *); integer indee; real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer lhtrd; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer lwmin; logical lower; integer lwtrd; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantz; integer ib, kd, jj; @@ -866,18 +866,18 @@ static integer c__4 = 4; integer iscale, indibl; logical valeig; extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indiwk, indisp, indtau; - extern /* Subroutine */ int cstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void cstein_(integer *, real *, real *, integer *, real *, integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), cungtr_(char *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), ssterf_(integer *, real *, real *, integer *), @@ -886,7 +886,7 @@ static integer c__4 = 4; integer *); integer nsplit, llwork; real smlnum; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -984,16 +984,16 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("CHEEVX_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1014,7 +1014,7 @@ static integer c__4 = 4; i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -1200,7 +1200,7 @@ L40: work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CHEEVX_2STAGE */ diff --git a/lapack-netlib/SRC/chegs2.c b/lapack-netlib/SRC/chegs2.c index a74f77a13..14762a5cf 100644 --- a/lapack-netlib/SRC/chegs2.c +++ b/lapack-netlib/SRC/chegs2.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex * +/* Subroutine */ void chegs2_(integer *itype, char *uplo, integer *n, complex * a, integer *lda, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -652,20 +652,20 @@ f"> */ complex q__1; /* Local variables */ - extern /* Subroutine */ int cher2_(char *, integer *, complex *, complex * + extern /* Subroutine */ void cher2_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, integer *); integer k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *), ctrsv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *); complex ct; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - csscal_(integer *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), + csscal_(integer *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real akk, bkk; @@ -705,7 +705,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEGS2", &i__1, (ftnlen)6); - return 0; + return; } if (*itype == 1) { @@ -883,7 +883,7 @@ f"> */ } } } - return 0; + return; /* End of CHEGS2 */ diff --git a/lapack-netlib/SRC/chegst.c b/lapack-netlib/SRC/chegst.c index 7285356a9..5140e846d 100644 --- a/lapack-netlib/SRC/chegst.c +++ b/lapack-netlib/SRC/chegst.c @@ -645,7 +645,7 @@ f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex * +/* Subroutine */ void chegst_(integer *itype, char *uplo, integer *n, complex * a, integer *lda, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -654,17 +654,17 @@ f"> */ /* Local variables */ integer k; - extern /* Subroutine */ int chemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void chemm_(char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int chegs2_(integer *, char *, integer *, complex + extern /* Subroutine */ void chegs2_(integer *, char *, integer *, complex *, integer *, complex *, integer *, integer *), cher2k_( char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, real *, complex *, integer *); @@ -710,13 +710,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEGST", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -900,7 +900,7 @@ f"> */ } } } - return 0; + return; /* End of CHEGST */ diff --git a/lapack-netlib/SRC/chegv.c b/lapack-netlib/SRC/chegv.c index eee1f048b..599f47ffb 100644 --- a/lapack-netlib/SRC/chegv.c +++ b/lapack-netlib/SRC/chegv.c @@ -695,7 +695,7 @@ static integer c_n1 = -1; /* > \ingroup complexHEeigen */ /* ===================================================================== */ -/* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void chegv_(integer *itype, char *jobz, char *uplo, integer * n, complex *a, integer *lda, complex *b, integer *ldb, real *w, complex *work, integer *lwork, real *rwork, integer *info) { @@ -704,23 +704,24 @@ static integer c_n1 = -1; /* Local variables */ integer neig; - extern /* Subroutine */ int cheev_(char *, char *, integer *, complex *, + extern /* Subroutine */ void cheev_(char *, char *, integer *, complex *, integer *, real *, complex *, integer *, real *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); char trans[1]; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper, wantz; integer nb; - extern /* Subroutine */ int chegst_(integer *, char *, integer *, complex + extern /* Subroutine */ void chegst_(integer *, char *, integer *, complex *, integer *, complex *, integer *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cpotrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int cpotrf_( char *, integer *, complex *, integer *, integer *); integer lwkopt; logical lquery; @@ -786,15 +787,15 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CHEGV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -802,7 +803,7 @@ static integer c_n1 = -1; cpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -851,7 +852,7 @@ static integer c_n1 = -1; work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHEGV */ diff --git a/lapack-netlib/SRC/chegv_2stage.c b/lapack-netlib/SRC/chegv_2stage.c index 7106af1f7..340820c9b 100644 --- a/lapack-netlib/SRC/chegv_2stage.c +++ b/lapack-netlib/SRC/chegv_2stage.c @@ -749,7 +749,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chegv_2stage_(integer *itype, char *jobz, char *uplo, +/* Subroutine */ void chegv_2stage_(integer *itype, char *jobz, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real * w, complex *work, integer *lwork, real *rwork, integer *info) { @@ -762,24 +762,26 @@ stage.f"> */ integer *, integer *, integer *); extern logical lsame_(char *, char *); integer lhtrd; - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer lwmin; char trans[1]; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; integer lwtrd; logical wantz; integer ib, kd; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), chegst_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void chegst_( integer *, char *, integer *, complex *, integer *, complex *, - integer *, integer *), cpotrf_(char *, integer *, complex + integer *, integer *); + extern int cpotrf_(char *, integer *, complex *, integer *, integer *); logical lquery; - extern /* Subroutine */ int cheev_2stage_(char *, char *, integer *, + extern /* Subroutine */ void cheev_2stage_(char *, char *, integer *, complex *, integer *, real *, complex *, integer *, real *, integer *); @@ -846,15 +848,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEGV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -862,7 +864,7 @@ stage.f"> */ cpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -911,7 +913,7 @@ stage.f"> */ work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CHEGV_2STAGE */ diff --git a/lapack-netlib/SRC/chegvd.c b/lapack-netlib/SRC/chegvd.c index 855dc1e26..1259b737f 100644 --- a/lapack-netlib/SRC/chegvd.c +++ b/lapack-netlib/SRC/chegvd.c @@ -761,7 +761,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void chegvd_(integer *itype, char *jobz, char *uplo, integer * n, complex *a, integer *lda, complex *b, integer *ldb, real *w, complex *work, integer *lwork, real *rwork, integer *lrwork, integer * iwork, integer *liwork, integer *info) @@ -773,23 +773,25 @@ f"> */ /* Local variables */ integer lopt; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer lwmin; char trans[1]; integer liopt; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; integer lropt; logical wantz; - extern /* Subroutine */ int cheevd_(char *, char *, integer *, complex *, + extern /* Subroutine */ void cheevd_(char *, char *, integer *, complex *, integer *, real *, complex *, integer *, real *, integer *, integer *, integer *, integer *), chegst_(integer *, char *, integer *, complex *, integer *, complex *, integer *, - integer *), xerbla_(char *, integer *, ftnlen), cpotrf_( + integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern int cpotrf_( char *, integer *, complex *, integer *, integer *); integer liwmin, lrwmin; logical lquery; @@ -871,15 +873,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -887,7 +889,7 @@ f"> */ cpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -943,7 +945,7 @@ f"> */ rwork[1] = (real) lropt; iwork[1] = liopt; - return 0; + return; /* End of CHEGVD */ diff --git a/lapack-netlib/SRC/chegvx.c b/lapack-netlib/SRC/chegvx.c index 24df5668b..198c480d5 100644 --- a/lapack-netlib/SRC/chegvx.c +++ b/lapack-netlib/SRC/chegvx.c @@ -820,7 +820,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char * +/* Subroutine */ void chegvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer * m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, @@ -831,25 +831,27 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); char trans[1]; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper, wantz; integer nb; logical alleig, indeig, valeig; - extern /* Subroutine */ int chegst_(integer *, char *, integer *, complex + extern /* Subroutine */ void chegst_(integer *, char *, integer *, complex *, integer *, complex *, integer *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cheevx_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cheevx_( char *, char *, char *, integer *, complex *, integer *, real *, real *, integer *, integer *, real *, integer *, real *, complex * , integer *, complex *, integer *, real *, integer *, integer *, - integer *), cpotrf_(char *, integer *, + integer *); + extern int cpotrf_(char *, integer *, complex *, integer *, integer *); integer lwkopt; logical lquery; @@ -942,16 +944,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHEGVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -959,7 +961,7 @@ f"> */ cpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -1010,7 +1012,7 @@ f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHEGVX */ diff --git a/lapack-netlib/SRC/cherfs.c b/lapack-netlib/SRC/cherfs.c index 9cb5b2f48..f10c671f8 100644 --- a/lapack-netlib/SRC/cherfs.c +++ b/lapack-netlib/SRC/cherfs.c @@ -705,7 +705,7 @@ f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void cherfs_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -722,22 +722,23 @@ f"> */ integer i__, j, k; real s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int chemv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chemv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xk; extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), chetrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void chetrs_( char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real lstres, eps; @@ -794,7 +795,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHERFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -806,7 +807,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1040,7 +1041,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CHERFS */ diff --git a/lapack-netlib/SRC/chesv.c b/lapack-netlib/SRC/chesv.c index 5d6dfee6a..8c438db95 100644 --- a/lapack-netlib/SRC/chesv.c +++ b/lapack-netlib/SRC/chesv.c @@ -684,7 +684,7 @@ static integer c_n1 = -1; /* > \ingroup complexHEsolve */ /* ===================================================================== */ -/* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a, +/* Subroutine */ void chesv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -694,16 +694,16 @@ static integer c_n1 = -1; /* Local variables */ extern logical lsame_(char *, char *); integer nb; - extern /* Subroutine */ int chetrf_(char *, integer *, complex *, integer - *, integer *, complex *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void chetrf_(char *, integer *, complex *, integer + *, integer *, complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int chetrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void chetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int chetrs2_(char *, integer *, integer *, + extern /* Subroutine */ void chetrs2_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, integer *); @@ -760,9 +760,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CHESV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**H or A = L*D*L**H. */ @@ -792,7 +792,7 @@ static integer c_n1 = -1; work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHESV */ diff --git a/lapack-netlib/SRC/chesv_aa.c b/lapack-netlib/SRC/chesv_aa.c index 76e3b1901..9401ecb61 100644 --- a/lapack-netlib/SRC/chesv_aa.c +++ b/lapack-netlib/SRC/chesv_aa.c @@ -674,7 +674,7 @@ a.f"> */ /* > \ingroup complexHEsolve */ /* ===================================================================== */ -/* Subroutine */ int chesv_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void chesv_aa_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -683,12 +683,13 @@ a.f"> */ /* Local variables */ integer lwkopt_hetrf__, lwkopt_hetrs__; - extern /* Subroutine */ int chetrf_aa_(char *, integer *, complex *, + extern /* Subroutine */ void chetrf_aa_(char *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int chetrs_aa_(char *, integer *, integer *, + extern /* Subroutine */ void chetrs_aa_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, - integer *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -749,9 +750,9 @@ a.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHESV_AA ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U**H*T*U or A = L*T*L**H. */ @@ -768,7 +769,7 @@ a.f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHESV_AA */ diff --git a/lapack-netlib/SRC/chesv_aa_2stage.c b/lapack-netlib/SRC/chesv_aa_2stage.c index f2849bb28..31c4127be 100644 --- a/lapack-netlib/SRC/chesv_aa_2stage.c +++ b/lapack-netlib/SRC/chesv_aa_2stage.c @@ -698,7 +698,7 @@ a_2stage.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int chesv_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void chesv_aa_2stage_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *tb, integer *ltb, integer *ipiv, integer *ipiv2, complex *b, integer *ldb, complex *work, integer * lwork, integer *info) @@ -707,7 +707,7 @@ a_2stage.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int chetrs_aa_2stage_(char *, integer *, integer + extern /* Subroutine */ void chetrs_aa_2stage_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); @@ -715,7 +715,7 @@ a_2stage.f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical tquery, wquery; - extern /* Subroutine */ int chetrf_aa_2stage_(char *, integer *, complex + extern /* Subroutine */ void chetrf_aa_2stage_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, integer *); @@ -774,9 +774,9 @@ a_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHESV_AA_2STAGE", &i__1, (ftnlen)15); - return 0; + return; } else if (wquery || tquery) { - return 0; + return; } @@ -795,7 +795,7 @@ a_2stage.f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHESV_AA_2STAGE */ diff --git a/lapack-netlib/SRC/chesv_rk.c b/lapack-netlib/SRC/chesv_rk.c index b3219dfb2..f1acea516 100644 --- a/lapack-netlib/SRC/chesv_rk.c +++ b/lapack-netlib/SRC/chesv_rk.c @@ -740,7 +740,7 @@ k.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chesv_rk_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void chesv_rk_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *e, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -749,11 +749,12 @@ k.f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int chetrf_rk_(char *, integer *, complex *, - integer *, complex *, integer *, complex *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void chetrf_rk_(char *, integer *, complex *, + integer *, complex *, integer *, complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int chetrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void chetrs_3_(char *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -811,9 +812,9 @@ k.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHESV_RK ", &i__1,(ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -832,7 +833,7 @@ k.f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHESV_RK */ diff --git a/lapack-netlib/SRC/chesv_rook.c b/lapack-netlib/SRC/chesv_rook.c index 5819d265f..b3311798c 100644 --- a/lapack-netlib/SRC/chesv_rook.c +++ b/lapack-netlib/SRC/chesv_rook.c @@ -719,7 +719,7 @@ ook.f"> */ /* ===================================================================== */ -/* Subroutine */ int chesv_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void chesv_rook_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -734,7 +734,7 @@ ook.f"> */ integer *, integer *, ftnlen, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int chetrf_rook_(char *, integer *, complex *, + extern /* Subroutine */ void chetrf_rook_(char *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), chetrs_rook_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -792,9 +792,9 @@ ook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHESV_ROOK ", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**H or A = L*D*L**H. */ @@ -813,7 +813,7 @@ ook.f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHESV_ROOK */ diff --git a/lapack-netlib/SRC/chesvx.c b/lapack-netlib/SRC/chesvx.c index 0bed0d3e3..18a299a0d 100644 --- a/lapack-netlib/SRC/chesvx.c +++ b/lapack-netlib/SRC/chesvx.c @@ -797,7 +797,7 @@ f"> */ /* > \ingroup complexHEsolve */ /* ===================================================================== */ -/* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void chesvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, integer *lwork, real *rwork, @@ -813,11 +813,11 @@ f"> */ integer nb; extern real clanhe_(char *, char *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int checon_(char *, integer *, complex *, integer + extern /* Subroutine */ void checon_(char *, integer *, complex *, integer *, integer *, real *, real *, complex *, integer *); extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int cherfs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cherfs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *), chetrf_(char *, integer *, complex *, integer @@ -826,7 +826,8 @@ f"> */ integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), chetrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void chetrs_( char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); integer lwkopt; @@ -909,9 +910,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHESVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } if (nofact) { @@ -926,7 +927,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -960,7 +961,7 @@ f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHESVX */ diff --git a/lapack-netlib/SRC/chesvxx.c b/lapack-netlib/SRC/chesvxx.c index 3f321c3d2..ce9759166 100644 --- a/lapack-netlib/SRC/chesvxx.c +++ b/lapack-netlib/SRC/chesvxx.c @@ -1015,7 +1015,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexHEsolve */ /* ===================================================================== */ -/* Subroutine */ int chesvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void chesvxx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * @@ -1036,20 +1036,21 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); real scond; logical equil, rcequ; - extern /* Subroutine */ int claqhe_(char *, integer *, complex *, integer + extern /* Subroutine */ void claqhe_(char *, integer *, complex *, integer *, real *, real *, real *, char *); extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int chetrf_(char *, integer *, complex *, integer + extern /* Subroutine */ void chetrf_(char *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_( char *, integer *, integer *, complex *, integer *, complex *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; - extern /* Subroutine */ int chetrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void chetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real smlnum; - extern /* Subroutine */ int clascl2_(integer *, integer *, real *, + extern /* Subroutine */ void clascl2_(integer *, integer *, real *, complex *, integer *), cheequb_(char *, integer *, complex *, integer *, real *, real *, real *, complex *, integer *), cherfsx_(char *, char *, integer *, integer *, complex *, integer @@ -1164,7 +1165,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CHESVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1209,7 +1210,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = cla_herpvgrw_(uplo, n, info, &a[a_offset], lda, & af[af_offset], ldaf, &ipiv[1], &rwork[1]); } - return 0; + return; } } @@ -1241,7 +1242,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ clascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of CHESVXX */ diff --git a/lapack-netlib/SRC/cheswapr.c b/lapack-netlib/SRC/cheswapr.c index 2c53be0e3..9c475e78d 100644 --- a/lapack-netlib/SRC/cheswapr.c +++ b/lapack-netlib/SRC/cheswapr.c @@ -616,7 +616,7 @@ r.f"> */ /* > \ingroup complexHEauxiliary */ /* ===================================================================== */ -/* Subroutine */ int cheswapr_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void cheswapr_(char *uplo, integer *n, complex *a, integer * lda, integer *i1, integer *i2) { /* System generated locals */ @@ -626,7 +626,7 @@ r.f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical upper; complex tmp; @@ -749,6 +749,6 @@ r.f"> */ } } - return 0; + return; } /* cheswapr_ */ diff --git a/lapack-netlib/SRC/chetd2.c b/lapack-netlib/SRC/chetd2.c index cdd845fcf..b52f5e8d7 100644 --- a/lapack-netlib/SRC/chetd2.c +++ b/lapack-netlib/SRC/chetd2.c @@ -690,7 +690,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chetd2_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void chetd2_(char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, integer *info) { /* System generated locals */ @@ -700,20 +700,21 @@ f"> */ /* Local variables */ complex taui; - extern /* Subroutine */ int cher2_(char *, integer *, complex *, complex * + extern /* Subroutine */ void cher2_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, integer *); integer i__; complex alpha; extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int chemv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chemv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, - integer *, complex *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, + integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -748,13 +749,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETD2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } if (upper) { @@ -909,7 +910,7 @@ f"> */ d__[i__1] = a[i__2].r; } - return 0; + return; /* End of CHETD2 */ diff --git a/lapack-netlib/SRC/chetf2.c b/lapack-netlib/SRC/chetf2.c index c03d84651..6c186962c 100644 --- a/lapack-netlib/SRC/chetf2.c +++ b/lapack-netlib/SRC/chetf2.c @@ -700,7 +700,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void chetf2_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -709,7 +709,7 @@ f"> */ complex q__1, q__2, q__3, q__4, q__5, q__6; /* Local variables */ - extern /* Subroutine */ int cher_(char *, integer *, real *, complex *, + extern /* Subroutine */ void cher_(char *, integer *, real *, complex *, integer *, complex *, integer *); integer imax, jmax; real d__; @@ -717,7 +717,7 @@ f"> */ complex t; real alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; logical upper; @@ -731,8 +731,9 @@ f"> */ complex wk; extern integer icamax_(integer *, complex *, integer *); real tt; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real colmax; extern logical sisnan_(real *); real rowmax; @@ -769,7 +770,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETF2", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1352,7 +1353,7 @@ L50: } L90: - return 0; + return; /* End of CHETF2 */ diff --git a/lapack-netlib/SRC/chetf2_rk.c b/lapack-netlib/SRC/chetf2_rk.c index 07c75f79e..2d1754531 100644 --- a/lapack-netlib/SRC/chetf2_rk.c +++ b/lapack-netlib/SRC/chetf2_rk.c @@ -755,7 +755,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetf2_rk_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void chetf2_rk_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -764,7 +764,7 @@ rk.f"> */ complex q__1, q__2, q__3, q__4, q__5, q__6, q__7, q__8; /* Local variables */ - extern /* Subroutine */ int cher_(char *, integer *, real *, complex *, + extern /* Subroutine */ void cher_(char *, integer *, real *, complex *, integer *, complex *, integer *); logical done; integer imax, jmax; @@ -774,7 +774,7 @@ rk.f"> */ real alpha; extern logical lsame_(char *, char *); real sfmin; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer itemp, kstep; real stemp; @@ -790,8 +790,9 @@ rk.f"> */ extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); real tt; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real colmax, rowmax; complex wkm1, wkp1; @@ -828,7 +829,7 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETF2_RK", &i__1, (ftnlen)9); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1837,7 +1838,7 @@ L64: ; } - return 0; + return; /* End of CHETF2_RK */ diff --git a/lapack-netlib/SRC/chetf2_rook.c b/lapack-netlib/SRC/chetf2_rook.c index 6be879745..d623cc5ab 100644 --- a/lapack-netlib/SRC/chetf2_rook.c +++ b/lapack-netlib/SRC/chetf2_rook.c @@ -708,7 +708,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetf2_rook_(char *uplo, integer *n, complex *a, +/* Subroutine */ void chetf2_rook_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -717,7 +717,7 @@ rook.f"> */ complex q__1, q__2, q__3, q__4, q__5, q__6, q__7, q__8; /* Local variables */ - extern /* Subroutine */ int cher_(char *, integer *, real *, complex *, + extern /* Subroutine */ void cher_(char *, integer *, real *, complex *, integer *, complex *, integer *); logical done; integer imax, jmax; @@ -727,7 +727,7 @@ rook.f"> */ real alpha; extern logical lsame_(char *, char *); real sfmin; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer itemp, kstep; real stemp; @@ -743,8 +743,9 @@ rook.f"> */ extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); real tt; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real colmax, rowmax; complex wkm1, wkp1; @@ -780,7 +781,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETF2_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1683,7 +1684,7 @@ L42: L70: - return 0; + return; /* End of CHETF2_ROOK */ diff --git a/lapack-netlib/SRC/chetrd.c b/lapack-netlib/SRC/chetrd.c index 1aa8c1162..67ff572d2 100644 --- a/lapack-netlib/SRC/chetrd.c +++ b/lapack-netlib/SRC/chetrd.c @@ -709,7 +709,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void chetrd_(char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, complex *work, integer *lwork, integer *info) { @@ -722,14 +722,14 @@ f"> */ extern logical lsame_(char *, char *); integer nbmin, iinfo; logical upper; - extern /* Subroutine */ int chetd2_(char *, integer *, complex *, integer + extern /* Subroutine */ void chetd2_(char *, integer *, complex *, integer *, real *, real *, complex *, integer *), cher2k_(char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, real *, complex *, integer *); integer nb, kk, nx; - extern /* Subroutine */ int clatrd_(char *, integer *, integer *, complex - *, integer *, real *, complex *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clatrd_(char *, integer *, integer *, complex + *, integer *, real *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -784,16 +784,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } nx = *n; @@ -930,7 +930,7 @@ f"> */ } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHETRD */ diff --git a/lapack-netlib/SRC/chetrd_2stage.c b/lapack-netlib/SRC/chetrd_2stage.c index 2bdb761fb..d61672b83 100644 --- a/lapack-netlib/SRC/chetrd_2stage.c +++ b/lapack-netlib/SRC/chetrd_2stage.c @@ -740,7 +740,7 @@ static integer c__4 = 4; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chetrd_2stage_(char *vect, char *uplo, integer *n, +/* Subroutine */ void chetrd_2stage_(char *vect, char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, complex * hous2, integer *lhous2, complex *work, integer *lwork, integer *info) { @@ -749,7 +749,7 @@ static integer c__4 = 4; /* Local variables */ integer ldab; - extern /* Subroutine */ int chetrd_hb2st_(char *, char *, char *, + extern /* Subroutine */ void chetrd_hb2st_(char *, char *, char *, integer *, integer *, complex *, integer *, real *, real *, complex *, integer *, complex *, integer *, integer *); extern integer ilaenv2stage_(integer *, char *, char *, integer *, @@ -761,7 +761,7 @@ static integer c__4 = 4; integer ib, kd; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int chetrd_he2hb_(char *, integer *, integer *, + extern /* Subroutine */ void chetrd_he2hb_(char *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); @@ -824,16 +824,16 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("CHETRD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Determine pointer position */ @@ -847,20 +847,20 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("CHETRD_HE2HB", &i__1, (ftnlen)12); - return 0; + return; } chetrd_hb2st_("Y", vect, uplo, n, &kd, &work[abpos], &ldab, &d__[1], &e[ 1], &hous2[1], lhous2, &work[wpos], &lwrk, info); if (*info != 0) { i__1 = -(*info); xerbla_("CHETRD_HB2ST", &i__1, (ftnlen)12); - return 0; + return; } hous2[1].r = (real) lhmin, hous2[1].i = 0.f; work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CHETRD_2STAGE */ diff --git a/lapack-netlib/SRC/chetrd_hb2st.c b/lapack-netlib/SRC/chetrd_hb2st.c index 29eb70ac6..cbcebf3dd 100644 --- a/lapack-netlib/SRC/chetrd_hb2st.c +++ b/lapack-netlib/SRC/chetrd_hb2st.c @@ -746,7 +746,7 @@ hb2st.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chetrd_hb2st_(char *stage1, char *vect, char *uplo, +/* Subroutine */ void chetrd_hb2st_(char *stage1, char *vect, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *d__, real * e, complex *hous, integer *lhous, complex *work, integer *lwork, integer *info) @@ -766,17 +766,18 @@ hb2st.f"> */ integer lhmin, sicev, sizea, shift, stind, colpt, lwmin, awpos; logical wantq, upper; integer grsiz, ttype, stepercol, ed, ib; - extern /* Subroutine */ int chb2st_kernels_(char *, logical *, integer *, + extern /* Subroutine */ void chb2st_kernels_(char *, logical *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *); integer st, abdpos; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer thgrid, thgrnb, indtau; real abstmp; integer ofdpos, blklastind; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); logical lquery, afters1; integer lda, tid, ldv; complex tmp; @@ -847,9 +848,9 @@ hb2st.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRD_HB2ST", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -857,7 +858,7 @@ hb2st.f"> */ if (*n == 0) { hous[1].r = 1.f, hous[1].i = 0.f; work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Determine pointer position */ @@ -911,7 +912,7 @@ hb2st.f"> */ hous[1].r = 1.f, hous[1].i = 0.f; work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Case KD=1: */ @@ -992,7 +993,7 @@ hb2st.f"> */ hous[1].r = 1.f, hous[1].i = 0.f; work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Main code start here. */ @@ -1114,7 +1115,7 @@ hb2st.f"> */ hous[1].r = (real) lhmin, hous[1].i = 0.f; work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CHETRD_HB2ST */ diff --git a/lapack-netlib/SRC/chetrd_he2hb.c b/lapack-netlib/SRC/chetrd_he2hb.c index 072bcea43..8461cc778 100644 --- a/lapack-netlib/SRC/chetrd_he2hb.c +++ b/lapack-netlib/SRC/chetrd_he2hb.c @@ -760,7 +760,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chetrd_he2hb_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void chetrd_he2hb_(char *uplo, integer *n, integer *kd, complex *a, integer *lda, complex *ab, integer *ldab, complex *tau, complex *work, integer *lwork, integer *info) { @@ -773,29 +773,30 @@ f"> */ extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); integer tpos, wpos, s1pos, s2pos, i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), chemm_(char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer lwmin; logical upper; - extern /* Subroutine */ int cher2k_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cher2k_(char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, real *, complex *, integer *); integer lk, pk, pn, lt; - extern /* Subroutine */ int cgelqf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgelqf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); integer lw; - extern /* Subroutine */ int cgeqrf_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeqrf_(integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clarft_( char *, char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer ls1; logical lquery; integer ls2, ldt, ldw, lds1, lds2; @@ -850,10 +851,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRD_HE2HB", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; } /* Quick return if possible */ @@ -882,7 +883,7 @@ f"> */ } } work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Determine the pointer position for the workspace */ @@ -1078,7 +1079,7 @@ f"> */ } work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CHETRD_HE2HB */ diff --git a/lapack-netlib/SRC/chetrf.c b/lapack-netlib/SRC/chetrf.c index c9f2e1c51..0b1a12cf0 100644 --- a/lapack-netlib/SRC/chetrf.c +++ b/lapack-netlib/SRC/chetrf.c @@ -692,7 +692,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void chetrf_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -703,12 +703,13 @@ f"> */ extern logical lsame_(char *, char *); integer nbmin, iinfo; logical upper; - extern /* Subroutine */ int chetf2_(char *, integer *, complex *, integer + extern /* Subroutine */ void chetf2_(char *, integer *, complex *, integer *, integer *, integer *); integer kb, nb; - extern /* Subroutine */ int clahef_(char *, integer *, integer *, integer + extern /* Subroutine */ void clahef_(char *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer - *), xerbla_(char *, integer *, ftnlen); + *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -761,9 +762,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -890,7 +891,7 @@ L20: L40: work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHETRF */ diff --git a/lapack-netlib/SRC/chetrf_aa.c b/lapack-netlib/SRC/chetrf_aa.c index ff02b316f..707043942 100644 --- a/lapack-netlib/SRC/chetrf_aa.c +++ b/lapack-netlib/SRC/chetrf_aa.c @@ -647,7 +647,7 @@ aa.f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetrf_aa_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void chetrf_aa_(char *uplo, integer *n, complex *a, integer * lda, integer *ipiv, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -656,17 +656,17 @@ aa.f"> */ complex q__1; /* Local variables */ - extern /* Subroutine */ int clahef_aa_(char *, integer *, integer *, + extern /* Subroutine */ void clahef_aa_(char *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, complex *); integer j; complex alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); logical upper; @@ -724,15 +724,15 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRF_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } ipiv[1] = 1; if (*n == 1) { @@ -740,7 +740,7 @@ aa.f"> */ i__2 = a_dim1 + 1; r__1 = a[i__2].r; a[i__1].r = r__1, a[i__1].i = 0.f; - return 0; + return; } /* Adjust block size based on the workspace size */ @@ -1041,7 +1041,7 @@ L11: } L20: - return 0; + return; /* End of CHETRF_AA */ diff --git a/lapack-netlib/SRC/chetrf_aa_2stage.c b/lapack-netlib/SRC/chetrf_aa_2stage.c index e7ab409f9..47de92e10 100644 --- a/lapack-netlib/SRC/chetrf_aa_2stage.c +++ b/lapack-netlib/SRC/chetrf_aa_2stage.c @@ -675,7 +675,7 @@ aa_2stage.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetrf_aa_2stage_(char *uplo, integer *n, complex *a, +/* Subroutine */ void chetrf_aa_2stage_(char *uplo, integer *n, complex *a, integer *lda, complex *tb, integer *ltb, integer *ipiv, integer * ipiv2, complex *work, integer *lwork, integer *info) { @@ -686,12 +686,12 @@ aa_2stage.f"> */ /* Local variables */ integer ldtb, i__, j, k; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, @@ -699,18 +699,19 @@ aa_2stage.f"> */ integer i1; logical upper; integer i2, jb, kb, nb, td; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); integer nt; - extern /* Subroutine */ int cgbtrf_(integer *, integer *, integer *, - integer *, complex *, integer *, integer *, integer *), cgetrf_( - integer *, integer *, complex *, integer *, integer *, integer *), - clacpy_(char *, integer *, integer *, complex *, integer *, + extern /* Subroutine */ void cgbtrf_(integer *, integer *, integer *, + integer *, complex *, integer *, integer *, integer *); + extern int cgetrf_( + integer *, integer *, complex *, integer *, integer *, integer *); + extern void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer - *, complex *, complex *, complex *, integer *), xerbla_( - char *, integer *, ftnlen); + *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int chegst_(integer *, char *, integer *, complex + extern /* Subroutine */ void chegst_(integer *, char *, integer *, complex *, integer *, complex *, integer *, integer *); logical tquery, wquery; complex piv; @@ -757,7 +758,7 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRF_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Answer the query */ @@ -775,13 +776,13 @@ aa_2stage.f"> */ } } if (tquery || wquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } /* Determine the number of the block size */ @@ -1282,7 +1283,7 @@ aa_2stage.f"> */ /* Factor the band matrix */ cgbtrf_(n, n, &nb, &nb, &tb[1], &ldtb, &ipiv2[1], info); - return 0; + return; /* End of CHETRF_AA_2STAGE */ diff --git a/lapack-netlib/SRC/chetrf_rk.c b/lapack-netlib/SRC/chetrf_rk.c index 614b1e93d..953c497f2 100644 --- a/lapack-netlib/SRC/chetrf_rk.c +++ b/lapack-netlib/SRC/chetrf_rk.c @@ -774,7 +774,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetrf_rk_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void chetrf_rk_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, complex *work, integer *lwork, integer *info) { @@ -782,15 +782,15 @@ rk.f"> */ integer a_dim1, a_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int chetf2_rk_(char *, integer *, complex *, + extern /* Subroutine */ void chetf2_rk_(char *, integer *, complex *, integer *, complex *, integer *, integer *); integer i__, k; - extern /* Subroutine */ int clahef_rk_(char *, integer *, integer *, + extern /* Subroutine */ void clahef_rk_(char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmin, iinfo; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical upper; integer kb, nb, ip; @@ -848,9 +848,9 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRF_RK", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -1036,7 +1036,7 @@ L35: } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHETRF_RK */ diff --git a/lapack-netlib/SRC/chetrf_rook.c b/lapack-netlib/SRC/chetrf_rook.c index 4850a0aff..5025d7d27 100644 --- a/lapack-netlib/SRC/chetrf_rook.c +++ b/lapack-netlib/SRC/chetrf_rook.c @@ -728,7 +728,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetrf_rook_(char *uplo, integer *n, complex *a, +/* Subroutine */ void chetrf_rook_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer * info) { @@ -746,10 +746,10 @@ rook.f"> */ integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; logical lquery; - extern /* Subroutine */ int chetf2_rook_(char *, integer *, complex *, + extern /* Subroutine */ void chetf2_rook_(char *, integer *, complex *, integer *, integer *, integer *); integer iws; - extern /* Subroutine */ int clahef_rook_(char *, integer *, integer *, + extern /* Subroutine */ void clahef_rook_(char *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -801,9 +801,9 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRF_ROOK", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -933,7 +933,7 @@ L20: L40: work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHETRF_ROOK */ diff --git a/lapack-netlib/SRC/chetri.c b/lapack-netlib/SRC/chetri.c index bd3bf7a6d..01a8b298e 100644 --- a/lapack-netlib/SRC/chetri.c +++ b/lapack-netlib/SRC/chetri.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void chetri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info) { /* System generated locals */ @@ -644,7 +644,7 @@ f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int chemv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chemv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ), ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, @@ -688,13 +688,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -706,7 +706,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } /* L10: */ } @@ -718,7 +718,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } /* L20: */ } @@ -1051,7 +1051,7 @@ L80: ; } - return 0; + return; /* End of CHETRI */ diff --git a/lapack-netlib/SRC/chetri2.c b/lapack-netlib/SRC/chetri2.c index dc26121d9..529a24fc7 100644 --- a/lapack-netlib/SRC/chetri2.c +++ b/lapack-netlib/SRC/chetri2.c @@ -641,14 +641,14 @@ static integer c_n1 = -1; /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetri2_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void chetri2_(char *uplo, integer *n, complex *a, integer * lda, integer *ipiv, complex *work, integer *lwork, integer *info) { /* System generated locals */ integer a_dim1, a_offset, i__1; /* Local variables */ - extern /* Subroutine */ int chetri2x_(char *, integer *, complex *, + extern /* Subroutine */ void chetri2x_(char *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmax; @@ -656,7 +656,7 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int chetri_(char *, integer *, complex *, integer + extern /* Subroutine */ void chetri_(char *, integer *, complex *, integer *, integer *, complex *, integer *); logical lquery; integer minsize; @@ -709,13 +709,13 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CHETRI2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { work[1].r = (real) minsize, work[1].i = 0.f; - return 0; + return; } if (*n == 0) { - return 0; + return; } if (nbmax >= *n) { chetri_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], info); @@ -723,7 +723,7 @@ static integer c_n1 = -1; chetri2x_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], &nbmax, info); } - return 0; + return; /* End of CHETRI2 */ diff --git a/lapack-netlib/SRC/chetri2x.c b/lapack-netlib/SRC/chetri2x.c index 9daebcf4e..00869fead 100644 --- a/lapack-netlib/SRC/chetri2x.c +++ b/lapack-netlib/SRC/chetri2x.c @@ -634,7 +634,7 @@ x.f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetri2x_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void chetri2x_(char *uplo, integer *n, complex *a, integer * lda, integer *ipiv, complex *work, integer *nb, integer *info) { /* System generated locals */ @@ -645,17 +645,17 @@ x.f"> */ /* Local variables */ integer invd; - extern /* Subroutine */ int cheswapr_(char *, integer *, complex *, + extern /* Subroutine */ void cheswapr_(char *, integer *, complex *, integer *, integer *, integer *); complex akkp1, d__; integer i__, j, k; complex t; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer count; @@ -664,11 +664,12 @@ x.f"> */ integer u11; complex u11_i_j__; integer ip; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ctrtri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int ctrtri_( char *, char *, integer *, complex *, integer *, integer *); integer nnb, cut; complex akp1; - extern /* Subroutine */ int csyconv_(char *, char *, integer *, complex *, + extern /* Subroutine */ void csyconv_(char *, char *, integer *, complex *, integer *, integer *, complex *, integer *); complex u01_ip1_j__, u11_ip1_j__; @@ -710,10 +711,10 @@ x.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRI2X", &i__1, (ftnlen)8); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Convert A */ @@ -731,7 +732,7 @@ x.f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } } } else { @@ -742,7 +743,7 @@ x.f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } } } @@ -1385,7 +1386,7 @@ x.f"> */ } } - return 0; + return; /* End of CHETRI2X */ diff --git a/lapack-netlib/SRC/chetri_3.c b/lapack-netlib/SRC/chetri_3.c index 4b63cc99f..f174298e4 100644 --- a/lapack-netlib/SRC/chetri_3.c +++ b/lapack-netlib/SRC/chetri_3.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetri_3_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void chetri_3_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, complex *work, integer *lwork, integer *info) { @@ -691,7 +691,7 @@ static integer c_n1 = -1; integer a_dim1, a_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int chetri_3x_(char *, integer *, complex *, + extern /* Subroutine */ void chetri_3x_(char *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); logical upper; @@ -748,16 +748,16 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CHETRI_3", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } chetri_3x_(uplo, n, &a[a_offset], lda, &e[1], &ipiv[1], &work[1], &nb, @@ -765,7 +765,7 @@ static integer c_n1 = -1; work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CHETRI_3 */ diff --git a/lapack-netlib/SRC/chetri_3x.c b/lapack-netlib/SRC/chetri_3x.c index 4f061ba10..145dcccef 100644 --- a/lapack-netlib/SRC/chetri_3x.c +++ b/lapack-netlib/SRC/chetri_3x.c @@ -673,7 +673,7 @@ static complex c_b2 = {0.f,0.f}; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetri_3x_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void chetri_3x_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, complex *work, integer *nb, integer * info) { @@ -685,16 +685,16 @@ static complex c_b2 = {0.f,0.f}; /* Local variables */ integer invd; - extern /* Subroutine */ int cheswapr_(char *, integer *, complex *, + extern /* Subroutine */ void cheswapr_(char *, integer *, complex *, integer *, integer *, integer *); complex akkp1, d__; integer i__, j, k; real t; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; @@ -749,10 +749,10 @@ static complex c_b2 = {0.f,0.f}; if (*info != 0) { i__1 = -(*info); xerbla_("CHETRI_3X", &i__1, (ftnlen)9); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Workspace got Non-diag elements of D */ @@ -773,7 +773,7 @@ static complex c_b2 = {0.f,0.f}; for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } } } else { @@ -784,7 +784,7 @@ static complex c_b2 = {0.f,0.f}; for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } } } @@ -1426,7 +1426,7 @@ static complex c_b2 = {0.f,0.f}; } - return 0; + return; /* End of CHETRI_3X */ diff --git a/lapack-netlib/SRC/chetri_rook.c b/lapack-netlib/SRC/chetri_rook.c index fd209056a..ae64d562a 100644 --- a/lapack-netlib/SRC/chetri_rook.c +++ b/lapack-netlib/SRC/chetri_rook.c @@ -643,7 +643,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetri_rook_(char *uplo, integer *n, complex *a, +/* Subroutine */ void chetri_rook_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info) { /* System generated locals */ @@ -659,7 +659,7 @@ rook.f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int chemv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chemv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ), ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, @@ -703,13 +703,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRI_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -721,7 +721,7 @@ rook.f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } /* L10: */ } @@ -733,7 +733,7 @@ rook.f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } /* L20: */ } @@ -1232,7 +1232,7 @@ L120: ; } - return 0; + return; /* End of CHETRI_ROOK */ diff --git a/lapack-netlib/SRC/chetrs.c b/lapack-netlib/SRC/chetrs.c index 1e17a5e74..e8f259cce 100644 --- a/lapack-netlib/SRC/chetrs.c +++ b/lapack-netlib/SRC/chetrs.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void chetrs_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * info) { @@ -648,7 +648,7 @@ f"> */ real s; extern logical lsame_(char *, char *); complex denom; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), @@ -656,9 +656,9 @@ f"> */ logical upper; complex ak, bk; integer kp; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - csscal_(integer *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), + csscal_(integer *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); complex akm1, bkm1; @@ -697,13 +697,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1076,7 +1076,7 @@ L100: ; } - return 0; + return; /* End of CHETRS */ diff --git a/lapack-netlib/SRC/chetrs2.c b/lapack-netlib/SRC/chetrs2.c index b2be27b6b..854cfd69c 100644 --- a/lapack-netlib/SRC/chetrs2.c +++ b/lapack-netlib/SRC/chetrs2.c @@ -639,7 +639,7 @@ static complex c_b1 = {1.f,0.f}; /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetrs2_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void chetrs2_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex * work, integer *info) { @@ -654,17 +654,18 @@ static complex c_b1 = {1.f,0.f}; extern logical lsame_(char *, char *); complex denom; integer iinfo; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; complex ak, bk; integer kp; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); complex akm1, bkm1; - extern /* Subroutine */ int csyconv_(char *, char *, integer *, complex *, + extern /* Subroutine */ void csyconv_(char *, char *, integer *, complex *, integer *, integer *, complex *, integer *); @@ -704,13 +705,13 @@ static complex c_b1 = {1.f,0.f}; if (*info != 0) { i__1 = -(*info); xerbla_("CHETRS2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Convert A */ @@ -937,7 +938,7 @@ static complex c_b1 = {1.f,0.f}; csyconv_(uplo, "R", n, &a[a_offset], lda, &ipiv[1], &work[1], &iinfo); - return 0; + return; /* End of CHETRS2 */ diff --git a/lapack-netlib/SRC/chetrs_3.c b/lapack-netlib/SRC/chetrs_3.c index 7a994c041..9e46d445c 100644 --- a/lapack-netlib/SRC/chetrs_3.c +++ b/lapack-netlib/SRC/chetrs_3.c @@ -676,7 +676,7 @@ static complex c_b1 = {1.f,0.f}; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetrs_3_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void chetrs_3_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *e, integer *ipiv, complex *b, integer *ldb, integer *info) { @@ -690,15 +690,16 @@ static complex c_b1 = {1.f,0.f}; real s; extern logical lsame_(char *, char *); complex denom; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; complex ak, bk; integer kp; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); complex akm1, bkm1; @@ -738,13 +739,13 @@ static complex c_b1 = {1.f,0.f}; if (*info != 0) { i__1 = -(*info); xerbla_("CHETRS_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -938,7 +939,7 @@ static complex c_b1 = {1.f,0.f}; } - return 0; + return; /* End of CHETRS_3 */ diff --git a/lapack-netlib/SRC/chetrs_aa.c b/lapack-netlib/SRC/chetrs_aa.c index 69819ccdf..464bc9667 100644 --- a/lapack-netlib/SRC/chetrs_aa.c +++ b/lapack-netlib/SRC/chetrs_aa.c @@ -644,7 +644,7 @@ aa.f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetrs_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void chetrs_aa_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -654,16 +654,17 @@ aa.f"> */ /* Local variables */ integer k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *), cgtsv_(integer *, integer *, complex *, complex *, complex *, complex *, integer *, integer *), ctrsm_( char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; integer kp; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, - complex *, integer *), xerbla_(char *, integer *, ftnlen); + complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -712,17 +713,17 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRS_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { lwkopt = *n * 3 - 2; work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -864,7 +865,7 @@ aa.f"> */ } - return 0; + return; /* End of CHETRS_AA */ diff --git a/lapack-netlib/SRC/chetrs_aa_2stage.c b/lapack-netlib/SRC/chetrs_aa_2stage.c index ff2693e5f..d4cca77e5 100644 --- a/lapack-netlib/SRC/chetrs_aa_2stage.c +++ b/lapack-netlib/SRC/chetrs_aa_2stage.c @@ -655,7 +655,7 @@ aa_2stage.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int chetrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void chetrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *tb, integer *ltb, integer *ipiv, integer *ipiv2, complex *b, integer *ldb, integer *info) { @@ -665,15 +665,16 @@ aa_2stage.f"> */ /* Local variables */ integer ldtb; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; integer nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cgbtrs_( char *, integer *, integer *, integer *, integer *, complex *, - integer *, integer *, complex *, integer *, integer *), - claswp_(integer *, complex *, integer *, integer *, integer *, + integer *, integer *, complex *, integer *, integer *); + extern int claswp_(integer *, complex *, integer *, integer *, integer *, integer *, integer *); @@ -717,13 +718,13 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRS_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Read NB and compute LDTB */ @@ -808,7 +809,7 @@ aa_2stage.f"> */ } } - return 0; + return; /* End of CHETRS_AA_2STAGE */ diff --git a/lapack-netlib/SRC/chetrs_rook.c b/lapack-netlib/SRC/chetrs_rook.c index 936ee3c63..f2c4c30c0 100644 --- a/lapack-netlib/SRC/chetrs_rook.c +++ b/lapack-netlib/SRC/chetrs_rook.c @@ -650,7 +650,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int chetrs_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void chetrs_rook_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info) { @@ -664,7 +664,7 @@ rook.f"> */ real s; extern logical lsame_(char *, char *); complex denom; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), @@ -672,9 +672,9 @@ rook.f"> */ logical upper; complex ak, bk; integer kp; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - csscal_(integer *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), + csscal_(integer *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); complex akm1, bkm1; @@ -713,13 +713,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHETRS_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1114,7 +1114,7 @@ L100: ; } - return 0; + return; /* End of CHETRS_ROOK */ diff --git a/lapack-netlib/SRC/chfrk.c b/lapack-netlib/SRC/chfrk.c index 5e0eca282..3604d0566 100644 --- a/lapack-netlib/SRC/chfrk.c +++ b/lapack-netlib/SRC/chfrk.c @@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int chfrk_(char *transr, char *uplo, char *trans, integer *n, +/* Subroutine */ void chfrk_(char *transr, char *uplo, char *trans, integer *n, integer *k, real *alpha, complex *a, integer *lda, real *beta, complex *c__) { @@ -688,7 +688,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer info, j; complex cbeta; logical normaltransr; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), cherk_(char *, char *, integer *, integer *, real *, complex *, integer *, real * @@ -749,7 +749,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (info != 0) { i__1 = -info; xerbla_("CHFRK ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ @@ -758,7 +758,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* done (it is in CHERK for example) and left in the general case. */ if (*n == 0 || (*alpha == 0.f || *k == 0) && *beta == 1.f) { - return 0; + return; } if (*alpha == 0.f && *beta == 0.f) { @@ -767,7 +767,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ i__2 = j; c__[i__2].r = 0.f, c__[i__2].i = 0.f; } - return 0; + return; } q__1.r = *alpha, q__1.i = 0.f; @@ -1080,7 +1080,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of CHFRK */ diff --git a/lapack-netlib/SRC/chgeqz.c b/lapack-netlib/SRC/chgeqz.c index cb738aa41..2781ce630 100644 --- a/lapack-netlib/SRC/chgeqz.c +++ b/lapack-netlib/SRC/chgeqz.c @@ -796,7 +796,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n, +/* Subroutine */ void chgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *t, integer *ldt, complex *alpha, complex *beta, complex *q, integer *ldq, complex *z__, integer *ldz, complex *work, integer *lwork, real * @@ -810,12 +810,12 @@ f"> */ /* Local variables */ real absb, atol, btol, temp; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); real temp2, c__; integer j; complex s; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); complex x, y; extern logical lsame_(char *, char *); @@ -835,7 +835,7 @@ f"> */ complex signbc; extern real slamch_(char *), clanhs_(char *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clartg_(complex *, complex *, real *, complex *, complex *); real safmin; @@ -954,9 +954,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHGEQZ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -964,7 +964,7 @@ f"> */ /* WORK( 1 ) = CMPLX( 1 ) */ if (*n <= 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Initialize Q and Z */ @@ -1742,7 +1742,7 @@ L190: L210: q__1.r = (real) (*n), q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CHGEQZ */ diff --git a/lapack-netlib/SRC/chpcon.c b/lapack-netlib/SRC/chpcon.c index 13aee7d57..54f4a8159 100644 --- a/lapack-netlib/SRC/chpcon.c +++ b/lapack-netlib/SRC/chpcon.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer * +/* Subroutine */ void chpcon_(char *uplo, integer *n, complex *ap, integer * ipiv, real *anorm, real *rcond, complex *work, integer *info) { /* System generated locals */ @@ -642,12 +642,12 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int chptrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void chptrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -680,7 +680,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -688,9 +688,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -703,7 +703,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = ip; if (ipiv[i__] > 0 && (ap[i__1].r == 0.f && ap[i__1].i == 0.f)) { - return 0; + return; } ip -= i__; /* L10: */ @@ -717,7 +717,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = ip; if (ipiv[i__] > 0 && (ap[i__2].r == 0.f && ap[i__2].i == 0.f)) { - return 0; + return; } ip = ip + *n - i__ + 1; /* L20: */ @@ -743,7 +743,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CHPCON */ diff --git a/lapack-netlib/SRC/chpev.c b/lapack-netlib/SRC/chpev.c index b812d29a4..2a704ec06 100644 --- a/lapack-netlib/SRC/chpev.c +++ b/lapack-netlib/SRC/chpev.c @@ -651,7 +651,7 @@ atrices */ /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap, +/* Subroutine */ void chpev_(char *jobz, char *uplo, integer *n, complex *ap, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info) { @@ -666,20 +666,20 @@ atrices */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical wantz; integer iscale; extern real clanhp_(char *, char *, integer *, complex *, real *), slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indtau; - extern /* Subroutine */ int chptrd_(char *, integer *, complex *, real *, + extern /* Subroutine */ void chptrd_(char *, integer *, complex *, real *, real *, complex *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), cupgtr_(char *, integer *, complex *, complex *, complex *, integer *, complex *, integer *), ssterf_(integer *, real *, real *, integer *); @@ -724,13 +724,13 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -740,7 +740,7 @@ atrices */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -800,7 +800,7 @@ atrices */ sscal_(&imax, &r__1, &w[1], &c__1); } - return 0; + return; /* End of CHPEV */ diff --git a/lapack-netlib/SRC/chpevd.c b/lapack-netlib/SRC/chpevd.c index 3e3ffc583..9e5224da0 100644 --- a/lapack-netlib/SRC/chpevd.c +++ b/lapack-netlib/SRC/chpevd.c @@ -713,7 +713,7 @@ f"> */ /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap, +/* Subroutine */ void chpevd_(char *jobz, char *uplo, integer *n, complex *ap, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info) @@ -729,27 +729,27 @@ f"> */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lwmin, llrwk, llwrk; logical wantz; integer iscale; extern real clanhp_(char *, char *, integer *, complex *, real *); - extern /* Subroutine */ int cstedc_(char *, integer *, real *, real *, + extern /* Subroutine */ void cstedc_(char *, integer *, real *, real *, complex *, integer *, complex *, integer *, real *, integer *, integer *, integer *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indtau; - extern /* Subroutine */ int chptrd_(char *, integer *, complex *, real *, + extern /* Subroutine */ void chptrd_(char *, integer *, complex *, real *, real *, complex *, integer *); integer indrwk, indwrk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin; - extern /* Subroutine */ int cupmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void cupmtr_(char *, char *, char *, integer *, integer *, complex *, complex *, complex *, integer *, complex *, integer *); real smlnum; @@ -828,15 +828,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPEVD", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -845,7 +845,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -911,7 +911,7 @@ f"> */ work[1].r = (real) lwmin, work[1].i = 0.f; rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CHPEVD */ diff --git a/lapack-netlib/SRC/chpevx.c b/lapack-netlib/SRC/chpevx.c index a7f92e1df..843547191 100644 --- a/lapack-netlib/SRC/chpevx.c +++ b/lapack-netlib/SRC/chpevx.c @@ -752,7 +752,7 @@ f"> */ /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void chpevx_(char *jobz, char *range, char *uplo, integer *n, complex *ap, real *vl, real *vu, integer *il, integer *iu, real * abstol, integer *m, real *w, complex *z__, integer *ldz, complex * work, real *rwork, integer *iwork, integer *ifail, integer *info) @@ -771,9 +771,9 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *), scopy_(integer *, real *, integer *, real * , integer *); logical wantz; @@ -783,27 +783,27 @@ f"> */ extern real clanhp_(char *, char *, integer *, complex *, real *); logical valeig; extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indiwk, indisp, indtau; - extern /* Subroutine */ int chptrd_(char *, integer *, complex *, real *, + extern /* Subroutine */ void chptrd_(char *, integer *, complex *, real *, real *, complex *, integer *), cstein_(integer *, real *, real *, integer *, real *, integer *, integer *, complex *, integer *, real *, integer *, integer *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *), cupgtr_(char *, integer *, complex *, complex *, complex *, integer *, complex *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int cupmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void cupmtr_(char *, char *, char *, integer *, integer *, complex *, complex *, complex *, integer *, complex *, integer *); real smlnum; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -870,14 +870,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -894,7 +894,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Get machine constants. */ @@ -1063,7 +1063,7 @@ L20: } } - return 0; + return; /* End of CHPEVX */ diff --git a/lapack-netlib/SRC/chpgst.c b/lapack-netlib/SRC/chpgst.c index 923b0b10b..30898fc84 100644 --- a/lapack-netlib/SRC/chpgst.c +++ b/lapack-netlib/SRC/chpgst.c @@ -627,7 +627,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex * +/* Subroutine */ void chpgst_(integer *itype, char *uplo, integer *n, complex * ap, complex *bp, integer *info) { /* System generated locals */ @@ -636,25 +636,26 @@ f"> */ complex q__1, q__2, q__3; /* Local variables */ - extern /* Subroutine */ int chpr2_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chpr2_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *); integer j, k; extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int chpmv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chpmv_(char *, integer *, complex *, complex * , complex *, integer *, complex *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *), ctpmv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical upper; integer j1, k1; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, complex *, complex *, integer *); integer jj, kk; complex ct; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real ajj; integer j1j1; real akk; @@ -690,7 +691,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPGST", &i__1, (ftnlen)6); - return 0; + return; } if (*itype == 1) { @@ -854,7 +855,7 @@ f"> */ } } } - return 0; + return; /* End of CHPGST */ diff --git a/lapack-netlib/SRC/chpgv.c b/lapack-netlib/SRC/chpgv.c index a44d81e50..9028fa5d6 100644 --- a/lapack-netlib/SRC/chpgv.c +++ b/lapack-netlib/SRC/chpgv.c @@ -677,7 +677,7 @@ static integer c__1 = 1; /* > \ingroup complexOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void chpgv_(integer *itype, char *jobz, char *uplo, integer * n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info) { @@ -687,16 +687,17 @@ static integer c__1 = 1; /* Local variables */ integer neig, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int chpev_(char *, char *, integer *, complex *, + extern /* Subroutine */ void chpev_(char *, char *, integer *, complex *, real *, complex *, integer *, complex *, real *, integer *); char trans[1]; - extern /* Subroutine */ int ctpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpmv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical wantz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), chpgst_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void chpgst_( integer *, char *, integer *, complex *, complex *, integer *), cpptrf_(char *, integer *, complex *, integer *); @@ -740,13 +741,13 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CHPGV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -754,7 +755,7 @@ static integer c__1 = 1; cpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -808,7 +809,7 @@ static integer c__1 = 1; } } } - return 0; + return; /* End of CHPGV */ diff --git a/lapack-netlib/SRC/chpgvd.c b/lapack-netlib/SRC/chpgvd.c index c60eabcc3..18e1100df 100644 --- a/lapack-netlib/SRC/chpgvd.c +++ b/lapack-netlib/SRC/chpgvd.c @@ -743,7 +743,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void chpgvd_(integer *itype, char *jobz, char *uplo, integer * n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer * iwork, integer *liwork, integer *info) @@ -757,16 +757,17 @@ f"> */ extern logical lsame_(char *, char *); integer lwmin; char trans[1]; - extern /* Subroutine */ int ctpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpmv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical wantz; - extern /* Subroutine */ int chpevd_(char *, char *, integer *, complex *, + extern /* Subroutine */ void chpevd_(char *, char *, integer *, complex *, real *, complex *, integer *, complex *, integer *, real *, - integer *, integer *, integer *, integer *), - xerbla_(char *, integer *, ftnlen), chpgst_(integer *, char *, + integer *, integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void chpgst_(integer *, char *, integer *, complex *, complex *, integer *), cpptrf_(char *, integer *, complex *, integer *); integer liwmin, lrwmin; @@ -847,15 +848,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -863,7 +864,7 @@ f"> */ cpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -930,7 +931,7 @@ f"> */ work[1].r = (real) lwmin, work[1].i = 0.f; rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CHPGVD */ diff --git a/lapack-netlib/SRC/chpgvx.c b/lapack-netlib/SRC/chpgvx.c index be34f9af6..da649dd47 100644 --- a/lapack-netlib/SRC/chpgvx.c +++ b/lapack-netlib/SRC/chpgvx.c @@ -788,7 +788,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char * +/* Subroutine */ void chpgvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex * z__, integer *ldz, complex *work, real *rwork, integer *iwork, @@ -801,13 +801,14 @@ f"> */ integer j; extern logical lsame_(char *, char *); char trans[1]; - extern /* Subroutine */ int ctpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpmv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical wantz, alleig, indeig, valeig; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), chpgst_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void chpgst_( integer *, char *, integer *, complex *, complex *, integer *), chpevx_(char *, char *, char *, integer *, complex *, real *, real *, integer *, integer *, real *, integer *, real *, complex *, integer *, complex *, real *, integer *, integer *, @@ -878,13 +879,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPGVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -892,7 +893,7 @@ f"> */ cpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -947,7 +948,7 @@ f"> */ } } - return 0; + return; /* End of CHPGVX */ diff --git a/lapack-netlib/SRC/chprfs.c b/lapack-netlib/SRC/chprfs.c index d127189ee..612976b28 100644 --- a/lapack-netlib/SRC/chprfs.c +++ b/lapack-netlib/SRC/chprfs.c @@ -693,7 +693,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void chprfs_(char *uplo, integer *n, integer *nrhs, complex * ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -710,20 +710,21 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), chpmv_(char *, integer *, complex *, complex *, complex *, integer *, complex *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer ik, kk; real xk; extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), chptrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void chptrs_( char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real lstres, eps; @@ -772,7 +773,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -784,7 +785,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1022,7 +1023,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CHPRFS */ diff --git a/lapack-netlib/SRC/chpsv.c b/lapack-netlib/SRC/chpsv.c index a9cadb499..ee137647c 100644 --- a/lapack-netlib/SRC/chpsv.c +++ b/lapack-netlib/SRC/chpsv.c @@ -671,7 +671,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void chpsv_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -679,7 +679,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), chptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void chptrf_( char *, integer *, complex *, integer *, integer *), chptrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -717,7 +718,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CHPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the factorization A = U*D*U**H or A = L*D*L**H. */ @@ -730,7 +731,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ chptrs_(uplo, n, nrhs, &ap[1], &ipiv[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of CHPSV */ diff --git a/lapack-netlib/SRC/chpsvx.c b/lapack-netlib/SRC/chpsvx.c index 5ac0ef501..b6377469b 100644 --- a/lapack-netlib/SRC/chpsvx.c +++ b/lapack-netlib/SRC/chpsvx.c @@ -789,7 +789,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void chpsvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer * ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -800,13 +800,15 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); extern real clanhp_(char *, char *, integer *, complex *, real *), slamch_(char *); logical nofact; - extern /* Subroutine */ int chpcon_(char *, integer *, complex *, integer + extern /* Subroutine */ void chpcon_(char *, integer *, complex *, integer *, real *, real *, complex *, integer *), clacpy_(char *, - integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen), chprfs_(char *, + integer *, integer *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void chprfs_(char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, real * , integer *), chptrf_(char *, integer *, complex *, @@ -860,7 +862,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -875,7 +877,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -904,7 +906,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of CHPSVX */ diff --git a/lapack-netlib/SRC/chptrd.c b/lapack-netlib/SRC/chptrd.c index 1796bdd87..8a42cd4d1 100644 --- a/lapack-netlib/SRC/chptrd.c +++ b/lapack-netlib/SRC/chptrd.c @@ -665,7 +665,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__, +/* Subroutine */ void chptrd_(char *uplo, integer *n, complex *ap, real *d__, real *e, complex *tau, integer *info) { /* System generated locals */ @@ -675,22 +675,23 @@ f"> */ /* Local variables */ complex taui; - extern /* Subroutine */ int chpr2_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chpr2_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *); integer i__; complex alpha; extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int chpmv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chpmv_(char *, integer *, complex *, complex * , complex *, integer *, complex *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer i1; logical upper; integer ii; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, - integer *, complex *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, + integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); integer i1i1; @@ -722,13 +723,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPTRD", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } if (upper) { @@ -868,7 +869,7 @@ f"> */ d__[i__1] = ap[i__2].r; } - return 0; + return; /* End of CHPTRD */ diff --git a/lapack-netlib/SRC/chptrf.c b/lapack-netlib/SRC/chptrf.c index 431722909..8e0c5f166 100644 --- a/lapack-netlib/SRC/chptrf.c +++ b/lapack-netlib/SRC/chptrf.c @@ -672,7 +672,7 @@ f"> */ /* > J. Lewis, Boeing Computer Services Company */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer * +/* Subroutine */ void chptrf_(char *uplo, integer *n, complex *ap, integer * ipiv, integer *info) { /* System generated locals */ @@ -681,7 +681,7 @@ f"> */ complex q__1, q__2, q__3, q__4, q__5, q__6; /* Local variables */ - extern /* Subroutine */ int chpr_(char *, integer *, real *, complex *, + extern /* Subroutine */ void chpr_(char *, integer *, real *, complex *, integer *, complex *); integer imax, jmax; real d__; @@ -689,7 +689,7 @@ f"> */ complex t; real alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; logical upper; @@ -704,8 +704,9 @@ f"> */ integer kx; extern integer icamax_(integer *, complex *, integer *); real tt; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real colmax, rowmax; integer knc, kpc, npp; complex wkm1, wkp1; @@ -737,7 +738,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1355,7 +1356,7 @@ L60: } L110: - return 0; + return; /* End of CHPTRF */ diff --git a/lapack-netlib/SRC/chptri.c b/lapack-netlib/SRC/chptri.c index b83affabc..334da92b1 100644 --- a/lapack-netlib/SRC/chptri.c +++ b/lapack-netlib/SRC/chptri.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer * +/* Subroutine */ void chptri_(char *uplo, integer *n, complex *ap, integer * ipiv, complex *work, integer *info) { /* System generated locals */ @@ -639,7 +639,7 @@ f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), chpmv_(char *, integer *, complex *, complex *, complex *, integer *, complex *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *); @@ -679,13 +679,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -698,7 +698,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = kp; if (ipiv[*info] > 0 && (ap[i__1].r == 0.f && ap[i__1].i == 0.f)) { - return 0; + return; } kp -= *info; /* L10: */ @@ -712,7 +712,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = kp; if (ipiv[*info] > 0 && (ap[i__2].r == 0.f && ap[i__2].i == 0.f)) { - return 0; + return; } kp = kp + *n - *info + 1; /* L20: */ @@ -1050,7 +1050,7 @@ L80: ; } - return 0; + return; /* End of CHPTRI */ diff --git a/lapack-netlib/SRC/chptrs.c b/lapack-netlib/SRC/chptrs.c index 89a977fde..941362df1 100644 --- a/lapack-netlib/SRC/chptrs.c +++ b/lapack-netlib/SRC/chptrs.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void chptrs_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ real s; extern logical lsame_(char *, char *); complex denom; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), @@ -650,9 +650,9 @@ f"> */ logical upper; complex ak, bk; integer kc, kp; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - csscal_(integer *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), + csscal_(integer *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); complex akm1, bkm1; @@ -687,13 +687,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1075,7 +1075,7 @@ L100: ; } - return 0; + return; /* End of CHPTRS */ diff --git a/lapack-netlib/SRC/chsein.c b/lapack-netlib/SRC/chsein.c index 3fddc94cd..eeaaffb0c 100644 --- a/lapack-netlib/SRC/chsein.c +++ b/lapack-netlib/SRC/chsein.c @@ -757,7 +757,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical * +/* Subroutine */ void chsein_(char *side, char *eigsrc, char *initv, logical * select, integer *n, complex *h__, integer *ldh, complex *w, complex * vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer * m, complex *work, real *rwork, integer *ifaill, integer *ifailr, @@ -777,7 +777,7 @@ f"> */ logical leftv, bothv; real hnorm; integer kl; - extern /* Subroutine */ int claein_(logical *, logical *, integer *, + extern /* Subroutine */ void claein_(logical *, logical *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, real *, real *, real *, integer *); integer kr, ks; @@ -864,13 +864,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CHSEIN", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Set machine-dependent constants. */ @@ -944,7 +944,7 @@ L50: rwork[1]); if (sisnan_(&hnorm)) { *info = -6; - return 0; + return; } else if (hnorm > 0.f) { eps3 = hnorm * ulp; } else { @@ -1021,7 +1021,7 @@ L60: /* L100: */ } - return 0; + return; /* End of CHSEIN */ diff --git a/lapack-netlib/SRC/chseqr.c b/lapack-netlib/SRC/chseqr.c index bb8001be4..002313ba2 100644 --- a/lapack-netlib/SRC/chseqr.c +++ b/lapack-netlib/SRC/chseqr.c @@ -816,7 +816,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* ===================================================================== */ -/* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo, +/* Subroutine */ void chseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__, integer *ldz, complex *work, integer *lwork, integer *info) { @@ -830,20 +830,21 @@ f"> */ /* Local variables */ integer kbot, nmin; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); logical initz; complex workl[49]; logical wantt, wantz; - extern /* Subroutine */ int claqr0_(logical *, logical *, integer *, + extern /* Subroutine */ void claqr0_(logical *, logical *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); complex hl[2401] /* was [49][49] */; - extern /* Subroutine */ int clahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void clahqr_(logical *, logical *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex - *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical lquery; @@ -915,13 +916,13 @@ f"> */ i__1 = -(*info); xerbla_("CHSEQR", &i__1, (ftnlen)6); - return 0; + return; } else if (*n == 0) { /* ==== Quick return in case N = 0; nothing to do. ==== */ - return 0; + return; } else if (lquery) { @@ -936,7 +937,7 @@ f"> */ r__1 = f2cmax(r__2,r__3); q__1.r = r__1, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } else { @@ -966,7 +967,7 @@ f"> */ i__1 = *ilo; i__2 = *ilo + *ilo * h_dim1; w[i__1].r = h__[i__2].r, w[i__1].i = h__[i__2].i; - return 0; + return; } /* ==== CLAHQR/CLAQR0 crossover point ==== */ @@ -1050,6 +1051,6 @@ f"> */ /* ==== End of CHSEQR ==== */ - return 0; + return; } /* chseqr_ */ diff --git a/lapack-netlib/SRC/cla_gbamv.c b/lapack-netlib/SRC/cla_gbamv.c index e8a49ab26..a5978c82d 100644 --- a/lapack-netlib/SRC/cla_gbamv.c +++ b/lapack-netlib/SRC/cla_gbamv.c @@ -694,7 +694,7 @@ mv.f"> */ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_gbamv_(integer *trans, integer *m, integer *n, +/* Subroutine */ void cla_gbamv_(integer *trans, integer *m, integer *n, integer *kl, integer *ku, real *alpha, complex *ab, integer *ldab, complex *x, integer *incx, real *beta, real *y, integer *incy) { @@ -754,13 +754,13 @@ mv.f"> */ } if (info != 0) { xerbla_("CLA_GBAMV ", &info, (ftnlen)10); - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0 || *alpha == 0.f && *beta == 1.f) { - return 0; + return; } /* Set LENX and LENY, the lengths of the vectors x and y, and set */ @@ -953,7 +953,7 @@ mv.f"> */ } } - return 0; + return; /* End of CLA_GBAMV */ diff --git a/lapack-netlib/SRC/cla_gbrcond_c.c b/lapack-netlib/SRC/cla_gbrcond_c.c index ce023746b..e6ade5424 100644 --- a/lapack-netlib/SRC/cla_gbrcond_c.c +++ b/lapack-netlib/SRC/cla_gbrcond_c.c @@ -688,10 +688,11 @@ real cla_gbrcond_c_(char *trans, integer *n, integer *kl, integer *ku, extern logical lsame_(char *, char *); integer isave[3]; real anorm; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer kd, ke; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cgbtrs_( char *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real ainvnm, tmp; diff --git a/lapack-netlib/SRC/cla_gbrcond_x.c b/lapack-netlib/SRC/cla_gbrcond_x.c index 3fc00713f..2c00c8f76 100644 --- a/lapack-netlib/SRC/cla_gbrcond_x.c +++ b/lapack-netlib/SRC/cla_gbrcond_x.c @@ -680,10 +680,11 @@ real cla_gbrcond_x_(char *trans, integer *n, integer *kl, integer *ku, extern logical lsame_(char *, char *); integer isave[3]; real anorm; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer kd, ke; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cgbtrs_( char *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real ainvnm, tmp; diff --git a/lapack-netlib/SRC/cla_gbrfsx_extended.c b/lapack-netlib/SRC/cla_gbrfsx_extended.c index e193bcce9..f793251d4 100644 --- a/lapack-netlib/SRC/cla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/cla_gbrfsx_extended.c @@ -922,7 +922,7 @@ fsx_extended.f"> */ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_gbrfsx_extended_(integer *prec_type__, integer * +/* Subroutine */ void cla_gbrfsx_extended_(integer *prec_type__, integer * trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, integer * ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex * @@ -940,20 +940,20 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__; - extern /* Subroutine */ int cla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void cla_lin_berr_(integer *, integer *, integer * , complex *, real *, real *); real ymin; - extern /* Subroutine */ int blas_cgbmv_x_(integer *, integer *, integer * + extern /* Subroutine */ void blas_cgbmv_x_(integer *, integer *, integer * , integer *, integer *, complex *, complex *, integer *, complex * , integer *, complex *, complex *, integer *, integer *); real dxratmax, dzratmax; integer y_prec_state__; - extern /* Subroutine */ int blas_cgbmv2_x_(integer *, integer *, integer + extern /* Subroutine */ void blas_cgbmv2_x_(integer *, integer *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, integer *); integer i__, j, m; - extern /* Subroutine */ int cla_gbamv_(integer *, integer *, integer *, + extern /* Subroutine */ void cla_gbamv_(integer *, integer *, integer *, integer *, integer *, real *, complex *, integer *, complex *, integer *, real *, real *, integer *), cgbmv_(char *, integer *, integer *, integer *, integer *, complex *, complex *, integer *, @@ -962,16 +962,16 @@ fsx_extended.f"> */ real dxrat; logical incr_prec__; real dzrat; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); char trans[1]; real normx, normy, myhugeval, prev_dz_z__, yk; extern real slamch_(char *); - extern /* Subroutine */ int cgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void cgbtrs_(char *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real final_dx_x__; - extern /* Subroutine */ int cla_wwaddw_(integer *, complex *, complex *, + extern /* Subroutine */ void cla_wwaddw_(integer *, complex *, complex *, complex *); real final_dz_z__, normdx; extern /* Character */ VOID chla_transtype_(char *, integer *); @@ -1020,7 +1020,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } chla_transtype_(ch__1, trans_type__); *(unsigned char *)trans = *(unsigned char *)&ch__1[0]; @@ -1266,6 +1266,6 @@ L666: } - return 0; + return; } /* cla_gbrfsx_extended__ */ diff --git a/lapack-netlib/SRC/cla_geamv.c b/lapack-netlib/SRC/cla_geamv.c index 856a6168c..4b936d3fb 100644 --- a/lapack-netlib/SRC/cla_geamv.c +++ b/lapack-netlib/SRC/cla_geamv.c @@ -683,7 +683,7 @@ mv.f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_geamv_(integer *trans, integer *m, integer *n, real +/* Subroutine */ void cla_geamv_(integer *trans, integer *m, integer *n, real *alpha, complex *a, integer *lda, complex *x, integer *incx, real * beta, real *y, integer *incy) { @@ -739,13 +739,13 @@ mv.f"> */ } if (info != 0) { xerbla_("CLA_GEAMV ", &info, (ftnlen)10); - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0 || *alpha == 0.f && *beta == 1.f) { - return 0; + return; } /* Set LENX and LENY, the lengths of the vectors x and y, and set */ @@ -916,7 +916,7 @@ mv.f"> */ } } - return 0; + return; /* End of CLA_GEAMV */ diff --git a/lapack-netlib/SRC/cla_gercond_c.c b/lapack-netlib/SRC/cla_gercond_c.c index 153a06ca5..d94e84f9e 100644 --- a/lapack-netlib/SRC/cla_gercond_c.c +++ b/lapack-netlib/SRC/cla_gercond_c.c @@ -669,9 +669,10 @@ real cla_gercond_c_(char *trans, integer *n, complex *a, integer *lda, extern logical lsame_(char *, char *); integer isave[3]; real anorm; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen), - cgetrs_(char *, integer *, integer *, complex *, integer *, + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cgetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real ainvnm, tmp; logical notrans; diff --git a/lapack-netlib/SRC/cla_gercond_x.c b/lapack-netlib/SRC/cla_gercond_x.c index f12d87d6e..ac5eb1867 100644 --- a/lapack-netlib/SRC/cla_gercond_x.c +++ b/lapack-netlib/SRC/cla_gercond_x.c @@ -662,9 +662,10 @@ real cla_gercond_x_(char *trans, integer *n, complex *a, integer *lda, extern logical lsame_(char *, char *); integer isave[3]; real anorm; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen), - cgetrs_(char *, integer *, integer *, complex *, integer *, + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cgetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real ainvnm, tmp; logical notrans; diff --git a/lapack-netlib/SRC/cla_gerfsx_extended.c b/lapack-netlib/SRC/cla_gerfsx_extended.c index 72915a194..1adc015bb 100644 --- a/lapack-netlib/SRC/cla_gerfsx_extended.c +++ b/lapack-netlib/SRC/cla_gerfsx_extended.c @@ -908,7 +908,7 @@ fsx_extended.f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_gerfsx_extended_(integer *prec_type__, integer * +/* Subroutine */ void cla_gerfsx_extended_(integer *prec_type__, integer * trans_type__, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__, @@ -926,15 +926,15 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__; - extern /* Subroutine */ int cla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void cla_lin_berr_(integer *, integer *, integer * , complex *, real *, real *); real ymin; - extern /* Subroutine */ int blas_cgemv_x_(integer *, integer *, integer * + extern /* Subroutine */ void blas_cgemv_x_(integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *, integer *); real dxratmax, dzratmax; integer y_prec_state__, i__, j; - extern /* Subroutine */ int blas_cgemv2_x_(integer *, integer *, integer + extern /* Subroutine */ void blas_cgemv2_x_(integer *, integer *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, integer *), cla_geamv_( integer *, integer *, integer *, real *, complex *, integer *, @@ -945,15 +945,15 @@ fsx_extended.f"> */ real dxrat; logical incr_prec__; real dzrat; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); char trans[1]; real normx, normy, myhugeval, prev_dz_z__, yk; extern real slamch_(char *); - extern /* Subroutine */ int cgetrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cgetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real final_dx_x__; - extern /* Subroutine */ int cla_wwaddw_(integer *, complex *, complex *, + extern /* Subroutine */ void cla_wwaddw_(integer *, complex *, complex *, complex *); real final_dz_z__, normdx; extern /* Character */ VOID chla_transtype_(char *, integer *); @@ -1002,7 +1002,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } chla_transtype_(ch__1, trans_type__); *(unsigned char *)trans = *(unsigned char *)&ch__1[0]; @@ -1247,6 +1247,6 @@ L666: } - return 0; + return; } /* cla_gerfsx_extended__ */ diff --git a/lapack-netlib/SRC/cla_heamv.c b/lapack-netlib/SRC/cla_heamv.c index a7603183e..cb7a35624 100644 --- a/lapack-netlib/SRC/cla_heamv.c +++ b/lapack-netlib/SRC/cla_heamv.c @@ -687,7 +687,7 @@ mv.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cla_heamv_(integer *uplo, integer *n, real *alpha, +/* Subroutine */ void cla_heamv_(integer *uplo, integer *n, real *alpha, complex *a, integer *lda, complex *x, integer *incx, real *beta, real *y, integer *incy) { @@ -740,13 +740,13 @@ mv.f"> */ } if (info != 0) { xerbla_("CHEMV ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || *alpha == 0.f && *beta == 1.f) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -959,7 +959,7 @@ mv.f"> */ } } - return 0; + return; /* End of CLA_HEAMV */ diff --git a/lapack-netlib/SRC/cla_hercond_c.c b/lapack-netlib/SRC/cla_hercond_c.c index ed575863d..56d922f1c 100644 --- a/lapack-netlib/SRC/cla_hercond_c.c +++ b/lapack-netlib/SRC/cla_hercond_c.c @@ -666,12 +666,12 @@ real cla_hercond_c_(char *uplo, integer *n, complex *a, integer *lda, integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int chetrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void chetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/cla_hercond_x.c b/lapack-netlib/SRC/cla_hercond_x.c index 962b323a0..271eab4ba 100644 --- a/lapack-netlib/SRC/cla_hercond_x.c +++ b/lapack-netlib/SRC/cla_hercond_x.c @@ -659,12 +659,12 @@ real cla_hercond_x_(char *uplo, integer *n, complex *a, integer *lda, integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int chetrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void chetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/cla_herfsx_extended.c b/lapack-netlib/SRC/cla_herfsx_extended.c index c4a42e805..f721e573f 100644 --- a/lapack-netlib/SRC/cla_herfsx_extended.c +++ b/lapack-netlib/SRC/cla_herfsx_extended.c @@ -907,7 +907,7 @@ fsx_extended.f"> */ /* > \ingroup complexHEcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_herfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void cla_herfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__, integer * @@ -924,37 +924,38 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__; - extern /* Subroutine */ int cla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void cla_lin_berr_(integer *, integer *, integer * , complex *, real *, real *); real ymin; - extern /* Subroutine */ int blas_chemv_x_(integer *, integer *, complex * + extern /* Subroutine */ void blas_chemv_x_(integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *, integer *); real dxratmax, dzratmax; integer y_prec_state__, uplo2, i__, j; - extern /* Subroutine */ int blas_chemv2_x_(integer *, integer *, complex + extern /* Subroutine */ void blas_chemv2_x_(integer *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, integer *), cla_heamv_(integer *, integer *, real *, complex *, integer *, complex *, integer *, real *, real *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int chemv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chemv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ), ccopy_(integer *, complex *, integer *, complex *, integer *); real dxrat; logical incr_prec__; real dzrat; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical upper; real normx, normy, myhugeval, prev_dz_z__, yk; extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), chetrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void chetrs_( char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real final_dx_x__; - extern /* Subroutine */ int cla_wwaddw_(integer *, complex *, complex *, + extern /* Subroutine */ void cla_wwaddw_(integer *, complex *, complex *, complex *); real final_dz_z__, normdx, prevnormdx; integer cnt; @@ -1021,7 +1022,7 @@ fsx_extended.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLA_HERFSX_EXTENDED", &i__1, (ftnlen)19); - return 0; + return; } eps = slamch_("Epsilon"); myhugeval = slamch_("Overflow"); @@ -1255,6 +1256,6 @@ L666: } - return 0; + return; } /* cla_herfsx_extended__ */ diff --git a/lapack-netlib/SRC/cla_lin_berr.c b/lapack-netlib/SRC/cla_lin_berr.c index 73aa2f4d9..e4a356f01 100644 --- a/lapack-netlib/SRC/cla_lin_berr.c +++ b/lapack-netlib/SRC/cla_lin_berr.c @@ -610,7 +610,7 @@ _berr.f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_lin_berr_(integer *n, integer *nz, integer *nrhs, +/* Subroutine */ void cla_lin_berr_(integer *n, integer *nz, integer *nrhs, complex *res, real *ayb, real *berr) { /* System generated locals */ @@ -675,6 +675,6 @@ _berr.f"> */ } } - return 0; + return; } /* cla_lin_berr__ */ diff --git a/lapack-netlib/SRC/cla_porcond_c.c b/lapack-netlib/SRC/cla_porcond_c.c index a3ef77bbf..c8c18f102 100644 --- a/lapack-netlib/SRC/cla_porcond_c.c +++ b/lapack-netlib/SRC/cla_porcond_c.c @@ -658,12 +658,12 @@ real cla_porcond_c_(char *uplo, integer *n, complex *a, integer *lda, integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int cpotrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cpotrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/cla_porcond_x.c b/lapack-netlib/SRC/cla_porcond_x.c index d06cfc2e8..849104923 100644 --- a/lapack-netlib/SRC/cla_porcond_x.c +++ b/lapack-netlib/SRC/cla_porcond_x.c @@ -651,12 +651,12 @@ real cla_porcond_x_(char *uplo, integer *n, complex *a, integer *lda, integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int cpotrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cpotrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/cla_porfsx_extended.c b/lapack-netlib/SRC/cla_porfsx_extended.c index a27c20ef3..4346519f5 100644 --- a/lapack-netlib/SRC/cla_porfsx_extended.c +++ b/lapack-netlib/SRC/cla_porfsx_extended.c @@ -900,7 +900,7 @@ fsx_extended.f"> */ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_porfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void cla_porfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, logical *colequ, real *c__, complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__, integer *n_norms__, real * @@ -916,36 +916,36 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__; - extern /* Subroutine */ int cla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void cla_lin_berr_(integer *, integer *, integer * , complex *, real *, real *); real ymin; - extern /* Subroutine */ int blas_chemv_x_(integer *, integer *, complex * + extern /* Subroutine */ void blas_chemv_x_(integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *, integer *); real dxratmax, dzratmax; integer y_prec_state__, uplo2, i__, j; - extern /* Subroutine */ int blas_chemv2_x_(integer *, integer *, complex + extern /* Subroutine */ void blas_chemv2_x_(integer *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, integer *), cla_heamv_(integer *, integer *, real *, complex *, integer *, complex *, integer *, real *, real *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int chemv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chemv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ), ccopy_(integer *, complex *, integer *, complex *, integer *); real dxrat; logical incr_prec__; real dzrat; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); real normx, normy, myhugeval, prev_dz_z__, yk; extern real slamch_(char *); real final_dx_x__; - extern /* Subroutine */ int cla_wwaddw_(integer *, complex *, complex *, + extern /* Subroutine */ void cla_wwaddw_(integer *, complex *, complex *, complex *); real final_dz_z__, normdx; - extern /* Subroutine */ int cpotrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cpotrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real prevnormdx; integer cnt; @@ -992,7 +992,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } eps = slamch_("Epsilon"); myhugeval = slamch_("Overflow"); @@ -1225,6 +1225,6 @@ L666: } - return 0; + return; } /* cla_porfsx_extended__ */ diff --git a/lapack-netlib/SRC/cla_syamv.c b/lapack-netlib/SRC/cla_syamv.c index a86ea1907..bfd3a03a3 100644 --- a/lapack-netlib/SRC/cla_syamv.c +++ b/lapack-netlib/SRC/cla_syamv.c @@ -688,7 +688,7 @@ mv.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cla_syamv_(integer *uplo, integer *n, real *alpha, +/* Subroutine */ void cla_syamv_(integer *uplo, integer *n, real *alpha, complex *a, integer *lda, complex *x, integer *incx, real *beta, real *y, integer *incy) { @@ -741,13 +741,13 @@ mv.f"> */ } if (info != 0) { xerbla_("CLA_SYAMV", &info, (ftnlen)9); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || *alpha == 0.f && *beta == 1.f) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -960,7 +960,7 @@ mv.f"> */ } } - return 0; + return; /* End of CLA_SYAMV */ diff --git a/lapack-netlib/SRC/cla_syrcond_c.c b/lapack-netlib/SRC/cla_syrcond_c.c index 3e5e36b32..21b09af46 100644 --- a/lapack-netlib/SRC/cla_syrcond_c.c +++ b/lapack-netlib/SRC/cla_syrcond_c.c @@ -666,12 +666,12 @@ real cla_syrcond_c_(char *uplo, integer *n, complex *a, integer *lda, integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int csytrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csytrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/cla_syrcond_x.c b/lapack-netlib/SRC/cla_syrcond_x.c index cbcee5ee2..f14c0925a 100644 --- a/lapack-netlib/SRC/cla_syrcond_x.c +++ b/lapack-netlib/SRC/cla_syrcond_x.c @@ -659,12 +659,12 @@ real cla_syrcond_x_(char *uplo, integer *n, complex *a, integer *lda, integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int csytrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csytrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/cla_syrfsx_extended.c b/lapack-netlib/SRC/cla_syrfsx_extended.c index 3d2e57fbe..f76de3855 100644 --- a/lapack-netlib/SRC/cla_syrfsx_extended.c +++ b/lapack-netlib/SRC/cla_syrfsx_extended.c @@ -907,7 +907,7 @@ fsx_extended.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_syrfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void cla_syrfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__, integer * @@ -924,26 +924,26 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__; - extern /* Subroutine */ int cla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void cla_lin_berr_(integer *, integer *, integer * , complex *, real *, real *); real ymin, dxratmax, dzratmax; integer y_prec_state__; - extern /* Subroutine */ int blas_csymv_x_(integer *, integer *, complex * + extern /* Subroutine */ void blas_csymv_x_(integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *, integer *); integer uplo2, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int blas_csymv2_x_(integer *, integer *, complex + extern /* Subroutine */ void blas_csymv2_x_(integer *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, complex *, complex *, integer *, integer *), ccopy_(integer *, complex *, integer *, complex *, integer *); real dxrat; logical incr_prec__; real dzrat; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int cla_syamv_(integer *, integer *, real *, + extern /* Subroutine */ void cla_syamv_(integer *, integer *, real *, complex *, integer *, complex *, integer *, real *, real *, integer *), csymv_(char *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); @@ -951,10 +951,10 @@ fsx_extended.f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real final_dx_x__; - extern /* Subroutine */ int cla_wwaddw_(integer *, complex *, complex *, + extern /* Subroutine */ void cla_wwaddw_(integer *, complex *, complex *, complex *); real final_dz_z__, normdx; - extern /* Subroutine */ int csytrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csytrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real prevnormdx; integer cnt; @@ -1021,7 +1021,7 @@ fsx_extended.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLA_SYRFSX_EXTENDED", &i__1, (ftnlen)19); - return 0; + return; } eps = slamch_("Epsilon"); myhugeval = slamch_("Overflow"); @@ -1255,6 +1255,6 @@ L666: } - return 0; + return; } /* cla_syrfsx_extended__ */ diff --git a/lapack-netlib/SRC/cla_wwaddw.c b/lapack-netlib/SRC/cla_wwaddw.c index 4fa11ff39..34f2f6a78 100644 --- a/lapack-netlib/SRC/cla_wwaddw.c +++ b/lapack-netlib/SRC/cla_wwaddw.c @@ -590,7 +590,7 @@ ddw.f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cla_wwaddw_(integer *n, complex *x, complex *y, complex +/* Subroutine */ void cla_wwaddw_(integer *n, complex *x, complex *y, complex *w) { /* System generated locals */ @@ -638,6 +638,6 @@ ddw.f"> */ x[i__2].r = s.r, x[i__2].i = s.i; /* L10: */ } - return 0; + return; } /* cla_wwaddw__ */ diff --git a/lapack-netlib/SRC/clabrd.c b/lapack-netlib/SRC/clabrd.c index 65bd6678f..08cbe07dc 100644 --- a/lapack-netlib/SRC/clabrd.c +++ b/lapack-netlib/SRC/clabrd.c @@ -726,7 +726,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, complex *a, +/* Subroutine */ void clabrd_(integer *m, integer *n, integer *nb, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *x, integer *ldx, complex *y, integer *ldy) { @@ -738,7 +738,7 @@ f"> */ /* Local variables */ integer i__; complex alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemv_(char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), clarfg_(integer *, complex *, complex *, @@ -773,7 +773,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } if (*m >= *n) { @@ -1068,7 +1068,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of CLABRD */ diff --git a/lapack-netlib/SRC/clacgv.c b/lapack-netlib/SRC/clacgv.c index db4ca1ad6..1b8411e5e 100644 --- a/lapack-netlib/SRC/clacgv.c +++ b/lapack-netlib/SRC/clacgv.c @@ -583,7 +583,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clacgv_(integer *n, complex *x, integer *incx) +/* Subroutine */ void clacgv_(integer *n, complex *x, integer *incx) { /* System generated locals */ integer i__1, i__2; @@ -628,7 +628,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of CLACGV */ diff --git a/lapack-netlib/SRC/clacn2.c b/lapack-netlib/SRC/clacn2.c index f8f454a1e..e8ba4b0c7 100644 --- a/lapack-netlib/SRC/clacn2.c +++ b/lapack-netlib/SRC/clacn2.c @@ -647,7 +647,7 @@ f"> */ /* > ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clacn2_(integer *n, complex *v, complex *x, real *est, +/* Subroutine */ void clacn2_(integer *n, complex *v, complex *x, real *est, integer *kase, integer *isave) { /* System generated locals */ @@ -660,7 +660,7 @@ f"> */ integer i__; real absxi; integer jlast; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); extern integer icmax1_(integer *, complex *, integer *); extern real scsum1_(integer *, complex *, integer *), slamch_(char *); @@ -694,7 +694,7 @@ f"> */ } *kase = 1; isave[1] = 1; - return 0; + return; } switch (isave[1]) { @@ -735,7 +735,7 @@ L20: } *kase = 2; isave[1] = 2; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 2) */ /* FIRST ITERATION. X HAS BEEN OVERWRITTEN BY CTRANS(A)*X. */ @@ -757,7 +757,7 @@ L50: x[i__1].r = 1.f, x[i__1].i = 0.f; *kase = 1; isave[1] = 3; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 3) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -790,7 +790,7 @@ L70: } *kase = 2; isave[1] = 4; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 4) */ /* X HAS BEEN OVERWRITTEN BY CTRANS(A)*X. */ @@ -818,7 +818,7 @@ L100: } *kase = 1; isave[1] = 5; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 5) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -832,7 +832,7 @@ L120: L130: *kase = 0; - return 0; + return; /* End of CLACN2 */ diff --git a/lapack-netlib/SRC/clacon.c b/lapack-netlib/SRC/clacon.c index 505656461..243ecd11b 100644 --- a/lapack-netlib/SRC/clacon.c +++ b/lapack-netlib/SRC/clacon.c @@ -628,7 +628,7 @@ f"> */ /* > ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clacon_(integer *n, complex *v, complex *x, real *est, +/* Subroutine */ void clacon_(integer *n, complex *v, complex *x, real *est, integer *kase) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ static integer jump, i__, j; static real absxi; static integer jlast; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); extern integer icmax1_(integer *, complex *, integer *); extern real scsum1_(integer *, complex *, integer *), slamch_(char *); @@ -675,7 +675,7 @@ f"> */ } *kase = 1; jump = 1; - return 0; + return; } switch (jump) { @@ -716,7 +716,7 @@ L20: } *kase = 2; jump = 2; - return 0; + return; /* ................ ENTRY (JUMP = 2) */ /* FIRST ITERATION. X HAS BEEN OVERWRITTEN BY CTRANS(A)*X. */ @@ -738,7 +738,7 @@ L50: x[i__1].r = 1.f, x[i__1].i = 0.f; *kase = 1; jump = 3; - return 0; + return; /* ................ ENTRY (JUMP = 3) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -771,7 +771,7 @@ L70: } *kase = 2; jump = 4; - return 0; + return; /* ................ ENTRY (JUMP = 4) */ /* X HAS BEEN OVERWRITTEN BY CTRANS(A)*X. */ @@ -799,7 +799,7 @@ L100: } *kase = 1; jump = 5; - return 0; + return; /* ................ ENTRY (JUMP = 5) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -813,7 +813,7 @@ L120: L130: *kase = 0; - return 0; + return; /* End of CLACON */ diff --git a/lapack-netlib/SRC/clacp2.c b/lapack-netlib/SRC/clacp2.c index fb53cd014..f41ab9818 100644 --- a/lapack-netlib/SRC/clacp2.c +++ b/lapack-netlib/SRC/clacp2.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a, +/* Subroutine */ void clacp2_(char *uplo, integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb) { /* System generated locals */ @@ -682,7 +682,7 @@ f"> */ } } - return 0; + return; /* End of CLACP2 */ diff --git a/lapack-netlib/SRC/clacpy.c b/lapack-netlib/SRC/clacpy.c index 301460b6e..e2b988a93 100644 --- a/lapack-netlib/SRC/clacpy.c +++ b/lapack-netlib/SRC/clacpy.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, complex *a, +/* Subroutine */ void clacpy_(char *uplo, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb) { /* System generated locals */ @@ -681,7 +681,7 @@ f"> */ } } - return 0; + return; /* End of CLACPY */ diff --git a/lapack-netlib/SRC/clacrm.c b/lapack-netlib/SRC/clacrm.c index d4d6b0f97..f4633af64 100644 --- a/lapack-netlib/SRC/clacrm.c +++ b/lapack-netlib/SRC/clacrm.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clacrm_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void clacrm_(integer *m, integer *n, complex *a, integer *lda, real *b, integer *ldb, complex *c__, integer *ldc, real *rwork) { /* System generated locals */ @@ -639,7 +639,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); @@ -669,7 +669,7 @@ f"> */ /* Function Body */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *n; @@ -724,7 +724,7 @@ f"> */ /* L80: */ } - return 0; + return; /* End of CLACRM */ diff --git a/lapack-netlib/SRC/clacrt.c b/lapack-netlib/SRC/clacrt.c index cef37e6eb..9f89ba906 100644 --- a/lapack-netlib/SRC/clacrt.c +++ b/lapack-netlib/SRC/clacrt.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clacrt_(integer *n, complex *cx, integer *incx, complex * +/* Subroutine */ void clacrt_(integer *n, complex *cx, integer *incx, complex * cy, integer *incy, complex *c__, complex *s) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ /* Function Body */ if (*n <= 0) { - return 0; + return; } if (*incx == 1 && *incy == 1) { goto L20; @@ -683,7 +683,7 @@ f"> */ iy += *incy; /* L10: */ } - return 0; + return; /* Code for both increments equal to 1 */ @@ -711,6 +711,6 @@ L20: cx[i__2].r = ctemp.r, cx[i__2].i = ctemp.i; /* L30: */ } - return 0; + return; } /* clacrt_ */ diff --git a/lapack-netlib/SRC/cladiv.c b/lapack-netlib/SRC/cladiv.c index adee25b4b..fb8c84aff 100644 --- a/lapack-netlib/SRC/cladiv.c +++ b/lapack-netlib/SRC/cladiv.c @@ -583,7 +583,7 @@ f"> */ /* Local variables */ real zi, zr; - extern /* Subroutine */ int sladiv_(real *, real *, real *, real *, real * + extern /* Subroutine */ void sladiv_(real *, real *, real *, real *, real * , real *); diff --git a/lapack-netlib/SRC/claed0.c b/lapack-netlib/SRC/claed0.c index 2b696508e..185f64844 100644 --- a/lapack-netlib/SRC/claed0.c +++ b/lapack-netlib/SRC/claed0.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e, +/* Subroutine */ void claed0_(integer *qsiz, integer *n, real *d__, real *e, complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork, integer *iwork, integer *info) { @@ -672,19 +672,19 @@ f"> */ /* Local variables */ real temp; integer curr, i__, j, k, iperm; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer indxq, iwrem; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer iqptr; - extern /* Subroutine */ int claed7_(integer *, integer *, integer *, + extern /* Subroutine */ void claed7_(integer *, integer *, integer *, integer *, integer *, integer *, real *, complex *, integer *, real *, integer *, real *, integer *, integer *, integer *, integer *, integer *, real *, complex *, real *, integer *, integer *); integer tlvls, ll, iq; - extern /* Subroutine */ int clacrm_(integer *, integer *, complex *, + extern /* Subroutine */ void clacrm_(integer *, integer *, complex *, integer *, real *, integer *, complex *, integer *, real *); integer igivcl; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -692,7 +692,7 @@ f"> */ integer *, integer *, ftnlen, ftnlen); integer igivnm, submat, curprb, subpbs, igivpt, curlvl, matsiz, iprmpt, smlsiz; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); integer lgn, msd2, smm1, spm1, spm2; @@ -741,13 +741,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLAED0", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } smlsiz = ilaenv_(&c__9, "CLAED0", " ", &c__0, &c__0, &c__0, &c__0, ( @@ -847,7 +847,7 @@ L10: ++curr; if (*info > 0) { *info = submat * (*n + 1) + submat + matsiz - 1; - return 0; + return; } k = 1; i__2 = iwork[i__ + 1]; @@ -897,7 +897,7 @@ L80: q_dim1 + 1], &rwork[iwrem], &iwork[subpbs + 1], info); if (*info > 0) { *info = submat * (*n + 1) + submat + matsiz - 1; - return 0; + return; } iwork[i__ / 2 + 1] = iwork[i__ + 2]; /* L90: */ @@ -922,7 +922,7 @@ L80: } scopy_(n, &rwork[1], &c__1, &d__[1], &c__1); - return 0; + return; /* End of CLAED0 */ diff --git a/lapack-netlib/SRC/claed7.c b/lapack-netlib/SRC/claed7.c index 1eaa7e9c2..2c9aef5a9 100644 --- a/lapack-netlib/SRC/claed7.c +++ b/lapack-netlib/SRC/claed7.c @@ -762,7 +762,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz, +/* Subroutine */ void claed7_(integer *n, integer *cutpnt, integer *qsiz, integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex * q, integer *ldq, real *rho, integer *indxq, real *qstore, integer * qptr, integer *prmptr, integer *perm, integer *givptr, integer * @@ -774,7 +774,7 @@ f"> */ /* Local variables */ integer indx, curr, i__, k, indxc, indxp, n1, n2; - extern /* Subroutine */ int claed8_(integer *, integer *, integer *, + extern /* Subroutine */ void claed8_(integer *, integer *, integer *, complex *, integer *, real *, real *, integer *, real *, real *, complex *, integer *, real *, integer *, integer *, integer *, integer *, integer *, integer *, real *, integer *), slaed9_( @@ -784,10 +784,11 @@ f"> */ integer *, integer *, integer *, real *, real *, integer *, real * , real *, integer *); integer idlmda, iq, iw; - extern /* Subroutine */ int clacrm_(integer *, integer *, complex *, + extern /* Subroutine */ void clacrm_(integer *, integer *, complex *, integer *, real *, integer *, complex *, integer *, real *); integer iz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slamrg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slamrg_( integer *, integer *, real *, integer *, integer *, integer *); integer coltyp, ptr; @@ -838,13 +839,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLAED7", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* The following values are for bookkeeping purposes only. They are */ @@ -906,7 +907,7 @@ f"> */ i__1 = k; qptr[curr + 1] = qptr[curr] + i__1 * i__1; if (*info != 0) { - return 0; + return; } /* Prepare the INDXQ sorting premutation. */ @@ -923,7 +924,7 @@ f"> */ } } - return 0; + return; /* End of CLAED7 */ diff --git a/lapack-netlib/SRC/claed8.c b/lapack-netlib/SRC/claed8.c index 1bd9439cb..f6c3a3106 100644 --- a/lapack-netlib/SRC/claed8.c +++ b/lapack-netlib/SRC/claed8.c @@ -741,7 +741,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, complex * +/* Subroutine */ void claed8_(integer *k, integer *n, integer *qsiz, complex * q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__, real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp, integer *indx, integer *indxq, integer *perm, integer *givptr, @@ -756,22 +756,22 @@ f"> */ real c__; integer i__, j; real s, t; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), ccopy_(integer *, complex *, integer *, complex *, integer *), csrot_(integer *, complex *, integer *, complex *, integer *, real *, real *); integer k2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer n1, n2; extern real slapy2_(real *, real *); integer jp; extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slamrg_(integer *, integer *, real *, integer + extern /* Subroutine */ void slamrg_(integer *, integer *, real *, integer *, integer *, integer *); integer n1p1; real eps, tau, tol; @@ -823,7 +823,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLAED8", &i__1, (ftnlen)6); - return 0; + return; } /* Need to initialize GIVPTR to O here in case of quick exit */ @@ -836,7 +836,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } n1 = *cutpnt; @@ -902,7 +902,7 @@ f"> */ /* L50: */ } clacpy_("A", qsiz, n, &q2[q2_dim1 + 1], ldq2, &q[q_dim1 + 1], ldq); - return 0; + return; } /* If there are multiple eigenvalues then the problem deflates. Here */ @@ -1036,7 +1036,7 @@ L100: 1) * q_dim1 + 1], ldq); } - return 0; + return; /* End of CLAED8 */ diff --git a/lapack-netlib/SRC/claein.c b/lapack-netlib/SRC/claein.c index 3ecbcb982..21b2d45fe 100644 --- a/lapack-netlib/SRC/claein.c +++ b/lapack-netlib/SRC/claein.c @@ -662,7 +662,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n, +/* Subroutine */ void claein_(logical *rightv, logical *noinit, integer *n, complex *h__, integer *ldh, complex *w, complex *v, complex *b, integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info) { @@ -683,7 +683,7 @@ f"> */ complex ei, ej; extern integer icamax_(integer *, complex *, integer *); extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *), clatrs_(char *, char *, char *, char *, integer *, complex *, integer *, complex *, real *, real *, integer *); extern real scasum_(integer *, complex *, integer *); @@ -953,7 +953,7 @@ L120: abs(r__2))); csscal_(n, &r__3, &v[1], &c__1); - return 0; + return; /* End of CLAEIN */ diff --git a/lapack-netlib/SRC/claesy.c b/lapack-netlib/SRC/claesy.c index 79d4047da..cd217e71d 100644 --- a/lapack-netlib/SRC/claesy.c +++ b/lapack-netlib/SRC/claesy.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup complexSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex * +/* Subroutine */ void claesy_(complex *a, complex *b, complex *c__, complex * rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1) { /* System generated locals */ @@ -750,7 +750,7 @@ f"> */ evscal->r = 0.f, evscal->i = 0.f; } } - return 0; + return; /* End of CLAESY */ diff --git a/lapack-netlib/SRC/claev2.c b/lapack-netlib/SRC/claev2.c index 00fe82cae..c1aaaae93 100644 --- a/lapack-netlib/SRC/claev2.c +++ b/lapack-netlib/SRC/claev2.c @@ -632,7 +632,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1, +/* Subroutine */ void claev2_(complex *a, complex *b, complex *c__, real *rt1, real *rt2, real *cs1, complex *sn1) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ /* Local variables */ real t; complex w; - extern /* Subroutine */ int slaev2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slaev2_(real *, real *, real *, real *, real * , real *, real *); @@ -669,7 +669,7 @@ f"> */ slaev2_(&r__1, &r__2, &r__3, rt1, rt2, cs1, &t); q__1.r = t * w.r, q__1.i = t * w.i; sn1->r = q__1.r, sn1->i = q__1.i; - return 0; + return; /* End of CLAEV2 */ diff --git a/lapack-netlib/SRC/clag2z.c b/lapack-netlib/SRC/clag2z.c index d30f9d538..98bf82b8d 100644 --- a/lapack-netlib/SRC/clag2z.c +++ b/lapack-netlib/SRC/clag2z.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clag2z_(integer *m, integer *n, complex *sa, integer * +/* Subroutine */ void clag2z_(integer *m, integer *n, complex *sa, integer * ldsa, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -652,7 +652,7 @@ f"> */ } /* L20: */ } - return 0; + return; /* End of CLAG2Z */ diff --git a/lapack-netlib/SRC/clags2.c b/lapack-netlib/SRC/clags2.c index 8090c1d84..2a58b634e 100644 --- a/lapack-netlib/SRC/clags2.c +++ b/lapack-netlib/SRC/clags2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3, +/* Subroutine */ void clags2_(logical *upper, real *a1, complex *a2, real *a3, real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv, complex *snv, real *csq, complex *snq) { @@ -683,7 +683,7 @@ f"> */ real d__; complex r__, d1; real s1, s2, fb, fc; - extern /* Subroutine */ int slasv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slasv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *), clartg_(complex *, complex *, real *, complex *, complex *); complex ua11, ua12, ua21, ua22, vb11, vb12, vb21, vb22; @@ -1028,7 +1028,7 @@ f"> */ } - return 0; + return; /* End of CLAGS2 */ diff --git a/lapack-netlib/SRC/clagtm.c b/lapack-netlib/SRC/clagtm.c index a4911f290..d1db98464 100644 --- a/lapack-netlib/SRC/clagtm.c +++ b/lapack-netlib/SRC/clagtm.c @@ -654,7 +654,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real * +/* Subroutine */ void clagtm_(char *trans, integer *n, integer *nrhs, real * alpha, complex *dl, complex *d__, complex *du, complex *x, integer * ldx, real *beta, complex *b, integer *ldb) { @@ -690,7 +690,7 @@ f"> */ /* Function Body */ if (*n == 0) { - return 0; + return; } /* Multiply B by BETA if BETA.NE.1. */ @@ -1160,7 +1160,7 @@ f"> */ } } } - return 0; + return; /* End of CLAGTM */ diff --git a/lapack-netlib/SRC/clahef.c b/lapack-netlib/SRC/clahef.c index 57b7546d5..1cf2bdbba 100644 --- a/lapack-netlib/SRC/clahef.c +++ b/lapack-netlib/SRC/clahef.c @@ -692,7 +692,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb, +/* Subroutine */ void clahef_(char *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, integer *info) { @@ -704,11 +704,11 @@ f"> */ /* Local variables */ integer imax, jmax, j, k; real t, alpha; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, @@ -718,10 +718,10 @@ f"> */ complex d11, d21, d22; integer jb, jj, kk, jp, kp; real absakk; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); integer kw; extern integer icamax_(integer *, complex *, integer *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real colmax, rowmax; integer kkw; @@ -1730,7 +1730,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of CLAHEF */ diff --git a/lapack-netlib/SRC/clahef_aa.c b/lapack-netlib/SRC/clahef_aa.c index 65808ee9c..535a770e1 100644 --- a/lapack-netlib/SRC/clahef_aa.c +++ b/lapack-netlib/SRC/clahef_aa.c @@ -658,7 +658,7 @@ aa.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int clahef_aa_(char *uplo, integer *j1, integer *m, integer +/* Subroutine */ void clahef_aa_(char *uplo, integer *j1, integer *m, integer *nb, complex *a, integer *lda, integer *ipiv, complex *h__, integer * ldh, complex *work) { @@ -670,19 +670,19 @@ aa.f"> */ /* Local variables */ integer j, k; complex alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer i1, k1, i2, mj; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); extern integer icamax_(integer *, complex *, integer *); - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *); complex piv; @@ -1097,7 +1097,7 @@ L30: L40: ; } - return 0; + return; /* End of CLAHEF_AA */ diff --git a/lapack-netlib/SRC/clahef_rk.c b/lapack-netlib/SRC/clahef_rk.c index db17fe19f..9b3d07453 100644 --- a/lapack-netlib/SRC/clahef_rk.c +++ b/lapack-netlib/SRC/clahef_rk.c @@ -776,7 +776,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int clahef_rk_(char *uplo, integer *n, integer *nb, integer +/* Subroutine */ void clahef_rk_(char *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, complex *e, integer *ipiv, complex *w, integer *ldw, integer *info) { @@ -789,29 +789,29 @@ rk.f"> */ logical done; integer imax, jmax, j, k, p; real t, alpha; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); real sfmin; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer itemp; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; real stemp, r1; complex d11, d21, d22; integer jb, ii, jj, kk, kp; real absakk; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); integer kw; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real colmax, rowmax; integer kkw; @@ -2028,7 +2028,7 @@ L90: *kb = k - 1; } - return 0; + return; /* End of CLAHEF_RK */ diff --git a/lapack-netlib/SRC/clahef_rook.c b/lapack-netlib/SRC/clahef_rook.c index 0b1b8218b..ed3e91ecf 100644 --- a/lapack-netlib/SRC/clahef_rook.c +++ b/lapack-netlib/SRC/clahef_rook.c @@ -698,7 +698,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int clahef_rook_(char *uplo, integer *n, integer *nb, +/* Subroutine */ void clahef_rook_(char *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, integer *info) { @@ -711,29 +711,29 @@ rook.f"> */ logical done; integer imax, jmax, j, k, p; real t, alpha; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); real sfmin; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer itemp; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; real stemp, r1; complex d11, d21, d22; integer jb, ii, jj, kk, kp; real absakk; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); integer kw; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real colmax; integer jp1, jp2; @@ -1971,7 +1971,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of CLAHEF_ROOK */ diff --git a/lapack-netlib/SRC/clahqr.c b/lapack-netlib/SRC/clahqr.c index 3ebf092aa..a862b32bc 100644 --- a/lapack-netlib/SRC/clahqr.c +++ b/lapack-netlib/SRC/clahqr.c @@ -708,7 +708,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void clahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer * info) @@ -723,7 +723,7 @@ f"> */ integer i__, j, k, l, m; real s; complex t, u, v[2], x, y; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), ccopy_(integer *, complex *, integer *, complex *, integer *); integer itmax; @@ -737,7 +737,7 @@ f"> */ real h21; complex h22, sc; integer nh; - extern /* Subroutine */ int slabad_(real *, real *), clarfg_(integer *, + extern /* Subroutine */ void slabad_(real *, real *), clarfg_(integer *, complex *, complex *, integer *, complex *); extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); extern real slamch_(char *); @@ -775,13 +775,13 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*ilo == *ihi) { i__1 = *ilo; i__2 = *ilo + *ilo * h_dim1; w[i__1].r = h__[i__2].r, w[i__1].i = h__[i__2].i; - return 0; + return; } /* ==== clear out the trash ==== */ @@ -1296,7 +1296,7 @@ L70: /* Failure to converge in remaining number of iterations */ *info = i__; - return 0; + return; L140: @@ -1312,7 +1312,7 @@ L140: goto L30; L150: - return 0; + return; /* End of CLAHQR */ diff --git a/lapack-netlib/SRC/clahr2.c b/lapack-netlib/SRC/clahr2.c index 00bd4a8a0..09f3ccc7c 100644 --- a/lapack-netlib/SRC/clahr2.c +++ b/lapack-netlib/SRC/clahr2.c @@ -699,7 +699,7 @@ f"> */ /* > Mathematical Software, 32(2):180-194, June 2006. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clahr2_(integer *n, integer *k, integer *nb, complex *a, +/* Subroutine */ void clahr2_(integer *n, integer *k, integer *nb, complex *a, integer *lda, complex *tau, complex *t, integer *ldt, complex *y, integer *ldy) { @@ -710,7 +710,7 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *), cgemv_(char *, integer *, @@ -723,7 +723,7 @@ f"> */ integer *), ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *); complex ei; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, integer *, complex *), clacgv_(integer *, complex *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); @@ -754,7 +754,7 @@ f"> */ /* Function Body */ if (*n <= 1) { - return 0; + return; } i__1 = *nb; @@ -897,7 +897,7 @@ f"> */ ctrmm_("RIGHT", "Upper", "NO TRANSPOSE", "NON-UNIT", k, nb, &c_b2, &t[ t_offset], ldt, &y[y_offset], ldy); - return 0; + return; /* End of CLAHR2 */ diff --git a/lapack-netlib/SRC/claic1.c b/lapack-netlib/SRC/claic1.c index 91028074e..bde27f376 100644 --- a/lapack-netlib/SRC/claic1.c +++ b/lapack-netlib/SRC/claic1.c @@ -648,7 +648,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claic1_(integer *job, integer *j, complex *x, real *sest, +/* Subroutine */ void claic1_(integer *job, integer *j, complex *x, real *sest, complex *w, complex *gamma, real *sestpr, complex *s, complex *c__) { /* System generated locals */ @@ -721,7 +721,7 @@ f"> */ c__->r = q__1.r, c__->i = q__1.i; *sestpr = s1 * tmp; } - return 0; + return; } else if (absgam <= eps * absest) { s->r = 1.f, s->i = 0.f; c__->r = 0.f, c__->i = 0.f; @@ -729,7 +729,7 @@ f"> */ s1 = absest / tmp; s2 = absalp / tmp; *sestpr = tmp * sqrt(s1 * s1 + s2 * s2); - return 0; + return; } else if (absalp <= eps * absest) { s1 = absgam; s2 = absest; @@ -742,7 +742,7 @@ f"> */ c__->r = 1.f, c__->i = 0.f; *sestpr = s1; } - return 0; + return; } else if (absest <= eps * absalp || absest <= eps * absgam) { s1 = absgam; s2 = absalp; @@ -767,7 +767,7 @@ f"> */ q__1.r = q__2.r / scl, q__1.i = q__2.i / scl; c__->r = q__1.r, c__->i = q__1.i; } - return 0; + return; } else { /* normal case */ @@ -816,7 +816,7 @@ f"> */ q__1.r = cosine.r / tmp, q__1.i = cosine.i / tmp; c__->r = q__1.r, c__->i = q__1.i; *sestpr = sqrt(t + 1.f) * absest; - return 0; + return; } } else if (*job == 2) { @@ -857,12 +857,12 @@ f"> */ s->r = q__1.r, s->i = q__1.i; q__1.r = c__->r / tmp, q__1.i = c__->i / tmp; c__->r = q__1.r, c__->i = q__1.i; - return 0; + return; } else if (absgam <= eps * absest) { s->r = 0.f, s->i = 0.f; c__->r = 1.f, c__->i = 0.f; *sestpr = absgam; - return 0; + return; } else if (absalp <= eps * absest) { s1 = absgam; s2 = absest; @@ -875,7 +875,7 @@ f"> */ c__->r = 0.f, c__->i = 0.f; *sestpr = s2; } - return 0; + return; } else if (absest <= eps * absalp || absest <= eps * absgam) { s1 = absgam; s2 = absalp; @@ -906,7 +906,7 @@ f"> */ q__1.r = q__2.r / scl, q__1.i = q__2.i / scl; c__->r = q__1.r, c__->i = q__1.i; } - return 0; + return; } else { /* normal case */ @@ -989,11 +989,11 @@ f"> */ s->r = q__1.r, s->i = q__1.i; q__1.r = cosine.r / tmp, q__1.i = cosine.i / tmp; c__->r = q__1.r, c__->i = q__1.i; - return 0; + return; } } - return 0; + return; /* End of CLAIC1 */ diff --git a/lapack-netlib/SRC/clals0.c b/lapack-netlib/SRC/clals0.c index ee2b4367d..b2d57e34e 100644 --- a/lapack-netlib/SRC/clals0.c +++ b/lapack-netlib/SRC/clals0.c @@ -786,7 +786,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr, +/* Subroutine */ void clals0_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * @@ -807,16 +807,17 @@ f"> */ extern real snrm2_(integer *, real *, integer *); integer i__, j, m, n; real diflj, difrj, dsigj; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), sgemv_(char *, integer *, integer *, real * , real *, integer *, real *, integer *, real *, real *, integer *), csrot_(integer *, complex *, integer *, complex *, integer *, real *, real *); extern real slamc3_(real *, real *); real dj; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *), csscal_(integer *, real *, complex *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, - complex *, integer *), xerbla_(char *, integer *, ftnlen); + complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real dsigjp; integer nlp1; @@ -887,7 +888,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLALS0", &i__1, (ftnlen)6); - return 0; + return; } m = n + *sqre; @@ -1155,7 +1156,7 @@ f"> */ } } - return 0; + return; /* End of CLALS0 */ diff --git a/lapack-netlib/SRC/clalsa.c b/lapack-netlib/SRC/clalsa.c index 2ef3e1231..711d1a868 100644 --- a/lapack-netlib/SRC/clalsa.c +++ b/lapack-netlib/SRC/clalsa.c @@ -779,7 +779,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n, +/* Subroutine */ void clalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *z__, real *poles, integer *givptr, integer *givcol, integer * @@ -796,20 +796,21 @@ f"> */ /* Local variables */ integer jcol, nlvl, sqre, jrow, i__, j, jimag, jreal, inode, ndiml; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer ndimr; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer i1; - extern /* Subroutine */ int clals0_(integer *, integer *, integer *, + extern /* Subroutine */ void clals0_(integer *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, integer *, integer *, real *, integer *, real *, real *, real *, real *, integer *, real *, real *, real *, integer *); integer ic, lf, nd, ll, nl, nr; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slasdt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slasdt_( integer *, integer *, integer *, integer *, integer *, integer *, integer *); integer im1, nlf, nrf, lvl, ndb1, nlp1, lvl2, nrp1; @@ -890,7 +891,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLALSA", &i__1, (ftnlen)6); - return 0; + return; } /* Book-keeping and setting up the computation tree. */ @@ -1270,7 +1271,7 @@ L170: L330: - return 0; + return; /* End of CLALSA */ diff --git a/lapack-netlib/SRC/clalsd.c b/lapack-netlib/SRC/clalsd.c index 2fab22a07..bc6135f63 100644 --- a/lapack-netlib/SRC/clalsd.c +++ b/lapack-netlib/SRC/clalsd.c @@ -702,7 +702,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int clalsd_(char *uplo, integer *smlsiz, integer *n, integer +/* Subroutine */ void clalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, real *d__, real *e, complex *b, integer *ldb, real *rcond, integer *rank, complex *work, real *rwork, integer *iwork, integer * info) @@ -719,41 +719,43 @@ f"> */ k; real r__; integer s, u, jimag, z__, jreal; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer irwib; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer poles, sizei, irwrb, nsize; - extern /* Subroutine */ int csrot_(integer *, complex *, integer *, + extern /* Subroutine */ void csrot_(integer *, complex *, integer *, complex *, integer *, real *, real *); integer irwvt, icmpq1, icmpq2; real cs; integer bx; - extern /* Subroutine */ int clalsa_(integer *, integer *, integer *, + extern /* Subroutine */ void clalsa_(integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, real *, integer *, real *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, integer *, real *, real *, real * , real *, integer *, integer *); real sn; - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); integer st; extern real slamch_(char *); - extern /* Subroutine */ int slasda_(integer *, integer *, integer *, + extern /* Subroutine */ void slasda_(integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, integer *, integer *); integer vt; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen), slascl_(char *, + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real * , integer *, integer *); extern integer isamax_(integer *, real *, integer *); integer givcol; - extern /* Subroutine */ int slasdq_(char *, integer *, integer *, integer + extern /* Subroutine */ void slasdq_(char *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real * , integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, @@ -762,7 +764,7 @@ f"> */ real orgnrm; integer givnum; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); + extern /* Subroutine */ void slasrt_(char *, integer *, real *, integer *); integer givptr, nm1, nrwork, irwwrk, smlszp, st1; real eps; integer iwk; @@ -803,7 +805,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLALSD", &i__1, (ftnlen)6); - return 0; + return; } eps = slamch_("Epsilon"); @@ -821,7 +823,7 @@ f"> */ /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } else if (*n == 1) { if (d__[1] == 0.f) { claset_("A", &c__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); @@ -831,7 +833,7 @@ f"> */ b_offset], ldb, info); d__[1] = abs(d__[1]); } - return 0; + return; } /* Rotate the matrix if it is lower bidiagonal. */ @@ -874,7 +876,7 @@ f"> */ orgnrm = slanst_("M", n, &d__[1], &e[1]); if (orgnrm == 0.f) { claset_("A", n, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); - return 0; + return; } slascl_("G", &c__0, &c__0, &orgnrm, &c_b10, n, &c__1, &d__[1], n, info); @@ -896,7 +898,7 @@ f"> */ slasdq_("U", &c__0, n, n, n, &c__0, &d__[1], &e[1], &rwork[irwvt], n, &rwork[irwu], n, &rwork[irwwrk], &c__1, &rwork[irwwrk], info); if (*info != 0) { - return 0; + return; } /* In the real version, B is passed to SLASDQ and multiplied */ @@ -1021,7 +1023,7 @@ f"> */ clascl_("G", &c__0, &c__0, &orgnrm, &c_b10, n, nrhs, &b[b_offset], ldb, info); - return 0; + return; } /* Book-keeping and setting up some constants. */ @@ -1121,7 +1123,7 @@ f"> */ rwork[nrwork], &c__1, &rwork[nrwork], info) ; if (*info != 0) { - return 0; + return; } /* In the real version, B is passed to SLASDQ and multiplied */ @@ -1189,7 +1191,7 @@ f"> */ givnum + st1], &rwork[c__ + st1], &rwork[s + st1], & rwork[nrwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } bxst = bx + st1; clalsa_(&icmpq2, smlsiz, &nsize, nrhs, &b[st + b_dim1], ldb, & @@ -1200,7 +1202,7 @@ f"> */ st1], &rwork[givnum + st1], &rwork[c__ + st1], &rwork[ s + st1], &rwork[nrwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } } st = i__ + 1; @@ -1306,7 +1308,7 @@ f"> */ givnum + st1], &rwork[c__ + st1], &rwork[s + st1], &rwork[ nrwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } } /* L320: */ @@ -1319,7 +1321,7 @@ f"> */ clascl_("G", &c__0, &c__0, &orgnrm, &c_b10, n, nrhs, &b[b_offset], ldb, info); - return 0; + return; /* End of CLALSD */ diff --git a/lapack-netlib/SRC/clamswlq.c b/lapack-netlib/SRC/clamswlq.c index 085587ee1..ed84b3074 100644 --- a/lapack-netlib/SRC/clamswlq.c +++ b/lapack-netlib/SRC/clamswlq.c @@ -713,7 +713,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clamswlq_(char *side, char *trans, integer *m, integer * +/* Subroutine */ void clamswlq_(char *side, char *trans, integer *m, integer * n, integer *k, integer *mb, integer *nb, complex *a, integer *lda, complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info) @@ -731,7 +731,7 @@ static integer c__0 = 0; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; integer ctr; - extern /* Subroutine */ int cgemlqt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemlqt_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *), ctpmlqt_(char *, char *, integer *, integer *, integer *, integer @@ -799,10 +799,10 @@ static integer c__0 = 0; i__1 = -(*info); xerbla_("CLAMSWLQ", &i__1, (ftnlen)8); work[1].r = (real) lw, work[1].i = 0.f; - return 0; + return; } else if (lquery) { work[1].r = (real) lw, work[1].i = 0.f; - return 0; + return; } /* Quick return if possible */ @@ -810,7 +810,7 @@ static integer c__0 = 0; /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -818,7 +818,7 @@ static integer c__0 = 0; if (*nb <= *k || *nb >= f2cmax(i__1,*k)) { cgemlqt_(side, trans, m, n, k, mb, &a[a_offset], lda, &t[t_offset], ldt, &c__[c_offset], ldc, &work[1], info); - return 0; + return; } if (left && tran) { @@ -960,7 +960,7 @@ static integer c__0 = 0; } work[1].r = (real) lw, work[1].i = 0.f; - return 0; + return; /* End of CLAMSWLQ */ diff --git a/lapack-netlib/SRC/clamtsqr.c b/lapack-netlib/SRC/clamtsqr.c index 475199719..553013785 100644 --- a/lapack-netlib/SRC/clamtsqr.c +++ b/lapack-netlib/SRC/clamtsqr.c @@ -706,7 +706,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clamtsqr_(char *side, char *trans, integer *m, integer * +/* Subroutine */ void clamtsqr_(char *side, char *trans, integer *m, integer * n, integer *k, integer *mb, integer *nb, complex *a, integer *lda, complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info) @@ -724,7 +724,7 @@ static integer c__0 = 0; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; integer ctr; - extern /* Subroutine */ int cgemqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemqrt_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *), ctpmqrt_(char *, char *, integer *, integer *, integer *, integer @@ -797,9 +797,9 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("CLAMTSQR", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -807,7 +807,7 @@ static integer c__0 = 0; /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -815,7 +815,7 @@ static integer c__0 = 0; if (*mb <= *k || *mb >= f2cmax(i__1,*k)) { cgemqrt_(side, trans, m, n, k, nb, &a[a_offset], lda, &t[t_offset], ldt, &c__[c_offset], ldc, &work[1], info); - return 0; + return; } if (left && notran) { @@ -957,7 +957,7 @@ static integer c__0 = 0; } work[1].r = (real) lw, work[1].i = 0.f; - return 0; + return; /* End of CLAMTSQR */ diff --git a/lapack-netlib/SRC/clangb.c b/lapack-netlib/SRC/clangb.c index 1bf23d9cd..727606003 100644 --- a/lapack-netlib/SRC/clangb.c +++ b/lapack-netlib/SRC/clangb.c @@ -647,11 +647,11 @@ real clangb_(char *norm, integer *n, integer *kl, integer *ku, complex *ab, /* Local variables */ real temp; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, k, l; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clange.c b/lapack-netlib/SRC/clange.c index 419f450c1..7e4e07389 100644 --- a/lapack-netlib/SRC/clange.c +++ b/lapack-netlib/SRC/clange.c @@ -638,11 +638,11 @@ real clange_(char *norm, integer *m, integer *n, complex *a, integer *lda, /* Local variables */ real temp; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clangt.c b/lapack-netlib/SRC/clangt.c index 6d841cc0e..d9d55a9ca 100644 --- a/lapack-netlib/SRC/clangt.c +++ b/lapack-netlib/SRC/clangt.c @@ -632,7 +632,7 @@ real clangt_(char *norm, integer *n, complex *dl, complex *d__, complex *du) real scale; extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real sum; diff --git a/lapack-netlib/SRC/clanhb.c b/lapack-netlib/SRC/clanhb.c index d58a0eca5..497c9ca2d 100644 --- a/lapack-netlib/SRC/clanhb.c +++ b/lapack-netlib/SRC/clanhb.c @@ -654,11 +654,11 @@ real clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *ab, /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, l; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clanhe.c b/lapack-netlib/SRC/clanhe.c index 362f4a220..6b9f8e826 100644 --- a/lapack-netlib/SRC/clanhe.c +++ b/lapack-netlib/SRC/clanhe.c @@ -647,11 +647,11 @@ real clanhe_(char *norm, char *uplo, integer *n, complex *a, integer *lda, /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clanhf.c b/lapack-netlib/SRC/clanhf.c index 14f4f7347..4755084e5 100644 --- a/lapack-netlib/SRC/clanhf.c +++ b/lapack-netlib/SRC/clanhf.c @@ -775,7 +775,7 @@ real clanhf_(char *norm, char *transr, char *uplo, integer *n, complex *a, real value; integer n1; real aa; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); integer lda, ifm, noe, ilu; diff --git a/lapack-netlib/SRC/clanhp.c b/lapack-netlib/SRC/clanhp.c index b6da41055..7b21fdd38 100644 --- a/lapack-netlib/SRC/clanhp.c +++ b/lapack-netlib/SRC/clanhp.c @@ -639,11 +639,11 @@ real clanhp_(char *norm, char *uplo, integer *n, complex *ap, real *work) /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, k; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clanhs.c b/lapack-netlib/SRC/clanhs.c index 8b5075f81..3ba45e7a0 100644 --- a/lapack-netlib/SRC/clanhs.c +++ b/lapack-netlib/SRC/clanhs.c @@ -630,11 +630,11 @@ real clanhs_(char *norm, integer *n, complex *a, integer *lda, real *work) real ret_val; /* Local variables */ - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clanht.c b/lapack-netlib/SRC/clanht.c index 8432e2440..8383b15a9 100644 --- a/lapack-netlib/SRC/clanht.c +++ b/lapack-netlib/SRC/clanht.c @@ -625,10 +625,10 @@ real clanht_(char *norm, integer *n, real *d__, complex *e) real scale; extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum; diff --git a/lapack-netlib/SRC/clansb.c b/lapack-netlib/SRC/clansb.c index 0f5eba4a8..098afaea8 100644 --- a/lapack-netlib/SRC/clansb.c +++ b/lapack-netlib/SRC/clansb.c @@ -652,11 +652,11 @@ real clansb_(char *norm, char *uplo, integer *n, integer *k, complex *ab, /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, l; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clansp.c b/lapack-netlib/SRC/clansp.c index ca9d24d60..120443574 100644 --- a/lapack-netlib/SRC/clansp.c +++ b/lapack-netlib/SRC/clansp.c @@ -637,11 +637,11 @@ real clansp_(char *norm, char *uplo, integer *n, complex *ap, real *work) /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, k; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clansy.c b/lapack-netlib/SRC/clansy.c index 1467a8230..5855b365a 100644 --- a/lapack-netlib/SRC/clansy.c +++ b/lapack-netlib/SRC/clansy.c @@ -646,11 +646,11 @@ real clansy_(char *norm, char *uplo, integer *n, complex *a, integer *lda, /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clantb.c b/lapack-netlib/SRC/clantb.c index 4078823c2..f13532ced 100644 --- a/lapack-netlib/SRC/clantb.c +++ b/lapack-netlib/SRC/clantb.c @@ -662,12 +662,12 @@ real clantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, real ret_val; /* Local variables */ - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, l; logical udiag; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clantp.c b/lapack-netlib/SRC/clantp.c index f1c43d22d..29cde1868 100644 --- a/lapack-netlib/SRC/clantp.c +++ b/lapack-netlib/SRC/clantp.c @@ -647,12 +647,12 @@ real clantp_(char *norm, char *uplo, char *diag, integer *n, complex *ap, real ret_val; /* Local variables */ - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, k; logical udiag; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clantr.c b/lapack-netlib/SRC/clantr.c index 3f63cfa96..1a7132a70 100644 --- a/lapack-netlib/SRC/clantr.c +++ b/lapack-netlib/SRC/clantr.c @@ -663,12 +663,12 @@ real clantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, real ret_val; /* Local variables */ - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; logical udiag; extern logical lsame_(char *, char *); real value; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); extern logical sisnan_(real *); real colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/clapll.c b/lapack-netlib/SRC/clapll.c index e2b82f37a..326317820 100644 --- a/lapack-netlib/SRC/clapll.c +++ b/lapack-netlib/SRC/clapll.c @@ -609,7 +609,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clapll_(integer *n, complex *x, integer *incx, complex * +/* Subroutine */ void clapll_(integer *n, complex *x, integer *incx, complex * y, integer *incy, real *ssmin) { /* System generated locals */ @@ -618,16 +618,16 @@ f"> */ complex q__1, q__2, q__3, q__4; /* Local variables */ - extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *) ; complex c__; extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); real ssmax; complex a11, a12, a22; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, integer *, complex *); complex tau; @@ -650,7 +650,7 @@ f"> */ /* Function Body */ if (*n <= 1) { *ssmin = 0.f; - return 0; + return; } /* Compute the QR factorization of the N-by-2 matrix ( X Y ) */ @@ -681,7 +681,7 @@ f"> */ r__3 = c_abs(&a22); slas2_(&r__1, &r__2, &r__3, ssmin, &ssmax); - return 0; + return; /* End of CLAPLL */ diff --git a/lapack-netlib/SRC/clapmr.c b/lapack-netlib/SRC/clapmr.c index 614b66a5a..f61d1923b 100644 --- a/lapack-netlib/SRC/clapmr.c +++ b/lapack-netlib/SRC/clapmr.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clapmr_(logical *forwrd, integer *m, integer *n, complex +/* Subroutine */ void clapmr_(logical *forwrd, integer *m, integer *n, complex *x, integer *ldx, integer *k) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ /* Function Body */ if (*m <= 1) { - return 0; + return; } i__1 = *m; @@ -735,7 +735,7 @@ L80: } - return 0; + return; /* End of ZLAPMT */ diff --git a/lapack-netlib/SRC/clapmt.c b/lapack-netlib/SRC/clapmt.c index 8c7642013..6f3f22026 100644 --- a/lapack-netlib/SRC/clapmt.c +++ b/lapack-netlib/SRC/clapmt.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, complex +/* Subroutine */ void clapmt_(logical *forwrd, integer *m, integer *n, complex *x, integer *ldx, integer *k) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ /* Function Body */ if (*n <= 1) { - return 0; + return; } i__1 = *n; @@ -734,7 +734,7 @@ L100: } - return 0; + return; /* End of CLAPMT */ diff --git a/lapack-netlib/SRC/claqgb.c b/lapack-netlib/SRC/claqgb.c index 118d7f5fb..1a00478bd 100644 --- a/lapack-netlib/SRC/claqgb.c +++ b/lapack-netlib/SRC/claqgb.c @@ -669,7 +669,7 @@ f"> */ /* > \ingroup complexGBauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void claqgb_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *equed) { @@ -705,7 +705,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -793,7 +793,7 @@ f"> */ *(unsigned char *)equed = 'B'; } - return 0; + return; /* End of CLAQGB */ diff --git a/lapack-netlib/SRC/claqge.c b/lapack-netlib/SRC/claqge.c index 5879796ff..c1b2bd196 100644 --- a/lapack-netlib/SRC/claqge.c +++ b/lapack-netlib/SRC/claqge.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup complexGEauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claqge_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void claqge_(integer *m, integer *n, complex *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char * equed) { @@ -688,7 +688,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -764,7 +764,7 @@ f"> */ *(unsigned char *)equed = 'B'; } - return 0; + return; /* End of CLAQGE */ diff --git a/lapack-netlib/SRC/claqhb.c b/lapack-netlib/SRC/claqhb.c index 777f2e7bd..53f04e3a5 100644 --- a/lapack-netlib/SRC/claqhb.c +++ b/lapack-netlib/SRC/claqhb.c @@ -650,7 +650,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, complex *ab, +/* Subroutine */ void claqhb_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, char *equed) { /* System generated locals */ @@ -686,7 +686,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -755,7 +755,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of CLAQHB */ diff --git a/lapack-netlib/SRC/claqhe.c b/lapack-netlib/SRC/claqhe.c index 855bdbf6e..050de301b 100644 --- a/lapack-netlib/SRC/claqhe.c +++ b/lapack-netlib/SRC/claqhe.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complexHEauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claqhe_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void claqhe_(char *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, char *equed) { /* System generated locals */ @@ -679,7 +679,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -744,7 +744,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of CLAQHE */ diff --git a/lapack-netlib/SRC/claqhp.c b/lapack-netlib/SRC/claqhp.c index 6ba4f0a34..2597f0cbb 100644 --- a/lapack-netlib/SRC/claqhp.c +++ b/lapack-netlib/SRC/claqhp.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claqhp_(char *uplo, integer *n, complex *ap, real *s, +/* Subroutine */ void claqhp_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, char *equed) { /* System generated locals */ @@ -671,7 +671,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -740,7 +740,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of CLAQHP */ diff --git a/lapack-netlib/SRC/claqp2.c b/lapack-netlib/SRC/claqp2.c index 728fce7a3..58e4008d2 100644 --- a/lapack-netlib/SRC/claqp2.c +++ b/lapack-netlib/SRC/claqp2.c @@ -661,7 +661,7 @@ f"> */ /* > \endhtmlonly */ /* ===================================================================== */ -/* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, complex +/* Subroutine */ void claqp2_(integer *m, integer *n, integer *offset, complex *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, complex *work) { @@ -674,15 +674,15 @@ f"> */ real temp, temp2; integer i__, j; real tol3z; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); integer offpi; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer itemp; extern real scnrm2_(integer *, complex *, integer *); integer mn; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, integer *, complex *); extern real slamch_(char *); extern integer isamax_(integer *, real *, integer *); @@ -801,7 +801,7 @@ f"> */ /* L20: */ } - return 0; + return; /* End of CLAQP2 */ diff --git a/lapack-netlib/SRC/claqps.c b/lapack-netlib/SRC/claqps.c index fcb48b9b7..125823b24 100644 --- a/lapack-netlib/SRC/claqps.c +++ b/lapack-netlib/SRC/claqps.c @@ -693,7 +693,7 @@ f"> */ /* > \endhtmlonly */ /* ===================================================================== */ -/* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer +/* Subroutine */ void claqps_(integer *m, integer *n, integer *offset, integer *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex * tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf) { @@ -706,7 +706,7 @@ f"> */ real temp, temp2; integer j, k; real tol3z; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), cgemv_(char *, integer *, integer *, complex *, complex *, integer *, complex *, @@ -715,7 +715,7 @@ f"> */ integer itemp; extern real scnrm2_(integer *, complex *, integer *); integer rk; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, integer *, complex *); extern real slamch_(char *); integer lsticc; @@ -937,7 +937,7 @@ L60: goto L60; } - return 0; + return; /* End of CLAQPS */ diff --git a/lapack-netlib/SRC/claqr0.c b/lapack-netlib/SRC/claqr0.c index 68e51f444..78c0ca850 100644 --- a/lapack-netlib/SRC/claqr0.c +++ b/lapack-netlib/SRC/claqr0.c @@ -761,7 +761,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claqr0_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void claqr0_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex * work, integer *lwork, integer *info) @@ -779,7 +779,7 @@ f"> */ integer kacc22, i__, k; real s; integer itmax, nsmax, nwmax, kwtop; - extern /* Subroutine */ int claqr3_(logical *, logical *, integer *, + extern /* Subroutine */ void claqr3_(logical *, logical *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, integer *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, integer *, @@ -793,7 +793,7 @@ f"> */ integer *, complex *, integer *); complex aa, bb, cc, dd; integer ld, nh, nibble, it, ks, kt, ku, kv, ls, ns, nw; - extern /* Subroutine */ int clahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void clahqr_(logical *, logical *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); @@ -847,7 +847,7 @@ f"> */ if (*n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } if (*n <= 15) { @@ -931,7 +931,7 @@ f"> */ r__1 = (real) lwkopt; q__1.r = r__1, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* ==== CLAHQR/CLAQR0 crossover point ==== */ @@ -1360,6 +1360,6 @@ L80: /* ==== End of CLAQR0 ==== */ - return 0; + return; } /* claqr0_ */ diff --git a/lapack-netlib/SRC/claqr1.c b/lapack-netlib/SRC/claqr1.c index 201499eec..9a4d8b1e2 100644 --- a/lapack-netlib/SRC/claqr1.c +++ b/lapack-netlib/SRC/claqr1.c @@ -617,7 +617,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claqr1_(integer *n, complex *h__, integer *ldh, complex * +/* Subroutine */ void claqr1_(integer *n, complex *h__, integer *ldh, complex * s1, complex *s2, complex *v) { /* System generated locals */ @@ -649,7 +649,7 @@ f"> */ /* Function Body */ if (*n != 2 && *n != 3) { - return 0; + return; } if (*n == 2) { @@ -754,6 +754,6 @@ f"> */ v[3].r = q__1.r, v[3].i = q__1.i; } } - return 0; + return; } /* claqr1_ */ diff --git a/lapack-netlib/SRC/claqr2.c b/lapack-netlib/SRC/claqr2.c index b5941df62..cf50f81c2 100644 --- a/lapack-netlib/SRC/claqr2.c +++ b/lapack-netlib/SRC/claqr2.c @@ -785,7 +785,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claqr2_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void claqr2_(logical *wantt, logical *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh, integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer * ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh, @@ -802,26 +802,26 @@ f"> */ complex beta; integer kcol, info, ifst, ilst, ltop, krow, i__, j; complex s; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *), cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), ccopy_(integer *, complex *, integer *, complex *, integer *); integer infqr, kwtop; - extern /* Subroutine */ int slabad_(real *, real *), cgehrd_(integer *, + extern /* Subroutine */ void slabad_(real *, real *), cgehrd_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), clarfg_(integer *, complex *, complex *, integer *, complex *); integer jw; extern real slamch_(char *); - extern /* Subroutine */ int clahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void clahqr_(logical *, logical *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *); real safmin, safmax; - extern /* Subroutine */ int ctrexc_(char *, integer *, complex *, integer + extern /* Subroutine */ void ctrexc_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, integer *), cunmhr_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex @@ -899,7 +899,7 @@ f"> */ r__1 = (real) lwkopt; q__1.r = r__1, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* ==== Nothing to do ... */ @@ -908,11 +908,11 @@ f"> */ *nd = 0; work[1].r = 1.f, work[1].i = 0.f; if (*ktop > *kbot) { - return 0; + return; } /* ... nor for an empty deflation window. ==== */ if (*nw < 1) { - return 0; + return; } /* ==== Machine constants ==== */ @@ -959,7 +959,7 @@ f"> */ } } work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* ==== Convert to spike-triangular form. (In case of a */ @@ -1205,6 +1205,6 @@ f"> */ /* ==== End of CLAQR2 ==== */ - return 0; + return; } /* claqr2_ */ diff --git a/lapack-netlib/SRC/claqr3.c b/lapack-netlib/SRC/claqr3.c index 474ea19c6..d72a00622 100644 --- a/lapack-netlib/SRC/claqr3.c +++ b/lapack-netlib/SRC/claqr3.c @@ -783,7 +783,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claqr3_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void claqr3_(logical *wantt, logical *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh, integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer * ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh, @@ -800,14 +800,14 @@ f"> */ complex beta; integer kcol, info, nmin, ifst, ilst, ltop, krow, i__, j; complex s; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *), cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), ccopy_(integer *, complex *, integer *, complex *, integer *); integer infqr, kwtop; - extern /* Subroutine */ int claqr4_(logical *, logical *, integer *, + extern /* Subroutine */ void claqr4_(logical *, logical *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, integer *, integer *), slabad_(real *, real *), cgehrd_(integer *, integer *, integer *, @@ -815,7 +815,7 @@ f"> */ , clarfg_(integer *, complex *, complex *, integer *, complex *); integer jw; extern real slamch_(char *); - extern /* Subroutine */ int clahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void clahqr_(logical *, logical *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex @@ -823,7 +823,7 @@ f"> */ real safmin, safmax; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int ctrexc_(char *, integer *, complex *, integer + extern /* Subroutine */ void ctrexc_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, integer *), cunmhr_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex @@ -909,7 +909,7 @@ f"> */ r__1 = (real) lwkopt; q__1.r = r__1, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* ==== Nothing to do ... */ @@ -918,11 +918,11 @@ f"> */ *nd = 0; work[1].r = 1.f, work[1].i = 0.f; if (*ktop > *kbot) { - return 0; + return; } /* ... nor for an empty deflation window. ==== */ if (*nw < 1) { - return 0; + return; } /* ==== Machine constants ==== */ @@ -969,7 +969,7 @@ f"> */ } } work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* ==== Convert to spike-triangular form. (In case of a */ @@ -1223,6 +1223,6 @@ f"> */ /* ==== End of CLAQR3 ==== */ - return 0; + return; } /* claqr3_ */ diff --git a/lapack-netlib/SRC/claqr4.c b/lapack-netlib/SRC/claqr4.c index 191cfcb7b..0abf2416e 100644 --- a/lapack-netlib/SRC/claqr4.c +++ b/lapack-netlib/SRC/claqr4.c @@ -769,7 +769,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claqr4_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void claqr4_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex * work, integer *lwork, integer *info) @@ -787,7 +787,7 @@ f"> */ integer kacc22, i__, k; real s; integer itmax, nsmax, nwmax, kwtop; - extern /* Subroutine */ int claqr2_(logical *, logical *, integer *, + extern /* Subroutine */ void claqr2_(logical *, logical *, integer *, integer *, integer *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, integer *, integer *, complex *, complex *, integer *, integer *, complex *, integer *, integer *, @@ -798,7 +798,7 @@ f"> */ complex *, integer *, integer *, complex *, integer *); complex aa, bb, cc, dd; integer ld, nh, nibble, it, ks, kt, ku, kv, ls, ns, nw; - extern /* Subroutine */ int clahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void clahqr_(logical *, logical *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); @@ -854,7 +854,7 @@ f"> */ if (*n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } if (*n <= 15) { @@ -938,7 +938,7 @@ f"> */ r__1 = (real) lwkopt; q__1.r = r__1, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* ==== CLAHQR/CLAQR0 crossover point ==== */ @@ -1361,6 +1361,6 @@ L80: /* ==== End of CLAQR4 ==== */ - return 0; + return; } /* claqr4_ */ diff --git a/lapack-netlib/SRC/claqr5.c b/lapack-netlib/SRC/claqr5.c index b60f2c248..f608c6498 100644 --- a/lapack-netlib/SRC/claqr5.c +++ b/lapack-netlib/SRC/claqr5.c @@ -773,7 +773,7 @@ f"> */ /* > ACM Trans. Math. Softw. 40, 2, Article 12 (February 2014). */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claqr5_(logical *wantt, logical *wantz, integer *kacc22, +/* Subroutine */ void claqr5_(logical *wantt, logical *wantz, integer *kacc22, integer *n, integer *ktop, integer *kbot, integer *nshfts, complex *s, complex *h__, integer *ldh, integer *iloz, integer *ihiz, complex * z__, integer *ldz, complex *v, integer *ldv, complex *u, integer *ldu, @@ -793,20 +793,20 @@ f"> */ integer jcol, jlen, jbot, mbot, jtop, jrow, mtop, j, k, m; complex alpha; logical accum; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer ndcol, incol, krcol, nbmps, i2, k1, i4; - extern /* Subroutine */ int claqr1_(integer *, complex *, integer *, + extern /* Subroutine */ void claqr1_(integer *, complex *, integer *, complex *, complex *, complex *); real h11, h12, h21, h22; integer m22; - extern /* Subroutine */ int slabad_(real *, real *), clarfg_(integer *, + extern /* Subroutine */ void slabad_(real *, real *), clarfg_(integer *, complex *, complex *, integer *, complex *); integer ns, nu; extern real slamch_(char *); complex vt[3]; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *); real safmin, safmax; @@ -851,14 +851,14 @@ f"> */ /* Function Body */ if (*nshfts < 2) { - return 0; + return; } /* ==== If the active block is empty or 1-by-1, then there */ /* . is nothing to do. ==== */ if (*ktop >= *kbot) { - return 0; + return; } /* ==== NSHFTS is supposed to be even, but if it is odd, */ @@ -1899,6 +1899,6 @@ f"> */ /* ==== End of CLAQR5 ==== */ - return 0; + return; } /* claqr5_ */ diff --git a/lapack-netlib/SRC/claqsb.c b/lapack-netlib/SRC/claqsb.c index 9170ccccb..dd7f12403 100644 --- a/lapack-netlib/SRC/claqsb.c +++ b/lapack-netlib/SRC/claqsb.c @@ -650,7 +650,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, complex *ab, +/* Subroutine */ void claqsb_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, char *equed) { /* System generated locals */ @@ -686,7 +686,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -747,7 +747,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of CLAQSB */ diff --git a/lapack-netlib/SRC/claqsp.c b/lapack-netlib/SRC/claqsp.c index d42141a1f..2380c8563 100644 --- a/lapack-netlib/SRC/claqsp.c +++ b/lapack-netlib/SRC/claqsp.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claqsp_(char *uplo, integer *n, complex *ap, real *s, +/* Subroutine */ void claqsp_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, char *equed) { /* System generated locals */ @@ -672,7 +672,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -733,7 +733,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of CLAQSP */ diff --git a/lapack-netlib/SRC/claqsy.c b/lapack-netlib/SRC/claqsy.c index e393959ca..6f78b1421 100644 --- a/lapack-netlib/SRC/claqsy.c +++ b/lapack-netlib/SRC/claqsy.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complexSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void claqsy_(char *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, char *equed) { /* System generated locals */ @@ -679,7 +679,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -736,7 +736,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of CLAQSY */ diff --git a/lapack-netlib/SRC/clar1v.c b/lapack-netlib/SRC/clar1v.c index e1063dbe8..c67a19c93 100644 --- a/lapack-netlib/SRC/clar1v.c +++ b/lapack-netlib/SRC/clar1v.c @@ -738,7 +738,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real * +/* Subroutine */ void clar1v_(integer *n, integer *b1, integer *bn, real * lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real * gaptol, complex *z__, logical *wantnc, integer *negcnt, real *ztz, real *mingma, integer *r__, integer *isuppz, real *nrminv, real * @@ -1090,7 +1090,7 @@ L280: *rqcorr = *mingma * tmp; - return 0; + return; /* End of CLAR1V */ diff --git a/lapack-netlib/SRC/clar2v.c b/lapack-netlib/SRC/clar2v.c index 0ac4915ae..abe5b226b 100644 --- a/lapack-netlib/SRC/clar2v.c +++ b/lapack-netlib/SRC/clar2v.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clar2v_(integer *n, complex *x, complex *y, complex *z__, +/* Subroutine */ void clar2v_(integer *n, complex *x, complex *y, complex *z__, integer *incx, real *c__, complex *s, integer *incc) { /* System generated locals */ @@ -708,7 +708,7 @@ f"> */ ic += *incc; /* L10: */ } - return 0; + return; /* End of CLAR2V */ diff --git a/lapack-netlib/SRC/clarcm.c b/lapack-netlib/SRC/clarcm.c index 3b727d06c..ff1af1043 100644 --- a/lapack-netlib/SRC/clarcm.c +++ b/lapack-netlib/SRC/clarcm.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void clarcm_(integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork) { /* System generated locals */ @@ -639,7 +639,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); @@ -669,7 +669,7 @@ f"> */ /* Function Body */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *n; @@ -724,7 +724,7 @@ f"> */ /* L80: */ } - return 0; + return; /* End of CLARCM */ diff --git a/lapack-netlib/SRC/clarf.c b/lapack-netlib/SRC/clarf.c index 68f198c25..5d08bee90 100644 --- a/lapack-netlib/SRC/clarf.c +++ b/lapack-netlib/SRC/clarf.c @@ -643,7 +643,7 @@ static integer c__1 = 1; /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clarf_(char *side, integer *m, integer *n, complex *v, +/* Subroutine */ void clarf_(char *side, integer *m, integer *n, complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, complex * work) { @@ -653,7 +653,7 @@ static integer c__1 = 1; /* Local variables */ integer i__; - extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, + extern /* Subroutine */ void cgerc_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), cgemv_(char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); @@ -750,7 +750,7 @@ static integer c__1 = 1; c_offset], ldc); } } - return 0; + return; /* End of CLARF */ diff --git a/lapack-netlib/SRC/clarfb.c b/lapack-netlib/SRC/clarfb.c index ebd0d636c..e62517579 100644 --- a/lapack-netlib/SRC/clarfb.c +++ b/lapack-netlib/SRC/clarfb.c @@ -710,7 +710,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void clarfb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, complex *v, integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, integer *ldwork) @@ -722,11 +722,11 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *), clacgv_(integer *, @@ -761,7 +761,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } if (lsame_(trans, "N")) { @@ -1382,7 +1382,7 @@ f"> */ } } - return 0; + return; /* End of CLARFB */ diff --git a/lapack-netlib/SRC/clarfb_gett.c b/lapack-netlib/SRC/clarfb_gett.c index 37a7aaeb7..7cf3550e7 100644 --- a/lapack-netlib/SRC/clarfb_gett.c +++ b/lapack-netlib/SRC/clarfb_gett.c @@ -903,7 +903,7 @@ gett.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clarfb_gett_(char *ident, integer *m, integer *n, +/* Subroutine */ void clarfb_gett_(char *ident, integer *m, integer *n, integer *k, complex *t, integer *ldt, complex *a, integer *lda, complex *b, integer *ldb, complex *work, integer *ldwork) { @@ -914,11 +914,11 @@ gett.f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); @@ -951,7 +951,7 @@ gett.f"> */ /* Function Body */ if (*m < 0 || *n <= 0 || *k == 0 || *k > *n) { - return 0; + return; } lnotident = ! lsame_(ident, "I"); @@ -1148,7 +1148,7 @@ gett.f"> */ } } - return 0; + return; /* End of CLARFB_GETT */ diff --git a/lapack-netlib/SRC/clarfg.c b/lapack-netlib/SRC/clarfg.c index 1800ae79d..7fe91f1b5 100644 --- a/lapack-netlib/SRC/clarfg.c +++ b/lapack-netlib/SRC/clarfg.c @@ -619,7 +619,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clarfg_(integer *n, complex *alpha, complex *x, integer * +/* Subroutine */ void clarfg_(integer *n, complex *alpha, complex *x, integer * incx, complex *tau) { /* System generated locals */ @@ -630,14 +630,14 @@ f"> */ /* Local variables */ real beta; integer j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); real alphi, alphr, xnorm; extern real scnrm2_(integer *, complex *, integer *), slapy3_(real *, real *, real *); extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real safmin, rsafmn; integer knt; @@ -658,7 +658,7 @@ f"> */ /* Function Body */ if (*n <= 0) { tau->r = 0.f, tau->i = 0.f; - return 0; + return; } i__1 = *n - 1; @@ -725,7 +725,7 @@ L10: alpha->r = beta, alpha->i = 0.f; } - return 0; + return; /* End of CLARFG */ diff --git a/lapack-netlib/SRC/clarfgp.c b/lapack-netlib/SRC/clarfgp.c index 4477c2134..e87a6b7c0 100644 --- a/lapack-netlib/SRC/clarfgp.c +++ b/lapack-netlib/SRC/clarfgp.c @@ -617,7 +617,7 @@ static complex c_b5 = {1.f,0.f}; /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clarfgp_(integer *n, complex *alpha, complex *x, integer +/* Subroutine */ void clarfgp_(integer *n, complex *alpha, complex *x, integer *incx, complex *tau) { /* System generated locals */ @@ -628,7 +628,7 @@ static complex c_b5 = {1.f,0.f}; /* Local variables */ real beta; integer j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); real alphi, alphr; complex savealpha; @@ -637,7 +637,7 @@ static complex c_b5 = {1.f,0.f}; real *), slapy3_(real *, real *, real *); extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real bignum, smlnum; integer knt; @@ -658,7 +658,7 @@ static complex c_b5 = {1.f,0.f}; /* Function Body */ if (*n <= 0) { tau->r = 0.f, tau->i = 0.f; - return 0; + return; } i__1 = *n - 1; @@ -815,7 +815,7 @@ L10: alpha->r = beta, alpha->i = 0.f; } - return 0; + return; /* End of CLARFGP */ diff --git a/lapack-netlib/SRC/clarft.c b/lapack-netlib/SRC/clarft.c index ffe87449c..e26b8402e 100644 --- a/lapack-netlib/SRC/clarft.c +++ b/lapack-netlib/SRC/clarft.c @@ -677,7 +677,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer * +/* Subroutine */ void clarft_(char *direct, char *storev, integer *n, integer * k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt) { /* System generated locals */ @@ -686,17 +686,17 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), cgemv_(char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); integer lastv; - extern /* Subroutine */ int ctrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *); integer prevlastv; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -721,7 +721,7 @@ f"> */ /* Function Body */ if (*n == 0) { - return 0; + return; } if (lsame_(direct, "F")) { @@ -923,7 +923,7 @@ f"> */ } } } - return 0; + return; /* End of CLARFT */ diff --git a/lapack-netlib/SRC/clarfx.c b/lapack-netlib/SRC/clarfx.c index bcf2c48f5..d5d61945f 100644 --- a/lapack-netlib/SRC/clarfx.c +++ b/lapack-netlib/SRC/clarfx.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clarfx_(char *side, integer *m, integer *n, complex *v, +/* Subroutine */ void clarfx_(char *side, integer *m, integer *n, complex *v, complex *tau, complex *c__, integer *ldc, complex *work) { /* System generated locals */ @@ -644,7 +644,7 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); extern logical lsame_(char *, char *); complex t1, t2, t3, t4, t5, t6, t7, t8, t9, v1, v2, v3, v4, v5, v6, v7, @@ -669,7 +669,7 @@ f"> */ /* Function Body */ if (tau->r == 0.f && tau->i == 0.f) { - return 0; + return; } if (lsame_(side, "L")) { @@ -2593,7 +2593,7 @@ L390: goto L410; } L410: - return 0; + return; /* End of CLARFX */ diff --git a/lapack-netlib/SRC/clarfy.c b/lapack-netlib/SRC/clarfy.c index 1bda7663e..15a83738d 100644 --- a/lapack-netlib/SRC/clarfy.c +++ b/lapack-netlib/SRC/clarfy.c @@ -620,7 +620,7 @@ static integer c__1 = 1; /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clarfy_(char *uplo, integer *n, complex *v, integer * +/* Subroutine */ void clarfy_(char *uplo, integer *n, complex *v, integer * incv, complex *tau, complex *c__, integer *ldc, complex *work) { /* System generated locals */ @@ -628,12 +628,12 @@ static integer c__1 = 1; complex q__1, q__2, q__3, q__4; /* Local variables */ - extern /* Subroutine */ int cher2_(char *, integer *, complex *, complex * + extern /* Subroutine */ void cher2_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, integer *); complex alpha; extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); - extern /* Subroutine */ int chemv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chemv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); @@ -657,7 +657,7 @@ static integer c__1 = 1; /* Function Body */ if (tau->r == 0.f && tau->i == 0.f) { - return 0; + return; } /* Form w:= C * v */ @@ -679,7 +679,7 @@ static integer c__1 = 1; q__1.r = -tau->r, q__1.i = -tau->i; cher2_(uplo, n, &q__1, &v[1], incv, &work[1], &c__1, &c__[c_offset], ldc); - return 0; + return; /* End of CLARFY */ diff --git a/lapack-netlib/SRC/clargv.c b/lapack-netlib/SRC/clargv.c index 5b60fe52a..6ed8623be 100644 --- a/lapack-netlib/SRC/clargv.c +++ b/lapack-netlib/SRC/clargv.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clargv_(integer *n, complex *x, integer *incx, complex * +/* Subroutine */ void clargv_(integer *n, complex *x, integer *incx, complex * y, integer *incy, real *c__, integer *incc) { /* System generated locals */ @@ -869,7 +869,7 @@ L50: ix += *incx; /* L60: */ } - return 0; + return; /* End of CLARGV */ diff --git a/lapack-netlib/SRC/clarnv.c b/lapack-netlib/SRC/clarnv.c index c079633c6..aafd0ee70 100644 --- a/lapack-netlib/SRC/clarnv.c +++ b/lapack-netlib/SRC/clarnv.c @@ -608,7 +608,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n, +/* Subroutine */ void clarnv_(integer *idist, integer *iseed, integer *n, complex *x) { /* System generated locals */ @@ -620,7 +620,7 @@ f"> */ integer i__; real u[128]; integer il, iv; - extern /* Subroutine */ int slaruv_(integer *, integer *, real *); + extern /* Subroutine */ void slaruv_(integer *, integer *, real *); /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -723,7 +723,7 @@ f"> */ } /* L60: */ } - return 0; + return; /* End of CLARNV */ diff --git a/lapack-netlib/SRC/clarrv.c b/lapack-netlib/SRC/clarrv.c index 59c83dec5..5fb8764eb 100644 --- a/lapack-netlib/SRC/clarrv.c +++ b/lapack-netlib/SRC/clarrv.c @@ -799,7 +799,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int clarrv_(integer *n, real *vl, real *vu, real *d__, real * +/* Subroutine */ void clarrv_(integer *n, real *vl, real *vu, real *d__, real * l, real *pivmin, integer *isplit, integer *m, integer *dol, integer * dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr, real *wgap, integer *iblock, integer *indexw, real *gers, complex * @@ -828,11 +828,11 @@ f"> */ logical eskip; real right; integer nclus, zfrom; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real rqtol; integer iindc1, iindc2, indin1, indin2; - extern /* Subroutine */ int clar1v_(integer *, integer *, integer *, real + extern /* Subroutine */ void clar1v_(integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, real *, complex *, logical *, integer *, real *, real *, integer *, integer *, real * , real *, real *, real *); @@ -854,12 +854,12 @@ f"> */ real savgap; integer ndepth; real ssigma; - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *); logical usedbs; integer iindwk, offset; real gaptol; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); integer newcls, oldfst, indwrk, windex, oldlst; logical usedrq; @@ -869,7 +869,7 @@ f"> */ real nrminv, rqcorr; logical tryrqc; integer isupmx; - extern /* Subroutine */ int slarrb_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarrb_(integer *, real *, real *, integer *, integer *, real *, real *, integer *, real *, real *, real *, real *, integer *, real *, real *, integer *, integer *), slarrf_( integer *, real *, real *, real *, integer *, integer *, real *, @@ -911,7 +911,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0 || *m <= 0) { - return 0; + return; } /* The first N entries of WORK are reserved for the eigenvalues */ @@ -1064,7 +1064,7 @@ L40: /* This is a crude protection against infinitely deep trees */ if (ndepth > *m) { *info = -2; - return 0; + return; } /* breadth first processing of the current level of the representation */ /* tree: OLDNCL = number of clusters on current level */ @@ -1150,7 +1150,7 @@ L40: iindwk], pivmin, &spdiam, &in, &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* We also recompute the extremal gaps. W holds all eigenvalues */ /* of the unshifted matrix and must be used for computation */ @@ -1337,7 +1337,7 @@ L40: iwork[k] = newlst; } else { *info = -2; - return 0; + return; } } else { @@ -1441,7 +1441,7 @@ L120: iindwk], pivmin, &spdiam, &itmp1, &iinfo); if (iinfo != 0) { *info = -3; - return 0; + return; } lambda = work[windex]; /* Reset twist index from inaccurate LAMBDA to */ @@ -1536,7 +1536,7 @@ L120: goto L120; } else { *info = 5; - return 0; + return; } } else { stp2ii = FALSE_; @@ -1631,7 +1631,7 @@ L170: ; } - return 0; + return; /* End of CLARRV */ diff --git a/lapack-netlib/SRC/clarscl2.c b/lapack-netlib/SRC/clarscl2.c index 7f76979e5..920ee8e04 100644 --- a/lapack-netlib/SRC/clarscl2.c +++ b/lapack-netlib/SRC/clarscl2.c @@ -600,7 +600,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int clarscl2_(integer *m, integer *n, real *d__, complex *x, +/* Subroutine */ void clarscl2_(integer *m, integer *n, real *d__, complex *x, integer *ldx) { /* System generated locals */ @@ -638,6 +638,6 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ x[i__3].r = q__1.r, x[i__3].i = q__1.i; } } - return 0; + return; } /* clarscl2_ */ diff --git a/lapack-netlib/SRC/clartg.c b/lapack-netlib/SRC/clartg.c index c91de371f..8d318f5cd 100644 --- a/lapack-netlib/SRC/clartg.c +++ b/lapack-netlib/SRC/clartg.c @@ -614,7 +614,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn, +/* Subroutine */ void clartg_(complex *f, complex *g, real *cs, complex *sn, complex *r__) { /* System generated locals */ @@ -681,7 +681,7 @@ L10: *cs = 1.f; sn->r = 0.f, sn->i = 0.f; r__->r = f->r, r__->i = f->i; - return 0; + return; } L20: --count; @@ -722,7 +722,7 @@ L20: r__2 = -r_imag(&gs) / d__; q__1.r = r__1, q__1.i = r__2; sn->r = q__1.r, sn->i = q__1.i; - return 0; + return; } r__1 = fs.r; r__2 = r_imag(&fs); @@ -811,7 +811,7 @@ L20: } } } - return 0; + return; /* End of CLARTG */ diff --git a/lapack-netlib/SRC/clartv.c b/lapack-netlib/SRC/clartv.c index f59b7feba..04c23485d 100644 --- a/lapack-netlib/SRC/clartv.c +++ b/lapack-netlib/SRC/clartv.c @@ -617,7 +617,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clartv_(integer *n, complex *x, integer *incx, complex * +/* Subroutine */ void clartv_(integer *n, complex *x, integer *incx, complex * y, integer *incy, real *c__, complex *s, integer *incc) { /* System generated locals */ @@ -675,7 +675,7 @@ f"> */ ic += *incc; /* L10: */ } - return 0; + return; /* End of CLARTV */ diff --git a/lapack-netlib/SRC/clarz.c b/lapack-netlib/SRC/clarz.c index 986450688..d50c2e74f 100644 --- a/lapack-netlib/SRC/clarz.c +++ b/lapack-netlib/SRC/clarz.c @@ -661,7 +661,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l, +/* Subroutine */ void clarz_(char *side, integer *m, integer *n, integer *l, complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, complex *work) { @@ -670,12 +670,12 @@ static integer c__1 = 1; complex q__1; /* Local variables */ - extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, + extern /* Subroutine */ void cgerc_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), cgemv_(char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgeru_(integer *, integer *, complex *, + extern /* Subroutine */ void cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, @@ -760,7 +760,7 @@ static integer c__1 = 1; } - return 0; + return; /* End of CLARZ */ diff --git a/lapack-netlib/SRC/clarzb.c b/lapack-netlib/SRC/clarzb.c index 5f8d7fa4f..f20a1fb2e 100644 --- a/lapack-netlib/SRC/clarzb.c +++ b/lapack-netlib/SRC/clarzb.c @@ -696,7 +696,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void clarzb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, integer *l, complex *v, integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, integer *ldwork) @@ -708,15 +708,16 @@ f"> */ /* Local variables */ integer info, i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *), clacgv_(integer *, - complex *, integer *), xerbla_(char *, integer *, ftnlen); + complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); char transt[1]; @@ -747,7 +748,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } /* Check for currently supported options */ @@ -761,7 +762,7 @@ f"> */ if (info != 0) { i__1 = -info; xerbla_("CLARZB", &i__1, (ftnlen)6); - return 0; + return; } if (lsame_(trans, "N")) { @@ -902,7 +903,7 @@ f"> */ } - return 0; + return; /* End of CLARZB */ diff --git a/lapack-netlib/SRC/clarzt.c b/lapack-netlib/SRC/clarzt.c index cf3c6a1e7..e0665d081 100644 --- a/lapack-netlib/SRC/clarzt.c +++ b/lapack-netlib/SRC/clarzt.c @@ -699,7 +699,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer * +/* Subroutine */ void clarzt_(char *direct, char *storev, integer *n, integer * k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt) { /* System generated locals */ @@ -708,13 +708,13 @@ f"> */ /* Local variables */ integer info, i__, j; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmv_(char *, char *, char *, integer *, - complex *, integer *, complex *, integer *), clacgv_(integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void ctrmv_(char *, char *, char *, integer *, + complex *, integer *, complex *, integer *), clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -747,7 +747,7 @@ f"> */ if (info != 0) { i__1 = -info; xerbla_("CLARZT", &i__1, (ftnlen)6); - return 0; + return; } for (i__ = *k; i__ >= 1; --i__) { @@ -792,7 +792,7 @@ f"> */ } /* L20: */ } - return 0; + return; /* End of CLARZT */ diff --git a/lapack-netlib/SRC/clascl.c b/lapack-netlib/SRC/clascl.c index 4d1e4c31c..892c21908 100644 --- a/lapack-netlib/SRC/clascl.c +++ b/lapack-netlib/SRC/clascl.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real * +/* Subroutine */ void clascl_(char *type__, integer *kl, integer *ku, real * cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda, integer *info) { @@ -745,13 +745,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLASCL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } /* Get machine parameters */ @@ -935,7 +935,7 @@ L10: goto L10; } - return 0; + return; /* End of CLASCL */ diff --git a/lapack-netlib/SRC/clascl2.c b/lapack-netlib/SRC/clascl2.c index 06ee8a443..7a1621463 100644 --- a/lapack-netlib/SRC/clascl2.c +++ b/lapack-netlib/SRC/clascl2.c @@ -600,7 +600,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int clascl2_(integer *m, integer *n, real *d__, complex *x, +/* Subroutine */ void clascl2_(integer *m, integer *n, real *d__, complex *x, integer *ldx) { /* System generated locals */ @@ -638,6 +638,6 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ x[i__3].r = q__1.r, x[i__3].i = q__1.i; } } - return 0; + return; } /* clascl2_ */ diff --git a/lapack-netlib/SRC/claset.c b/lapack-netlib/SRC/claset.c index 8372580c8..a96a5b4c9 100644 --- a/lapack-netlib/SRC/claset.c +++ b/lapack-netlib/SRC/claset.c @@ -616,7 +616,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex * +/* Subroutine */ void claset_(char *uplo, integer *m, integer *n, complex * alpha, complex *beta, complex *a, integer *lda) { /* System generated locals */ @@ -711,7 +711,7 @@ f"> */ } } - return 0; + return; /* End of CLASET */ diff --git a/lapack-netlib/SRC/clasr.c b/lapack-netlib/SRC/clasr.c index 7aebcaa31..75e91ecd0 100644 --- a/lapack-netlib/SRC/clasr.c +++ b/lapack-netlib/SRC/clasr.c @@ -709,7 +709,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m, +/* Subroutine */ void clasr_(char *side, char *pivot, char *direct, integer *m, integer *n, real *c__, real *s, complex *a, integer *lda) { /* System generated locals */ @@ -762,13 +762,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("CLASR ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (lsame_(side, "L")) { @@ -1160,7 +1160,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of CLASR */ diff --git a/lapack-netlib/SRC/classq.c b/lapack-netlib/SRC/classq.c index 539df4b59..346158f3b 100644 --- a/lapack-netlib/SRC/classq.c +++ b/lapack-netlib/SRC/classq.c @@ -615,7 +615,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int classq_(integer *n, complex *x, integer *incx, real * +/* Subroutine */ void classq_(integer *n, complex *x, integer *incx, real * scale, real *sumsq) { /* System generated locals */ @@ -676,7 +676,7 @@ f"> */ } } - return 0; + return; /* End of CLASSQ */ diff --git a/lapack-netlib/SRC/claswlq.c b/lapack-netlib/SRC/claswlq.c index 3048880ce..562dc4a65 100644 --- a/lapack-netlib/SRC/claswlq.c +++ b/lapack-netlib/SRC/claswlq.c @@ -671,7 +671,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claswlq_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void claswlq_(integer *m, integer *n, integer *mb, integer * nb, complex *a, integer *lda, complex *t, integer *ldt, complex *work, integer *lwork, integer *info) { @@ -680,7 +680,8 @@ static integer c__0 = 0; /* Local variables */ integer i__, ii, kk; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgelqt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cgelqt_( integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *), ctplqt_(integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, @@ -737,15 +738,15 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("CLASWLQ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The LQ Decomposition */ @@ -753,7 +754,7 @@ static integer c__0 = 0; if (*m >= *n || *nb <= *m || *nb >= *n) { cgelqt_(m, n, mb, &a[a_offset], lda, &t[t_offset], ldt, &work[1], info); - return 0; + return; } kk = (*n - *m) % (*nb - *m); @@ -786,7 +787,7 @@ static integer c__0 = 0; i__2 = *m * *mb; work[1].r = (real) i__2, work[1].i = 0.f; - return 0; + return; /* End of CLASWLQ */ diff --git a/lapack-netlib/SRC/claswp.c b/lapack-netlib/SRC/claswp.c index 60148c4fd..404e6aad5 100644 --- a/lapack-netlib/SRC/claswp.c +++ b/lapack-netlib/SRC/claswp.c @@ -624,7 +624,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer * +/* Subroutine */ void claswp_(integer *n, complex *a, integer *lda, integer * k1, integer *k2, integer *ipiv, integer *incx) { /* System generated locals */ @@ -665,7 +665,7 @@ f"> */ i2 = *k1; inc = -1; } else { - return 0; + return; } n32 = *n / 32 << 5; @@ -722,7 +722,7 @@ f"> */ } } - return 0; + return; /* End of CLASWP */ diff --git a/lapack-netlib/SRC/clasyf.c b/lapack-netlib/SRC/clasyf.c index 9faf59802..df3a0d9f0 100644 --- a/lapack-netlib/SRC/clasyf.c +++ b/lapack-netlib/SRC/clasyf.c @@ -692,7 +692,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb, +/* Subroutine */ void clasyf_(char *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, integer *info) { @@ -705,12 +705,12 @@ f"> */ integer imax, jmax, j, k; complex t; real alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, @@ -1538,7 +1538,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of CLASYF */ diff --git a/lapack-netlib/SRC/clasyf_aa.c b/lapack-netlib/SRC/clasyf_aa.c index 64d40af93..6f5898961 100644 --- a/lapack-netlib/SRC/clasyf_aa.c +++ b/lapack-netlib/SRC/clasyf_aa.c @@ -659,7 +659,7 @@ aa.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int clasyf_aa_(char *uplo, integer *j1, integer *m, integer +/* Subroutine */ void clasyf_aa_(char *uplo, integer *j1, integer *m, integer *nb, complex *a, integer *lda, integer *ipiv, complex *h__, integer * ldh, complex *work) { @@ -670,10 +670,10 @@ aa.f"> */ /* Local variables */ integer j, k; complex alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, @@ -681,7 +681,7 @@ aa.f"> */ integer *, complex *, integer *); integer i1, k1, i2, mj; extern integer icamax_(integer *, complex *, integer *); - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *); complex piv; @@ -1076,7 +1076,7 @@ L30: L40: ; } - return 0; + return; /* End of CLASYF_AA */ diff --git a/lapack-netlib/SRC/clasyf_rk.c b/lapack-netlib/SRC/clasyf_rk.c index ba6f339f2..f72b1c105 100644 --- a/lapack-netlib/SRC/clasyf_rk.c +++ b/lapack-netlib/SRC/clasyf_rk.c @@ -776,7 +776,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int clasyf_rk_(char *uplo, integer *n, integer *nb, integer +/* Subroutine */ void clasyf_rk_(char *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, complex *e, integer *ipiv, complex *w, integer *ldw, integer *info) { @@ -790,19 +790,19 @@ rk.f"> */ integer imax, jmax, j, k, p; complex t; real alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); real sfmin; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer itemp; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; real stemp; @@ -1710,7 +1710,7 @@ L90: } - return 0; + return; /* End of CLASYF_RK */ diff --git a/lapack-netlib/SRC/clasyf_rook.c b/lapack-netlib/SRC/clasyf_rook.c index 1a20913e8..a4613912f 100644 --- a/lapack-netlib/SRC/clasyf_rook.c +++ b/lapack-netlib/SRC/clasyf_rook.c @@ -698,7 +698,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int clasyf_rook_(char *uplo, integer *n, integer *nb, +/* Subroutine */ void clasyf_rook_(char *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, integer *info) { @@ -712,19 +712,19 @@ rook.f"> */ integer imax, jmax, j, k, p; complex t; real alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); real sfmin; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer itemp; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; real stemp; @@ -1636,7 +1636,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of CLASYF_ROOK */ diff --git a/lapack-netlib/SRC/clatbs.c b/lapack-netlib/SRC/clatbs.c index 67f3a236b..168aca749 100644 --- a/lapack-netlib/SRC/clatbs.c +++ b/lapack-netlib/SRC/clatbs.c @@ -756,7 +756,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void clatbs_(char *uplo, char *trans, char *diag, char * normin, integer *n, integer *kd, complex *ab, integer *ldab, complex * x, real *scale, real *cnorm, integer *info) { @@ -776,24 +776,25 @@ f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real tscal; complex uscal; integer jlast; extern /* Complex */ VOID cdotu_(complex *, integer *, complex *, integer *, complex *, integer *); complex csumj; - extern /* Subroutine */ int ctbsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctbsv_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer * , complex *, integer *); logical upper; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); real xj; extern integer icamax_(integer *, complex *, integer *); extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; extern integer isamax_(integer *, real *, integer *); extern real scasum_(integer *, complex *, integer *); @@ -848,13 +849,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLATBS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1749,7 +1750,7 @@ L185: sscal_(n, &r__1, &cnorm[1], &c__1); } - return 0; + return; /* End of CLATBS */ diff --git a/lapack-netlib/SRC/clatdf.c b/lapack-netlib/SRC/clatdf.c index 4a7990b6a..68c1d63ef 100644 --- a/lapack-netlib/SRC/clatdf.c +++ b/lapack-netlib/SRC/clatdf.c @@ -685,7 +685,7 @@ f"> */ /* > 1995. */ /* ===================================================================== */ -/* Subroutine */ int clatdf_(integer *ijob, integer *n, complex *z__, integer +/* Subroutine */ void clatdf_(integer *ijob, integer *n, complex *z__, integer *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *jpiv) { @@ -697,25 +697,26 @@ f"> */ integer info; complex temp, work[8]; integer i__, j, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); real scale; extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); complex pmone; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); real rtemp, sminu, rwork[2], splus; - extern /* Subroutine */ int cgesc2_(integer *, complex *, integer *, + extern /* Subroutine */ void cgesc2_(integer *, complex *, integer *, complex *, integer *, integer *, real *); complex bm, bp; - extern /* Subroutine */ int cgecon_(char *, integer *, complex *, integer + extern /* Subroutine */ void cgecon_(char *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *); complex xm[2], xp[2]; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real - *, real *), claswp_(integer *, complex *, integer *, integer *, + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real + *, real *); + extern int claswp_(integer *, complex *, integer *, integer *, integer *, integer *, integer *); extern real scasum_(integer *, complex *, integer *); @@ -877,7 +878,7 @@ f"> */ /* Compute the sum of squares */ classq_(n, &rhs[1], &c__1, rdscal, rdsum); - return 0; + return; } /* ENTRY IJOB = 2 */ @@ -909,7 +910,7 @@ f"> */ /* Compute the sum of squares */ classq_(n, &rhs[1], &c__1, rdscal, rdsum); - return 0; + return; /* End of CLATDF */ diff --git a/lapack-netlib/SRC/clatps.c b/lapack-netlib/SRC/clatps.c index 1fb11c966..64563abbd 100644 --- a/lapack-netlib/SRC/clatps.c +++ b/lapack-netlib/SRC/clatps.c @@ -744,7 +744,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void clatps_(char *uplo, char *trans, char *diag, char * normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm, integer *info) { @@ -764,17 +764,17 @@ f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real tscal; complex uscal; integer jlast; extern /* Complex */ VOID cdotu_(complex *, integer *, complex *, integer *, complex *, integer *); complex csumj; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, complex *, complex *, integer *), slabad_( real *, real *); integer ip; @@ -782,8 +782,9 @@ f"> */ extern integer icamax_(integer *, complex *, integer *); extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; extern integer isamax_(integer *, real *, integer *); extern real scasum_(integer *, complex *, integer *); @@ -832,13 +833,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLATPS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1713,7 +1714,7 @@ L185: sscal_(n, &r__1, &cnorm[1], &c__1); } - return 0; + return; /* End of CLATPS */ diff --git a/lapack-netlib/SRC/clatrd.c b/lapack-netlib/SRC/clatrd.c index 0def564ad..f1c30202b 100644 --- a/lapack-netlib/SRC/clatrd.c +++ b/lapack-netlib/SRC/clatrd.c @@ -715,7 +715,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, complex *a, +/* Subroutine */ void clatrd_(char *uplo, integer *n, integer *nb, complex *a, integer *lda, real *e, complex *tau, complex *w, integer *ldw) { /* System generated locals */ @@ -726,17 +726,17 @@ f"> */ /* Local variables */ integer i__; complex alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), chemv_(char *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *), clarfg_(integer *, complex *, complex *, integer *, complex *), clacgv_(integer *, complex *, integer *); @@ -766,7 +766,7 @@ f"> */ /* Function Body */ if (*n <= 0) { - return 0; + return; } if (lsame_(uplo, "U")) { @@ -973,7 +973,7 @@ f"> */ } } - return 0; + return; /* End of CLATRD */ diff --git a/lapack-netlib/SRC/clatrs.c b/lapack-netlib/SRC/clatrs.c index b68fee353..61e43419d 100644 --- a/lapack-netlib/SRC/clatrs.c +++ b/lapack-netlib/SRC/clatrs.c @@ -753,7 +753,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void clatrs_(char *uplo, char *trans, char *diag, char * normin, integer *n, complex *a, integer *lda, complex *x, real *scale, real *cnorm, integer *info) { @@ -773,24 +773,25 @@ f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real tscal; complex uscal; integer jlast; extern /* Complex */ VOID cdotu_(complex *, integer *, complex *, integer *, complex *, integer *); complex csumj; - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctrsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrsv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *), slabad_(real *, real *); real xj; extern integer icamax_(integer *, complex *, integer *); extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; extern integer isamax_(integer *, real *, integer *); extern real scasum_(integer *, complex *, integer *); @@ -843,13 +844,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLATRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1702,7 +1703,7 @@ L185: sscal_(n, &r__1, &cnorm[1], &c__1); } - return 0; + return; /* End of CLATRS */ diff --git a/lapack-netlib/SRC/clatrs3.c b/lapack-netlib/SRC/clatrs3.c index f6d76cf49..a53483ff0 100644 --- a/lapack-netlib/SRC/clatrs3.c +++ b/lapack-netlib/SRC/clatrs3.c @@ -743,7 +743,7 @@ static integer c_n1 = -1; /* Angelika Schwarz, Umea University, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int clatrs3_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void clatrs3_(char *uplo, char *trans, char *diag, char * normin, integer *n, integer *nrhs, complex *a, integer *lda, complex * x, integer *ldx, real *scale, real *cnorm, real *work, integer *lwork, integer *info) @@ -761,7 +761,7 @@ static integer c_n1 = -1; real tmax, xnrm[32]; integer i__, j, k; real w[64]; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); @@ -774,14 +774,14 @@ static integer c_n1 = -1; integer lscale; real scaloc; extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real scamin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen ); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int clatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatrs_(char *, char *, char *, char *, integer *, complex *, integer *, complex *, real *, real *, integer *); extern real slarmm_(real *, real *, real *); @@ -874,10 +874,10 @@ static integer c_n1 = -1; } if (*info != 0) { i__1 = -(*info); - xerbla_("CLATRS3", &i__1); - return 0; + xerbla_("CLATRS3", &i__1, 7); + return; } else if (lquery) { - return 0; + return; } /* Initialize scaling factors */ @@ -890,7 +890,7 @@ static integer c_n1 = -1; /* Quick return if possible */ if (f2cmin(*n,*nrhs) == 0) { - return 0; + return; } /* Determine machine dependent constant to control overflow. */ @@ -908,7 +908,7 @@ static integer c_n1 = -1; clatrs_(uplo, trans, diag, "Y", n, &a[a_offset], lda, &x[k * x_dim1 + 1], &scale[k], &cnorm[1], info); } - return 0; + return; } /* Compute norms of blocks of A excluding diagonal blocks and find */ @@ -968,7 +968,7 @@ static integer c_n1 = -1; clatrs_(uplo, trans, diag, "N", n, &a[a_offset], lda, &x[k * x_dim1 + 1], &scale[k], &cnorm[1], info); } - return 0; + return; } /* Every right-hand side requires workspace to store NBA local scale */ @@ -1274,7 +1274,7 @@ static integer c_n1 = -1; } } } - return 0; + return; /* End of CLATRS3 */ diff --git a/lapack-netlib/SRC/clatrz.c b/lapack-netlib/SRC/clatrz.c index df017628d..2447fbac1 100644 --- a/lapack-netlib/SRC/clatrz.c +++ b/lapack-netlib/SRC/clatrz.c @@ -649,7 +649,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, complex *a, +/* Subroutine */ void clatrz_(integer *m, integer *n, integer *l, complex *a, integer *lda, complex *tau, complex *work) { /* System generated locals */ @@ -659,7 +659,7 @@ f"> */ /* Local variables */ integer i__; complex alpha; - extern /* Subroutine */ int clarz_(char *, integer *, integer *, integer * + extern /* Subroutine */ void clarz_(char *, integer *, integer *, integer * , complex *, integer *, complex *, complex *, integer *, complex * ), clarfg_(integer *, complex *, complex *, integer *, complex *), clacgv_(integer *, complex *, integer *); @@ -685,7 +685,7 @@ f"> */ /* Function Body */ if (*m == 0) { - return 0; + return; } else if (*m == *n) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -693,7 +693,7 @@ f"> */ tau[i__2].r = 0.f, tau[i__2].i = 0.f; /* L10: */ } - return 0; + return; } for (i__ = *m; i__ >= 1; --i__) { @@ -725,7 +725,7 @@ f"> */ /* L20: */ } - return 0; + return; /* End of CLATRZ */ diff --git a/lapack-netlib/SRC/clatsqr.c b/lapack-netlib/SRC/clatsqr.c index 08235f02e..d88e0da3a 100644 --- a/lapack-netlib/SRC/clatsqr.c +++ b/lapack-netlib/SRC/clatsqr.c @@ -673,7 +673,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int clatsqr_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void clatsqr_(integer *m, integer *n, integer *mb, integer * nb, complex *a, integer *lda, complex *t, integer *ldt, complex *work, integer *lwork, integer *info) { @@ -682,7 +682,8 @@ static integer c__0 = 0; /* Local variables */ integer i__, ii, kk; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgeqrt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cgeqrt_( integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *), ctpqrt_(integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, @@ -738,15 +739,15 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("CLATSQR", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The QR Decomposition */ @@ -754,7 +755,7 @@ static integer c__0 = 0; if (*mb <= *n || *mb >= *m) { cgeqrt_(m, n, nb, &a[a_offset], lda, &t[t_offset], ldt, &work[1], info); - return 0; + return; } kk = (*m - *n) % (*mb - *n); ii = *m - kk + 1; @@ -786,7 +787,7 @@ static integer c__0 = 0; i__2 = *n * *nb; work[1].r = (real) i__2, work[1].i = 0.f; - return 0; + return; /* End of CLATSQR */ diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp.c b/lapack-netlib/SRC/claunhr_col_getrfnp.c index d6cb51abe..70f8c44dc 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp.c +++ b/lapack-netlib/SRC/claunhr_col_getrfnp.c @@ -661,7 +661,7 @@ _col_getrfnp.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int claunhr_col_getrfnp_(integer *m, integer *n, complex *a, +/* Subroutine */ void claunhr_col_getrfnp_(integer *m, integer *n, complex *a, integer *lda, complex *d__, integer *info) { /* System generated locals */ @@ -669,14 +669,14 @@ _col_getrfnp.f"> */ complex q__1; /* Local variables */ - extern /* Subroutine */ int claunhr_col_getrfnp2_(integer *, integer *, + extern /* Subroutine */ void claunhr_col_getrfnp2_(integer *, integer *, complex *, integer *, complex *, integer *); integer j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); integer iinfo; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer jb, nb; @@ -714,13 +714,13 @@ _col_getrfnp.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLAUNHR_COL_GETRFNP", &i__1, (ftnlen)19); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -772,7 +772,7 @@ _col_getrfnp.f"> */ } } } - return 0; + return; /* End of CLAUNHR_COL_GETRFNP */ diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp2.c b/lapack-netlib/SRC/claunhr_col_getrfnp2.c index e79b4c8e3..65fdc0027 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/claunhr_col_getrfnp2.c @@ -682,7 +682,7 @@ _col_getrfnp2.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int claunhr_col_getrfnp2_(integer *m, integer *n, complex * +/* Subroutine */ void claunhr_col_getrfnp2_(integer *m, integer *n, complex * a, integer *lda, complex *d__, integer *info) { /* System generated locals */ @@ -692,13 +692,13 @@ _col_getrfnp2.f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *); integer iinfo; real sfmin; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer n1, n2; @@ -735,13 +735,13 @@ _col_getrfnp2.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLAUNHR_COL_GETRFNP2", &i__1, (ftnlen)20); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } if (*m == 1) { @@ -844,7 +844,7 @@ _col_getrfnp2.f"> */ lda, &d__[n1 + 1], &iinfo); } - return 0; + return; /* End of CLAUNHR_COL_GETRFNP2 */ diff --git a/lapack-netlib/SRC/clauu2.c b/lapack-netlib/SRC/clauu2.c index f79cdb1f0..2be32a3c0 100644 --- a/lapack-netlib/SRC/clauu2.c +++ b/lapack-netlib/SRC/clauu2.c @@ -617,7 +617,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clauu2_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void clauu2_(char *uplo, integer *n, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -630,13 +630,13 @@ f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); logical upper; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - csscal_(integer *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), + csscal_(integer *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real aii; @@ -669,13 +669,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLAUU2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -741,7 +741,7 @@ f"> */ } } - return 0; + return; /* End of CLAUU2 */ diff --git a/lapack-netlib/SRC/clauum.c b/lapack-netlib/SRC/clauum.c index d2a0b0419..45a1de4a9 100644 --- a/lapack-netlib/SRC/clauum.c +++ b/lapack-netlib/SRC/clauum.c @@ -619,7 +619,7 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int clauum_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void clauum_(char *uplo, integer *n, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -627,17 +627,17 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), cherk_(char *, char *, integer *, integer *, real *, complex *, integer *, real * , complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int clauu2_(char *, integer *, complex *, integer + extern /* Subroutine */ void clauu2_(char *, integer *, complex *, integer *, integer *); integer ib, nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -674,13 +674,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CLAUUM", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -758,7 +758,7 @@ f"> */ } } - return 0; + return; /* End of CLAUUM */ diff --git a/lapack-netlib/SRC/cpbcon.c b/lapack-netlib/SRC/cpbcon.c index 05da91420..e46ce643a 100644 --- a/lapack-netlib/SRC/cpbcon.c +++ b/lapack-netlib/SRC/cpbcon.c @@ -645,7 +645,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab, +/* Subroutine */ void cpbcon_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *anorm, real *rcond, complex *work, real *rwork, integer *info) { @@ -659,19 +659,19 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer ix; extern integer icamax_(integer *, complex *, integer *); real scalel; extern real slamch_(char *); - extern /* Subroutine */ int clatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatbs_(char *, char *, char *, char *, integer *, integer *, complex *, integer *, complex *, real *, real *, integer *); real scaleu; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int csrscl_(integer *, real *, complex *, integer + extern /* Subroutine */ void csrscl_(integer *, real *, complex *, integer *); char normin[1]; real smlnum; @@ -712,7 +712,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -720,9 +720,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -783,7 +783,7 @@ L10: L20: - return 0; + return; /* End of CPBCON */ diff --git a/lapack-netlib/SRC/cpbequ.c b/lapack-netlib/SRC/cpbequ.c index b46fcaa06..0d69760da 100644 --- a/lapack-netlib/SRC/cpbequ.c +++ b/lapack-netlib/SRC/cpbequ.c @@ -639,7 +639,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab, +/* Subroutine */ void cpbequ_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, integer *info) { /* System generated locals */ @@ -686,7 +686,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPBEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -694,7 +694,7 @@ f"> */ if (*n == 0) { *scond = 1.f; *amax = 0.f; - return 0; + return; } if (upper) { @@ -733,7 +733,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.f) { *info = i__; - return 0; + return; } /* L20: */ } @@ -752,7 +752,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of CPBEQU */ diff --git a/lapack-netlib/SRC/cpbrfs.c b/lapack-netlib/SRC/cpbrfs.c index cf61e5dc9..fccc1f3d4 100644 --- a/lapack-netlib/SRC/cpbrfs.c +++ b/lapack-netlib/SRC/cpbrfs.c @@ -702,7 +702,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void cpbrfs_(char *uplo, integer *n, integer *kd, integer * nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real * berr, complex *work, real *rwork, integer *info) @@ -718,23 +718,24 @@ f"> */ real safe1, safe2; integer i__, j, k, l; real s; - extern /* Subroutine */ int chbmv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void chbmv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xk; extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cpbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cpbtrs_( char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real lstres, eps; @@ -792,7 +793,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -804,7 +805,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1048,7 +1049,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CPBRFS */ diff --git a/lapack-netlib/SRC/cpbstf.c b/lapack-netlib/SRC/cpbstf.c index 0fedc1538..f0a88e4b4 100644 --- a/lapack-netlib/SRC/cpbstf.c +++ b/lapack-netlib/SRC/cpbstf.c @@ -667,7 +667,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab, +/* Subroutine */ void cpbstf_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -675,15 +675,15 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int cher_(char *, integer *, real *, complex *, + extern /* Subroutine */ void cher_(char *, integer *, real *, complex *, integer *, complex *, integer *); integer j, m; extern logical lsame_(char *, char *); logical upper; integer km; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - csscal_(integer *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), + csscal_(integer *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ajj; integer kld; @@ -719,13 +719,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPBSTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Computing MAX */ @@ -871,11 +871,11 @@ f"> */ /* L40: */ } } - return 0; + return; L50: *info = j; - return 0; + return; /* End of CPBSTF */ diff --git a/lapack-netlib/SRC/cpbsv.c b/lapack-netlib/SRC/cpbsv.c index 9b1a3cd0d..83b0f63b1 100644 --- a/lapack-netlib/SRC/cpbsv.c +++ b/lapack-netlib/SRC/cpbsv.c @@ -673,7 +673,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void cpbsv_(char *uplo, integer *n, integer *kd, integer * nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer * info) { @@ -682,7 +682,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cpbtrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cpbtrf_( char *, integer *, integer *, complex *, integer *, integer *), cpbtrs_(char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -724,7 +725,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CPBSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**H*U or A = L*L**H. */ @@ -738,7 +739,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ info); } - return 0; + return; /* End of CPBSV */ diff --git a/lapack-netlib/SRC/cpbsvx.c b/lapack-netlib/SRC/cpbsvx.c index 70337aaa6..49925c13c 100644 --- a/lapack-netlib/SRC/cpbsvx.c +++ b/lapack-netlib/SRC/cpbsvx.c @@ -853,7 +853,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd, +/* Subroutine */ void cpbsvx_(char *fact, char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer * ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, @@ -870,30 +870,31 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); real scond, anorm; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); logical equil, rcequ, upper; integer j1, j2; extern real clanhb_(char *, char *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int claqhb_(char *, integer *, integer *, complex + extern /* Subroutine */ void claqhb_(char *, integer *, integer *, complex *, integer *, real *, real *, real *, char *), cpbcon_(char *, integer *, integer *, complex *, integer *, real * , real *, complex *, real *, integer *); extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen), cpbequ_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cpbequ_(char *, integer *, integer *, complex *, integer *, real *, real *, real *, integer *), cpbrfs_( char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *); real bignum; - extern /* Subroutine */ int cpbtrf_(char *, integer *, integer *, complex + extern /* Subroutine */ void cpbtrf_(char *, integer *, integer *, complex *, integer *, integer *); integer infequ; - extern /* Subroutine */ int cpbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void cpbtrs_(char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real smlnum; @@ -993,7 +994,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPBSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1064,7 +1065,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -1120,7 +1121,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of CPBSVX */ diff --git a/lapack-netlib/SRC/cpbtf2.c b/lapack-netlib/SRC/cpbtf2.c index b14bbb51e..de89747f9 100644 --- a/lapack-netlib/SRC/cpbtf2.c +++ b/lapack-netlib/SRC/cpbtf2.c @@ -657,7 +657,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab, +/* Subroutine */ void cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -665,15 +665,15 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int cher_(char *, integer *, real *, complex *, + extern /* Subroutine */ void cher_(char *, integer *, real *, complex *, integer *, complex *, integer *); integer j; extern logical lsame_(char *, char *); logical upper; integer kn; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - csscal_(integer *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), + csscal_(integer *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ajj; integer kld; @@ -709,13 +709,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPBTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Computing MAX */ @@ -793,11 +793,11 @@ f"> */ /* L20: */ } } - return 0; + return; L30: *info = j; - return 0; + return; /* End of CPBTF2 */ diff --git a/lapack-netlib/SRC/cpbtrf.c b/lapack-netlib/SRC/cpbtrf.c index f44cb5c3f..b239f20b4 100644 --- a/lapack-netlib/SRC/cpbtrf.c +++ b/lapack-netlib/SRC/cpbtrf.c @@ -660,7 +660,7 @@ f"> */ /* > Peter Mayes and Giuseppe Radicati, IBM ECSEC, Rome, March 23, 1989 */ /* ===================================================================== */ -/* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab, +/* Subroutine */ void cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -670,18 +670,19 @@ f"> */ /* Local variables */ complex work[1056] /* was [33][32] */; integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), cherk_(char *, char *, integer *, integer *, real *, complex *, integer *, real * , complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer i2, i3; - extern /* Subroutine */ int cpbtf2_(char *, integer *, integer *, complex - *, integer *, integer *), cpotf2_(char *, integer *, + extern /* Subroutine */ void cpbtf2_(char *, integer *, integer *, complex + *, integer *, integer *); + extern int cpotf2_(char *, integer *, complex *, integer *, integer *); integer ib, nb, ii, jj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -719,13 +720,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPBTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment */ @@ -1034,10 +1035,10 @@ f"> */ } } } - return 0; + return; L150: - return 0; + return; /* End of CPBTRF */ diff --git a/lapack-netlib/SRC/cpbtrs.c b/lapack-netlib/SRC/cpbtrs.c index c79f6aa5c..14b1bae6f 100644 --- a/lapack-netlib/SRC/cpbtrs.c +++ b/lapack-netlib/SRC/cpbtrs.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void cpbtrs_(char *uplo, integer *n, integer *kd, integer * nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer * info) { @@ -644,7 +644,7 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctbsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctbsv_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *); logical upper; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -688,13 +688,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -735,7 +735,7 @@ f"> */ } } - return 0; + return; /* End of CPBTRS */ diff --git a/lapack-netlib/SRC/cpftrf.c b/lapack-netlib/SRC/cpftrf.c index e53b4f5f6..67bdc365e 100644 --- a/lapack-netlib/SRC/cpftrf.c +++ b/lapack-netlib/SRC/cpftrf.c @@ -727,7 +727,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpftrf_(char *transr, char *uplo, integer *n, complex *a, +/* Subroutine */ void cpftrf_(char *transr, char *uplo, integer *n, complex *a, integer *info) { /* System generated locals */ @@ -736,11 +736,11 @@ f"> */ /* Local variables */ integer k; logical normaltransr; - extern /* Subroutine */ int cherk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cherk_(char *, char *, integer *, integer *, real *, complex *, integer *, real *, complex *, integer *); extern logical lsame_(char *, char *); logical lower; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer n1, n2; @@ -774,13 +774,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPFTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -821,7 +821,7 @@ f"> */ cpotrf_("L", &n1, a, n, info); if (*info > 0) { - return 0; + return; } ctrsm_("R", "L", "C", "N", &n2, &n1, &c_b1, a, n, &a[n1], n); cherk_("U", "N", &n2, &n1, &c_b15, &a[n1], n, &c_b16, &a[*n], @@ -839,7 +839,7 @@ f"> */ cpotrf_("L", &n1, &a[n2], n, info); if (*info > 0) { - return 0; + return; } ctrsm_("L", "L", "N", "N", &n1, &n2, &c_b1, &a[n2], n, a, n); cherk_("U", "C", &n2, &n1, &c_b15, a, n, &c_b16, &a[n1], n); @@ -862,7 +862,7 @@ f"> */ cpotrf_("U", &n1, a, &n1, info); if (*info > 0) { - return 0; + return; } ctrsm_("L", "U", "C", "N", &n1, &n2, &c_b1, a, &n1, &a[n1 * n1], &n1); @@ -881,7 +881,7 @@ f"> */ cpotrf_("U", &n1, &a[n2 * n2], &n2, info); if (*info > 0) { - return 0; + return; } ctrsm_("R", "U", "N", "N", &n2, &n1, &c_b1, &a[n2 * n2], &n2, a, &n2); @@ -913,7 +913,7 @@ f"> */ i__1 = *n + 1; cpotrf_("L", &k, &a[1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -938,7 +938,7 @@ f"> */ i__1 = *n + 1; cpotrf_("L", &k, &a[k + 1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -968,7 +968,7 @@ f"> */ cpotrf_("U", &k, &a[k], &k, info); if (*info > 0) { - return 0; + return; } ctrsm_("L", "U", "C", "N", &k, &k, &c_b1, &a[k], &n1, &a[k * ( k + 1)], &k); @@ -987,7 +987,7 @@ f"> */ cpotrf_("U", &k, &a[k * (k + 1)], &k, info); if (*info > 0) { - return 0; + return; } ctrsm_("R", "U", "N", "N", &k, &k, &c_b1, &a[k * (k + 1)], &k, a, &k); @@ -1003,7 +1003,7 @@ f"> */ } - return 0; + return; /* End of CPFTRF */ diff --git a/lapack-netlib/SRC/cpftri.c b/lapack-netlib/SRC/cpftri.c index 0eb513032..9005b128a 100644 --- a/lapack-netlib/SRC/cpftri.c +++ b/lapack-netlib/SRC/cpftri.c @@ -727,7 +727,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cpftri_(char *transr, char *uplo, integer *n, complex *a, +/* Subroutine */ void cpftri_(char *transr, char *uplo, integer *n, complex *a, integer *info) { /* System generated locals */ @@ -736,10 +736,10 @@ f"> */ /* Local variables */ integer k; logical normaltransr; - extern /* Subroutine */ int cherk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cherk_(char *, char *, integer *, integer *, real *, complex *, integer *, real *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical lower; @@ -747,7 +747,8 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical nisodd; extern /* Subroutine */ int clauum_(char *, integer *, complex *, integer - *, integer *), ctftri_(char *, char *, char *, integer *, + *, integer *); + extern void ctftri_(char *, char *, char *, integer *, complex *, integer *); @@ -775,20 +776,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPFTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ ctftri_(transr, uplo, "N", n, a, info); if (*info > 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -963,7 +964,7 @@ f"> */ } - return 0; + return; /* End of CPFTRI */ diff --git a/lapack-netlib/SRC/cpftrs.c b/lapack-netlib/SRC/cpftrs.c index c6f404bc7..2feb7e53b 100644 --- a/lapack-netlib/SRC/cpftrs.c +++ b/lapack-netlib/SRC/cpftrs.c @@ -733,7 +733,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cpftrs_(char *transr, char *uplo, integer *n, integer * +/* Subroutine */ void cpftrs_(char *transr, char *uplo, integer *n, integer * nrhs, complex *a, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -742,7 +742,7 @@ f"> */ /* Local variables */ logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctfsm_(char *, char *, char *, char *, char *, + extern /* Subroutine */ void ctfsm_(char *, char *, char *, char *, char *, integer *, integer *, complex *, complex *, complex *, integer *); logical lower; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -782,13 +782,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPFTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* start execution: there are two triangular solves */ @@ -805,7 +805,7 @@ f"> */ ldb); } - return 0; + return; /* End of CPFTRS */ diff --git a/lapack-netlib/SRC/cpocon.c b/lapack-netlib/SRC/cpocon.c index d4071768f..6665d0037 100644 --- a/lapack-netlib/SRC/cpocon.c +++ b/lapack-netlib/SRC/cpocon.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpocon_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void cpocon_(char *uplo, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info) { /* System generated locals */ @@ -646,7 +646,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer ix; extern integer icamax_(integer *, complex *, integer *); @@ -655,7 +655,7 @@ f"> */ real scaleu; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int clatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatrs_(char *, char *, char *, char *, integer *, complex *, integer *, complex *, real *, real *, integer *), csrscl_(integer *, real *, complex *, integer *); @@ -696,7 +696,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPOCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -704,9 +704,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -766,7 +766,7 @@ L10: } L20: - return 0; + return; /* End of CPOCON */ diff --git a/lapack-netlib/SRC/cpoequ.c b/lapack-netlib/SRC/cpoequ.c index f09ef845b..f7f9e87cf 100644 --- a/lapack-netlib/SRC/cpoequ.c +++ b/lapack-netlib/SRC/cpoequ.c @@ -622,7 +622,7 @@ f"> */ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpoequ_(integer *n, complex *a, integer *lda, real *s, +/* Subroutine */ void cpoequ_(integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, integer *info) { /* System generated locals */ @@ -662,7 +662,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPOEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -670,7 +670,7 @@ f"> */ if (*n == 0) { *scond = 1.f; *amax = 0.f; - return 0; + return; } /* Find the minimum and maximum diagonal elements. */ @@ -700,7 +700,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.f) { *info = i__; - return 0; + return; } /* L20: */ } @@ -719,7 +719,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of CPOEQU */ diff --git a/lapack-netlib/SRC/cpoequb.c b/lapack-netlib/SRC/cpoequb.c index 0a9eb9648..b7c246116 100644 --- a/lapack-netlib/SRC/cpoequb.c +++ b/lapack-netlib/SRC/cpoequb.c @@ -628,7 +628,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpoequb_(integer *n, complex *a, integer *lda, real *s, +/* Subroutine */ void cpoequb_(integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, integer *info) { /* System generated locals */ @@ -672,7 +672,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CPOEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -680,7 +680,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*n == 0) { *scond = 1.f; *amax = 0.f; - return 0; + return; } base = slamch_("B"); tmp = -.5f / log(base); @@ -713,7 +713,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.f) { *info = i__; - return 0; + return; } /* L20: */ } @@ -734,7 +734,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of CPOEQUB */ diff --git a/lapack-netlib/SRC/cporfs.c b/lapack-netlib/SRC/cporfs.c index 4d7f78bf0..5c3237ec9 100644 --- a/lapack-netlib/SRC/cporfs.c +++ b/lapack-netlib/SRC/cporfs.c @@ -696,7 +696,7 @@ f"> */ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void cporfs_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -713,22 +713,23 @@ f"> */ integer i__, j, k; real s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int chemv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void chemv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xk; extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cpotrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cpotrs_( char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real lstres, eps; @@ -784,7 +785,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPORFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -796,7 +797,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1029,7 +1030,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CPORFS */ diff --git a/lapack-netlib/SRC/cposv.c b/lapack-netlib/SRC/cposv.c index 93e6759fe..2a24682ac 100644 --- a/lapack-netlib/SRC/cposv.c +++ b/lapack-netlib/SRC/cposv.c @@ -639,7 +639,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexPOsolve */ /* ===================================================================== */ -/* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, complex *a, +/* Subroutine */ void cposv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -647,9 +647,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cpotrf_( - char *, integer *, complex *, integer *, integer *), - cpotrs_(char *, integer *, integer *, complex *, integer *, + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int cpotrf_( + char *, integer *, complex *, integer *, integer *); + extern void cpotrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -688,7 +689,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CPOSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**H*U or A = L*L**H. */ @@ -701,7 +702,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ cpotrs_(uplo, n, nrhs, &a[a_offset], lda, &b[b_offset], ldb, info); } - return 0; + return; /* End of CPOSV */ diff --git a/lapack-netlib/SRC/cposvx.c b/lapack-netlib/SRC/cposvx.c index 6e9cf48a8..10161efaf 100644 --- a/lapack-netlib/SRC/cposvx.c +++ b/lapack-netlib/SRC/cposvx.c @@ -813,7 +813,7 @@ f"> */ /* > \ingroup complexPOsolve */ /* ===================================================================== */ -/* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void cposvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char * equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, @@ -833,23 +833,25 @@ f"> */ logical equil, rcequ; extern real clanhe_(char *, char *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int claqhe_(char *, integer *, complex *, integer + extern /* Subroutine */ void claqhe_(char *, integer *, complex *, integer *, real *, real *, real *, char *); extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int cpocon_(char *, integer *, complex *, integer + extern /* Subroutine */ void cpocon_(char *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *); integer infequ; - extern /* Subroutine */ int cpoequ_(integer *, complex *, integer *, real + extern /* Subroutine */ void cpoequ_(integer *, complex *, integer *, real *, real *, real *, integer *), cporfs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, real *, - integer *), cpotrf_(char *, integer *, complex *, integer - *, integer *), cpotrs_(char *, integer *, integer *, + integer *); + extern int cpotrf_(char *, integer *, complex *, integer + *, integer *); + extern void cpotrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real smlnum; @@ -947,7 +949,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPOSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -993,7 +995,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -1048,7 +1050,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of CPOSVX */ diff --git a/lapack-netlib/SRC/cposvxx.c b/lapack-netlib/SRC/cposvxx.c index f4614361b..d36d9b4a3 100644 --- a/lapack-netlib/SRC/cposvxx.c +++ b/lapack-netlib/SRC/cposvxx.c @@ -1002,7 +1002,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexPOsolve */ /* ===================================================================== */ -/* Subroutine */ int cposvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void cposvxx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char * equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real * @@ -1023,20 +1023,20 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); real scond; logical equil, rcequ; - extern /* Subroutine */ int claqhe_(char *, integer *, complex *, integer + extern /* Subroutine */ void claqhe_(char *, integer *, complex *, integer *, real *, real *, real *, char *); extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; - extern /* Subroutine */ int cpotrf_(char *, integer *, complex *, integer + extern /* Subroutine */ void cpotrf_(char *, integer *, complex *, integer *, integer *), cpotrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real smlnum; - extern /* Subroutine */ int clascl2_(integer *, integer *, real *, + extern /* Subroutine */ void clascl2_(integer *, integer *, real *, complex *, integer *), cpoequb_(integer *, complex *, integer *, real *, real *, real *, integer *), cporfsx_(char *, char *, integer *, integer *, complex *, integer *, complex *, integer *, @@ -1150,7 +1150,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CPOSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1190,7 +1190,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = cla_porpvgrw_(uplo, n, &a[a_offset], lda, &af[ af_offset], ldaf, &rwork[1]); - return 0; + return; } } @@ -1219,7 +1219,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ clascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of CPOSVXX */ diff --git a/lapack-netlib/SRC/cpotf2.c b/lapack-netlib/SRC/cpotf2.c index 63153797d..6d6d4182f 100644 --- a/lapack-netlib/SRC/cpotf2.c +++ b/lapack-netlib/SRC/cpotf2.c @@ -622,7 +622,7 @@ f"> */ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpotf2_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void cpotf2_(char *uplo, integer *n, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -635,13 +635,13 @@ f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); logical upper; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - csscal_(integer *, real *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *), + csscal_(integer *, real *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern logical sisnan_(real *); real ajj; @@ -675,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPOTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -778,7 +778,7 @@ L30: *info = j; L40: - return 0; + return; /* End of CPOTF2 */ diff --git a/lapack-netlib/SRC/cpotrf.c b/lapack-netlib/SRC/cpotrf.c index ded299f8d..5395ad952 100644 --- a/lapack-netlib/SRC/cpotrf.c +++ b/lapack-netlib/SRC/cpotrf.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpotrf_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void cpotrf_(char *uplo, integer *n, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -633,13 +633,13 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *), cherk_(char *, char *, integer *, integer *, real *, complex *, integer *, real * , complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; @@ -647,7 +647,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cpotrf2_(char *, integer *, complex *, + extern /* Subroutine */ void cpotrf2_(char *, integer *, complex *, integer *, integer *); @@ -680,13 +680,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPOTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -788,7 +788,7 @@ L30: *info = *info + j - 1; L40: - return 0; + return; /* End of CPOTRF */ diff --git a/lapack-netlib/SRC/cpotrf2.c b/lapack-netlib/SRC/cpotrf2.c index cadc520d5..ff478e774 100644 --- a/lapack-netlib/SRC/cpotrf2.c +++ b/lapack-netlib/SRC/cpotrf2.c @@ -618,7 +618,7 @@ static real c_b12 = 1.f; /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpotrf2_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void cpotrf2_(char *uplo, integer *n, complex *a, integer * lda, integer *info) { /* System generated locals */ @@ -626,11 +626,11 @@ static real c_b12 = 1.f; real r__1; /* Local variables */ - extern /* Subroutine */ int cherk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cherk_(char *, char *, integer *, integer *, real *, complex *, integer *, real *, complex *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; @@ -669,13 +669,13 @@ static real c_b12 = 1.f; if (*info != 0) { i__1 = -(*info); xerbla_("CPOTRF2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* N=1 case */ @@ -688,7 +688,7 @@ static real c_b12 = 1.f; ajj = a[i__1].r; if (ajj <= 0.f || sisnan_(&ajj)) { *info = 1; - return 0; + return; } /* Factor */ @@ -708,7 +708,7 @@ static real c_b12 = 1.f; cpotrf2_(uplo, &n1, &a[a_dim1 + 1], lda, &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } /* Compute the Cholesky factorization A = U**H*U */ @@ -729,7 +729,7 @@ static real c_b12 = 1.f; if (iinfo != 0) { *info = iinfo + n1; - return 0; + return; } /* Compute the Cholesky factorization A = L*L**H */ @@ -750,12 +750,12 @@ static real c_b12 = 1.f; if (iinfo != 0) { *info = iinfo + n1; - return 0; + return; } } } - return 0; + return; /* End of CPOTRF2 */ diff --git a/lapack-netlib/SRC/cpotri.c b/lapack-netlib/SRC/cpotri.c index 79e9d8954..6681781e3 100644 --- a/lapack-netlib/SRC/cpotri.c +++ b/lapack-netlib/SRC/cpotri.c @@ -604,7 +604,7 @@ f"> */ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpotri_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void cpotri_(char *uplo, integer *n, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -612,9 +612,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), clauum_( - char *, integer *, complex *, integer *, integer *), - ctrtri_(char *, char *, integer *, complex *, integer *, integer * + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int clauum_( + char *, integer *, complex *, integer *, integer *); + extern int ctrtri_(char *, char *, integer *, complex *, integer *, integer * ); @@ -646,27 +647,27 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPOTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ ctrtri_(uplo, "Non-unit", n, &a[a_offset], lda, info); if (*info > 0) { - return 0; + return; } /* Form inv(U) * inv(U)**H or inv(L)**H * inv(L). */ clauum_(uplo, n, &a[a_offset], lda, info); - return 0; + return; /* End of CPOTRI */ diff --git a/lapack-netlib/SRC/cpotrs.c b/lapack-netlib/SRC/cpotrs.c index e110b9641..dfedbef85 100644 --- a/lapack-netlib/SRC/cpotrs.c +++ b/lapack-netlib/SRC/cpotrs.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complexPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void cpotrs_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -631,7 +631,7 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; @@ -674,13 +674,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPOTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -711,7 +711,7 @@ f"> */ c_b1, &a[a_offset], lda, &b[b_offset], ldb); } - return 0; + return; /* End of CPOTRS */ diff --git a/lapack-netlib/SRC/cppcon.c b/lapack-netlib/SRC/cppcon.c index 07899b71b..ad4cbd1ee 100644 --- a/lapack-netlib/SRC/cppcon.c +++ b/lapack-netlib/SRC/cppcon.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cppcon_(char *uplo, integer *n, complex *ap, real *anorm, +/* Subroutine */ void cppcon_(char *uplo, integer *n, complex *ap, real *anorm, real *rcond, complex *work, real *rwork, integer *info) { /* System generated locals */ @@ -644,18 +644,19 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer ix; extern integer icamax_(integer *, complex *, integer *); real scalel; extern real slamch_(char *); real scaleu; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), clatps_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void clatps_( char *, char *, char *, char *, integer *, complex *, complex *, real *, real *, integer *); real ainvnm; - extern /* Subroutine */ int csrscl_(integer *, real *, complex *, integer + extern /* Subroutine */ void csrscl_(integer *, real *, complex *, integer *); char normin[1]; real smlnum; @@ -690,7 +691,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -698,9 +699,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -760,7 +761,7 @@ L10: } L20: - return 0; + return; /* End of CPPCON */ diff --git a/lapack-netlib/SRC/cppequ.c b/lapack-netlib/SRC/cppequ.c index f4bdf882c..27e735cdf 100644 --- a/lapack-netlib/SRC/cppequ.c +++ b/lapack-netlib/SRC/cppequ.c @@ -626,7 +626,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cppequ_(char *uplo, integer *n, complex *ap, real *s, +/* Subroutine */ void cppequ_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, integer *info) { /* System generated locals */ @@ -668,7 +668,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPPEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -676,7 +676,7 @@ f"> */ if (*n == 0) { *scond = 1.f; *amax = 0.f; - return 0; + return; } /* Initialize SMIN and AMAX. */ @@ -734,7 +734,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.f) { *info = i__; - return 0; + return; } /* L30: */ } @@ -753,7 +753,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of CPPEQU */ diff --git a/lapack-netlib/SRC/cpprfs.c b/lapack-netlib/SRC/cpprfs.c index 8d0b934a7..185f15996 100644 --- a/lapack-netlib/SRC/cpprfs.c +++ b/lapack-netlib/SRC/cpprfs.c @@ -684,7 +684,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void cpprfs_(char *uplo, integer *n, integer *nrhs, complex * ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) { @@ -700,20 +700,21 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), chpmv_(char *, integer *, complex *, complex *, complex *, integer *, complex *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer ik, kk; real xk; extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cpptrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cpptrs_( char *, integer *, integer *, complex *, complex *, integer *, integer *); real lstres, eps; @@ -761,7 +762,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -773,7 +774,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1013,7 +1014,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CPPRFS */ diff --git a/lapack-netlib/SRC/cppsv.c b/lapack-netlib/SRC/cppsv.c index 19882e671..4f2ae517d 100644 --- a/lapack-netlib/SRC/cppsv.c +++ b/lapack-netlib/SRC/cppsv.c @@ -653,7 +653,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void cppsv_(char *uplo, integer *n, integer *nrhs, complex * ap, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -661,7 +661,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cpptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cpptrf_( char *, integer *, complex *, integer *), cpptrs_(char *, integer *, integer *, complex *, complex *, integer *, integer *); @@ -697,7 +698,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CPPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**H *U or A = L*L**H. */ @@ -710,7 +711,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ cpptrs_(uplo, n, nrhs, &ap[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of CPPSV */ diff --git a/lapack-netlib/SRC/cppsvx.c b/lapack-netlib/SRC/cppsvx.c index 4005ea3d4..9798ed06f 100644 --- a/lapack-netlib/SRC/cppsvx.c +++ b/lapack-netlib/SRC/cppsvx.c @@ -823,7 +823,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void cppsvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -838,27 +838,27 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); real scond, anorm; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); logical equil, rcequ; extern real clanhp_(char *, char *, integer *, complex *, real *), slamch_(char *); - extern /* Subroutine */ int claqhp_(char *, integer *, complex *, real *, + extern /* Subroutine */ void claqhp_(char *, integer *, complex *, real *, real *, real *, char *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int cppcon_(char *, integer *, complex *, real *, + extern /* Subroutine */ void cppcon_(char *, integer *, complex *, real *, real *, complex *, real *, integer *); integer infequ; - extern /* Subroutine */ int cppequ_(char *, integer *, complex *, real *, + extern /* Subroutine */ void cppequ_(char *, integer *, complex *, real *, real *, real *, integer *), cpprfs_(char *, integer *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, real *, real *, complex *, real *, integer *), cpptrf_(char *, integer *, complex *, integer *); real smlnum; - extern /* Subroutine */ int cpptrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void cpptrs_(char *, integer *, integer *, complex *, complex *, integer *, integer *); @@ -947,7 +947,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -994,7 +994,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -1047,7 +1047,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of CPPSVX */ diff --git a/lapack-netlib/SRC/cpptrf.c b/lapack-netlib/SRC/cpptrf.c index f53353a5f..711fb200b 100644 --- a/lapack-netlib/SRC/cpptrf.c +++ b/lapack-netlib/SRC/cpptrf.c @@ -633,7 +633,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cpptrf_(char *uplo, integer *n, complex *ap, integer * +/* Subroutine */ void cpptrf_(char *uplo, integer *n, complex *ap, integer * info) { /* System generated locals */ @@ -642,18 +642,19 @@ f"> */ complex q__1, q__2; /* Local variables */ - extern /* Subroutine */ int chpr_(char *, integer *, real *, complex *, + extern /* Subroutine */ void chpr_(char *, integer *, real *, complex *, integer *, complex *); integer j; extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, complex *, complex *, integer *); integer jc, jj; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real ajj; @@ -682,13 +683,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -769,7 +770,7 @@ L30: *info = j; L40: - return 0; + return; /* End of CPPTRF */ diff --git a/lapack-netlib/SRC/cpptri.c b/lapack-netlib/SRC/cpptri.c index 17f12de1c..1d99d3e88 100644 --- a/lapack-netlib/SRC/cpptri.c +++ b/lapack-netlib/SRC/cpptri.c @@ -607,7 +607,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpptri_(char *uplo, integer *n, complex *ap, integer * +/* Subroutine */ void cpptri_(char *uplo, integer *n, complex *ap, integer * info) { /* System generated locals */ @@ -616,18 +616,20 @@ f"> */ complex q__1; /* Local variables */ - extern /* Subroutine */ int chpr_(char *, integer *, real *, complex *, + extern /* Subroutine */ void chpr_(char *, integer *, real *, complex *, integer *, complex *); integer j; extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpmv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical upper; integer jc, jj; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen), ctptri_(char *, char *, + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); + extern void ctptri_(char *, char *, integer *, complex *, integer *); real ajj; integer jjn; @@ -658,20 +660,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ ctptri_(uplo, "Non-unit", n, &ap[1], info); if (*info > 0) { - return 0; + return; } if (upper) { @@ -715,7 +717,7 @@ f"> */ } } - return 0; + return; /* End of CPPTRI */ diff --git a/lapack-netlib/SRC/cpptrs.c b/lapack-netlib/SRC/cpptrs.c index 2b8a08332..6251b1e53 100644 --- a/lapack-netlib/SRC/cpptrs.c +++ b/lapack-netlib/SRC/cpptrs.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void cpptrs_(char *uplo, integer *n, integer *nrhs, complex * ap, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -631,9 +631,9 @@ f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, - complex *, complex *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, + complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -668,13 +668,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -715,7 +715,7 @@ f"> */ } } - return 0; + return; /* End of CPPTRS */ diff --git a/lapack-netlib/SRC/cpstf2.c b/lapack-netlib/SRC/cpstf2.c index 5e6ed763e..f0ac9bf92 100644 --- a/lapack-netlib/SRC/cpstf2.c +++ b/lapack-netlib/SRC/cpstf2.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpstf2_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void cpstf2_(char *uplo, integer *n, complex *a, integer *lda, integer *piv, integer *rank, real *tol, real *work, integer *info) { /* System generated locals */ @@ -670,20 +670,21 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); complex ctemp; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer itemp; real stemp; logical upper; real sstop; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); extern logical sisnan_(real *); real ajj; integer pvt; @@ -720,13 +721,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPSTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize PIV */ @@ -995,7 +996,7 @@ L190: *info = 1; L200: - return 0; + return; /* End of CPSTF2 */ diff --git a/lapack-netlib/SRC/cpstrf.c b/lapack-netlib/SRC/cpstrf.c index cb1bbd3fd..e8cb87df4 100644 --- a/lapack-netlib/SRC/cpstrf.c +++ b/lapack-netlib/SRC/cpstrf.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpstrf_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void cpstrf_(char *uplo, integer *n, complex *a, integer *lda, integer *piv, integer *rank, real *tol, real *work, integer *info) { /* System generated locals */ @@ -672,26 +672,27 @@ f"> */ /* Local variables */ integer i__, j, k; - extern /* Subroutine */ int cherk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cherk_(char *, char *, integer *, integer *, real *, complex *, integer *, real *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); complex ctemp; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer itemp; real stemp; logical upper; real sstop; - extern /* Subroutine */ int cpstf2_(char *, integer *, complex *, integer + extern /* Subroutine */ void cpstf2_(char *, integer *, complex *, integer *, integer *, integer *, real *, real *, integer *); integer jb, nb; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern logical sisnan_(real *); @@ -730,13 +731,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPSTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get block size */ @@ -1076,7 +1077,7 @@ L220: *info = 1; L230: - return 0; + return; /* End of CPSTRF */ diff --git a/lapack-netlib/SRC/cptcon.c b/lapack-netlib/SRC/cptcon.c index b1585da7e..829e7bd50 100644 --- a/lapack-netlib/SRC/cptcon.c +++ b/lapack-netlib/SRC/cptcon.c @@ -632,7 +632,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cptcon_(integer *n, real *d__, complex *e, real *anorm, +/* Subroutine */ void cptcon_(integer *n, real *d__, complex *e, real *anorm, real *rcond, real *rwork, integer *info) { /* System generated locals */ @@ -672,7 +672,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPTCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -680,9 +680,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } /* Check that D(1:N) is positive. */ @@ -690,7 +690,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (d__[i__] <= 0.f) { - return 0; + return; } /* L10: */ } @@ -730,7 +730,7 @@ f"> */ *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CPTCON */ diff --git a/lapack-netlib/SRC/cpteqr.c b/lapack-netlib/SRC/cpteqr.c index 9856e544f..b382724e0 100644 --- a/lapack-netlib/SRC/cpteqr.c +++ b/lapack-netlib/SRC/cpteqr.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup complexPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpteqr_(char *compz, integer *n, real *d__, real *e, +/* Subroutine */ void cpteqr_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, real *work, integer *info) { /* System generated locals */ @@ -672,13 +672,14 @@ f"> */ integer i__; extern logical lsame_(char *, char *); complex vt[1] /* was [1][1] */; - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex - *, complex *, complex *, integer *), xerbla_(char *, - integer *, ftnlen), cbdsqr_(char *, integer *, integer *, integer + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex + *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cbdsqr_(char *, integer *, integer *, integer *, integer *, real *, real *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *); integer icompz; - extern /* Subroutine */ int spttrf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void spttrf_(integer *, real *, real *, integer *); integer nru; @@ -723,13 +724,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPTEQR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -737,7 +738,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } if (icompz == 2) { claset_("Full", n, n, &c_b1, &c_b2, &z__[z_offset], ldz); @@ -747,7 +748,7 @@ f"> */ spttrf_(n, &d__[1], &e[1], info); if (*info != 0) { - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -783,7 +784,7 @@ f"> */ *info = *n + *info; } - return 0; + return; /* End of CPTEQR */ diff --git a/lapack-netlib/SRC/cptrfs.c b/lapack-netlib/SRC/cptrfs.c index dbab40f70..470465011 100644 --- a/lapack-netlib/SRC/cptrfs.c +++ b/lapack-netlib/SRC/cptrfs.c @@ -696,7 +696,7 @@ f"> */ /* > \ingroup complexPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__, +/* Subroutine */ void cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__, complex *e, real *df, complex *ef, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -713,7 +713,7 @@ f"> */ integer i__, j; real s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; logical upper; @@ -725,7 +725,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); real lstres; - extern /* Subroutine */ int cpttrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void cpttrs_(char *, integer *, integer *, real *, complex *, complex *, integer *, integer *); real eps; @@ -774,7 +774,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPTRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -786,7 +786,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1143,7 +1143,7 @@ L20: /* L100: */ } - return 0; + return; /* End of CPTRFS */ diff --git a/lapack-netlib/SRC/cptsv.c b/lapack-netlib/SRC/cptsv.c index f018d7553..b2e3edbff 100644 --- a/lapack-netlib/SRC/cptsv.c +++ b/lapack-netlib/SRC/cptsv.c @@ -624,14 +624,15 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexPTsolve */ /* ===================================================================== */ -/* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, complex *e, +/* Subroutine */ void cptsv_(integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb, integer *info) { /* System generated locals */ integer b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cpttrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cpttrf_( integer *, real *, complex *, integer *), cpttrs_(char *, integer *, integer *, real *, complex *, complex *, integer *, integer *); @@ -666,7 +667,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CPTSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the L*D*L**H (or U**H*D*U) factorization of A. */ @@ -678,7 +679,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ cpttrs_("Lower", n, nrhs, &d__[1], &e[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of CPTSV */ diff --git a/lapack-netlib/SRC/cptsvx.c b/lapack-netlib/SRC/cptsvx.c index c0e96951e..7c0c26251 100644 --- a/lapack-netlib/SRC/cptsvx.c +++ b/lapack-netlib/SRC/cptsvx.c @@ -746,7 +746,7 @@ f"> */ /* > \ingroup complexPTsolve */ /* ===================================================================== */ -/* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__, +/* Subroutine */ void cptsvx_(char *fact, integer *n, integer *nrhs, real *d__, complex *e, real *df, complex *ef, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -757,15 +757,16 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), scopy_(integer *, real *, integer *, real * , integer *); extern real slamch_(char *), clanht_(char *, integer *, real *, complex *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen), cptcon_(integer *, real *, complex *, real *, + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void cptcon_(integer *, real *, complex *, real *, real *, real *, integer *), cptrfs_(char *, integer *, integer *, real *, complex *, real *, complex *, complex *, integer *, complex *, integer *, real *, real *, complex *, real *, integer * @@ -818,7 +819,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPTSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -836,7 +837,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -866,7 +867,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of CPTSVX */ diff --git a/lapack-netlib/SRC/cpttrf.c b/lapack-netlib/SRC/cpttrf.c index 592ceb877..d071efc18 100644 --- a/lapack-netlib/SRC/cpttrf.c +++ b/lapack-netlib/SRC/cpttrf.c @@ -601,7 +601,7 @@ f"> */ /* > \ingroup complexPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpttrf_(integer *n, real *d__, complex *e, integer *info) +/* Subroutine */ void cpttrf_(integer *n, real *d__, complex *e, integer *info) { /* System generated locals */ integer i__1, i__2; @@ -635,13 +635,13 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("CPTTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Compute the L*D*L**H (or U**H *D*U) factorization of A. */ @@ -748,7 +748,7 @@ f"> */ } L20: - return 0; + return; /* End of CPTTRF */ diff --git a/lapack-netlib/SRC/cpttrs.c b/lapack-netlib/SRC/cpttrs.c index abe967d69..803ed3261 100644 --- a/lapack-netlib/SRC/cpttrs.c +++ b/lapack-netlib/SRC/cpttrs.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup complexPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, +/* Subroutine */ void cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -645,7 +645,7 @@ f"> */ integer j, iuplo; logical upper; integer jb; - extern /* Subroutine */ int cptts2_(integer *, integer *, integer *, real + extern /* Subroutine */ void cptts2_(integer *, integer *, integer *, real *, complex *, complex *, integer *); integer nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -687,13 +687,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CPTTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Determine the number of right-hand sides to solve at a time. */ @@ -729,7 +729,7 @@ f"> */ } } - return 0; + return; /* End of CPTTRS */ diff --git a/lapack-netlib/SRC/cptts2.c b/lapack-netlib/SRC/cptts2.c index ed66ca211..d6f5c0aff 100644 --- a/lapack-netlib/SRC/cptts2.c +++ b/lapack-netlib/SRC/cptts2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complexPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real * +/* Subroutine */ void cptts2_(integer *iuplo, integer *n, integer *nrhs, real * d__, complex *e, complex *b, integer *ldb) { /* System generated locals */ @@ -633,7 +633,7 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); @@ -661,7 +661,7 @@ f"> */ r__1 = 1.f / d__[1]; csscal_(nrhs, &r__1, &b[b_offset], ldb); } - return 0; + return; } if (*iuplo == 1) { @@ -860,7 +860,7 @@ L65: } } - return 0; + return; /* End of CPTTS2 */ diff --git a/lapack-netlib/SRC/crot.c b/lapack-netlib/SRC/crot.c index 93782ce8f..eed83d90a 100644 --- a/lapack-netlib/SRC/crot.c +++ b/lapack-netlib/SRC/crot.c @@ -613,7 +613,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int crot_(integer *n, complex *cx, integer *incx, complex * +/* Subroutine */ void crot_(integer *n, complex *cx, integer *incx, complex * cy, integer *incy, real *c__, complex *s) { /* System generated locals */ @@ -641,7 +641,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Function Body */ if (*n <= 0) { - return 0; + return; } if (*incx == 1 && *incy == 1) { goto L20; @@ -681,7 +681,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ iy += *incy; /* L10: */ } - return 0; + return; /* Code for both increments equal to 1 */ @@ -708,6 +708,6 @@ L20: cx[i__2].r = stemp.r, cx[i__2].i = stemp.i; /* L30: */ } - return 0; + return; } /* crot_ */ diff --git a/lapack-netlib/SRC/cspcon.c b/lapack-netlib/SRC/cspcon.c index 0c4dfcada..c03725281 100644 --- a/lapack-netlib/SRC/cspcon.c +++ b/lapack-netlib/SRC/cspcon.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cspcon_(char *uplo, integer *n, complex *ap, integer * +/* Subroutine */ void cspcon_(char *uplo, integer *n, complex *ap, integer * ipiv, real *anorm, real *rcond, complex *work, integer *info) { /* System generated locals */ @@ -642,12 +642,12 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int csptrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csptrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -680,7 +680,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -688,9 +688,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -703,7 +703,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = ip; if (ipiv[i__] > 0 && (ap[i__1].r == 0.f && ap[i__1].i == 0.f)) { - return 0; + return; } ip -= i__; /* L10: */ @@ -717,7 +717,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = ip; if (ipiv[i__] > 0 && (ap[i__2].r == 0.f && ap[i__2].i == 0.f)) { - return 0; + return; } ip = ip + *n - i__ + 1; /* L20: */ @@ -743,7 +743,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CSPCON */ diff --git a/lapack-netlib/SRC/cspmv.c b/lapack-netlib/SRC/cspmv.c index 743ab8a20..03622bcfc 100644 --- a/lapack-netlib/SRC/cspmv.c +++ b/lapack-netlib/SRC/cspmv.c @@ -661,7 +661,7 @@ rix */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int cspmv_(char *uplo, integer *n, complex *alpha, complex * +/* Subroutine */ void cspmv_(char *uplo, integer *n, complex *alpha, complex * ap, complex *x, integer *incx, complex *beta, complex *y, integer * incy) { @@ -707,14 +707,14 @@ rix */ } if (info != 0) { xerbla_("CSPMV ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f && beta->i == 0.f)) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -782,7 +782,7 @@ rix */ } } if (alpha->r == 0.f && alpha->i == 0.f) { - return 0; + return; } kk = 1; if (lsame_(uplo, "U")) { @@ -983,7 +983,7 @@ rix */ } } - return 0; + return; /* End of CSPMV */ diff --git a/lapack-netlib/SRC/cspr.c b/lapack-netlib/SRC/cspr.c index 4735cb91f..2ea2b048e 100644 --- a/lapack-netlib/SRC/cspr.c +++ b/lapack-netlib/SRC/cspr.c @@ -641,7 +641,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int cspr_(char *uplo, integer *n, complex *alpha, complex *x, +/* Subroutine */ void cspr_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *ap) { /* System generated locals */ @@ -683,13 +683,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("CSPR ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f) { - return 0; + return; } /* Set the start point in X if the increment is not unity. */ @@ -884,7 +884,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of CSPR */ diff --git a/lapack-netlib/SRC/csprfs.c b/lapack-netlib/SRC/csprfs.c index 14708f80c..9b7979c89 100644 --- a/lapack-netlib/SRC/csprfs.c +++ b/lapack-netlib/SRC/csprfs.c @@ -693,7 +693,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void csprfs_(char *uplo, integer *n, integer *nrhs, complex * ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -710,14 +710,14 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; - extern /* Subroutine */ int cspmv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void cspmv_(char *, integer *, complex *, complex * , complex *, integer *, complex *, complex *, integer *); logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); integer ik, kk; real xk; @@ -726,7 +726,7 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real lstres; - extern /* Subroutine */ int csptrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csptrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); real eps; @@ -774,7 +774,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -786,7 +786,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1026,7 +1026,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CSPRFS */ diff --git a/lapack-netlib/SRC/cspsv.c b/lapack-netlib/SRC/cspsv.c index 6b552b24c..84fe88f4e 100644 --- a/lapack-netlib/SRC/cspsv.c +++ b/lapack-netlib/SRC/cspsv.c @@ -671,7 +671,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void cspsv_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -679,7 +679,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), csptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void csptrf_( char *, integer *, complex *, integer *, integer *), csptrs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -717,7 +718,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CSPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -730,7 +731,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ csptrs_(uplo, n, nrhs, &ap[1], &ipiv[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of CSPSV */ diff --git a/lapack-netlib/SRC/cspsvx.c b/lapack-netlib/SRC/cspsvx.c index 5e78be9fb..3caff1f52 100644 --- a/lapack-netlib/SRC/cspsvx.c +++ b/lapack-netlib/SRC/cspsvx.c @@ -789,7 +789,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void cspsvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer * ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -800,15 +800,15 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern real clansp_(char *, char *, integer *, complex *, real *); - extern /* Subroutine */ int cspcon_(char *, integer *, complex *, integer + extern /* Subroutine */ void cspcon_(char *, integer *, complex *, integer *, real *, real *, complex *, integer *), csprfs_(char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, real * @@ -863,7 +863,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -878,7 +878,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -907,7 +907,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of CSPSVX */ diff --git a/lapack-netlib/SRC/csptrf.c b/lapack-netlib/SRC/csptrf.c index f98b9b06b..9c5b85374 100644 --- a/lapack-netlib/SRC/csptrf.c +++ b/lapack-netlib/SRC/csptrf.c @@ -672,7 +672,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int csptrf_(char *uplo, integer *n, complex *ap, integer * +/* Subroutine */ void csptrf_(char *uplo, integer *n, complex *ap, integer * ipiv, integer *info) { /* System generated locals */ @@ -682,15 +682,15 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int cspr_(char *, integer *, complex *, complex *, + extern /* Subroutine */ void cspr_(char *, integer *, complex *, complex *, integer *, complex *); integer i__, j, k; complex t; real alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; logical upper; @@ -732,7 +732,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1294,7 +1294,7 @@ L60: } L110: - return 0; + return; /* End of CSPTRF */ diff --git a/lapack-netlib/SRC/csptri.c b/lapack-netlib/SRC/csptri.c index 1f9e86d56..610ef8966 100644 --- a/lapack-netlib/SRC/csptri.c +++ b/lapack-netlib/SRC/csptri.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int csptri_(char *uplo, integer *n, complex *ap, integer * +/* Subroutine */ void csptri_(char *uplo, integer *n, complex *ap, integer * ipiv, complex *work, integer *info) { /* System generated locals */ @@ -636,14 +636,14 @@ f"> */ integer j, k; complex t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); extern /* Complex */ VOID cdotu_(complex *, integer *, complex *, integer *, complex *, integer *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; - extern /* Subroutine */ int cspmv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void cspmv_(char *, integer *, complex *, complex * , complex *, integer *, complex *, complex *, integer *); logical upper; complex ak; @@ -680,13 +680,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -699,7 +699,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = kp; if (ipiv[*info] > 0 && (ap[i__1].r == 0.f && ap[i__1].i == 0.f)) { - return 0; + return; } kp -= *info; /* L10: */ @@ -713,7 +713,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = kp; if (ipiv[*info] > 0 && (ap[i__2].r == 0.f && ap[i__2].i == 0.f)) { - return 0; + return; } kp = kp + *n - *info + 1; /* L20: */ @@ -1047,7 +1047,7 @@ L80: ; } - return 0; + return; /* End of CSPTRI */ diff --git a/lapack-netlib/SRC/csptrs.c b/lapack-netlib/SRC/csptrs.c index 7088e4d0d..0e1e7ffb5 100644 --- a/lapack-netlib/SRC/csptrs.c +++ b/lapack-netlib/SRC/csptrs.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void csptrs_(char *uplo, integer *n, integer *nrhs, complex * ap, integer *ipiv, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -639,11 +639,11 @@ f"> */ /* Local variables */ complex akm1k; integer j, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); complex denom; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), @@ -686,13 +686,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1047,7 +1047,7 @@ L100: ; } - return 0; + return; /* End of CSPTRS */ diff --git a/lapack-netlib/SRC/csrscl.c b/lapack-netlib/SRC/csrscl.c index cb786ac5d..d7d08c345 100644 --- a/lapack-netlib/SRC/csrscl.c +++ b/lapack-netlib/SRC/csrscl.c @@ -593,14 +593,14 @@ f"> */ /* > \ingroup complexOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int csrscl_(integer *n, real *sa, complex *sx, integer *incx) +/* Subroutine */ void csrscl_(integer *n, real *sa, complex *sx, integer *incx) { real cden; logical done; real cnum, cden1, cnum1; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real bignum, smlnum, mul; @@ -621,7 +621,7 @@ f"> */ /* Function Body */ if (*n <= 0) { - return 0; + return; } /* Get machine parameters */ @@ -668,7 +668,7 @@ L10: goto L10; } - return 0; + return; /* End of CSRSCL */ diff --git a/lapack-netlib/SRC/cstedc.c b/lapack-netlib/SRC/cstedc.c index 8f047d1ce..1d60e6a97 100644 --- a/lapack-netlib/SRC/cstedc.c +++ b/lapack-netlib/SRC/cstedc.c @@ -729,7 +729,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e, +/* Subroutine */ void cstedc_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, complex *work, integer *lwork, real * rwork, integer *lrwork, integer *iwork, integer *liwork, integer * info) @@ -743,36 +743,36 @@ f"> */ integer i__, j, k, m; real p; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer lwmin; - extern /* Subroutine */ int claed0_(integer *, integer *, real *, real *, + extern /* Subroutine */ void claed0_(integer *, integer *, real *, real *, complex *, integer *, complex *, integer *, real *, integer *, integer *); integer start, ii, ll; - extern /* Subroutine */ int clacrm_(integer *, integer *, complex *, + extern /* Subroutine */ void clacrm_(integer *, integer *, complex *, integer *, real *, integer *, complex *, integer *, real *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer finish; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sstedc_(char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); integer liwmin, icompz; - extern /* Subroutine */ int csteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void csteqr_(char *, integer *, real *, real *, complex *, integer *, real *, integer *); real orgnrm; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer lrwmin; logical lquery; integer smlsiz; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); integer lgn; real eps; @@ -870,22 +870,22 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSTEDC", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (icompz != 0) { i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* If the following conditional clause is removed, then the routine */ @@ -1050,7 +1050,7 @@ L70: rwork[1] = (real) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of CSTEDC */ diff --git a/lapack-netlib/SRC/cstegr.c b/lapack-netlib/SRC/cstegr.c index e8ed6ed3d..836534ef6 100644 --- a/lapack-netlib/SRC/cstegr.c +++ b/lapack-netlib/SRC/cstegr.c @@ -772,7 +772,7 @@ f"> */ /* > Christof Voemel, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int cstegr_(char *jobz, char *range, integer *n, real *d__, +/* Subroutine */ void cstegr_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, integer *isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, integer * @@ -782,7 +782,7 @@ f"> */ integer z_dim1, z_offset; /* Local variables */ - extern /* Subroutine */ int cstemr_(char *, char *, integer *, real *, + extern /* Subroutine */ void cstemr_(char *, char *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, complex *, integer *, integer *, integer *, logical *, real *, integer *, integer *, integer *, integer *); @@ -817,6 +817,6 @@ f"> */ /* End of CSTEGR */ - return 0; + return; } /* cstegr_ */ diff --git a/lapack-netlib/SRC/cstein.c b/lapack-netlib/SRC/cstein.c index 4ac90325c..335dbaa48 100644 --- a/lapack-netlib/SRC/cstein.c +++ b/lapack-netlib/SRC/cstein.c @@ -696,7 +696,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real +/* Subroutine */ void cstein_(integer *n, real *d__, real *e, integer *m, real *w, integer *iblock, integer *isplit, complex *z__, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info) { @@ -709,24 +709,25 @@ f"> */ integer jblk, nblk, jmax; extern real snrm2_(integer *, real *, integer *); integer i__, j, iseed[4], gpind, iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer b1, j1; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real ortol; integer indrv1, indrv2, indrv3, indrv4, indrv5, bn, jr; real xj; extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slagtf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slagtf_( integer *, real *, real *, real *, real *, real *, real *, integer *, integer *); integer nrmchk; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slagts_(integer *, integer *, real *, real *, + extern /* Subroutine */ void slagts_(integer *, integer *, real *, real *, real *, real *, integer *, real *, real *, integer *); integer blksiz; real onenrm, pertol; - extern /* Subroutine */ int slarnv_(integer *, integer *, integer *, real + extern /* Subroutine */ void slarnv_(integer *, integer *, integer *, real *); real stpcrt, scl, eps, ctr, sep, nrm, tol; integer its; @@ -791,17 +792,17 @@ L30: if (*info != 0) { i__1 = -(*info); xerbla_("CSTEIN", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } else if (*n == 1) { i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; - return 0; + return; } /* Get machine constants. */ @@ -1029,7 +1030,7 @@ L180: ; } - return 0; + return; /* End of CSTEIN */ diff --git a/lapack-netlib/SRC/cstemr.c b/lapack-netlib/SRC/cstemr.c index 0f621bcc1..ede8ea27e 100644 --- a/lapack-netlib/SRC/cstemr.c +++ b/lapack-netlib/SRC/cstemr.c @@ -850,7 +850,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int cstemr_(char *jobz, char *range, integer *n, real *d__, +/* Subroutine */ void cstemr_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, integer *m, real *w, complex *z__, integer *ldz, integer *nzc, integer *isuppz, logical *tryrac, real *work, integer *lwork, integer *iwork, integer * @@ -866,7 +866,7 @@ f"> */ integer itmp; real tnrm; integer inde2; - extern /* Subroutine */ int slae2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slae2_(real *, real *, real *, real *, real *) ; integer itmp2; real rtol1, rtol2; @@ -875,16 +875,16 @@ f"> */ integer indgp; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer iindw, ilast; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer lwmin; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantz; real r1, r2; - extern /* Subroutine */ int slaev2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slaev2_(real *, real *, real *, real *, real * , real *, real *); integer jj; real cs; @@ -899,7 +899,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer inderr, iindwk, indgrs, offset; - extern /* Subroutine */ int slarrc_(char *, integer *, real *, real *, + extern /* Subroutine */ void slarrc_(char *, integer *, real *, real *, real *, real *, real *, integer *, integer *, integer *, integer * ), clarrv_(integer *, real *, real *, real *, real *, real *, integer *, integer *, integer *, integer *, real *, real * @@ -912,13 +912,13 @@ f"> */ integer iinspl, indwrk, ifirst, liwmin, nzcmin; real pivmin, thresh; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int slarrj_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarrj_(integer *, real *, real *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int slarrr_(integer *, real *, real *, integer *); + extern /* Subroutine */ void slarrr_(integer *, real *, real *, integer *); real smlnum; - extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); + extern /* Subroutine */ void slasrt_(char *, integer *, real *, integer *); logical lquery, zquery; integer iil, iiu; real eps, tmp; @@ -1041,16 +1041,16 @@ f"> */ i__1 = -(*info); xerbla_("CSTEMR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery || zquery) { - return 0; + return; } /* Handle N = 0, 1, and 2 cases immediately */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1069,7 +1069,7 @@ f"> */ isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } if (*n == 2) { @@ -1224,7 +1224,7 @@ f"> */ work[indgrs], &pivmin, &work[indwrk], &iwork[iindwk], &iinfo); if (iinfo != 0) { *info = abs(iinfo) + 10; - return 0; + return; } /* Note that if RANGE .NE. 'V', SLARRE computes bounds on the desired */ /* part of the spectrum. All desired eigenvalues are contained in */ @@ -1241,7 +1241,7 @@ f"> */ iindwk], &iinfo); if (iinfo != 0) { *info = abs(iinfo) + 20; - return 0; + return; } } else { /* SLARRE computes eigenvalues of the (shifted) root representation */ @@ -1310,7 +1310,7 @@ L39: slasrt_("I", m, &w[1], &iinfo); if (iinfo != 0) { *info = 3; - return 0; + return; } } else { i__1 = *m - 1; @@ -1347,7 +1347,7 @@ L39: work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of CSTEMR */ diff --git a/lapack-netlib/SRC/csteqr.c b/lapack-netlib/SRC/csteqr.c index 77139c023..c85a56dd5 100644 --- a/lapack-netlib/SRC/csteqr.c +++ b/lapack-netlib/SRC/csteqr.c @@ -650,7 +650,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e, +/* Subroutine */ void csteqr_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, real *work, integer *info) { /* System generated locals */ @@ -659,38 +659,38 @@ f"> */ /* Local variables */ integer lend, jtot; - extern /* Subroutine */ int slae2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slae2_(real *, real *, real *, real *, real *) ; real b, c__, f, g; integer i__, j, k, l, m; real p, r__, s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int clasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void clasr_(char *, char *, char *, integer *, integer *, real *, real *, complex *, integer *); real anorm; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer l1, lendm1, lendp1; - extern /* Subroutine */ int slaev2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slaev2_(real *, real *, real *, real *, real * , real *, real *); extern real slapy2_(real *, real *); integer ii, mm, iscale; extern real slamch_(char *); - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *); real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real safmax; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer lendsv; - extern /* Subroutine */ int slartg_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slartg_(real *, real *, real *, real *, real * ); real ssfmin; integer nmaxit, icompz; real ssfmax; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); + extern /* Subroutine */ void slasrt_(char *, integer *, real *, integer *); integer lm1, mm1, nm1; real rt1, rt2, eps; integer lsv; @@ -738,13 +738,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSTEQR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -752,7 +752,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1.f, z__[i__1].i = 0.f; } - return 0; + return; } /* Determine the unit roundoff and over/underflow thresholds. */ @@ -1125,7 +1125,7 @@ L140: } /* L150: */ } - return 0; + return; } goto L10; @@ -1164,7 +1164,7 @@ L160: /* L180: */ } } - return 0; + return; /* End of CSTEQR */ diff --git a/lapack-netlib/SRC/csycon.c b/lapack-netlib/SRC/csycon.c index 0d704e617..4f606a5fe 100644 --- a/lapack-netlib/SRC/csycon.c +++ b/lapack-netlib/SRC/csycon.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csycon_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void csycon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer * info) { @@ -649,10 +649,11 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int csytrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csytrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -689,7 +690,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -697,9 +698,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -711,7 +712,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } /* L10: */ } @@ -723,7 +724,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } /* L20: */ } @@ -749,7 +750,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CSYCON */ diff --git a/lapack-netlib/SRC/csycon_3.c b/lapack-netlib/SRC/csycon_3.c index ad0789c2d..2bb7f3032 100644 --- a/lapack-netlib/SRC/csycon_3.c +++ b/lapack-netlib/SRC/csycon_3.c @@ -678,7 +678,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csycon_3_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csycon_3_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, real *anorm, real *rcond, complex * work, integer *info) { @@ -687,15 +687,16 @@ static integer c__1 = 1; /* Local variables */ integer kase; - extern /* Subroutine */ int csytrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void csytrs_3_(char *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; @@ -733,7 +734,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CSYCON_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ @@ -741,9 +742,9 @@ static integer c__1 = 1; *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -755,7 +756,7 @@ static integer c__1 = 1; for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } } } else { @@ -766,7 +767,7 @@ static integer c__1 = 1; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } } } @@ -791,7 +792,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CSYCON_3 */ diff --git a/lapack-netlib/SRC/csycon_rook.c b/lapack-netlib/SRC/csycon_rook.c index 93a1dbeed..ac0fb0105 100644 --- a/lapack-netlib/SRC/csycon_rook.c +++ b/lapack-netlib/SRC/csycon_rook.c @@ -651,7 +651,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csycon_rook_(char *uplo, integer *n, complex *a, +/* Subroutine */ void csycon_rook_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info) { @@ -659,14 +659,15 @@ rook.f"> */ integer a_dim1, a_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int csytrs_rook_(char *, integer *, integer *, + extern /* Subroutine */ void csytrs_rook_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); integer kase, i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; @@ -703,7 +704,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYCON_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ @@ -711,9 +712,9 @@ rook.f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -725,7 +726,7 @@ rook.f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } /* L10: */ } @@ -737,7 +738,7 @@ rook.f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } /* L20: */ } @@ -763,7 +764,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of CSYCON_ROOK */ diff --git a/lapack-netlib/SRC/csyconv.c b/lapack-netlib/SRC/csyconv.c index 55bdc5953..f1f7c1c41 100644 --- a/lapack-netlib/SRC/csyconv.c +++ b/lapack-netlib/SRC/csyconv.c @@ -623,7 +623,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csyconv_(char *uplo, char *way, integer *n, complex *a, +/* Subroutine */ void csyconv_(char *uplo, char *way, integer *n, complex *a, integer *lda, integer *ipiv, complex *e, integer *info) { /* System generated locals */ @@ -672,13 +672,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CSYCONV", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -927,7 +927,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } } - return 0; + return; /* End of CSYCONV */ diff --git a/lapack-netlib/SRC/csyconvf.c b/lapack-netlib/SRC/csyconvf.c index 00e40d0d8..edb900d16 100644 --- a/lapack-netlib/SRC/csyconvf.c +++ b/lapack-netlib/SRC/csyconvf.c @@ -718,7 +718,7 @@ f.f"> */ /* > */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csyconvf_(char *uplo, char *way, integer *n, complex *a, +/* Subroutine */ void csyconvf_(char *uplo, char *way, integer *n, complex *a, integer *lda, complex *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -727,7 +727,7 @@ f.f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical upper; integer ip; @@ -768,13 +768,13 @@ f.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYCONVF", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -1090,7 +1090,7 @@ f.f"> */ /* End A is LOWER */ } - return 0; + return; /* End of CSYCONVF */ diff --git a/lapack-netlib/SRC/csyconvf_rook.c b/lapack-netlib/SRC/csyconvf_rook.c index 77baad3b6..d453eda3e 100644 --- a/lapack-netlib/SRC/csyconvf_rook.c +++ b/lapack-netlib/SRC/csyconvf_rook.c @@ -709,7 +709,7 @@ f_rook.f"> */ /* > */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csyconvf_rook_(char *uplo, char *way, integer *n, +/* Subroutine */ void csyconvf_rook_(char *uplo, char *way, integer *n, complex *a, integer *lda, complex *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -718,7 +718,7 @@ f_rook.f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical upper; integer ip; @@ -760,13 +760,13 @@ f_rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYCONVF_ROOK", &i__1, (ftnlen)13); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -1080,7 +1080,7 @@ f_rook.f"> */ /* End A is LOWER */ } - return 0; + return; /* End of CSYCONVF_ROOK */ diff --git a/lapack-netlib/SRC/csyequb.c b/lapack-netlib/SRC/csyequb.c index 492191f0e..223619d29 100644 --- a/lapack-netlib/SRC/csyequb.c +++ b/lapack-netlib/SRC/csyequb.c @@ -645,7 +645,7 @@ static integer c__1 = 1; /* > Tech report version: http://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.3.1679 */ /* > */ /* ===================================================================== */ -/* Subroutine */ int csyequb_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csyequb_(char *uplo, integer *n, complex *a, integer * lda, real *s, real *scond, real *amax, complex *work, integer *info) { /* System generated locals */ @@ -666,7 +666,7 @@ static integer c__1 = 1; extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); real smlnum, avg, std, tol; @@ -701,7 +701,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CSYEQUB", &i__1, (ftnlen)7); - return 0; + return; } up = lsame_(uplo, "U"); *amax = 0.f; @@ -710,7 +710,7 @@ static integer c__1 = 1; if (*n == 0) { *scond = 1.f; - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -905,7 +905,7 @@ static integer c__1 = 1; d__ = c1 * c1 - c0 * 4 * c2; if (d__ <= 0.f) { *info = -1; - return 0; + return; } si = c0 * -2 / (c1 + sqrt(d__)); d__ = si - s[i__]; @@ -992,6 +992,6 @@ L999: } *scond = f2cmax(smin,smlnum) / f2cmin(smax,bignum); - return 0; + return; } /* csyequb_ */ diff --git a/lapack-netlib/SRC/csymv.c b/lapack-netlib/SRC/csymv.c index 78178cdc2..d07419db5 100644 --- a/lapack-netlib/SRC/csymv.c +++ b/lapack-netlib/SRC/csymv.c @@ -667,7 +667,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int csymv_(char *uplo, integer *n, complex *alpha, complex * +/* Subroutine */ void csymv_(char *uplo, integer *n, complex *alpha, complex * a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy) { @@ -717,14 +717,14 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("CSYMV ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f && beta->i == 0.f)) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -793,7 +793,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } if (alpha->r == 0.f && alpha->i == 0.f) { - return 0; + return; } if (lsame_(uplo, "U")) { @@ -985,7 +985,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of CSYMV */ diff --git a/lapack-netlib/SRC/csyr.c b/lapack-netlib/SRC/csyr.c index 8cc35ccfb..e684b2024 100644 --- a/lapack-netlib/SRC/csyr.c +++ b/lapack-netlib/SRC/csyr.c @@ -644,7 +644,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int csyr_(char *uplo, integer *n, complex *alpha, complex *x, +/* Subroutine */ void csyr_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *a, integer *lda) { /* System generated locals */ @@ -690,13 +690,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("CSYR ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || alpha->r == 0.f && alpha->i == 0.f) { - return 0; + return; } /* Set the start point in X if the increment is not unity. */ @@ -835,7 +835,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of CSYR */ diff --git a/lapack-netlib/SRC/csyrfs.c b/lapack-netlib/SRC/csyrfs.c index f24278074..2bd501fc3 100644 --- a/lapack-netlib/SRC/csyrfs.c +++ b/lapack-netlib/SRC/csyrfs.c @@ -705,7 +705,7 @@ f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void csyrfs_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -723,12 +723,12 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); integer count; logical upper; - extern /* Subroutine */ int csymv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void csymv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ), clacn2_(integer *, complex *, complex *, real *, integer *, integer *); @@ -738,7 +738,7 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real lstres; - extern /* Subroutine */ int csytrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csytrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); real eps; @@ -794,7 +794,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -806,7 +806,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1042,7 +1042,7 @@ L100: /* L140: */ } - return 0; + return; /* End of CSYRFS */ diff --git a/lapack-netlib/SRC/csysv.c b/lapack-netlib/SRC/csysv.c index dcdbbb700..1eecd1711 100644 --- a/lapack-netlib/SRC/csysv.c +++ b/lapack-netlib/SRC/csysv.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \ingroup complexSYsolve */ /* ===================================================================== */ -/* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, complex *a, +/* Subroutine */ void csysv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -692,12 +692,13 @@ static integer c_n1 = -1; /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), csytrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void csytrf_( char *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int csytrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csytrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), csytrs2_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, integer *); @@ -755,9 +756,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CSYSV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -787,7 +788,7 @@ static integer c_n1 = -1; work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYSV */ diff --git a/lapack-netlib/SRC/csysv_aa.c b/lapack-netlib/SRC/csysv_aa.c index 78328b789..065159fd3 100644 --- a/lapack-netlib/SRC/csysv_aa.c +++ b/lapack-netlib/SRC/csysv_aa.c @@ -674,7 +674,7 @@ a.f"> */ /* > \ingroup complexSYsolve */ /* ===================================================================== */ -/* Subroutine */ int csysv_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void csysv_aa_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -684,10 +684,11 @@ a.f"> */ /* Local variables */ extern logical lsame_(char *, char *); integer lwkopt_sytrf__, lwkopt_sytrs__; - extern /* Subroutine */ int csytrf_aa_(char *, integer *, complex *, + extern /* Subroutine */ void csytrf_aa_(char *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), csytrs_aa_(char *, integer *, integer *, complex *, integer *, - integer *, complex *, integer *, complex *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, complex *, integer *, complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -748,9 +749,9 @@ a.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYSV_AA ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U**T*T*U or A = L*T*L**T. */ @@ -767,7 +768,7 @@ a.f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYSV_AA */ diff --git a/lapack-netlib/SRC/csysv_aa_2stage.c b/lapack-netlib/SRC/csysv_aa_2stage.c index 3fef43809..0a6827fd3 100644 --- a/lapack-netlib/SRC/csysv_aa_2stage.c +++ b/lapack-netlib/SRC/csysv_aa_2stage.c @@ -698,7 +698,7 @@ asen_2stage.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csysv_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void csysv_aa_2stage_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *tb, integer *ltb, integer *ipiv, integer *ipiv2, complex *b, integer *ldb, complex *work, integer * lwork, integer *info) @@ -707,7 +707,7 @@ asen_2stage.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int csytrf_aa_2stage_(char *, integer *, complex + extern /* Subroutine */ void csytrf_aa_2stage_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, integer *), csytrs_aa_2stage_(char *, integer *, integer *, complex *, integer *, complex *, integer *, @@ -773,9 +773,9 @@ asen_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYSV_AA_2STAGE", &i__1, (ftnlen)15); - return 0; + return; } else if (wquery || tquery) { - return 0; + return; } @@ -794,7 +794,7 @@ asen_2stage.f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYSV_AA_2STAGE */ diff --git a/lapack-netlib/SRC/csysv_rk.c b/lapack-netlib/SRC/csysv_rk.c index 6b9babdb8..4e731fdf8 100644 --- a/lapack-netlib/SRC/csysv_rk.c +++ b/lapack-netlib/SRC/csysv_rk.c @@ -740,7 +740,7 @@ k.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csysv_rk_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void csysv_rk_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *e, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -748,12 +748,13 @@ k.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int csytrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void csytrs_3_(char *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int csytrf_rk_(char *, integer *, complex *, - integer *, complex *, integer *, complex *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csytrf_rk_(char *, integer *, complex *, + integer *, complex *, integer *, complex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -811,9 +812,9 @@ k.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYSV_RK ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -832,7 +833,7 @@ k.f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYSV_RK */ diff --git a/lapack-netlib/SRC/csysv_rook.c b/lapack-netlib/SRC/csysv_rook.c index e1411fa6a..a55218a8a 100644 --- a/lapack-netlib/SRC/csysv_rook.c +++ b/lapack-netlib/SRC/csysv_rook.c @@ -717,7 +717,7 @@ ook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csysv_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void csysv_rook_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -725,7 +725,7 @@ ook.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int csytrf_rook_(char *, integer *, complex *, + extern /* Subroutine */ void csytrf_rook_(char *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), csytrs_rook_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -787,9 +787,9 @@ ook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYSV_ROOK ", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -808,7 +808,7 @@ ook.f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYSV_ROOK */ diff --git a/lapack-netlib/SRC/csysvx.c b/lapack-netlib/SRC/csysvx.c index deca3f592..42146a032 100644 --- a/lapack-netlib/SRC/csysvx.c +++ b/lapack-netlib/SRC/csysvx.c @@ -797,7 +797,7 @@ f"> */ /* > \ingroup complexSYsolve */ /* ===================================================================== */ -/* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void csysvx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, integer *lwork, real *rwork, @@ -813,14 +813,14 @@ f"> */ integer nb; extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern real clansy_(char *, char *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int csycon_(char *, integer *, complex *, integer + extern /* Subroutine */ void csycon_(char *, integer *, complex *, integer *, integer *, real *, real *, complex *, integer *), csyrfs_(char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, complex *, integer *, complex *, @@ -829,7 +829,7 @@ f"> */ complex *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int csytrs_(char *, integer *, integer *, complex + extern /* Subroutine */ void csytrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -909,9 +909,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYSVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } if (nofact) { @@ -926,7 +926,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -960,7 +960,7 @@ f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYSVX */ diff --git a/lapack-netlib/SRC/csysvxx.c b/lapack-netlib/SRC/csysvxx.c index 4027ed971..5c0269d28 100644 --- a/lapack-netlib/SRC/csysvxx.c +++ b/lapack-netlib/SRC/csysvxx.c @@ -1015,7 +1015,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexSYsolve */ /* ===================================================================== */ -/* Subroutine */ int csysvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void csysvxx_(char *fact, char *uplo, integer *n, integer * nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * @@ -1038,17 +1038,17 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical equil, rcequ; extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; - extern /* Subroutine */ int claqsy_(char *, integer *, complex *, integer + extern /* Subroutine */ void claqsy_(char *, integer *, complex *, integer *, real *, real *, real *, char *), csytrf_(char * , integer *, complex *, integer *, integer *, complex *, integer * , integer *); real smlnum; - extern /* Subroutine */ int clascl2_(integer *, integer *, real *, + extern /* Subroutine */ void clascl2_(integer *, integer *, real *, complex *, integer *), csytrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *), csyequb_(char *, integer *, complex *, integer *, real *, real *, real *, complex *, integer *), csyrfsx_(char *, @@ -1164,7 +1164,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CSYSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1209,7 +1209,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = cla_syrpvgrw_(uplo, n, info, &a[a_offset], lda, & af[af_offset], ldaf, &ipiv[1], &rwork[1]); } - return 0; + return; } } @@ -1241,7 +1241,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ clascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of CSYSVXX */ diff --git a/lapack-netlib/SRC/csyswapr.c b/lapack-netlib/SRC/csyswapr.c index 4a56c9ee5..69774cbc0 100644 --- a/lapack-netlib/SRC/csyswapr.c +++ b/lapack-netlib/SRC/csyswapr.c @@ -616,7 +616,7 @@ r.f"> */ /* > \ingroup complexSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int csyswapr_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csyswapr_(char *uplo, integer *n, complex *a, integer * lda, integer *i1, integer *i2) { /* System generated locals */ @@ -625,7 +625,7 @@ r.f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical upper; complex tmp; @@ -736,6 +736,6 @@ r.f"> */ } } - return 0; + return; } /* csyswapr_ */ diff --git a/lapack-netlib/SRC/csytf2.c b/lapack-netlib/SRC/csytf2.c index fc452299c..eb6eeb4d0 100644 --- a/lapack-netlib/SRC/csytf2.c +++ b/lapack-netlib/SRC/csytf2.c @@ -706,7 +706,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytf2_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void csytf2_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -716,15 +716,15 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int csyr_(char *, integer *, complex *, complex *, + extern /* Subroutine */ void csyr_(char *, integer *, complex *, complex *, integer *, complex *, integer *); integer i__, j, k; complex t; real alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; logical upper; @@ -770,7 +770,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1285,7 +1285,7 @@ L40: } L70: - return 0; + return; /* End of CSYTF2 */ diff --git a/lapack-netlib/SRC/csytf2_rk.c b/lapack-netlib/SRC/csytf2_rk.c index ff2dc4208..fc5beefa8 100644 --- a/lapack-netlib/SRC/csytf2_rk.c +++ b/lapack-netlib/SRC/csytf2_rk.c @@ -756,7 +756,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytf2_rk_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csytf2_rk_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -767,16 +767,16 @@ rk.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int csyr_(char *, integer *, complex *, complex *, + extern /* Subroutine */ void csyr_(char *, integer *, complex *, complex *, integer *, complex *, integer *); integer i__, j, k, p; complex t; real alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); real sfmin; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer itemp, kstep; real stemp; @@ -823,7 +823,7 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTF2_RK", &i__1, (ftnlen)9); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1681,7 +1681,7 @@ L64: ; } - return 0; + return; /* End of CSYTF2_RK */ diff --git a/lapack-netlib/SRC/csytf2_rook.c b/lapack-netlib/SRC/csytf2_rook.c index 92aa52c51..9fab25bb3 100644 --- a/lapack-netlib/SRC/csytf2_rook.c +++ b/lapack-netlib/SRC/csytf2_rook.c @@ -709,7 +709,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytf2_rook_(char *uplo, integer *n, complex *a, +/* Subroutine */ void csytf2_rook_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -720,16 +720,16 @@ rook.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int csyr_(char *, integer *, complex *, complex *, + extern /* Subroutine */ void csyr_(char *, integer *, complex *, complex *, integer *, complex *, integer *); integer i__, j, k, p; complex t; real alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); real sfmin; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer itemp, kstep; real stemp; @@ -775,7 +775,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTF2_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1524,7 +1524,7 @@ L42: L70: - return 0; + return; /* End of CSYTF2_ROOK */ diff --git a/lapack-netlib/SRC/csytrf.c b/lapack-netlib/SRC/csytrf.c index 9a3276164..56aef71da 100644 --- a/lapack-netlib/SRC/csytrf.c +++ b/lapack-netlib/SRC/csytrf.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int csytrf_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void csytrf_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -708,13 +708,13 @@ f"> */ extern logical lsame_(char *, char *); integer nbmin, iinfo; logical upper; - extern /* Subroutine */ int csytf2_(char *, integer *, complex *, integer + extern /* Subroutine */ void csytf2_(char *, integer *, complex *, integer *, integer *, integer *); integer kb, nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int clasyf_(char *, integer *, integer *, integer + extern /* Subroutine */ void clasyf_(char *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); integer ldwork, lwkopt; @@ -767,9 +767,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -896,7 +896,7 @@ L20: L40: work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYTRF */ diff --git a/lapack-netlib/SRC/csytrf_aa.c b/lapack-netlib/SRC/csytrf_aa.c index 75c8e85bd..986295a52 100644 --- a/lapack-netlib/SRC/csytrf_aa.c +++ b/lapack-netlib/SRC/csytrf_aa.c @@ -648,7 +648,7 @@ aa.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytrf_aa_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csytrf_aa_(char *uplo, integer *n, complex *a, integer * lda, integer *ipiv, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -657,12 +657,12 @@ aa.f"> */ /* Local variables */ integer j; complex alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int clasyf_aa_(char *, integer *, integer *, + extern /* Subroutine */ void clasyf_aa_(char *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, complex *), cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * @@ -728,19 +728,19 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRF_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } ipiv[1] = 1; if (*n == 1) { - return 0; + return; } /* Adjust block size based on the workspace size */ @@ -1034,7 +1034,7 @@ L11: } L20: - return 0; + return; /* End of CSYTRF_AA */ diff --git a/lapack-netlib/SRC/csytrf_aa_2stage.c b/lapack-netlib/SRC/csytrf_aa_2stage.c index b3539e9fa..52f595dba 100644 --- a/lapack-netlib/SRC/csytrf_aa_2stage.c +++ b/lapack-netlib/SRC/csytrf_aa_2stage.c @@ -675,7 +675,7 @@ aa_2stage.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytrf_aa_2stage_(char *uplo, integer *n, complex *a, +/* Subroutine */ void csytrf_aa_2stage_(char *uplo, integer *n, complex *a, integer *lda, complex *tb, integer *ltb, integer *ipiv, integer * ipiv2, complex *work, integer *lwork, integer *info) { @@ -685,12 +685,12 @@ aa_2stage.f"> */ /* Local variables */ integer ldtb, i__, j, k; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), cswap_(integer *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, @@ -698,13 +698,14 @@ aa_2stage.f"> */ integer i1; logical upper; integer i2, jb, kb, nb, td, nt; - extern /* Subroutine */ int cgbtrf_(integer *, integer *, integer *, - integer *, complex *, integer *, integer *, integer *), cgetrf_( - integer *, integer *, complex *, integer *, integer *, integer *), - clacpy_(char *, integer *, integer *, complex *, integer *, + extern /* Subroutine */ void cgbtrf_(integer *, integer *, integer *, + integer *, complex *, integer *, integer *, integer *); + extern int cgetrf_( + integer *, integer *, complex *, integer *, integer *, integer *); + extern void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer - *, complex *, complex *, complex *, integer *), xerbla_( - char *, integer *, ftnlen); + *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical tquery, wquery; @@ -752,7 +753,7 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRF_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Answer the query */ @@ -770,13 +771,13 @@ aa_2stage.f"> */ } } if (tquery || wquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } /* Determine the number of the block size */ @@ -1277,7 +1278,7 @@ aa_2stage.f"> */ /* Factor the band matrix */ cgbtrf_(n, n, &nb, &nb, &tb[1], &ldtb, &ipiv2[1], info); - return 0; + return; /* End of CSYTRF_AA_2STAGE */ diff --git a/lapack-netlib/SRC/csytrf_rk.c b/lapack-netlib/SRC/csytrf_rk.c index 44a7f2d3a..e26e6f8fa 100644 --- a/lapack-netlib/SRC/csytrf_rk.c +++ b/lapack-netlib/SRC/csytrf_rk.c @@ -774,7 +774,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytrf_rk_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csytrf_rk_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, complex *work, integer *lwork, integer *info) { @@ -783,14 +783,14 @@ rk.f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int csytf2_rk_(char *, integer *, complex *, + extern /* Subroutine */ void csytf2_rk_(char *, integer *, complex *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmin, iinfo; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int clasyf_rk_(char *, integer *, integer *, + extern /* Subroutine */ void clasyf_rk_(char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer kb, nb, ip; @@ -848,9 +848,9 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRF_RK", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -1036,7 +1036,7 @@ L35: } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYTRF_RK */ diff --git a/lapack-netlib/SRC/csytrf_rook.c b/lapack-netlib/SRC/csytrf_rook.c index 97d75cc8c..fbff30524 100644 --- a/lapack-netlib/SRC/csytrf_rook.c +++ b/lapack-netlib/SRC/csytrf_rook.c @@ -723,7 +723,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytrf_rook_(char *uplo, integer *n, complex *a, +/* Subroutine */ void csytrf_rook_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer * info) { @@ -742,7 +742,7 @@ rook.f"> */ integer ldwork, lwkopt; logical lquery; integer iws; - extern /* Subroutine */ int csytf2_rook_(char *, integer *, complex *, + extern /* Subroutine */ void csytf2_rook_(char *, integer *, complex *, integer *, integer *, integer *), clasyf_rook_(char *, integer *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); @@ -795,9 +795,9 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRF_ROOK", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -927,7 +927,7 @@ L20: L40: work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYTRF_ROOK */ diff --git a/lapack-netlib/SRC/csytri.c b/lapack-netlib/SRC/csytri.c index 751c1f2b2..f7a9ac3fb 100644 --- a/lapack-netlib/SRC/csytri.c +++ b/lapack-netlib/SRC/csytri.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytri_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void csytri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info) { /* System generated locals */ @@ -641,15 +641,15 @@ f"> */ integer k; complex t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); extern /* Complex */ VOID cdotu_(complex *, integer *, complex *, integer *, complex *, integer *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; logical upper; - extern /* Subroutine */ int csymv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void csymv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ); complex ak; @@ -689,13 +689,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -707,7 +707,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } /* L10: */ } @@ -719,7 +719,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } /* L20: */ } @@ -1032,7 +1032,7 @@ L60: ; } - return 0; + return; /* End of CSYTRI */ diff --git a/lapack-netlib/SRC/csytri2.c b/lapack-netlib/SRC/csytri2.c index eaff83aa1..d20e8fe1c 100644 --- a/lapack-netlib/SRC/csytri2.c +++ b/lapack-netlib/SRC/csytri2.c @@ -641,14 +641,14 @@ static integer c_n1 = -1; /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytri2_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csytri2_(char *uplo, integer *n, complex *a, integer * lda, integer *ipiv, complex *work, integer *lwork, integer *info) { /* System generated locals */ integer a_dim1, a_offset, i__1; /* Local variables */ - extern /* Subroutine */ int csytri2x_(char *, integer *, complex *, + extern /* Subroutine */ void csytri2x_(char *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmax; @@ -656,7 +656,7 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int csytri_(char *, integer *, complex *, integer + extern /* Subroutine */ void csytri_(char *, integer *, complex *, integer *, integer *, complex *, integer *); logical lquery; integer minsize; @@ -709,13 +709,13 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRI2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { work[1].r = (real) minsize, work[1].i = 0.f; - return 0; + return; } if (*n == 0) { - return 0; + return; } if (nbmax >= *n) { csytri_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], info); @@ -723,7 +723,7 @@ static integer c_n1 = -1; csytri2x_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], &nbmax, info); } - return 0; + return; /* End of CSYTRI2 */ diff --git a/lapack-netlib/SRC/csytri2x.c b/lapack-netlib/SRC/csytri2x.c index 1444c3e60..2e0083ccb 100644 --- a/lapack-netlib/SRC/csytri2x.c +++ b/lapack-netlib/SRC/csytri2x.c @@ -634,7 +634,7 @@ x.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytri2x_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csytri2x_(char *uplo, integer *n, complex *a, integer * lda, integer *ipiv, complex *work, integer *nb, integer *info) { /* System generated locals */ @@ -645,17 +645,17 @@ x.f"> */ /* Local variables */ integer invd; complex akkp1; - extern /* Subroutine */ int csyswapr_(char *, integer *, complex *, + extern /* Subroutine */ void csyswapr_(char *, integer *, complex *, integer *, integer *, integer *); complex d__; integer i__, j, k; complex t; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer count; @@ -664,11 +664,12 @@ x.f"> */ integer u11; complex u11_i_j__; integer ip; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ctrtri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int ctrtri_( char *, char *, integer *, complex *, integer *, integer *); integer nnb, cut; complex akp1; - extern /* Subroutine */ int csyconv_(char *, char *, integer *, complex *, + extern /* Subroutine */ void csyconv_(char *, char *, integer *, complex *, integer *, integer *, complex *, integer *); complex u01_ip1_j__, u11_ip1_j__; @@ -710,10 +711,10 @@ x.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRI2X", &i__1, (ftnlen)8); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Convert A */ @@ -731,7 +732,7 @@ x.f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } } } else { @@ -742,7 +743,7 @@ x.f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } } } @@ -1373,7 +1374,7 @@ x.f"> */ } } - return 0; + return; /* End of CSYTRI2X */ diff --git a/lapack-netlib/SRC/csytri_3.c b/lapack-netlib/SRC/csytri_3.c index db99057e3..2622d4c45 100644 --- a/lapack-netlib/SRC/csytri_3.c +++ b/lapack-netlib/SRC/csytri_3.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytri_3_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csytri_3_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, complex *work, integer *lwork, integer *info) { @@ -692,7 +692,7 @@ static integer c_n1 = -1; /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int csytri_3x_(char *, integer *, complex *, + extern /* Subroutine */ void csytri_3x_(char *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); logical upper; integer nb; @@ -748,16 +748,16 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRI_3", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } csytri_3x_(uplo, n, &a[a_offset], lda, &e[1], &ipiv[1], &work[1], &nb, @@ -765,7 +765,7 @@ static integer c_n1 = -1; work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CSYTRI_3 */ diff --git a/lapack-netlib/SRC/csytri_3x.c b/lapack-netlib/SRC/csytri_3x.c index 83a868acb..6d543a5a3 100644 --- a/lapack-netlib/SRC/csytri_3x.c +++ b/lapack-netlib/SRC/csytri_3x.c @@ -673,7 +673,7 @@ static complex c_b2 = {0.f,0.f}; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytri_3x_(char *uplo, integer *n, complex *a, integer * +/* Subroutine */ void csytri_3x_(char *uplo, integer *n, complex *a, integer * lda, complex *e, integer *ipiv, complex *work, integer *nb, integer * info) { @@ -685,16 +685,16 @@ static complex c_b2 = {0.f,0.f}; /* Local variables */ integer invd; complex akkp1; - extern /* Subroutine */ int csyswapr_(char *, integer *, complex *, + extern /* Subroutine */ void csyswapr_(char *, integer *, complex *, integer *, integer *, integer *); complex d__; integer i__, j, k; complex t; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; @@ -747,10 +747,10 @@ static complex c_b2 = {0.f,0.f}; if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRI_3X", &i__1, (ftnlen)9); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Workspace got Non-diag elements of D */ @@ -771,7 +771,7 @@ static complex c_b2 = {0.f,0.f}; for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } } } else { @@ -782,7 +782,7 @@ static complex c_b2 = {0.f,0.f}; for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } } } @@ -1422,7 +1422,7 @@ static complex c_b2 = {0.f,0.f}; } - return 0; + return; /* End of CSYTRI_3X */ diff --git a/lapack-netlib/SRC/csytri_rook.c b/lapack-netlib/SRC/csytri_rook.c index 4759f866e..9718a082a 100644 --- a/lapack-netlib/SRC/csytri_rook.c +++ b/lapack-netlib/SRC/csytri_rook.c @@ -644,7 +644,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytri_rook_(char *uplo, integer *n, complex *a, +/* Subroutine */ void csytri_rook_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info) { /* System generated locals */ @@ -656,15 +656,15 @@ rook.f"> */ integer k; complex t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); extern /* Complex */ VOID cdotu_(complex *, integer *, complex *, integer *, complex *, integer *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *); integer kstep; logical upper; - extern /* Subroutine */ int csymv_(char *, integer *, complex *, complex * + extern /* Subroutine */ void csymv_(char *, integer *, complex *, complex * , integer *, complex *, integer *, complex *, complex *, integer * ); complex ak; @@ -704,13 +704,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRI_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -722,7 +722,7 @@ rook.f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0.f && a[i__1].i == 0.f)) { - return 0; + return; } /* L10: */ } @@ -734,7 +734,7 @@ rook.f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0.f && a[i__2].i == 0.f)) { - return 0; + return; } /* L20: */ } @@ -1137,7 +1137,7 @@ L60: ; } - return 0; + return; /* End of CSYTRI_ROOK */ diff --git a/lapack-netlib/SRC/csytrs.c b/lapack-netlib/SRC/csytrs.c index e15ad31f6..7a51af61f 100644 --- a/lapack-netlib/SRC/csytrs.c +++ b/lapack-netlib/SRC/csytrs.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void csytrs_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * info) { @@ -645,11 +645,11 @@ f"> */ /* Local variables */ complex akm1k; integer j, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); complex denom; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), @@ -696,13 +696,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1050,7 +1050,7 @@ L100: ; } - return 0; + return; /* End of CSYTRS */ diff --git a/lapack-netlib/SRC/csytrs2.c b/lapack-netlib/SRC/csytrs2.c index 2c67ba4df..8b100db3b 100644 --- a/lapack-netlib/SRC/csytrs2.c +++ b/lapack-netlib/SRC/csytrs2.c @@ -644,7 +644,7 @@ static complex c_b1 = {1.f,0.f}; /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytrs2_(char *uplo, integer *n, integer *nrhs, complex * +/* Subroutine */ void csytrs2_(char *uplo, integer *n, integer *nrhs, complex * a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex * work, integer *info) { @@ -655,12 +655,12 @@ static complex c_b1 = {1.f,0.f}; /* Local variables */ complex akm1k; integer i__, j, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); complex denom; integer iinfo; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); @@ -669,7 +669,7 @@ static complex c_b1 = {1.f,0.f}; integer kp; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); complex akm1, bkm1; - extern /* Subroutine */ int csyconv_(char *, char *, integer *, complex *, + extern /* Subroutine */ void csyconv_(char *, char *, integer *, complex *, integer *, integer *, complex *, integer *); @@ -709,13 +709,13 @@ static complex c_b1 = {1.f,0.f}; if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRS2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Convert A */ @@ -936,7 +936,7 @@ static complex c_b1 = {1.f,0.f}; csyconv_(uplo, "R", n, &a[a_offset], lda, &ipiv[1], &work[1], &iinfo); - return 0; + return; /* End of CSYTRS2 */ diff --git a/lapack-netlib/SRC/csytrs_3.c b/lapack-netlib/SRC/csytrs_3.c index f5c096769..739718c1c 100644 --- a/lapack-netlib/SRC/csytrs_3.c +++ b/lapack-netlib/SRC/csytrs_3.c @@ -677,7 +677,7 @@ static complex c_b1 = {1.f,0.f}; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytrs_3_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void csytrs_3_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *e, integer *ipiv, complex *b, integer *ldb, integer *info) { @@ -688,11 +688,11 @@ static complex c_b1 = {1.f,0.f}; /* Local variables */ complex akm1k; integer i__, j, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); complex denom; - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); @@ -739,13 +739,13 @@ static complex c_b1 = {1.f,0.f}; if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRS_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -933,7 +933,7 @@ static complex c_b1 = {1.f,0.f}; } - return 0; + return; /* End of CSYTRS_3 */ diff --git a/lapack-netlib/SRC/csytrs_aa.c b/lapack-netlib/SRC/csytrs_aa.c index 8a7c4ec93..719a494a6 100644 --- a/lapack-netlib/SRC/csytrs_aa.c +++ b/lapack-netlib/SRC/csytrs_aa.c @@ -644,7 +644,7 @@ aa.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytrs_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void csytrs_aa_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info) { @@ -654,16 +654,16 @@ aa.f"> */ /* Local variables */ integer k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cswap_(integer *, complex *, integer *, + extern /* Subroutine */ void cswap_(integer *, complex *, integer *, complex *, integer *), cgtsv_(integer *, integer *, complex *, complex *, complex *, complex *, integer *, integer *), ctrsm_( char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; integer kp; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -712,17 +712,17 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRS_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { lwkopt = *n * 3 - 2; work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -855,7 +855,7 @@ aa.f"> */ } - return 0; + return; /* End of CSYTRS_AA */ diff --git a/lapack-netlib/SRC/csytrs_aa_2stage.c b/lapack-netlib/SRC/csytrs_aa_2stage.c index 6b0d72513..fedd0e468 100644 --- a/lapack-netlib/SRC/csytrs_aa_2stage.c +++ b/lapack-netlib/SRC/csytrs_aa_2stage.c @@ -653,7 +653,7 @@ aa_2stage.f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int csytrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void csytrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *tb, integer *ltb, integer *ipiv, integer *ipiv2, complex *b, integer *ldb, integer *info) { @@ -663,15 +663,16 @@ aa_2stage.f"> */ /* Local variables */ integer ldtb; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; integer nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cgbtrs_( char *, integer *, integer *, integer *, integer *, complex *, - integer *, integer *, complex *, integer *, integer *), - claswp_(integer *, complex *, integer *, integer *, integer *, + integer *, integer *, complex *, integer *, integer *); + extern int claswp_(integer *, complex *, integer *, integer *, integer *, integer *, integer *); @@ -715,13 +716,13 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRS_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Read NB and compute LDTB */ @@ -806,7 +807,7 @@ aa_2stage.f"> */ } } - return 0; + return; /* End of CSYTRS_AA_2STAGE */ diff --git a/lapack-netlib/SRC/csytrs_rook.c b/lapack-netlib/SRC/csytrs_rook.c index a0ed21b94..f80623ef2 100644 --- a/lapack-netlib/SRC/csytrs_rook.c +++ b/lapack-netlib/SRC/csytrs_rook.c @@ -649,7 +649,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int csytrs_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void csytrs_rook_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info) { @@ -660,11 +660,11 @@ rook.f"> */ /* Local variables */ complex akm1k; integer j, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); complex denom; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), cgeru_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *), @@ -711,13 +711,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CSYTRS_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1092,7 +1092,7 @@ L100: ; } - return 0; + return; /* End of CSYTRS_ROOK */ diff --git a/lapack-netlib/SRC/ctbcon.c b/lapack-netlib/SRC/ctbcon.c index f51938fe5..effcb30a0 100644 --- a/lapack-netlib/SRC/ctbcon.c +++ b/lapack-netlib/SRC/ctbcon.c @@ -654,7 +654,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void ctbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd, complex *ab, integer *ldab, real *rcond, complex *work, real *rwork, integer *info) { @@ -669,19 +669,19 @@ f"> */ integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xnorm; integer ix; extern integer icamax_(integer *, complex *, integer *); extern real clantb_(char *, char *, char *, integer *, integer *, complex *, integer *, real *), slamch_(char *); - extern /* Subroutine */ int clatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatbs_(char *, char *, char *, char *, integer *, integer *, complex *, integer *, complex *, real *, - real *, integer *), xerbla_(char * - , integer *, ftnlen); + real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int csrscl_(integer *, real *, complex *, integer + extern /* Subroutine */ void csrscl_(integer *, real *, complex *, integer *); logical onenrm; char normin[1]; @@ -729,14 +729,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.f; - return 0; + return; } *rcond = 0.f; @@ -801,7 +801,7 @@ L10: } L20: - return 0; + return; /* End of CTBCON */ diff --git a/lapack-netlib/SRC/ctbrfs.c b/lapack-netlib/SRC/ctbrfs.c index 47450cf9b..08616fb37 100644 --- a/lapack-netlib/SRC/ctbrfs.c +++ b/lapack-netlib/SRC/ctbrfs.c @@ -700,7 +700,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ctbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -718,13 +718,13 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ctbmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctbmv_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *), ccopy_(integer *, complex *, integer *, complex * , integer *), ctbsv_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xk; extern real slamch_(char *); @@ -792,7 +792,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -804,7 +804,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1149,7 +1149,7 @@ L210: /* L250: */ } - return 0; + return; /* End of CTBRFS */ diff --git a/lapack-netlib/SRC/ctbtrs.c b/lapack-netlib/SRC/ctbtrs.c index fa7dfa544..560c1efef 100644 --- a/lapack-netlib/SRC/ctbtrs.c +++ b/lapack-netlib/SRC/ctbtrs.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ctbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info) { @@ -668,7 +668,7 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctbsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctbsv_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *); logical upper; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -719,13 +719,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -736,7 +736,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *kd + 1 + *info * ab_dim1; if (ab[i__2].r == 0.f && ab[i__2].i == 0.f) { - return 0; + return; } /* L10: */ } @@ -745,7 +745,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info * ab_dim1 + 1; if (ab[i__2].r == 0.f && ab[i__2].i == 0.f) { - return 0; + return; } /* L20: */ } @@ -762,7 +762,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of CTBTRS */ diff --git a/lapack-netlib/SRC/ctfsm.c b/lapack-netlib/SRC/ctfsm.c index d939b6779..695dbcff0 100644 --- a/lapack-netlib/SRC/ctfsm.c +++ b/lapack-netlib/SRC/ctfsm.c @@ -810,7 +810,7 @@ static complex c_b1 = {1.f,0.f}; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctfsm_(char *transr, char *side, char *uplo, char *trans, +/* Subroutine */ void ctfsm_(char *transr, char *side, char *uplo, char *trans, char *diag, integer *m, integer *n, complex *alpha, complex *a, complex *b, integer *ldb) { @@ -821,13 +821,13 @@ static complex c_b1 = {1.f,0.f}; /* Local variables */ integer info, i__, j, k; logical normaltransr; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); logical lside; extern logical lsame_(char *, char *); logical lower; - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer m1, m2, n1, n2; @@ -877,13 +877,13 @@ static complex c_b1 = {1.f,0.f}; if (info != 0) { i__1 = -info; xerbla_("CTFSM ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return when ( (N.EQ.0).OR.(M.EQ.0) ) */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Quick return when ALPHA.EQ.(0E+0,0E+0) */ @@ -899,7 +899,7 @@ static complex c_b1 = {1.f,0.f}; } /* L20: */ } - return 0; + return; } if (lside) { @@ -1580,7 +1580,7 @@ static complex c_b1 = {1.f,0.f}; } } - return 0; + return; /* End of CTFSM */ diff --git a/lapack-netlib/SRC/ctftri.c b/lapack-netlib/SRC/ctftri.c index 92220ad6c..adef1cab9 100644 --- a/lapack-netlib/SRC/ctftri.c +++ b/lapack-netlib/SRC/ctftri.c @@ -734,7 +734,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctftri_(char *transr, char *uplo, char *diag, integer *n, +/* Subroutine */ void ctftri_(char *transr, char *uplo, char *diag, integer *n, complex *a, integer *info) { /* System generated locals */ @@ -745,7 +745,7 @@ f"> */ integer k; logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical lower; @@ -783,13 +783,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTFTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -831,7 +831,7 @@ f"> */ ctrtri_("L", diag, &n1, a, n, info); if (*info > 0) { - return 0; + return; } q__1.r = -1.f, q__1.i = 0.f; ctrmm_("R", "L", "N", diag, &n2, &n1, &q__1, a, n, &a[n1], n); @@ -841,7 +841,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } ctrmm_("L", "U", "C", diag, &n2, &n1, &c_b1, &a[*n], n, &a[n1] , n); @@ -855,7 +855,7 @@ f"> */ ctrtri_("L", diag, &n1, &a[n2], n, info) ; if (*info > 0) { - return 0; + return; } q__1.r = -1.f, q__1.i = 0.f; ctrmm_("L", "L", "C", diag, &n1, &n2, &q__1, &a[n2], n, a, n); @@ -865,7 +865,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } ctrmm_("R", "U", "N", diag, &n1, &n2, &c_b1, &a[n1], n, a, n); @@ -882,7 +882,7 @@ f"> */ ctrtri_("U", diag, &n1, a, &n1, info); if (*info > 0) { - return 0; + return; } q__1.r = -1.f, q__1.i = 0.f; ctrmm_("L", "U", "N", diag, &n1, &n2, &q__1, a, &n1, &a[n1 * @@ -892,7 +892,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } ctrmm_("R", "L", "C", diag, &n1, &n2, &c_b1, &a[1], &n1, &a[ n1 * n1], &n1); @@ -904,7 +904,7 @@ f"> */ ctrtri_("U", diag, &n1, &a[n2 * n2], &n2, info); if (*info > 0) { - return 0; + return; } q__1.r = -1.f, q__1.i = 0.f; ctrmm_("R", "U", "C", diag, &n2, &n1, &q__1, &a[n2 * n2], &n2, @@ -914,7 +914,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } ctrmm_("L", "L", "N", diag, &n2, &n1, &c_b1, &a[n1 * n2], &n2, a, &n2); @@ -939,7 +939,7 @@ f"> */ i__1 = *n + 1; ctrtri_("L", diag, &k, &a[1], &i__1, info); if (*info > 0) { - return 0; + return; } q__1.r = -1.f, q__1.i = 0.f; i__1 = *n + 1; @@ -952,7 +952,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -968,7 +968,7 @@ f"> */ i__1 = *n + 1; ctrtri_("L", diag, &k, &a[k + 1], &i__1, info); if (*info > 0) { - return 0; + return; } q__1.r = -1.f, q__1.i = 0.f; i__1 = *n + 1; @@ -981,7 +981,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -1000,7 +1000,7 @@ f"> */ ctrtri_("U", diag, &k, &a[k], &k, info); if (*info > 0) { - return 0; + return; } q__1.r = -1.f, q__1.i = 0.f; ctrmm_("L", "U", "N", diag, &k, &k, &q__1, &a[k], &k, &a[k * ( @@ -1010,7 +1010,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } ctrmm_("R", "L", "C", diag, &k, &k, &c_b1, a, &k, &a[k * (k + 1)], &k); @@ -1022,7 +1022,7 @@ f"> */ ctrtri_("U", diag, &k, &a[k * (k + 1)], &k, info); if (*info > 0) { - return 0; + return; } q__1.r = -1.f, q__1.i = 0.f; ctrmm_("R", "U", "C", diag, &k, &k, &q__1, &a[k * (k + 1)], & @@ -1032,7 +1032,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } ctrmm_("L", "L", "N", diag, &k, &k, &c_b1, &a[k * k], &k, a, & k); @@ -1040,7 +1040,7 @@ f"> */ } } - return 0; + return; /* End of CTFTRI */ diff --git a/lapack-netlib/SRC/ctfttp.c b/lapack-netlib/SRC/ctfttp.c index d1cfc54a9..11e5be640 100644 --- a/lapack-netlib/SRC/ctfttp.c +++ b/lapack-netlib/SRC/ctfttp.c @@ -718,7 +718,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctfttp_(char *transr, char *uplo, integer *n, complex * +/* Subroutine */ void ctfttp_(char *transr, char *uplo, integer *n, complex * arf, complex *ap, integer *info) { /* System generated locals */ @@ -760,13 +760,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTFTTP", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -776,7 +776,7 @@ f"> */ r_cnjg(&q__1, arf); ap[0].r = q__1.r, ap[0].i = q__1.i; } - return 0; + return; } /* Size of array ARF(0:NT-1) */ @@ -1112,7 +1112,7 @@ f"> */ } - return 0; + return; /* End of CTFTTP */ diff --git a/lapack-netlib/SRC/ctfttr.c b/lapack-netlib/SRC/ctfttr.c index 59452eccf..9afa0ef87 100644 --- a/lapack-netlib/SRC/ctfttr.c +++ b/lapack-netlib/SRC/ctfttr.c @@ -726,7 +726,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctfttr_(char *transr, char *uplo, integer *n, complex * +/* Subroutine */ void ctfttr_(char *transr, char *uplo, integer *n, complex * arf, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -776,7 +776,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTFTTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -790,7 +790,7 @@ f"> */ a[0].r = q__1.r, a[0].i = q__1.i; } } - return 0; + return; } /* Size of array ARF(1:2,0:nt-1) */ @@ -1122,7 +1122,7 @@ f"> */ } - return 0; + return; /* End of CTFTTR */ diff --git a/lapack-netlib/SRC/ctgevc.c b/lapack-netlib/SRC/ctgevc.c index 76676b03b..fa36f7e9c 100644 --- a/lapack-netlib/SRC/ctgevc.c +++ b/lapack-netlib/SRC/ctgevc.c @@ -733,7 +733,7 @@ f"> */ /* > \ingroup complexGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select, +/* Subroutine */ void ctgevc_(char *side, char *howmny, logical *select, integer *n, complex *s, integer *lds, complex *p, integer *ldp, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, real *rwork, integer *info) @@ -758,7 +758,7 @@ f"> */ integer iside; real sbeta; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); real small; @@ -773,7 +773,7 @@ f"> */ complex bcoeff; logical ilback; integer im; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); real ascale, bscale; integer jr; extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); @@ -867,7 +867,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGEVC", &i__1, (ftnlen)6); - return 0; + return; } /* Count the number of eigenvectors */ @@ -908,14 +908,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGEVC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = im; if (*n == 0) { - return 0; + return; } /* Machine Constants */ @@ -1544,7 +1544,7 @@ L250: } } - return 0; + return; /* End of CTGEVC */ diff --git a/lapack-netlib/SRC/ctgex2.c b/lapack-netlib/SRC/ctgex2.c index fa60909b1..bfd6afea0 100644 --- a/lapack-netlib/SRC/ctgex2.c +++ b/lapack-netlib/SRC/ctgex2.c @@ -704,7 +704,7 @@ f"> */ /* > Numerical Algorithms, 1996. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n, +/* Subroutine */ void ctgex2_(logical *wantq, logical *wantz, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info) { @@ -717,7 +717,7 @@ f"> */ /* Local variables */ logical weak; complex cdum; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); complex work[8], f, g; integer i__, m; @@ -727,11 +727,11 @@ f"> */ real ss; extern real slamch_(char *); real ws; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), clartg_(complex *, complex *, real *, complex *, complex *); complex sz; - extern /* Subroutine */ int classq_(integer *, complex *, integer *, real + extern /* Subroutine */ void classq_(integer *, complex *, integer *, real *, real *); real thresh, smlnum; logical strong; @@ -767,7 +767,7 @@ f"> */ /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } m = 2; @@ -938,13 +938,13 @@ f"> */ /* Exit with INFO = 0 if swap was successfully performed. */ - return 0; + return; /* Exit with INFO = 1 if swap was rejected. */ L20: *info = 1; - return 0; + return; /* End of CTGEX2 */ diff --git a/lapack-netlib/SRC/ctgexc.c b/lapack-netlib/SRC/ctgexc.c index 025fbbb91..75ca67860 100644 --- a/lapack-netlib/SRC/ctgexc.c +++ b/lapack-netlib/SRC/ctgexc.c @@ -708,7 +708,7 @@ f"> */ /* > 1996. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n, +/* Subroutine */ void ctgexc_(logical *wantq, logical *wantz, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z__, integer *ldz, integer *ifst, integer * ilst, integer *info) @@ -719,10 +719,10 @@ f"> */ /* Local variables */ integer here; - extern /* Subroutine */ int ctgex2_(logical *, logical *, integer *, + extern /* Subroutine */ void ctgex2_(logical *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, - complex *, integer *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + complex *, integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.1) -- */ @@ -769,16 +769,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGEXC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } if (*ifst == *ilst) { - return 0; + return; } if (*ifst < *ilst) { @@ -793,7 +793,7 @@ L10: q_offset], ldq, &z__[z_offset], ldz, &here, info); if (*info != 0) { *ilst = here; - return 0; + return; } ++here; if (here < *ilst) { @@ -811,7 +811,7 @@ L20: q_offset], ldq, &z__[z_offset], ldz, &here, info); if (*info != 0) { *ilst = here; - return 0; + return; } --here; if (here >= *ilst) { @@ -820,7 +820,7 @@ L20: ++here; } *ilst = here; - return 0; + return; /* End of CTGEXC */ diff --git a/lapack-netlib/SRC/ctgsen.c b/lapack-netlib/SRC/ctgsen.c index c853bcbbd..f5c3f6a9f 100644 --- a/lapack-netlib/SRC/ctgsen.c +++ b/lapack-netlib/SRC/ctgsen.c @@ -944,7 +944,7 @@ f"> */ /* > 1996. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz, +/* Subroutine */ void ctgsen_(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq, complex *z__, integer *ldz, integer *m, real *pl, real *pr, real * @@ -962,30 +962,31 @@ f"> */ logical swap; complex temp1, temp2; integer i__, k; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); integer isave[3]; logical wantd; integer lwmin; logical wantp; integer n1, n2; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); logical wantd1, wantd2; real dscale; integer ks; extern real slamch_(char *); real rdscal; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *); real safmin; - extern /* Subroutine */ int ctgexc_(logical *, logical *, integer *, + extern /* Subroutine */ void ctgexc_(logical *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, - complex *, integer *, integer *, integer *, integer *), xerbla_( - char *, integer *, ftnlen), classq_(integer *, complex *, integer + complex *, integer *, integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void classq_(integer *, complex *, integer *, real *, real *); integer liwmin; - extern /* Subroutine */ int ctgsyl_(char *, integer *, integer *, integer + extern /* Subroutine */ void ctgsyl_(char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, integer *, integer *, integer *); @@ -1046,7 +1047,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGSEN", &i__1, (ftnlen)6); - return 0; + return; } ierr = 0; @@ -1114,9 +1115,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGSEN", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ @@ -1371,7 +1372,7 @@ L70: work[1].r = (real) lwmin, work[1].i = 0.f; iwork[1] = liwmin; - return 0; + return; /* End of CTGSEN */ diff --git a/lapack-netlib/SRC/ctgsja.c b/lapack-netlib/SRC/ctgsja.c index c5a56c48e..c968c9e7f 100644 --- a/lapack-netlib/SRC/ctgsja.c +++ b/lapack-netlib/SRC/ctgsja.c @@ -896,7 +896,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void ctgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, complex *a, integer * lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha, real *beta, complex *u, integer *ldu, complex *v, integer *ldv, @@ -910,12 +910,12 @@ f"> */ complex q__1; /* Local variables */ - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); integer kcallmycycle, i__, j; real gamma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); logical initq; real a1, a3, b1; @@ -924,13 +924,14 @@ f"> */ logical wantu, wantv; real ssmin; complex a2, b2; - extern /* Subroutine */ int clags2_(logical *, real *, complex *, real *, + extern /* Subroutine */ void clags2_(logical *, real *, complex *, real *, real *, complex *, real *, real *, complex *, real *, complex *, real *, complex *), clapll_(integer *, complex *, integer *, complex *, integer *, real *), csscal_(integer *, real *, complex *, integer *), claset_(char *, integer *, integer *, complex *, - complex *, complex *, integer *), xerbla_(char *, integer - *, ftnlen), slartg_(real *, real *, real *, real *, real *); + complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slartg_(real *, real *, real *, real *, real *); // extern integer myhuge_(real *); real csq, csu, csv; complex snq; @@ -1009,7 +1010,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGSJA", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize U, V and Q, if necessary */ @@ -1285,7 +1286,7 @@ L50: L100: *ncallmycycle = kcallmycycle; - return 0; + return; /* End of CTGSJA */ diff --git a/lapack-netlib/SRC/ctgsna.c b/lapack-netlib/SRC/ctgsna.c index 19a785228..f11f2cd56 100644 --- a/lapack-netlib/SRC/ctgsna.c +++ b/lapack-netlib/SRC/ctgsna.c @@ -826,7 +826,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select, +/* Subroutine */ void ctgsna_(char *job, char *howmny, logical *select, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real *dif, integer *mm, integer *m, complex *work, integer *lwork, integer @@ -850,7 +850,7 @@ f"> */ extern /* Complex */ VOID cdotc_(complex *, integer *, complex *, integer *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); integer lwmin; @@ -860,17 +860,18 @@ f"> */ extern real scnrm2_(integer *, complex *, integer *), slapy2_(real *, real *); complex dummy1[1]; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer ks; extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), ctgexc_(logical *, logical *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; logical wantbh, wantdf, somcon; - extern /* Subroutine */ int ctgsyl_(char *, integer *, integer *, integer + extern /* Subroutine */ void ctgsyl_(char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, integer *, integer *, integer *); @@ -971,15 +972,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGSNA", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1079,7 +1080,7 @@ L20: ; } work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CTGSNA */ diff --git a/lapack-netlib/SRC/ctgsy2.c b/lapack-netlib/SRC/ctgsy2.c index 82d8cb5a1..f3089d44b 100644 --- a/lapack-netlib/SRC/ctgsy2.c +++ b/lapack-netlib/SRC/ctgsy2.c @@ -771,7 +771,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer * +/* Subroutine */ void ctgsy2_(char *trans, integer *ijob, integer *m, integer * n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal, @@ -786,11 +786,11 @@ f"> */ /* Local variables */ integer ierr, ipiv[2], jpiv[2], i__, j, k; complex alpha; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); complex z__[4] /* was [2][2] */; extern logical lsame_(char *, char *); - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *), cgesc2_(integer *, complex *, integer *, complex *, integer *, integer *, real *), cgetc2_( integer *, complex *, integer *, integer *, integer *, integer *), @@ -866,7 +866,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGSY2", &i__1, (ftnlen)6); - return 0; + return; } if (notran) { @@ -1057,7 +1057,7 @@ f"> */ /* L80: */ } } - return 0; + return; /* End of CTGSY2 */ diff --git a/lapack-netlib/SRC/ctgsyl.c b/lapack-netlib/SRC/ctgsyl.c index 0db1578c9..0fb5e88ca 100644 --- a/lapack-netlib/SRC/ctgsyl.c +++ b/lapack-netlib/SRC/ctgsyl.c @@ -812,7 +812,7 @@ f"> */ /* > July 1989, pp 745-751. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer * +/* Subroutine */ void ctgsyl_(char *trans, integer *ijob, integer *m, integer * n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, complex *f, integer *ldf, real *scale, real *dif, complex *work, @@ -827,14 +827,14 @@ f"> */ /* Local variables */ real dsum; integer i__, j, k, p, q; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), cgemm_(char *, char *, integer *, integer *, integer * , complex *, complex *, integer *, complex *, integer *, complex * , complex *, integer *); extern logical lsame_(char *, char *); integer ifunc, linfo, lwmin; real scale2; - extern /* Subroutine */ int ctgsy2_(char *, integer *, integer *, integer + extern /* Subroutine */ void ctgsy2_(char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, real *, integer *); @@ -842,9 +842,10 @@ f"> */ real dscale; integer is, js, pq; real scaloc; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, - integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *, complex *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer iround; @@ -942,9 +943,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTGSYL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -956,7 +957,7 @@ f"> */ *dif = 0.f; } } - return 0; + return; } /* Determine optimal block sizes MB and NB */ @@ -1018,7 +1019,7 @@ f"> */ /* L30: */ } - return 0; + return; } @@ -1288,7 +1289,7 @@ L70: work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CTGSYL */ diff --git a/lapack-netlib/SRC/ctpcon.c b/lapack-netlib/SRC/ctpcon.c index da0c664db..0db65c2fe 100644 --- a/lapack-netlib/SRC/ctpcon.c +++ b/lapack-netlib/SRC/ctpcon.c @@ -642,7 +642,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void ctpcon_(char *norm, char *uplo, char *diag, integer *n, complex *ap, real *rcond, complex *work, real *rwork, integer *info) { /* System generated locals */ @@ -656,7 +656,7 @@ f"> */ integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xnorm; integer ix; @@ -664,10 +664,10 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern real clantp_(char *, char *, char *, integer *, complex *, real *); - extern /* Subroutine */ int clatps_(char *, char *, char *, char *, + extern /* Subroutine */ void clatps_(char *, char *, char *, char *, integer *, complex *, complex *, real *, real *, integer *); real ainvnm; - extern /* Subroutine */ int csrscl_(integer *, real *, complex *, integer + extern /* Subroutine */ void csrscl_(integer *, real *, complex *, integer *); logical onenrm; char normin[1]; @@ -709,14 +709,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.f; - return 0; + return; } *rcond = 0.f; @@ -781,7 +781,7 @@ L10: } L20: - return 0; + return; /* End of CTPCON */ diff --git a/lapack-netlib/SRC/ctplqt.c b/lapack-netlib/SRC/ctplqt.c index dc9864bd0..2fb820e75 100644 --- a/lapack-netlib/SRC/ctplqt.c +++ b/lapack-netlib/SRC/ctplqt.c @@ -679,7 +679,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctplqt_(integer *m, integer *n, integer *l, integer *mb, +/* Subroutine */ void ctplqt_(integer *m, integer *n, integer *l, integer *mb, complex *a, integer *lda, complex *b, integer *ldb, complex *t, integer *ldt, complex *work, integer *info) { @@ -689,7 +689,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ integer i__, iinfo, ib, lb, nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ctprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void ctprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *), ctplqt2_(integer *, integer *, integer *, @@ -740,13 +741,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CTPLQT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *m; @@ -780,7 +781,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ a_dim1], lda, &b[i__ + ib + b_dim1], ldb, &work[1], &i__4); } } - return 0; + return; /* End of CTPLQT */ diff --git a/lapack-netlib/SRC/ctplqt2.c b/lapack-netlib/SRC/ctplqt2.c index f9014f180..78eaea487 100644 --- a/lapack-netlib/SRC/ctplqt2.c +++ b/lapack-netlib/SRC/ctplqt2.c @@ -673,7 +673,7 @@ static complex c_b2 = {1.f,0.f}; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctplqt2_(integer *m, integer *n, integer *l, complex *a, +/* Subroutine */ void ctplqt2_(integer *m, integer *n, integer *l, complex *a, integer *lda, complex *b, integer *ldb, complex *t, integer *ldt, integer *info) { @@ -684,16 +684,17 @@ static complex c_b2 = {1.f,0.f}; /* Local variables */ integer i__, j, p; - extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, + extern /* Subroutine */ void cgerc_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *); complex alpha; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *); integer mp, np; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, - integer *, complex *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, + integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.1) -- */ @@ -736,13 +737,13 @@ static complex c_b2 = {1.f,0.f}; if (*info != 0) { i__1 = -(*info); xerbla_("CTPLQT2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } i__1 = *m; @@ -906,6 +907,6 @@ static complex c_b2 = {1.f,0.f}; /* End of CTPLQT2 */ - return 0; + return; } /* ctplqt2_ */ diff --git a/lapack-netlib/SRC/ctpmlqt.c b/lapack-netlib/SRC/ctpmlqt.c index 49f185bff..abd33f4ba 100644 --- a/lapack-netlib/SRC/ctpmlqt.c +++ b/lapack-netlib/SRC/ctpmlqt.c @@ -706,7 +706,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctpmlqt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void ctpmlqt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, integer *mb, complex *v, integer *ldv, complex *t, integer *ldt, complex *a, integer *lda, complex *b, integer *ldb, complex *work, integer *info) @@ -722,7 +722,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, lb, nb, kf; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ctprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void ctprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); @@ -793,12 +794,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CTPMLQT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran) { @@ -887,7 +888,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of CTPMLQT */ diff --git a/lapack-netlib/SRC/ctpmqrt.c b/lapack-netlib/SRC/ctpmqrt.c index 7b7390d3e..a1f04291f 100644 --- a/lapack-netlib/SRC/ctpmqrt.c +++ b/lapack-netlib/SRC/ctpmqrt.c @@ -724,7 +724,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctpmqrt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void ctpmqrt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, integer *nb, complex *v, integer *ldv, complex *t, integer *ldt, complex *a, integer *lda, complex *b, integer *ldb, complex *work, integer *info) @@ -740,7 +740,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, lb, mb, kf; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ctprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void ctprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); @@ -813,12 +814,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CTPMQRT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && tran) { @@ -907,7 +908,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of CTPMQRT */ diff --git a/lapack-netlib/SRC/ctpqrt.c b/lapack-netlib/SRC/ctpqrt.c index 45ac1c72c..63541ba53 100644 --- a/lapack-netlib/SRC/ctpqrt.c +++ b/lapack-netlib/SRC/ctpqrt.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctpqrt_(integer *m, integer *n, integer *l, integer *nb, +/* Subroutine */ void ctpqrt_(integer *m, integer *n, integer *l, integer *nb, complex *a, integer *lda, complex *b, integer *ldb, complex *t, integer *ldt, complex *work, integer *info) { @@ -707,7 +707,8 @@ f"> */ /* Local variables */ integer i__, iinfo, ib, lb, mb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ctprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void ctprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *), ctpqrt2_(integer *, integer *, integer *, @@ -758,13 +759,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTPQRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *n; @@ -798,7 +799,7 @@ f"> */ , &ib); } } - return 0; + return; /* End of CTPQRT */ diff --git a/lapack-netlib/SRC/ctpqrt2.c b/lapack-netlib/SRC/ctpqrt2.c index e11fb0933..39110b7b0 100644 --- a/lapack-netlib/SRC/ctpqrt2.c +++ b/lapack-netlib/SRC/ctpqrt2.c @@ -690,7 +690,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctpqrt2_(integer *m, integer *n, integer *l, complex *a, +/* Subroutine */ void ctpqrt2_(integer *m, integer *n, integer *l, complex *a, integer *lda, complex *b, integer *ldb, complex *t, integer *ldt, integer *info) { @@ -701,16 +701,17 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* Local variables */ integer i__, j, p; - extern /* Subroutine */ int cgerc_(integer *, integer *, complex *, + extern /* Subroutine */ void cgerc_(integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, integer *); complex alpha; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *), ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *); integer mp, np; - extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, - integer *, complex *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarfg_(integer *, complex *, complex *, + integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -753,13 +754,13 @@ is composed of a triangular block and a pentagonal block, using the compact WY r if (*info != 0) { i__1 = -(*info); xerbla_("CTPQRT2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } i__1 = *n; @@ -873,6 +874,6 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* End of CTPQRT2 */ - return 0; + return; } /* ctpqrt2_ */ diff --git a/lapack-netlib/SRC/ctprfb.c b/lapack-netlib/SRC/ctprfb.c index 2aa2c52e9..25a042da7 100644 --- a/lapack-netlib/SRC/ctprfb.c +++ b/lapack-netlib/SRC/ctprfb.c @@ -765,7 +765,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctprfb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void ctprfb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, integer *l, complex *v, integer *ldv, complex *t, integer *ldt, complex *a, integer *lda, complex *b, integer *ldb, complex *work, integer *ldwork) @@ -778,12 +778,12 @@ f"> */ /* Local variables */ logical left, backward; integer i__, j; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); logical right; - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer kp, mp, np; @@ -820,7 +820,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0 || *k <= 0 || *l < 0) { - return 0; + return; } if (lsame_(storev, "C")) { @@ -1621,7 +1621,7 @@ f"> */ } - return 0; + return; /* End of CTPRFB */ diff --git a/lapack-netlib/SRC/ctprfs.c b/lapack-netlib/SRC/ctprfs.c index 5929dae3e..f125c87e1 100644 --- a/lapack-netlib/SRC/ctprfs.c +++ b/lapack-netlib/SRC/ctprfs.c @@ -686,7 +686,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ctprfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -703,12 +703,12 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *), ctpmv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, complex *, complex *, integer *), clacn2_( integer *, complex *, complex *, real *, integer *, integer *); integer kc; @@ -772,7 +772,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -784,7 +784,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1118,7 +1118,7 @@ L210: /* L250: */ } - return 0; + return; /* End of CTPRFS */ diff --git a/lapack-netlib/SRC/ctptri.c b/lapack-netlib/SRC/ctptri.c index 252f5aba7..c24e75804 100644 --- a/lapack-netlib/SRC/ctptri.c +++ b/lapack-netlib/SRC/ctptri.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, complex *ap, +/* Subroutine */ void ctptri_(char *uplo, char *diag, integer *n, complex *ap, integer *info) { /* System generated locals */ @@ -640,10 +640,10 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpmv_(char *, char *, char *, integer *, complex *, complex *, integer *); logical upper; integer jc, jj; @@ -681,7 +681,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Check for singularity if non-unit. */ @@ -694,7 +694,7 @@ f"> */ jj += *info; i__2 = jj; if (ap[i__2].r == 0.f && ap[i__2].i == 0.f) { - return 0; + return; } /* L10: */ } @@ -704,7 +704,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = jj; if (ap[i__2].r == 0.f && ap[i__2].i == 0.f) { - return 0; + return; } jj = jj + *n - *info + 1; /* L20: */ @@ -776,7 +776,7 @@ f"> */ } } - return 0; + return; /* End of CTPTRI */ diff --git a/lapack-netlib/SRC/ctptrs.c b/lapack-netlib/SRC/ctptrs.c index 5b01b6985..fd1d98804 100644 --- a/lapack-netlib/SRC/ctptrs.c +++ b/lapack-netlib/SRC/ctptrs.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ctptrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -653,7 +653,7 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ctpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctpsv_(char *, char *, char *, integer *, complex *, complex *, integer *); integer jc; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -698,13 +698,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -716,7 +716,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = jc + *info - 1; if (ap[i__2].r == 0.f && ap[i__2].i == 0.f) { - return 0; + return; } jc += *info; /* L10: */ @@ -727,7 +727,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = jc; if (ap[i__2].r == 0.f && ap[i__2].i == 0.f) { - return 0; + return; } jc = jc + *n - *info + 1; /* L20: */ @@ -744,7 +744,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of CTPTRS */ diff --git a/lapack-netlib/SRC/ctpttf.c b/lapack-netlib/SRC/ctpttf.c index abf4d4028..6672d195c 100644 --- a/lapack-netlib/SRC/ctpttf.c +++ b/lapack-netlib/SRC/ctpttf.c @@ -718,7 +718,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctpttf_(char *transr, char *uplo, integer *n, complex * +/* Subroutine */ void ctpttf_(char *transr, char *uplo, integer *n, complex * ap, complex *arf, integer *info) { /* System generated locals */ @@ -760,13 +760,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTPTTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -776,7 +776,7 @@ f"> */ r_cnjg(&q__1, ap); arf[0].r = q__1.r, arf[0].i = q__1.i; } - return 0; + return; } /* Size of array ARF(0:NT-1) */ @@ -1112,7 +1112,7 @@ f"> */ } - return 0; + return; /* End of CTPTTF */ diff --git a/lapack-netlib/SRC/ctpttr.c b/lapack-netlib/SRC/ctpttr.c index e35c38090..b911d65f7 100644 --- a/lapack-netlib/SRC/ctpttr.c +++ b/lapack-netlib/SRC/ctpttr.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctpttr_(char *uplo, integer *n, complex *ap, complex *a, +/* Subroutine */ void ctpttr_(char *uplo, integer *n, complex *ap, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTPTTR", &i__1, (ftnlen)6); - return 0; + return; } if (lower) { @@ -687,7 +687,7 @@ f"> */ } - return 0; + return; /* End of CTPTTR */ diff --git a/lapack-netlib/SRC/ctrcon.c b/lapack-netlib/SRC/ctrcon.c index bd49bcfe3..b21fdbcb4 100644 --- a/lapack-netlib/SRC/ctrcon.c +++ b/lapack-netlib/SRC/ctrcon.c @@ -649,7 +649,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void ctrcon_(char *norm, char *uplo, char *diag, integer *n, complex *a, integer *lda, real *rcond, complex *work, real *rwork, integer *info) { @@ -664,7 +664,7 @@ f"> */ integer isave[3]; real anorm; logical upper; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xnorm; integer ix; @@ -674,7 +674,7 @@ f"> */ extern real clantr_(char *, char *, char *, integer *, integer *, complex *, integer *, real *); real ainvnm; - extern /* Subroutine */ int clatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatrs_(char *, char *, char *, char *, integer *, complex *, integer *, complex *, real *, real *, integer *), csrscl_(integer *, real *, complex *, integer *); @@ -722,14 +722,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.f; - return 0; + return; } *rcond = 0.f; @@ -794,7 +794,7 @@ L10: } L20: - return 0; + return; /* End of CTRCON */ diff --git a/lapack-netlib/SRC/ctrevc.c b/lapack-netlib/SRC/ctrevc.c index 44a8b707d..72d6c461c 100644 --- a/lapack-netlib/SRC/ctrevc.c +++ b/lapack-netlib/SRC/ctrevc.c @@ -731,7 +731,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select, +/* Subroutine */ void ctrevc_(char *side, char *howmny, logical *select, integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, real *rwork, integer *info) @@ -749,20 +749,22 @@ f"> */ integer i__, j, k; real scale; extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); real remax; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); logical leftv, bothv, somev; integer ii, ki; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer is; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen), clatrs_(char *, char *, + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clatrs_(char *, char *, char *, char *, integer *, complex *, integer *, complex *, real * , real *, integer *); extern real scasum_(integer *, complex *, integer *); @@ -839,13 +841,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTREVC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Set the constants to control overflow. */ @@ -1099,7 +1101,7 @@ L130: } } - return 0; + return; /* End of CTREVC */ diff --git a/lapack-netlib/SRC/ctrevc3.c b/lapack-netlib/SRC/ctrevc3.c index c83a28553..5c71dfb21 100644 --- a/lapack-netlib/SRC/ctrevc3.c +++ b/lapack-netlib/SRC/ctrevc3.c @@ -762,7 +762,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctrevc3_(char *side, char *howmny, logical *select, +/* Subroutine */ void ctrevc3_(char *side, char *howmny, logical *select, integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *info) @@ -781,30 +781,30 @@ static integer c__2 = 2; logical over; integer i__, j, k; real scale; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * , integer *); real remax; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); logical leftv, bothv, somev; integer nb, ii, ki; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer is, iv; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clacpy_(char *, integer *, integer - *, complex *, integer *, complex *, integer *), xerbla_( - char *, integer *, ftnlen); + *, complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int clatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatrs_(char *, char *, char *, char *, integer *, complex *, integer *, complex *, real *, real *, integer *); extern real scasum_(integer *, complex *, integer *); @@ -902,15 +902,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("CTREVC3", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Use blocked version of back-transformation if sufficient workspace. */ @@ -1280,7 +1280,7 @@ L130: } } - return 0; + return; /* End of CTREVC3 */ diff --git a/lapack-netlib/SRC/ctrexc.c b/lapack-netlib/SRC/ctrexc.c index 4effc2b9a..c94094349 100644 --- a/lapack-netlib/SRC/ctrexc.c +++ b/lapack-netlib/SRC/ctrexc.c @@ -639,7 +639,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctrexc_(char *compq, integer *n, complex *t, integer * +/* Subroutine */ void ctrexc_(char *compq, integer *n, complex *t, integer * ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer * info) { @@ -649,7 +649,7 @@ f"> */ /* Local variables */ complex temp; - extern /* Subroutine */ int crot_(integer *, complex *, integer *, + extern /* Subroutine */ void crot_(integer *, complex *, integer *, complex *, integer *, real *, complex *); integer k; extern logical lsame_(char *, char *); @@ -657,8 +657,9 @@ f"> */ integer m1, m2, m3; real cs; complex t11, t22, sn; - extern /* Subroutine */ int clartg_(complex *, complex *, real *, complex - *, complex *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clartg_(complex *, complex *, real *, complex + *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -699,13 +700,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTREXC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 1 || *ifst == *ilst) { - return 0; + return; } if (*ifst < *ilst) { @@ -769,7 +770,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of CTREXC */ diff --git a/lapack-netlib/SRC/ctrrfs.c b/lapack-netlib/SRC/ctrrfs.c index ce157db1e..a672a1647 100644 --- a/lapack-netlib/SRC/ctrrfs.c +++ b/lapack-netlib/SRC/ctrrfs.c @@ -694,7 +694,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ctrrfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info) @@ -712,11 +712,11 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrmv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *), ctrsv_(char *, char *, char *, integer *, complex *, integer *, complex *, integer *), clacn2_( integer *, complex *, complex *, real *, integer *, integer *); @@ -784,7 +784,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -796,7 +796,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1124,7 +1124,7 @@ L210: /* L250: */ } - return 0; + return; /* End of CTRRFS */ diff --git a/lapack-netlib/SRC/ctrsen.c b/lapack-netlib/SRC/ctrsen.c index 29509eb3d..ca1dc3491 100644 --- a/lapack-netlib/SRC/ctrsen.c +++ b/lapack-netlib/SRC/ctrsen.c @@ -776,7 +776,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer +/* Subroutine */ void ctrsen_(char *job, char *compq, logical *select, integer *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w, integer *m, real *s, real *sep, complex *work, integer *lwork, integer *info) @@ -792,20 +792,20 @@ f"> */ logical wantq, wants; real rnorm; integer n1, n2; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real rwork[1]; extern real clange_(char *, integer *, integer *, complex *, integer *, real *); integer nn, ks; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical wantbh; - extern /* Subroutine */ int ctrexc_(char *, integer *, complex *, integer + extern /* Subroutine */ void ctrexc_(char *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, integer *); logical wantsp; - extern /* Subroutine */ int ctrsyl_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ctrsyl_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *); logical lquery; @@ -889,9 +889,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRSEN", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -989,7 +989,7 @@ L40: work[1].r = (real) lwmin, work[1].i = 0.f; - return 0; + return; /* End of CTRSEN */ diff --git a/lapack-netlib/SRC/ctrsna.c b/lapack-netlib/SRC/ctrsna.c index 415f81fd3..763072c35 100644 --- a/lapack-netlib/SRC/ctrsna.c +++ b/lapack-netlib/SRC/ctrsna.c @@ -760,7 +760,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select, +/* Subroutine */ void ctrsna_(char *job, char *howmny, logical *select, integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer * m, complex *work, integer *ldwork, real *rwork, integer *info) @@ -783,20 +783,20 @@ f"> */ integer isave[3]; complex dummy[1]; logical wants; - extern /* Subroutine */ int clacn2_(integer *, complex *, complex *, real + extern /* Subroutine */ void clacn2_(integer *, complex *, complex *, real *, integer *, integer *); real xnorm; extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer ks, ix; extern integer icamax_(integer *, complex *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; logical wantbh; - extern /* Subroutine */ int clatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void clatrs_(char *, char *, char *, char *, integer *, complex *, integer *, complex *, real *, real *, integer *), csrscl_(integer *, real *, complex *, integer *), ctrexc_(char *, integer *, complex @@ -882,19 +882,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRSNA", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (somcon) { if (! select[1]) { - return 0; + return; } } if (wants) { @@ -903,7 +903,7 @@ f"> */ if (wantsp) { sep[1] = c_abs(&t[t_dim1 + 1]); } - return 0; + return; } /* Get machine constants */ @@ -1020,7 +1020,7 @@ L40: L50: ; } - return 0; + return; /* End of CTRSNA */ diff --git a/lapack-netlib/SRC/ctrsyl.c b/lapack-netlib/SRC/ctrsyl.c index d472ac0fb..1987a27cb 100644 --- a/lapack-netlib/SRC/ctrsyl.c +++ b/lapack-netlib/SRC/ctrsyl.c @@ -669,7 +669,7 @@ f"> */ /* > \ingroup complexSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer +/* Subroutine */ void ctrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, real *scale, integer *info) { @@ -690,15 +690,16 @@ f"> */ *, complex *, integer *); complex a11; real db; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); extern real clange_(char *, integer *, integer *, complex *, integer *, real *); complex x11; extern /* Complex */ VOID cladiv_(complex *, complex *, complex *); real scaloc; extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer - *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer + *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; logical notrna, notrnb; real smlnum, da11; @@ -753,14 +754,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRSYL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *scale = 1.f; if (*m == 0 || *n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -1100,7 +1101,7 @@ f"> */ } - return 0; + return; /* End of CTRSYL */ diff --git a/lapack-netlib/SRC/ctrsyl3.c b/lapack-netlib/SRC/ctrsyl3.c index 3c119157c..d1ee7aa16 100644 --- a/lapack-netlib/SRC/ctrsyl3.c +++ b/lapack-netlib/SRC/ctrsyl3.c @@ -673,7 +673,7 @@ static real c_b106 = 1.f; /* Angelika Schwarz, Umea University, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int ctrsyl3_(char *trana, char *tranb, integer *isgn, +/* Subroutine */ void ctrsyl3_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, real *scale, real *swork, integer * ldswork, integer *info) @@ -691,7 +691,7 @@ static real c_b106 = 1.f; integer awrk, bwrk; real *wnrm, xnrm; integer i__, j, k, l; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); @@ -700,21 +700,21 @@ static real c_b106 = 1.f; integer nb, jj, ll; extern real clange_(char *, integer *, integer *, complex *, integer *, real *); - extern /* Subroutine */ int clascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void clascl_(char *, integer *, integer *, real *, real *, integer *, integer *, complex *, integer *, integer *); real scaloc; extern real slamch_(char *); - extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer + extern /* Subroutine */ void csscal_(integer *, real *, complex *, integer *); real scamin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen ); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; extern real slarmm_(real *, real *, real *); logical notrna, notrnb; real smlnum; - extern /* Subroutine */ int ctrsyl_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ctrsyl_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *); logical lquery; @@ -790,17 +790,17 @@ static real c_b106 = 1.f; } if (*info != 0) { i__1 = -(*info); - xerbla_("CTRSYL3", &i__1); - return 0; + xerbla_("CTRSYL3", &i__1, 7); + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *scale = 1.f; if (*m == 0 || *n == 0) { - return 0; + return; } wnrm = (real*)malloc(f2cmax(*m,*n)*sizeof(real)); @@ -810,7 +810,7 @@ static real c_b106 = 1.f; if (f2cmin(nba,nbb) == 1 || *ldswork < f2cmax(nba,nbb)) { ctrsyl_(trana, tranb, isgn, m, n, &a[a_offset], lda, &b[b_offset], ldb, &c__[c_offset], ldc, scale, info); - return 0; + return; } /* Set constants to control overflow */ @@ -1927,7 +1927,7 @@ static real c_b106 = 1.f; swork[swork_dim1 + 1] = (real) f2cmax(nba,nbb); swork[swork_dim1 + 2] = (real) ((nbb << 1) + nba); - return 0; + return; } /* Realize consistent scaling */ @@ -2014,7 +2014,7 @@ static real c_b106 = 1.f; swork[swork_dim1 + 1] = (real) f2cmax(nba,nbb); swork[swork_dim1 + 2] = (real) ((nbb << 1) + nba); - return 0; + return; /* End of CTRSYL3 */ diff --git a/lapack-netlib/SRC/ctrti2.c b/lapack-netlib/SRC/ctrti2.c index e15206f64..6622f870f 100644 --- a/lapack-netlib/SRC/ctrti2.c +++ b/lapack-netlib/SRC/ctrti2.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a, +/* Subroutine */ void ctrti2_(char *uplo, char *diag, integer *n, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -633,12 +633,13 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ctrmv_(char *, char *, char *, integer *, - complex *, integer *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void ctrmv_(char *, char *, char *, integer *, + complex *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; complex ajj; @@ -675,7 +676,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRTI2", &i__1, (ftnlen)6); - return 0; + return; } if (upper) { @@ -735,7 +736,7 @@ f"> */ } } - return 0; + return; /* End of CTRTI2 */ diff --git a/lapack-netlib/SRC/ctrtri.c b/lapack-netlib/SRC/ctrtri.c index f58ea3707..7b4b9191c 100644 --- a/lapack-netlib/SRC/ctrtri.c +++ b/lapack-netlib/SRC/ctrtri.c @@ -625,7 +625,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, complex *a, +/* Subroutine */ void ctrtri_(char *uplo, char *diag, integer *n, complex *a, integer *lda, integer *info) { /* System generated locals */ @@ -637,13 +637,13 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); logical upper; - extern /* Subroutine */ int ctrti2_(char *, char *, integer *, complex *, + extern /* Subroutine */ void ctrti2_(char *, char *, integer *, complex *, integer *, integer *); integer jb, nb, nn; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -684,13 +684,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity if non-unit. */ @@ -700,7 +700,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (a[i__2].r == 0.f && a[i__2].i == 0.f) { - return 0; + return; } /* L10: */ } @@ -784,7 +784,7 @@ f"> */ } } - return 0; + return; /* End of CTRTRI */ diff --git a/lapack-netlib/SRC/ctrtrs.c b/lapack-netlib/SRC/ctrtrs.c index cab63a187..024369220 100644 --- a/lapack-netlib/SRC/ctrtrs.c +++ b/lapack-netlib/SRC/ctrtrs.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ctrtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info) { @@ -661,10 +661,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, - integer *), xerbla_(char *, - integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; @@ -709,13 +709,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -725,7 +725,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (a[i__2].r == 0.f && a[i__2].i == 0.f) { - return 0; + return; } /* L10: */ } @@ -737,7 +737,7 @@ f"> */ ctrsm_("Left", uplo, trans, diag, n, nrhs, &c_b2, &a[a_offset], lda, &b[ b_offset], ldb); - return 0; + return; /* End of CTRTRS */ diff --git a/lapack-netlib/SRC/ctrttf.c b/lapack-netlib/SRC/ctrttf.c index 7ca85eabc..0f735e92e 100644 --- a/lapack-netlib/SRC/ctrttf.c +++ b/lapack-netlib/SRC/ctrttf.c @@ -726,7 +726,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctrttf_(char *transr, char *uplo, integer *n, complex *a, +/* Subroutine */ void ctrttf_(char *transr, char *uplo, integer *n, complex *a, integer *lda, complex *arf, integer *info) { /* System generated locals */ @@ -776,7 +776,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRTTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -790,7 +790,7 @@ f"> */ arf[0].r = q__1.r, arf[0].i = q__1.i; } } - return 0; + return; } /* Size of array ARF(1:2,0:nt-1) */ @@ -1122,7 +1122,7 @@ f"> */ } - return 0; + return; /* End of CTRTTF */ diff --git a/lapack-netlib/SRC/ctrttp.c b/lapack-netlib/SRC/ctrttp.c index ea2453593..b6487a943 100644 --- a/lapack-netlib/SRC/ctrttp.c +++ b/lapack-netlib/SRC/ctrttp.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ctrttp_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void ctrttp_(char *uplo, integer *n, complex *a, integer *lda, complex *ap, integer *info) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTRTTP", &i__1, (ftnlen)6); - return 0; + return; } if (lower) { @@ -687,7 +687,7 @@ f"> */ } - return 0; + return; /* End of CTRTTP */ diff --git a/lapack-netlib/SRC/ctzrzf.c b/lapack-netlib/SRC/ctzrzf.c index 4be059dc4..89e13e78c 100644 --- a/lapack-netlib/SRC/ctzrzf.c +++ b/lapack-netlib/SRC/ctzrzf.c @@ -667,7 +667,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ctzrzf_(integer *m, integer *n, complex *a, integer *lda, +/* Subroutine */ void ctzrzf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -675,13 +675,14 @@ f"> */ /* Local variables */ integer i__, nbmin, m1, ib, nb, ki, kk, mu, nx; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), clarzb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void clarzb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int clarzt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void clarzt_(char *, char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *), clatrz_(integer *, integer *, integer *, complex *, integer *, complex *, complex *); integer lwkmin, ldwork, lwkopt; @@ -741,15 +742,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CTZRZF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0) { - return 0; + return; } else if (*m == *n) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -757,7 +758,7 @@ f"> */ tau[i__2].r = 0.f, tau[i__2].i = 0.f; /* L10: */ } - return 0; + return; } nbmin = 2; @@ -855,7 +856,7 @@ f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CTZRZF */ diff --git a/lapack-netlib/SRC/cunbdb.c b/lapack-netlib/SRC/cunbdb.c index 853ffc0da..0e4473348 100644 --- a/lapack-netlib/SRC/cunbdb.c +++ b/lapack-netlib/SRC/cunbdb.c @@ -798,7 +798,7 @@ f"> */ /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cunbdb_(char *trans, char *signs, integer *m, integer *p, +/* Subroutine */ void cunbdb_(char *trans, char *signs, integer *m, integer *p, integer *q, complex *x11, integer *ldx11, complex *x12, integer * ldx12, complex *x21, integer *ldx21, complex *x22, integer *ldx22, real *theta, real *phi, complex *taup1, complex *taup2, complex * @@ -813,18 +813,18 @@ f"> */ /* Local variables */ logical colmajor; integer lworkmin, lworkopt, i__; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), clarf_(char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int caxpy_(integer *, complex *, complex *, + extern /* Subroutine */ void caxpy_(integer *, complex *, complex *, integer *, complex *, integer *); real z1, z2, z3, z4; extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int clarfgp_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfgp_(integer *, complex *, complex *, integer *, complex *); @@ -930,9 +930,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("xORBDB", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Handle column-major and row-major separately */ @@ -1421,7 +1421,7 @@ f"> */ } - return 0; + return; /* End of CUNBDB */ diff --git a/lapack-netlib/SRC/cunbdb1.c b/lapack-netlib/SRC/cunbdb1.c index c294022f3..124443921 100644 --- a/lapack-netlib/SRC/cunbdb1.c +++ b/lapack-netlib/SRC/cunbdb1.c @@ -713,7 +713,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cunbdb1_(integer *m, integer *p, integer *q, complex * +/* Subroutine */ void cunbdb1_(integer *m, integer *p, integer *q, complex * x11, integer *ldx11, complex *x21, integer *ldx21, real *theta, real * phi, complex *taup1, complex *taup2, complex *tauq1, complex *work, integer *lwork, integer *info) @@ -729,20 +729,20 @@ static integer c__1 = 1; real c__; integer i__; real s; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); integer ilarf, llarf, childinfo; - extern /* Subroutine */ int csrot_(integer *, complex *, integer *, + extern /* Subroutine */ void csrot_(integer *, complex *, integer *, complex *, integer *, real *, real *); extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int cunbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void cunbdb5_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer iorbdb5, lorbdb5; - extern /* Subroutine */ int clarfgp_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfgp_(integer *, complex *, complex *, integer *, complex *); @@ -813,9 +813,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CUNBDB1", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce columns 1, ..., Q of X11 and X21 */ @@ -895,7 +895,7 @@ static integer c__1 = 1; } - return 0; + return; /* End of CUNBDB1 */ diff --git a/lapack-netlib/SRC/cunbdb2.c b/lapack-netlib/SRC/cunbdb2.c index 878b1a624..982e05efa 100644 --- a/lapack-netlib/SRC/cunbdb2.c +++ b/lapack-netlib/SRC/cunbdb2.c @@ -715,7 +715,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cunbdb2_(integer *m, integer *p, integer *q, complex * +/* Subroutine */ void cunbdb2_(integer *m, integer *p, integer *q, complex * x11, integer *ldx11, complex *x21, integer *ldx21, real *theta, real * phi, complex *taup1, complex *taup2, complex *tauq1, complex *work, integer *lwork, integer *info) @@ -731,21 +731,21 @@ static integer c__1 = 1; real c__; integer i__; real s; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), clarf_(char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *); integer ilarf, llarf, childinfo; - extern /* Subroutine */ int csrot_(integer *, complex *, integer *, + extern /* Subroutine */ void csrot_(integer *, complex *, integer *, complex *, integer *, real *, real *); extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int cunbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void cunbdb5_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer iorbdb5, lorbdb5; - extern /* Subroutine */ int clarfgp_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfgp_(integer *, complex *, complex *, integer *, complex *); @@ -815,9 +815,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CUNBDB2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce rows 1, ..., P of X11 and X21 */ @@ -913,7 +913,7 @@ static integer c__1 = 1; x21[i__ + (i__ + 1) * x21_dim1], ldx21, &work[ilarf]); } - return 0; + return; /* End of CUNBDB2 */ diff --git a/lapack-netlib/SRC/cunbdb3.c b/lapack-netlib/SRC/cunbdb3.c index 0718d7c0c..ebff11d71 100644 --- a/lapack-netlib/SRC/cunbdb3.c +++ b/lapack-netlib/SRC/cunbdb3.c @@ -713,7 +713,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cunbdb3_(integer *m, integer *p, integer *q, complex * +/* Subroutine */ void cunbdb3_(integer *m, integer *p, integer *q, complex * x11, integer *ldx11, complex *x21, integer *ldx21, real *theta, real * phi, complex *taup1, complex *taup2, complex *tauq1, complex *work, integer *lwork, integer *info) @@ -729,20 +729,20 @@ static integer c__1 = 1; real c__; integer i__; real s; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); integer ilarf, llarf, childinfo; - extern /* Subroutine */ int csrot_(integer *, complex *, integer *, + extern /* Subroutine */ void csrot_(integer *, complex *, integer *, complex *, integer *, real *, real *); extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int cunbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void cunbdb5_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer iorbdb5, lorbdb5; - extern /* Subroutine */ int clarfgp_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfgp_(integer *, complex *, complex *, integer *, complex *); @@ -812,9 +812,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CUNBDB3", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce rows 1, ..., M-P of X11 and X21 */ @@ -909,7 +909,7 @@ static integer c__1 = 1; x11[i__ + (i__ + 1) * x11_dim1], ldx11, &work[ilarf]); } - return 0; + return; /* End of CUNBDB3 */ diff --git a/lapack-netlib/SRC/cunbdb4.c b/lapack-netlib/SRC/cunbdb4.c index 045e3e626..d9e1e3df9 100644 --- a/lapack-netlib/SRC/cunbdb4.c +++ b/lapack-netlib/SRC/cunbdb4.c @@ -724,7 +724,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cunbdb4_(integer *m, integer *p, integer *q, complex * +/* Subroutine */ void cunbdb4_(integer *m, integer *p, integer *q, complex * x11, integer *ldx11, complex *x21, integer *ldx21, real *theta, real * phi, complex *taup1, complex *taup2, complex *tauq1, complex *phantom, complex *work, integer *lwork, integer *info) @@ -740,21 +740,21 @@ static integer c__1 = 1; real c__; integer i__, j; real s; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), clarf_(char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *); integer ilarf, llarf, childinfo; - extern /* Subroutine */ int csrot_(integer *, complex *, integer *, + extern /* Subroutine */ void csrot_(integer *, complex *, integer *, complex *, integer *, real *, real *); extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int cunbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void cunbdb5_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); integer iorbdb5, lorbdb5; - extern /* Subroutine */ int clarfgp_(integer *, complex *, complex *, + extern /* Subroutine */ void clarfgp_(integer *, complex *, complex *, integer *, complex *); @@ -827,9 +827,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CUNBDB4", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce columns 1, ..., M-Q of X11 and X21 */ @@ -980,7 +980,7 @@ static integer c__1 = 1; clacgv_(&i__2, &x21[*m - *q + i__ - *p + i__ * x21_dim1], ldx21); } - return 0; + return; /* End of CUNBDB4 */ diff --git a/lapack-netlib/SRC/cunbdb5.c b/lapack-netlib/SRC/cunbdb5.c index a6cb9b4e0..2ab0644ef 100644 --- a/lapack-netlib/SRC/cunbdb5.c +++ b/lapack-netlib/SRC/cunbdb5.c @@ -664,7 +664,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunbdb5_(integer *m1, integer *m2, integer *n, complex * +/* Subroutine */ void cunbdb5_(integer *m1, integer *m2, integer *n, complex * x1, integer *incx1, complex *x2, integer *incx2, complex *q1, integer *ldq1, complex *q2, integer *ldq2, complex *work, integer *lwork, integer *info) @@ -676,7 +676,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ integer i__, j, childinfo; extern real scnrm2_(integer *, complex *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cunbdb6_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cunbdb6_( integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *); @@ -727,7 +728,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("CUNBDB5", &i__1, (ftnlen)7); - return 0; + return; } /* Project X onto the orthogonal complement of Q */ @@ -740,7 +741,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ r__1 = scnrm2_(m1, &x1[1], incx1); r__2 = scnrm2_(m2, &x2[1], incx2); if (r__1 != 0.f || r__2 != 0.f) { - return 0; + return; } /* Project each standard basis vector e_1,...,e_M1 in turn, stopping */ @@ -765,7 +766,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ r__1 = scnrm2_(m1, &x1[1], incx1); r__2 = scnrm2_(m2, &x2[1], incx2); if (r__1 != 0.f || r__2 != 0.f) { - return 0; + return; } } @@ -791,11 +792,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ r__1 = scnrm2_(m1, &x1[1], incx1); r__2 = scnrm2_(m2, &x2[1], incx2); if (r__1 != 0.f || r__2 != 0.f) { - return 0; + return; } } - return 0; + return; /* End of CUNBDB5 */ diff --git a/lapack-netlib/SRC/cunbdb6.c b/lapack-netlib/SRC/cunbdb6.c index 06d76579d..6023d70d4 100644 --- a/lapack-netlib/SRC/cunbdb6.c +++ b/lapack-netlib/SRC/cunbdb6.c @@ -669,7 +669,7 @@ static integer c__1 = 1; /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunbdb6_(integer *m1, integer *m2, integer *n, complex * +/* Subroutine */ void cunbdb6_(integer *m1, integer *m2, integer *n, complex * x1, integer *incx1, complex *x2, integer *incx2, complex *q1, integer *ldq1, complex *q2, integer *ldq2, complex *work, integer *lwork, integer *info) @@ -680,9 +680,11 @@ static integer c__1 = 1; /* Local variables */ integer i__; - extern /* Subroutine */ int cgemv_(char *, integer *, integer *, complex * + extern /* Subroutine */ void cgemv_(char *, integer *, integer *, complex * , complex *, integer *, complex *, integer *, complex *, complex * - , integer *), xerbla_(char *, integer *, ftnlen), classq_( + , integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void classq_( integer *, complex *, integer *, real *, real *); real normsq1, normsq2, scl1, scl2, ssq1, ssq2; @@ -732,7 +734,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("CUNBDB6", &i__1, (ftnlen)7); - return 0; + return; } /* First, project X onto the orthogonal complement of Q's column */ @@ -786,11 +788,11 @@ static integer c__1 = 1; /* Otherwise, project again. */ if (normsq2 >= normsq1 * .01f) { - return 0; + return; } if (normsq2 == 0.f) { - return 0; + return; } normsq1 = normsq2; @@ -849,7 +851,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of CUNBDB6 */ diff --git a/lapack-netlib/SRC/cuncsd.c b/lapack-netlib/SRC/cuncsd.c index d03181593..30b37d506 100644 --- a/lapack-netlib/SRC/cuncsd.c +++ b/lapack-netlib/SRC/cuncsd.c @@ -829,7 +829,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cuncsd_(char *jobu1, char *jobu2, char *jobv1t, char * +/* Subroutine */ void cuncsd_(char *jobu1, char *jobu2, char *jobv1t, char * jobv2t, char *trans, char *signs, integer *m, integer *p, integer *q, complex *x11, integer *ldx11, complex *x12, integer *ldx12, complex * x21, integer *ldx21, complex *x22, integer *ldx22, real *theta, @@ -853,27 +853,28 @@ f"> */ integer childinfo, p1, q1, lbbcsdworkmin, itaup1, itaup2, itauq1, itauq2, lorbdbworkmin, lrworkmin, lbbcsdworkopt; logical wantu1, wantu2; - extern /* Subroutine */ int cbbcsd_(char *, char *, char *, char *, char * + extern /* Subroutine */ void cbbcsd_(char *, char *, char *, char *, char * , integer *, integer *, integer *, real *, real *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, real *, real *, real *, real *, real *, real *, real *, integer *, integer *); integer lrworkopt, ibbcsd, lorbdbworkopt; - extern /* Subroutine */ int cunbdb_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunbdb_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, complex *, complex *, integer *, integer *); integer iorbdb, lorglqworkmin, lorgqrworkmin; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen), clapmr_(logical *, integer *, integer *, + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clapmr_(logical *, integer *, integer *, complex *, integer *, integer *), clapmt_(logical *, integer *, integer *, complex *, integer *, integer *); integer lorglqworkopt; - extern /* Subroutine */ int cunglq_(integer *, integer *, integer *, + extern /* Subroutine */ void cunglq_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); integer lorgqrworkopt, iorglq; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); integer iorgqr; char signst[1], transt[1]; @@ -1005,7 +1006,7 @@ f"> */ ldv1t, &v2t[v2t_offset], ldv2t, &u1[u1_offset], ldu1, &u2[ u2_offset], ldu2, &work[1], lwork, &rwork[1], lrwork, &iwork[ 1], info); - return 0; + return; } /* Work with permutation [ 0 I; I 0 ] * X * [ 0 I; I 0 ] if */ @@ -1025,7 +1026,7 @@ f"> */ u2_offset], ldu2, &u1[u1_offset], ldu1, &v2t[v2t_offset], ldv2t, &v1t[v1t_offset], ldv1t, &work[1], lwork, &rwork[1], lrwork, &iwork[1], info); - return 0; + return; } /* Compute workspace */ @@ -1141,9 +1142,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNCSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery || lrquery) { - return 0; + return; } /* Transform to bidiagonal block form */ @@ -1322,7 +1323,7 @@ f"> */ } } - return 0; + return; /* End CUNCSD */ diff --git a/lapack-netlib/SRC/cuncsd2by1.c b/lapack-netlib/SRC/cuncsd2by1.c index a4dbb3cc1..8d4dec521 100644 --- a/lapack-netlib/SRC/cuncsd2by1.c +++ b/lapack-netlib/SRC/cuncsd2by1.c @@ -767,7 +767,7 @@ by1.f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cuncsd2by1_(char *jobu1, char *jobu2, char *jobv1t, +/* Subroutine */ void cuncsd2by1_(char *jobu1, char *jobu2, char *jobv1t, integer *m, integer *p, integer *q, complex *x11, integer *ldx11, complex *x21, integer *ldx21, real *theta, complex *u1, integer *ldu1, complex *u2, integer *ldu2, complex *v1t, integer *ldv1t, complex * @@ -783,36 +783,37 @@ by1.f"> */ complex cdum[1] /* was [1][1] */; integer iphi, lworkmin, lworkopt, i__, j, r__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer childinfo, lorglqmin, lorgqrmin, lorglqopt, lrworkmin, itaup1, itaup2, itauq1, lorgqropt; logical wantu1, wantu2; - extern /* Subroutine */ int cbbcsd_(char *, char *, char *, char *, char * + extern /* Subroutine */ void cbbcsd_(char *, char *, char *, char *, char * , integer *, integer *, integer *, real *, real *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, real *, real *, real *, real *, real *, real *, real *, real *, real *, integer *, integer *); integer lrworkopt, ibbcsd, lbbcsd, iorbdb, lorbdb; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen), clapmr_(logical *, integer *, integer *, + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void clapmr_(logical *, integer *, integer *, complex *, integer *, integer *), clapmt_(logical *, integer *, integer *, complex *, integer *, integer *), cunglq_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); integer iorglq; - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); integer lorglq, iorgqr, lorgqr; - extern /* Subroutine */ int cunbdb1_(integer *, integer *, integer *, + extern /* Subroutine */ void cunbdb1_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, complex *, integer *, integer *), cunbdb2_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, complex *, integer *, integer *); logical lquery; - extern /* Subroutine */ int cunbdb3_(integer *, integer *, integer *, + extern /* Subroutine */ void cunbdb3_(integer *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, complex *, complex *, complex *, complex *, integer *, integer *), cunbdb4_(integer *, integer *, integer *, complex *, integer *, @@ -1147,9 +1148,9 @@ by1.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNCSD2BY1", &i__1, (ftnlen)10); - return 0; + return; } else if (lquery) { - return 0; + return; } lorgqr = *lwork - iorgqr + 1; lorglq = *lwork - iorglq + 1; @@ -1473,7 +1474,7 @@ by1.f"> */ } } - return 0; + return; /* End of CUNCSD2BY1 */ diff --git a/lapack-netlib/SRC/cung2l.c b/lapack-netlib/SRC/cung2l.c index 1e03d5785..ab80fd3f8 100644 --- a/lapack-netlib/SRC/cung2l.c +++ b/lapack-netlib/SRC/cung2l.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, complex *a, +/* Subroutine */ void cung2l_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -637,7 +637,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), clarf_(char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *); integer ii; @@ -676,13 +676,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNG2L", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Initialise columns 1:n-k to columns of the unit matrix */ @@ -731,7 +731,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of CUNG2L */ diff --git a/lapack-netlib/SRC/cung2r.c b/lapack-netlib/SRC/cung2r.c index 20dd51954..d88e9285b 100644 --- a/lapack-netlib/SRC/cung2r.c +++ b/lapack-netlib/SRC/cung2r.c @@ -627,7 +627,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, complex *a, +/* Subroutine */ void cung2r_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -636,10 +636,10 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), clarf_(char *, integer *, integer *, complex *, - integer *, complex *, complex *, integer *, complex *), - xerbla_(char *, integer *, ftnlen); + integer *, complex *, complex *, integer *, complex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -674,13 +674,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNG2R", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Initialise columns k+1:n to columns of the unit matrix */ @@ -731,7 +731,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of CUNG2R */ diff --git a/lapack-netlib/SRC/cungbr.c b/lapack-netlib/SRC/cungbr.c index f0044e76c..f25d67f48 100644 --- a/lapack-netlib/SRC/cungbr.c +++ b/lapack-netlib/SRC/cungbr.c @@ -670,7 +670,7 @@ f"> */ /* > \ingroup complexGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k, +/* Subroutine */ void cungbr_(char *vect, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { @@ -683,7 +683,8 @@ f"> */ integer iinfo; logical wantq; integer mn; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), cunglq_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void cunglq_( integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, @@ -766,17 +767,17 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGBR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } if (wantq) { @@ -883,7 +884,7 @@ f"> */ } } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNGBR */ diff --git a/lapack-netlib/SRC/cunghr.c b/lapack-netlib/SRC/cunghr.c index c99c4b053..e4c398d94 100644 --- a/lapack-netlib/SRC/cunghr.c +++ b/lapack-netlib/SRC/cunghr.c @@ -640,7 +640,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, complex * +/* Subroutine */ void cunghr_(integer *n, integer *ilo, integer *ihi, complex * a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { @@ -652,7 +652,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); integer lwkopt; logical lquery; @@ -702,16 +702,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGHR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Shift the vectors which define the elementary reflectors one */ @@ -774,7 +774,7 @@ f"> */ ilo], &work[1], lwork, &iinfo); } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNGHR */ diff --git a/lapack-netlib/SRC/cungl2.c b/lapack-netlib/SRC/cungl2.c index 1fb8e3164..310866871 100644 --- a/lapack-netlib/SRC/cungl2.c +++ b/lapack-netlib/SRC/cungl2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, complex *a, +/* Subroutine */ void cungl2_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -632,11 +632,11 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), clarf_(char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *), - clacgv_(integer *, complex *, integer *), xerbla_(char *, integer - *, ftnlen); + clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -671,13 +671,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGL2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } if (*k < *m) { @@ -738,7 +738,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of CUNGL2 */ diff --git a/lapack-netlib/SRC/cunglq.c b/lapack-netlib/SRC/cunglq.c index 89f296c51..d51e1e5f9 100644 --- a/lapack-netlib/SRC/cunglq.c +++ b/lapack-netlib/SRC/cunglq.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a, +/* Subroutine */ void cunglq_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer * info) { @@ -652,15 +652,16 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int cungl2_(integer *, integer *, integer *, + extern /* Subroutine */ void cungl2_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer ib, nb, ki, kk; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -706,16 +707,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } nbmin = 2; @@ -836,7 +837,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CUNGLQ */ diff --git a/lapack-netlib/SRC/cungql.c b/lapack-netlib/SRC/cungql.c index 335f3576e..ab09d8ccf 100644 --- a/lapack-netlib/SRC/cungql.c +++ b/lapack-netlib/SRC/cungql.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cungql_(integer *m, integer *n, integer *k, complex *a, +/* Subroutine */ void cungql_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer * info) { @@ -653,15 +653,16 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int cung2l_(integer *, integer *, integer *, + extern /* Subroutine */ void cung2l_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer ib, nb, kk; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -718,15 +719,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGQL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } nbmin = 2; @@ -846,7 +847,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CUNGQL */ diff --git a/lapack-netlib/SRC/cungqr.c b/lapack-netlib/SRC/cungqr.c index 01205569e..7da1ebb44 100644 --- a/lapack-netlib/SRC/cungqr.c +++ b/lapack-netlib/SRC/cungqr.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, complex *a, +/* Subroutine */ void cungqr_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer * info) { @@ -653,15 +653,16 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int cung2r_(integer *, integer *, integer *, + extern /* Subroutine */ void cung2r_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer ib, nb, ki, kk; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -707,16 +708,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } nbmin = 2; @@ -837,7 +838,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CUNGQR */ diff --git a/lapack-netlib/SRC/cungr2.c b/lapack-netlib/SRC/cungr2.c index 6cc348128..63d99e854 100644 --- a/lapack-netlib/SRC/cungr2.c +++ b/lapack-netlib/SRC/cungr2.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, complex *a, +/* Subroutine */ void cungr2_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info) { /* System generated locals */ @@ -633,12 +633,12 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *), clarf_(char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *); integer ii; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -673,13 +673,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGR2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } if (*k < *m) { @@ -738,7 +738,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of CUNGR2 */ diff --git a/lapack-netlib/SRC/cungrq.c b/lapack-netlib/SRC/cungrq.c index 3c12b02eb..c257eeb8e 100644 --- a/lapack-netlib/SRC/cungrq.c +++ b/lapack-netlib/SRC/cungrq.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, complex *a, +/* Subroutine */ void cungrq_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer * info) { @@ -653,15 +653,16 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int cungr2_(integer *, integer *, integer *, + extern /* Subroutine */ void cungr2_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *); integer ib, nb, ii, kk; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nx; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -718,15 +719,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGRQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } nbmin = 2; @@ -846,7 +847,7 @@ f"> */ } work[1].r = (real) iws, work[1].i = 0.f; - return 0; + return; /* End of CUNGRQ */ diff --git a/lapack-netlib/SRC/cungtr.c b/lapack-netlib/SRC/cungtr.c index a2d1c83a1..f640f9fed 100644 --- a/lapack-netlib/SRC/cungtr.c +++ b/lapack-netlib/SRC/cungtr.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cungtr_(char *uplo, integer *n, complex *a, integer *lda, +/* Subroutine */ void cungtr_(char *uplo, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -652,7 +652,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cungql_(integer *, integer *, integer *, + extern /* Subroutine */ void cungql_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *), cungqr_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, integer *); @@ -719,16 +719,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGTR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } if (upper) { @@ -809,7 +809,7 @@ f"> */ } } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNGTR */ diff --git a/lapack-netlib/SRC/cungtsqr.c b/lapack-netlib/SRC/cungtsqr.c index c26ac117a..7b8c1f674 100644 --- a/lapack-netlib/SRC/cungtsqr.c +++ b/lapack-netlib/SRC/cungtsqr.c @@ -688,7 +688,7 @@ r.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int cungtsqr_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void cungtsqr_(integer *m, integer *n, integer *mb, integer * nb, complex *a, integer *lda, complex *t, integer *ldt, complex *work, integer *lwork, integer *info) { @@ -697,17 +697,17 @@ r.f"> */ complex q__1; /* Local variables */ - extern /* Subroutine */ int clamtsqr_(char *, char *, integer *, integer * + extern /* Subroutine */ void clamtsqr_(char *, char *, integer *, integer * , integer *, integer *, integer *, complex *, integer *, complex * , integer *, complex *, integer *, complex *, integer *, integer * ); integer lworkopt, j, iinfo; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *); integer lc, lw; - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex - *, complex *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex + *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; integer ldc, nblocal; @@ -787,11 +787,11 @@ r.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGTSQR", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* Quick return if possible */ @@ -799,7 +799,7 @@ r.f"> */ if (f2cmin(*m,*n) == 0) { q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* (1) Form explicitly the tall-skinny M-by-N left submatrix Q1_in */ @@ -834,7 +834,7 @@ r.f"> */ q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CUNGTSQR */ diff --git a/lapack-netlib/SRC/cungtsqr_row.c b/lapack-netlib/SRC/cungtsqr_row.c index 9c644a67f..02221c7c4 100644 --- a/lapack-netlib/SRC/cungtsqr_row.c +++ b/lapack-netlib/SRC/cungtsqr_row.c @@ -701,7 +701,7 @@ qr_row.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cungtsqr_row_(integer *m, integer *n, integer *mb, +/* Subroutine */ void cungtsqr_row_(integer *m, integer *n, integer *mb, integer *nb, complex *a, integer *lda, complex *t, integer *ldt, complex *work, integer *lwork, integer *info) { @@ -713,13 +713,13 @@ qr_row.f"> */ integer jb_t__, itmp, lworkopt; complex dummy[1] /* was [1][1] */; integer ib_bottom__, ib, kb; - extern /* Subroutine */ int claset_(char *, integer *, integer *, complex - *, complex *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void claset_(char *, integer *, integer *, complex + *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer mb1, mb2, m_plus_one__; logical lquery; integer num_all_row_blocks__, imb, knb, nblocal, kb_last__; - extern /* Subroutine */ int clarfb_gett_(char *, integer *, integer *, + extern /* Subroutine */ void clarfb_gett_(char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); @@ -781,11 +781,11 @@ qr_row.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNGTSQR_ROW", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* Quick return if possible */ @@ -793,7 +793,7 @@ qr_row.f"> */ if (f2cmin(*m,*n) == 0) { q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; } /* (0) Set the upper-triangular part of the matrix A to zero and */ @@ -916,7 +916,7 @@ qr_row.f"> */ q__1.r = (real) lworkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CUNGTSQR_ROW */ diff --git a/lapack-netlib/SRC/cunhr_col.c b/lapack-netlib/SRC/cunhr_col.c index d0a54a33c..f06755953 100644 --- a/lapack-netlib/SRC/cunhr_col.c +++ b/lapack-netlib/SRC/cunhr_col.c @@ -772,7 +772,7 @@ ol.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int cunhr_col_(integer *m, integer *n, integer *nb, complex +/* Subroutine */ void cunhr_col_(integer *m, integer *n, integer *nb, complex *a, integer *lda, complex *t, integer *ldt, complex *d__, integer * info) { @@ -781,13 +781,13 @@ ol.f"> */ complex q__1; /* Local variables */ - extern /* Subroutine */ int claunhr_col_getrfnp_(integer *, integer *, + extern /* Subroutine */ void claunhr_col_getrfnp_(integer *, integer *, complex *, integer *, complex *, integer *); integer nplusone, i__, j; - extern /* Subroutine */ int cscal_(integer *, complex *, complex *, + extern /* Subroutine */ void cscal_(integer *, complex *, complex *, integer *); integer iinfo; - extern /* Subroutine */ int ccopy_(integer *, complex *, integer *, + extern /* Subroutine */ void ccopy_(integer *, complex *, integer *, complex *, integer *), ctrsm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); @@ -839,13 +839,13 @@ ol.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNHR_COL", &i__1, (ftnlen)9); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* On input, the M-by-N matrix A contains the unitary */ @@ -977,7 +977,7 @@ ol.f"> */ } - return 0; + return; /* End of CUNHR_COL */ diff --git a/lapack-netlib/SRC/cunm22.c b/lapack-netlib/SRC/cunm22.c index 79f509f70..91ae37fb7 100644 --- a/lapack-netlib/SRC/cunm22.c +++ b/lapack-netlib/SRC/cunm22.c @@ -674,7 +674,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunm22_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunm22_(char *side, char *trans, integer *m, integer *n, integer *n1, integer *n2, complex *q, integer *ldq, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info) { @@ -685,17 +685,17 @@ f"> */ /* Local variables */ logical left; integer i__; - extern /* Subroutine */ int cgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cgemm_(char *, char *, integer *, integer *, integer *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ctrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ctrmm_(char *, char *, char *, char *, integer *, integer *, complex *, complex *, integer *, complex *, integer *); integer nb, nq, nw; - extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex - *, integer *, complex *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void clacpy_(char *, integer *, integer *, complex + *, integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork, lwkopt; logical lquery; @@ -772,16 +772,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNM22", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Degenerate cases (N1 = 0 or N2 = 0) are handled using CTRMM. */ @@ -790,12 +790,12 @@ f"> */ ctrmm_(side, "Upper", trans, "Non-Unit", m, n, &c_b1, &q[q_offset], ldq, &c__[c_offset], ldc); work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } else if (*n2 == 0) { ctrmm_(side, "Lower", trans, "Non-Unit", m, n, &c_b1, &q[q_offset], ldq, &c__[c_offset], ldc); work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } /* Compute the largest chunk size available from the workspace. */ @@ -980,7 +980,7 @@ f"> */ q__1.r = (real) lwkopt, q__1.i = 0.f; work[1].r = q__1.r, work[1].i = q__1.i; - return 0; + return; /* End of CUNM22 */ diff --git a/lapack-netlib/SRC/cunm2l.c b/lapack-netlib/SRC/cunm2l.c index efeb95ed9..004757b92 100644 --- a/lapack-netlib/SRC/cunm2l.c +++ b/lapack-netlib/SRC/cunm2l.c @@ -672,7 +672,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunm2l_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info) { @@ -684,7 +684,7 @@ f"> */ logical left; complex taui; integer i__; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); extern logical lsame_(char *, char *); integer i1, i2, i3, mi, ni, nq; @@ -744,13 +744,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNM2L", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran || ! left && ! notran) { @@ -803,7 +803,7 @@ f"> */ a[i__3].r = aii.r, a[i__3].i = aii.i; /* L10: */ } - return 0; + return; /* End of CUNM2L */ diff --git a/lapack-netlib/SRC/cunm2r.c b/lapack-netlib/SRC/cunm2r.c index 8c7bcbe66..0118b2da1 100644 --- a/lapack-netlib/SRC/cunm2r.c +++ b/lapack-netlib/SRC/cunm2r.c @@ -672,7 +672,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunm2r_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info) { @@ -684,7 +684,7 @@ f"> */ logical left; complex taui; integer i__; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); extern logical lsame_(char *, char *); integer i1, i2, i3, ic, jc, mi, ni, nq; @@ -744,13 +744,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNM2R", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -807,7 +807,7 @@ f"> */ a[i__3].r = aii.r, a[i__3].i = aii.i; /* L10: */ } - return 0; + return; /* End of CUNM2R */ diff --git a/lapack-netlib/SRC/cunmbr.c b/lapack-netlib/SRC/cunmbr.c index 92179fe05..34c478e45 100644 --- a/lapack-netlib/SRC/cunmbr.c +++ b/lapack-netlib/SRC/cunmbr.c @@ -711,7 +711,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m, +/* Subroutine */ void cunmbr_(char *vect, char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer * info) @@ -728,11 +728,11 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmlq_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); logical notran; - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); logical applyq; @@ -860,15 +860,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNMBR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (applyq) { @@ -937,7 +937,7 @@ f"> */ } } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNMBR */ diff --git a/lapack-netlib/SRC/cunmhr.c b/lapack-netlib/SRC/cunmhr.c index 740e3e93e..c10671114 100644 --- a/lapack-netlib/SRC/cunmhr.c +++ b/lapack-netlib/SRC/cunmhr.c @@ -693,7 +693,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunmhr_(char *side, char *trans, integer *m, integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer * info) @@ -710,7 +710,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *); integer lwkopt; @@ -797,16 +797,16 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("CUNMHR", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || nh == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } if (left) { @@ -825,7 +825,7 @@ f"> */ tau[*ilo], &c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo); work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNMHR */ diff --git a/lapack-netlib/SRC/cunml2.c b/lapack-netlib/SRC/cunml2.c index 816b466b7..9e7c39b33 100644 --- a/lapack-netlib/SRC/cunml2.c +++ b/lapack-netlib/SRC/cunml2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunml2_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info) { @@ -680,12 +680,12 @@ f"> */ logical left; complex taui; integer i__; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); extern logical lsame_(char *, char *); integer i1, i2, i3, ic, jc, mi, ni, nq; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; complex aii; @@ -741,13 +741,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNML2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran || ! left && ! notran) { @@ -812,7 +812,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of CUNML2 */ diff --git a/lapack-netlib/SRC/cunmlq.c b/lapack-netlib/SRC/cunmlq.c index d67b20ea6..573d94628 100644 --- a/lapack-netlib/SRC/cunmlq.c +++ b/lapack-netlib/SRC/cunmlq.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunmlq_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info) { @@ -698,16 +698,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int cunml2_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunml2_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *); integer ib, ic, jc, nb, mi, ni; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nq, nw; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical notran; @@ -795,15 +796,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNMLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } /* Determine the block size */ @@ -895,7 +896,7 @@ f"> */ } } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNMLQ */ diff --git a/lapack-netlib/SRC/cunmql.c b/lapack-netlib/SRC/cunmql.c index cb4df2225..1b6e0b294 100644 --- a/lapack-netlib/SRC/cunmql.c +++ b/lapack-netlib/SRC/cunmql.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunmql_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info) { @@ -698,16 +698,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int cunm2l_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunm2l_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *); integer ib, nb, mi, ni; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nq, nw; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical notran; @@ -793,15 +794,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNMQL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size */ @@ -883,7 +884,7 @@ f"> */ } } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNMQL */ diff --git a/lapack-netlib/SRC/cunmqr.c b/lapack-netlib/SRC/cunmqr.c index 500ca0d7a..c823aec11 100644 --- a/lapack-netlib/SRC/cunmqr.c +++ b/lapack-netlib/SRC/cunmqr.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunmqr_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info) { @@ -698,16 +698,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int cunm2r_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunm2r_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *); integer ib, ic, jc, nb, mi, ni; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nq, nw; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical notran; @@ -789,16 +790,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNMQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } nbmin = 2; @@ -882,7 +883,7 @@ f"> */ } } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNMQR */ diff --git a/lapack-netlib/SRC/cunmr2.c b/lapack-netlib/SRC/cunmr2.c index 6e0f8e84a..dc9afb06a 100644 --- a/lapack-netlib/SRC/cunmr2.c +++ b/lapack-netlib/SRC/cunmr2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunmr2_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info) { @@ -680,12 +680,12 @@ f"> */ logical left; complex taui; integer i__; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); extern logical lsame_(char *, char *); integer i1, i2, i3, mi, ni, nq; - extern /* Subroutine */ int clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clacgv_(integer *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; complex aii; @@ -741,13 +741,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNMR2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -804,7 +804,7 @@ f"> */ clacgv_(&i__3, &a[i__ + a_dim1], lda); /* L10: */ } - return 0; + return; /* End of CUNMR2 */ diff --git a/lapack-netlib/SRC/cunmr3.c b/lapack-netlib/SRC/cunmr3.c index a0e38ad76..a6170360c 100644 --- a/lapack-netlib/SRC/cunmr3.c +++ b/lapack-netlib/SRC/cunmr3.c @@ -687,7 +687,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunmr3_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info) { @@ -700,7 +700,7 @@ f"> */ complex taui; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int clarz_(char *, integer *, integer *, integer * + extern /* Subroutine */ void clarz_(char *, integer *, integer *, integer * , complex *, integer *, complex *, complex *, integer *, complex * ); integer i1, i2, i3, ja, ic, jc, mi, ni, nq; @@ -761,13 +761,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNMR3", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -822,7 +822,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of CUNMR3 */ diff --git a/lapack-netlib/SRC/cunmrq.c b/lapack-netlib/SRC/cunmrq.c index 40fa5baaf..972242232 100644 --- a/lapack-netlib/SRC/cunmrq.c +++ b/lapack-netlib/SRC/cunmrq.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunmrq_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info) { @@ -698,16 +698,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int cunmr2_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmr2_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *); integer ib, nb, mi, ni; - extern /* Subroutine */ int clarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarfb_(char *, char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); integer nq, nw; - extern /* Subroutine */ int clarft_(char *, char *, integer *, integer *, - complex *, integer *, complex *, complex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void clarft_(char *, char *, integer *, integer *, + complex *, integer *, complex *, complex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical notran; @@ -795,15 +796,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNMRQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } nbmin = 2; @@ -889,7 +890,7 @@ f"> */ } } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNMRQ */ diff --git a/lapack-netlib/SRC/cunmrz.c b/lapack-netlib/SRC/cunmrz.c index 2e8c13a98..fd800099b 100644 --- a/lapack-netlib/SRC/cunmrz.c +++ b/lapack-netlib/SRC/cunmrz.c @@ -702,7 +702,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void cunmrz_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer * info) @@ -718,16 +718,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int cunmr3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmr3_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *); integer ib, ic, ja, jc, nb, mi, ni, nq, nw; - extern /* Subroutine */ int clarzb_(char *, char *, char *, char *, + extern /* Subroutine */ void clarzb_(char *, char *, char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), clarzt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void clarzt_( char *, char *, integer *, integer *, complex *, integer *, complex *, complex *, integer *); logical notran; @@ -817,15 +818,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUNMRZ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size. */ @@ -930,7 +931,7 @@ f"> */ work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNMRZ */ diff --git a/lapack-netlib/SRC/cunmtr.c b/lapack-netlib/SRC/cunmtr.c index 2fe181f6c..d741e1d24 100644 --- a/lapack-netlib/SRC/cunmtr.c +++ b/lapack-netlib/SRC/cunmtr.c @@ -686,7 +686,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m, +/* Subroutine */ void cunmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info) { @@ -704,7 +704,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int cunmql_(char *, char *, integer *, integer *, + extern /* Subroutine */ void cunmql_(char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *, complex *, integer *, integer *), cunmqr_(char *, char *, integer *, integer *, integer *, complex *, integer *, @@ -817,16 +817,16 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("CUNMTR", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || nq == 1) { work[1].r = 1.f, work[1].i = 0.f; - return 0; + return; } if (left) { @@ -860,7 +860,7 @@ f"> */ c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo); } work[1].r = (real) lwkopt, work[1].i = 0.f; - return 0; + return; /* End of CUNMTR */ diff --git a/lapack-netlib/SRC/cupgtr.c b/lapack-netlib/SRC/cupgtr.c index e61c2dec0..208d30991 100644 --- a/lapack-netlib/SRC/cupgtr.c +++ b/lapack-netlib/SRC/cupgtr.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cupgtr_(char *uplo, integer *n, complex *ap, complex * +/* Subroutine */ void cupgtr_(char *uplo, integer *n, complex *ap, complex * tau, complex *q, integer *ldq, complex *work, integer *info) { /* System generated locals */ @@ -634,7 +634,7 @@ f"> */ extern logical lsame_(char *, char *); integer iinfo; logical upper; - extern /* Subroutine */ int cung2l_(integer *, integer *, integer *, + extern /* Subroutine */ void cung2l_(integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *), cung2r_( integer *, integer *, integer *, complex *, integer *, complex *, complex *, integer *); @@ -674,13 +674,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUPGTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -767,7 +767,7 @@ f"> */ &work[1], &iinfo); } } - return 0; + return; /* End of CUPGTR */ diff --git a/lapack-netlib/SRC/cupmtr.c b/lapack-netlib/SRC/cupmtr.c index a66b4fff5..6fc539768 100644 --- a/lapack-netlib/SRC/cupmtr.c +++ b/lapack-netlib/SRC/cupmtr.c @@ -662,7 +662,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m, +/* Subroutine */ void cupmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, complex *ap, complex *tau, complex *c__, integer *ldc, complex *work, integer *info) { @@ -674,7 +674,7 @@ f"> */ logical left; complex taui; integer i__; - extern /* Subroutine */ int clarf_(char *, integer *, integer *, complex * + extern /* Subroutine */ void clarf_(char *, integer *, integer *, complex * , integer *, complex *, complex *, integer *, complex *); extern logical lsame_(char *, char *); integer i1; @@ -733,13 +733,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("CUPMTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (upper) { @@ -875,7 +875,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of CUPMTR */ diff --git a/lapack-netlib/SRC/dbbcsd.c b/lapack-netlib/SRC/dbbcsd.c index c9e56314e..efc696925 100644 --- a/lapack-netlib/SRC/dbbcsd.c +++ b/lapack-netlib/SRC/dbbcsd.c @@ -844,7 +844,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * +/* Subroutine */ void dbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * jobv2t, char *trans, integer *m, integer *p, integer *q, doublereal * theta, doublereal *phi, doublereal *u1, integer *ldu1, doublereal *u2, integer *ldu2, doublereal *v1t, integer *ldv1t, doublereal *v2t, @@ -864,14 +864,14 @@ f"> */ logical colmajor; doublereal thetamin, thetamax; logical restart11, restart12, restart21, restart22; - extern /* Subroutine */ int dlas2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlas2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); integer lworkmin, iu1cs, iu2cs, iu1sn, iu2sn, lworkopt, i__, j; doublereal r__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dlasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dlasr_(char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dswap_(integer *, doublereal *, integer * , doublereal *, integer *); integer maxit; @@ -883,12 +883,12 @@ f"> */ doublereal mu, nu, sigma11, sigma21; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal thresh, tolmul; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); logical lquery; doublereal b11bulge; logical wantv1t, wantv2t; doublereal b12bulge, b21bulge, b22bulge, eps, tol; - extern /* Subroutine */ int dlartgp_(doublereal *, doublereal *, + extern /* Subroutine */ void dlartgp_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlartgs_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -962,7 +962,7 @@ f"> */ if (*info == 0 && *q == 0) { lworkmin = 1; work[1] = (doublereal) lworkmin; - return 0; + return; } /* Compute workspace */ @@ -987,9 +987,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DBBCSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Get machine constants */ @@ -1081,7 +1081,7 @@ f"> */ ++(*info); } } - return 0; + return; } iter = iter + imax - imin; @@ -1792,7 +1792,7 @@ f"> */ } - return 0; + return; /* End of DBBCSD */ diff --git a/lapack-netlib/SRC/dbdsdc.c b/lapack-netlib/SRC/dbdsdc.c index ac79c8e65..5c361289a 100644 --- a/lapack-netlib/SRC/dbdsdc.c +++ b/lapack-netlib/SRC/dbdsdc.c @@ -722,7 +722,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal * +/* Subroutine */ void dbdsdc_(char *uplo, char *compq, integer *n, doublereal * d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer * iwork, integer *info) @@ -736,18 +736,18 @@ f"> */ doublereal p, r__; integer z__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dlasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dlasr_(char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer * , doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer poles, iuplo, nsize, start; - extern /* Subroutine */ int dlasd0_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlasd0_(integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *); integer ic, ii, kk; doublereal cs; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlasda_(integer *, integer *, integer *, + extern /* Subroutine */ void dlasda_(integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *, @@ -755,7 +755,7 @@ f"> */ integer *); integer is, iu; doublereal sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlasdq_(char *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, @@ -837,13 +837,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DBDSDC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } smlsiz = ilaenv_(&c__9, "DBDSDC", " ", &c__0, &c__0, &c__0, &c__0, ( ftnlen)6, (ftnlen)1); @@ -856,7 +856,7 @@ f"> */ vt[vt_dim1 + 1] = 1.; } d__[1] = abs(d__[1]); - return 0; + return; } nm1 = *n - 1; @@ -935,7 +935,7 @@ f"> */ orgnrm = dlanst_("M", n, &d__[1], &e[1]); if (orgnrm == 0.) { - return 0; + return; } dlascl_("G", &c__0, &c__0, &orgnrm, &c_b15, n, &c__1, &d__[1], n, &ierr); dlascl_("G", &c__0, &c__0, &orgnrm, &c_b15, &nm1, &c__1, &e[1], &nm1, & @@ -1026,7 +1026,7 @@ f"> */ iwork[1], info); } if (*info != 0) { - return 0; + return; } start = i__ + 1; } @@ -1086,7 +1086,7 @@ L40: dlasr_("L", "V", "B", n, n, &work[1], &work[*n], &u[u_offset], ldu); } - return 0; + return; /* End of DBDSDC */ diff --git a/lapack-netlib/SRC/dbdsqr.c b/lapack-netlib/SRC/dbdsqr.c index 61b8200f6..a79cf8585 100644 --- a/lapack-netlib/SRC/dbdsqr.c +++ b/lapack-netlib/SRC/dbdsqr.c @@ -756,7 +756,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer * +/* Subroutine */ void dbdsqr_(char *uplo, integer *n, integer *ncvt, integer * nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer * ldc, doublereal *work, integer *info) @@ -774,28 +774,28 @@ f"> */ doublereal cosl; integer isub, iter; doublereal unfl, sinl, cosr, smin, smax, sinr; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer iterdivn; - extern /* Subroutine */ int dlas2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlas2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal f, g, h__; integer i__, j, m; doublereal r__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal oldcs; - extern /* Subroutine */ int dlasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dlasr_(char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); integer oldll; doublereal shift, sigmn, oldsn; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal sminl, sigmx; logical lower; integer maxitdivn; - extern /* Subroutine */ int dlasq1_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlasq1_(integer *, doublereal *, doublereal *, doublereal *, integer *), dlasv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -803,9 +803,9 @@ f"> */ integer ll; extern doublereal dlamch_(char *); doublereal sn, mu; - extern /* Subroutine */ int dlartg_(doublereal *, doublereal *, - doublereal *, doublereal *, doublereal *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dlartg_(doublereal *, doublereal *, + doublereal *, doublereal *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); doublereal sminoa, thresh; logical rotate; integer nm1; @@ -862,10 +862,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DBDSQR", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } if (*n == 1) { goto L160; @@ -883,7 +883,7 @@ f"> */ /* If INFO equals 2, dqds didn't finish, try to finish */ if (*info != 2) { - return 0; + return; } *info = 0; } @@ -1513,7 +1513,7 @@ L200: /* L210: */ } L220: - return 0; + return; /* End of DBDSQR */ diff --git a/lapack-netlib/SRC/dbdsvdx.c b/lapack-netlib/SRC/dbdsvdx.c index d4c00d510..5ed8353ba 100644 --- a/lapack-netlib/SRC/dbdsvdx.c +++ b/lapack-netlib/SRC/dbdsvdx.c @@ -742,7 +742,7 @@ static integer c__2 = 2; /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dbdsvdx_(char *uplo, char *jobz, char *range, integer *n, +/* Subroutine */ void dbdsvdx_(char *uplo, char *jobz, char *range, integer *n, doublereal *d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, integer *ns, doublereal *s, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *info) @@ -762,23 +762,23 @@ static integer c__2 = 2; integer i__, idbeg, j, k; doublereal sqrt2; integer idend; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer isbeg; extern logical lsame_(char *, char *); integer idtgk, ietgk, iltgk, itemp; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer icolz; logical allsv; integer idptr; logical indsv; integer ieptr, iutgk; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal vltgk; logical lower; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal zjtji; logical split, valsv; @@ -791,12 +791,12 @@ static integer c__2 = 2; integer iifail; doublereal mu; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal abstol, thresh; integer iiwork; - extern /* Subroutine */ int dstevx_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstevx_(char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), @@ -868,14 +868,14 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("DBDSVDX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible (N.LE.1) */ *ns = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -892,7 +892,7 @@ static integer c__2 = 2; z__[z_dim1 + 1] = d_sign(&c_b10, &d__[1]); z__[z_dim1 + 2] = 1.; } - return 0; + return; } abstol = dlamch_("Safe Minimum") * 2; @@ -1007,7 +1007,7 @@ static integer c__2 = 2; iltgk, &iltgk, &abstol, ns, &s[1], &z__[z_offset], ldz, &work[ itemp], &iwork[iiwork], &iwork[iifail], info); if (*ns == 0) { - return 0; + return; } else { if (wantz) { i__1 = *n << 1; @@ -1208,7 +1208,7 @@ static integer c__2 = 2; , &iwork[iifail], info); if (*info != 0) { /* Exit with the error code from DSTEVX. */ - return 0; + return; } emin = (d__1 = s[isbeg], abs(d__1)); i__3 = isbeg + nsl - 1; @@ -1262,7 +1262,7 @@ static integer c__2 = 2; z_dim1], &c__2); if (nrmu == 0.) { *info = (*n << 1) + 1; - return 0; + return; } d__1 = 1. / nrmu; dscal_(&nru, &d__1, &z__[irowu + (icolz + i__) * @@ -1293,7 +1293,7 @@ static integer c__2 = 2; z_dim1], &c__2); if (nrmv == 0.) { *info = (*n << 1) + 1; - return 0; + return; } d__1 = -1. / nrmv; dscal_(&nrv, &d__1, &z__[irowv + (icolz + i__) * @@ -1465,7 +1465,7 @@ static integer c__2 = 2; } } - return 0; + return; /* End of DBDSVDX */ diff --git a/lapack-netlib/SRC/dcombssq.c b/lapack-netlib/SRC/dcombssq.c index b07c40002..d3bb7ac7f 100644 --- a/lapack-netlib/SRC/dcombssq.c +++ b/lapack-netlib/SRC/dcombssq.c @@ -568,7 +568,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dcombssq_(doublereal *v1, doublereal *v2) +/* Subroutine */ void dcombssq_(doublereal *v1, doublereal *v2) { /* System generated locals */ doublereal d__1; @@ -602,7 +602,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ v1[2] = v2[2] + d__1 * d__1 * v1[2]; v1[1] = v2[1]; } - return 0; + return; /* End of DCOMBSSQ */ diff --git a/lapack-netlib/SRC/ddisna.c b/lapack-netlib/SRC/ddisna.c index ce62c69cb..c656acc67 100644 --- a/lapack-netlib/SRC/ddisna.c +++ b/lapack-netlib/SRC/ddisna.c @@ -626,7 +626,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal * +/* Subroutine */ void ddisna_(char *job, integer *m, integer *n, doublereal * d__, doublereal *sep, integer *info) { /* System generated locals */ @@ -706,13 +706,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DDISNA", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } /* Compute reciprocal condition numbers */ @@ -767,7 +767,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of DDISNA */ diff --git a/lapack-netlib/SRC/dgbbrd.c b/lapack-netlib/SRC/dgbbrd.c index 2f8268639..e4375607f 100644 --- a/lapack-netlib/SRC/dgbbrd.c +++ b/lapack-netlib/SRC/dgbbrd.c @@ -701,7 +701,7 @@ f"> */ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc, +/* Subroutine */ void dgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal * d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt, integer *ldpt, doublereal *c__, integer *ldc, doublereal *work, @@ -713,7 +713,7 @@ f"> */ /* Local variables */ integer inca; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer i__, j, l; extern logical lsame_(char *, char *); @@ -726,10 +726,12 @@ f"> */ doublereal rc; integer ml, mn, nr, mu; doublereal rs; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *, ftnlen), dlargv_( + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlargv_( integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dlartv_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, @@ -798,7 +800,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBBRD", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize Q and P**T to the unit matrix, if needed */ @@ -813,7 +815,7 @@ f"> */ /* Quick return if possible. */ if (*m == 0 || *n == 0) { - return 0; + return; } minmn = f2cmin(*m,*n); @@ -1149,7 +1151,7 @@ f"> */ /* L150: */ } } - return 0; + return; /* End of DGBBRD */ diff --git a/lapack-netlib/SRC/dgbcon.c b/lapack-netlib/SRC/dgbcon.c index 7c86f1376..19d0c3938 100644 --- a/lapack-netlib/SRC/dgbcon.c +++ b/lapack-netlib/SRC/dgbcon.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku, +/* Subroutine */ void dgbcon_(char *norm, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info) { @@ -674,10 +674,10 @@ f"> */ doublereal t, scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int drscl_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void drscl_(integer *, doublereal *, doublereal *, integer *); logical lnoti; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -685,9 +685,10 @@ f"> */ extern doublereal dlamch_(char *); integer lm, jp, ix; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatbs_(char *, char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, - doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; logical onenrm; char normin[1]; @@ -732,7 +733,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -740,9 +741,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -841,7 +842,7 @@ L10: } L40: - return 0; + return; /* End of DGBCON */ diff --git a/lapack-netlib/SRC/dgbequ.c b/lapack-netlib/SRC/dgbequ.c index 4dc01b271..5801abd8a 100644 --- a/lapack-netlib/SRC/dgbequ.c +++ b/lapack-netlib/SRC/dgbequ.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void dgbequ_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * info) @@ -713,7 +713,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -722,7 +722,7 @@ f"> */ *rowcnd = 1.; *colcnd = 1.; *amax = 0.; - return 0; + return; } /* Get machine constants. */ @@ -782,7 +782,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.) { *info = i__; - return 0; + return; } /* L50: */ } @@ -857,7 +857,7 @@ f"> */ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -880,7 +880,7 @@ f"> */ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of DGBEQU */ diff --git a/lapack-netlib/SRC/dgbequb.c b/lapack-netlib/SRC/dgbequb.c index 927380098..f7f8adca5 100644 --- a/lapack-netlib/SRC/dgbequb.c +++ b/lapack-netlib/SRC/dgbequb.c @@ -668,7 +668,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgbequb_(integer *m, integer *n, integer *kl, integer * +/* Subroutine */ void dgbequb_(integer *m, integer *n, integer *kl, integer * ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * info) @@ -720,7 +720,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGBEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -729,7 +729,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rowcnd = 1.; *colcnd = 1.; *amax = 0.; - return 0; + return; } /* Get machine constants. Assume SMLNUM is a power of the radix. */ @@ -798,7 +798,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.) { *info = i__; - return 0; + return; } /* L50: */ } @@ -876,7 +876,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -899,7 +899,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of DGBEQUB */ diff --git a/lapack-netlib/SRC/dgbrfs.c b/lapack-netlib/SRC/dgbrfs.c index 716991e4b..6adfe7428 100644 --- a/lapack-netlib/SRC/dgbrfs.c +++ b/lapack-netlib/SRC/dgbrfs.c @@ -718,7 +718,7 @@ f"> */ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer * +/* Subroutine */ void dgbrfs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, @@ -734,23 +734,24 @@ f"> */ doublereal safe1, safe2; integer i__, j, k; doublereal s; - extern /* Subroutine */ int dgbmv_(char *, integer *, integer *, integer * + extern /* Subroutine */ void dgbmv_(char *, integer *, integer *, integer * , integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer kk; extern doublereal dlamch_(char *); doublereal xk; integer nz; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dgbtrs_( char *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical notran; @@ -814,7 +815,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -826,7 +827,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1035,7 +1036,7 @@ L100: /* L140: */ } - return 0; + return; /* End of DGBRFS */ diff --git a/lapack-netlib/SRC/dgbrfsx.c b/lapack-netlib/SRC/dgbrfsx.c index f4aa619d4..e088a7892 100644 --- a/lapack-netlib/SRC/dgbrfsx.c +++ b/lapack-netlib/SRC/dgbrfsx.c @@ -848,7 +848,7 @@ static integer c__1 = 1; /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgbrfsx_(char *trans, char *equed, integer *n, integer * +/* Subroutine */ void dgbrfsx_(char *trans, char *equed, integer *n, integer * kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, integer *ipiv, doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer * @@ -875,10 +875,10 @@ static integer c__1 = 1; integer prec_type__; extern doublereal dlamch_(char *), dlangb_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgbcon_(char *, integer *, integer *, integer + extern /* Subroutine */ void dgbcon_(char *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, - doublereal *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical colequ, notran, rowequ; integer trans_type__; extern doublereal dla_gbrcond_(char *, integer *, integer *, integer *, @@ -887,7 +887,7 @@ static integer c__1 = 1; extern integer ilaprec_(char *); integer ithresh, n_norms__; doublereal rthresh, cwise_wrong__; - extern /* Subroutine */ int dla_gbrfsx_extended_(integer *, integer *, + extern /* Subroutine */ void dla_gbrfsx_extended_(integer *, integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, logical *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, @@ -1010,7 +1010,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DGBRFSX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -1033,7 +1033,7 @@ static integer c__1 = 1; err_bnds_comp__[j + err_bnds_comp_dim1 * 3] = 1.; } } - return 0; + return; } /* Default to failure. */ @@ -1194,7 +1194,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of DGBRFSX */ diff --git a/lapack-netlib/SRC/dgbsv.c b/lapack-netlib/SRC/dgbsv.c index 3ee2d6d82..80d3abdc7 100644 --- a/lapack-netlib/SRC/dgbsv.c +++ b/lapack-netlib/SRC/dgbsv.c @@ -672,7 +672,7 @@ e driver) */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer * +/* Subroutine */ void dgbsv_(integer *n, integer *kl, integer *ku, integer * nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info) { @@ -680,9 +680,10 @@ e driver) */ integer ab_dim1, ab_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int dgbtrf_(integer *, integer *, integer *, - integer *, doublereal *, integer *, integer *, integer *), - xerbla_(char *, integer *, ftnlen), dgbtrs_(char *, integer *, + extern /* Subroutine */ void dgbtrf_(integer *, integer *, integer *, + integer *, doublereal *, integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dgbtrs_(char *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); @@ -725,7 +726,7 @@ e driver) */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the LU factorization of the band matrix A. */ @@ -738,7 +739,7 @@ e driver) */ dgbtrs_("No transpose", n, kl, ku, nrhs, &ab[ab_offset], ldab, &ipiv[ 1], &b[b_offset], ldb, info); } - return 0; + return; /* End of DGBSV */ diff --git a/lapack-netlib/SRC/dgbsvx.c b/lapack-netlib/SRC/dgbsvx.c index a9e598ffd..d3bcb4737 100644 --- a/lapack-netlib/SRC/dgbsvx.c +++ b/lapack-netlib/SRC/dgbsvx.c @@ -880,7 +880,7 @@ f"> */ /* > \ingroup doubleGBsolve */ /* ===================================================================== */ -/* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl, +/* Subroutine */ void dgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, @@ -898,13 +898,13 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); doublereal rcmin, rcmax, anorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical equil; integer j1, j2; extern doublereal dlamch_(char *), dlangb_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlaqgb_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaqgb_(integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, char *), dgbcon_(char *, integer *, integer *, integer *, doublereal *, @@ -913,7 +913,7 @@ f"> */ doublereal colcnd; extern doublereal dlantb_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgbequ_(integer *, integer *, integer *, + extern /* Subroutine */ void dgbequ_(integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dgbrfs_( char *, integer *, integer *, integer *, integer *, doublereal *, @@ -923,11 +923,11 @@ f"> */ integer *, integer *, integer *, doublereal *, integer *, integer *, integer *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void dgbtrs_(char *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer infequ; @@ -1064,7 +1064,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1170,7 +1170,7 @@ f"> */ } work[1] = rpvgrw; *rcond = 0.; - return 0; + return; } } @@ -1254,7 +1254,7 @@ f"> */ } work[1] = rpvgrw; - return 0; + return; /* End of DGBSVX */ diff --git a/lapack-netlib/SRC/dgbsvxx.c b/lapack-netlib/SRC/dgbsvxx.c index 2f1ae1505..2e130bf2c 100644 --- a/lapack-netlib/SRC/dgbsvxx.c +++ b/lapack-netlib/SRC/dgbsvxx.c @@ -1065,7 +1065,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGBsolve */ /* ===================================================================== */ -/* Subroutine */ int dgbsvxx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void dgbsvxx_(char *fact, char *trans, integer *n, integer * kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, @@ -1089,18 +1089,18 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ doublereal rcmin, rcmax; logical equil; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlaqgb_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaqgb_(integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, char *); doublereal colcnd; - extern /* Subroutine */ int dgbtrf_(integer *, integer *, integer *, + extern /* Subroutine */ void dgbtrf_(integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, integer *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void dgbtrs_(char *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer infequ; @@ -1109,7 +1109,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical notran; doublereal smlnum; logical rowequ; - extern /* Subroutine */ int dlascl2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlascl2_(integer *, integer *, doublereal *, doublereal *, integer *), dgbequb_(integer *, integer *, integer * , integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dgbrfsx_( @@ -1258,7 +1258,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGBSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1332,7 +1332,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = dla_gbrpvgrw_(n, kl, ku, info, &ab[ab_offset], ldab, & afb[afb_offset], ldafb); - return 0; + return; } } @@ -1365,7 +1365,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dlascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); } - return 0; + return; /* End of DGBSVXX */ diff --git a/lapack-netlib/SRC/dgbtf2.c b/lapack-netlib/SRC/dgbtf2.c index e77951232..e171be8b3 100644 --- a/lapack-netlib/SRC/dgbtf2.c +++ b/lapack-netlib/SRC/dgbtf2.c @@ -660,7 +660,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, integer *info) { /* System generated locals */ @@ -668,11 +668,11 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer km, jp, ju, kv; @@ -718,13 +718,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Gaussian elimination with partial pivoting */ @@ -814,7 +814,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of DGBTF2 */ diff --git a/lapack-netlib/SRC/dgbtrf.c b/lapack-netlib/SRC/dgbtrf.c index 600819436..47b5a0365 100644 --- a/lapack-netlib/SRC/dgbtrf.c +++ b/lapack-netlib/SRC/dgbtrf.c @@ -660,7 +660,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, integer *info) { /* System generated locals */ @@ -668,12 +668,12 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal temp; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_( @@ -682,11 +682,11 @@ f"> */ ); doublereal work13[4160] /* was [65][64] */, work31[4160] /* was [65][64] */; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer i2, i3, j2, j3, k2; - extern /* Subroutine */ int dgbtf2_(integer *, integer *, integer *, + extern /* Subroutine */ void dgbtf2_(integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, integer *); integer jb, nb, ii, jj, jm, ip, jp, km, ju, kv; extern integer idamax_(integer *, doublereal *, integer *); @@ -736,13 +736,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size for this environment */ @@ -1137,7 +1137,7 @@ f"> */ } } - return 0; + return; /* End of DGBTRF */ diff --git a/lapack-netlib/SRC/dgbtrs.c b/lapack-netlib/SRC/dgbtrs.c index 305b19c0e..57468ed01 100644 --- a/lapack-netlib/SRC/dgbtrs.c +++ b/lapack-netlib/SRC/dgbtrs.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer * +/* Subroutine */ void dgbtrs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info) { @@ -660,12 +660,12 @@ f"> */ integer ab_dim1, ab_offset, b_dim1, b_offset, i__1, i__2, i__3; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer i__, j, l; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *), dtbsv_(char *, @@ -719,13 +719,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } kd = *ku + *kl + 1; @@ -802,7 +802,7 @@ f"> */ } } } - return 0; + return; /* End of DGBTRS */ diff --git a/lapack-netlib/SRC/dgebak.c b/lapack-netlib/SRC/dgebak.c index d5e07e207..f412bfe92 100644 --- a/lapack-netlib/SRC/dgebak.c +++ b/lapack-netlib/SRC/dgebak.c @@ -638,7 +638,7 @@ f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo, +/* Subroutine */ void dgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, doublereal *scale, integer *m, doublereal *v, integer * ldv, integer *info) { @@ -648,10 +648,10 @@ f"> */ /* Local variables */ integer i__, k; doublereal s; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical leftv; integer ii; @@ -700,19 +700,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEBAK", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*m == 0) { - return 0; + return; } if (lsame_(job, "N")) { - return 0; + return; } if (*ilo == *ihi) { @@ -791,7 +791,7 @@ L50: } } - return 0; + return; /* End of DGEBAK */ diff --git a/lapack-netlib/SRC/dgebal.c b/lapack-netlib/SRC/dgebal.c index 370144c31..869c3e7de 100644 --- a/lapack-netlib/SRC/dgebal.c +++ b/lapack-netlib/SRC/dgebal.c @@ -673,7 +673,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer * +/* Subroutine */ void dgebal_(char *job, integer *n, doublereal *a, integer * lda, integer *ilo, integer *ihi, doublereal *scale, integer *info) { /* System generated locals */ @@ -686,10 +686,10 @@ f"> */ doublereal c__, f, g; integer i__, j, k, l, m; doublereal r__, s; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal sfmin1, sfmin2, sfmax1, sfmax2, ca, ra; extern doublereal dlamch_(char *); @@ -729,7 +729,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEBAL", &i__1, (ftnlen)6); - return 0; + return; } k = 1; @@ -894,7 +894,7 @@ L160: *info = -3; i__2 = -(*info); xerbla_("DGEBAL", &i__2, (ftnlen)6); - return 0; + return; } f *= 2.; c__ *= 2.; @@ -956,7 +956,7 @@ L210: *ilo = k; *ihi = l; - return 0; + return; /* End of DGEBAL */ diff --git a/lapack-netlib/SRC/dgebd2.c b/lapack-netlib/SRC/dgebd2.c index 88dfd9a2f..94496ba24 100644 --- a/lapack-netlib/SRC/dgebd2.c +++ b/lapack-netlib/SRC/dgebd2.c @@ -702,7 +702,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgebd2_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal * taup, doublereal *work, integer *info) { @@ -711,10 +711,11 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dlarfg_(integer *, doublereal *, - doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.1) -- */ @@ -750,7 +751,7 @@ f"> */ if (*info < 0) { i__1 = -(*info); xerbla_("DGEBD2", &i__1, (ftnlen)6); - return 0; + return; } if (*m >= *n) { @@ -861,7 +862,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of DGEBD2 */ diff --git a/lapack-netlib/SRC/dgebrd.c b/lapack-netlib/SRC/dgebrd.c index 2ca289959..1589355e4 100644 --- a/lapack-netlib/SRC/dgebrd.c +++ b/lapack-netlib/SRC/dgebrd.c @@ -722,7 +722,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgebrd_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal * taup, doublereal *work, integer *lwork, integer *info) { @@ -731,15 +731,15 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nbmin, iinfo, minmn; - extern /* Subroutine */ int dgebd2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgebd2_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *); integer nb; - extern /* Subroutine */ int dlabrd_(integer *, integer *, integer *, + extern /* Subroutine */ void dlabrd_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer nx, ws; @@ -796,9 +796,9 @@ f"> */ if (*info < 0) { i__1 = -(*info); xerbla_("DGEBRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -806,7 +806,7 @@ f"> */ minmn = f2cmin(*m,*n); if (minmn == 0) { work[1] = 1.; - return 0; + return; } ws = f2cmax(*m,*n); @@ -900,7 +900,7 @@ f"> */ dgebd2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &d__[i__], &e[i__], & tauq[i__], &taup[i__], &work[1], &iinfo); work[1] = (doublereal) ws; - return 0; + return; /* End of DGEBRD */ diff --git a/lapack-netlib/SRC/dgecon.c b/lapack-netlib/SRC/dgecon.c index 77a991a06..f76919175 100644 --- a/lapack-netlib/SRC/dgecon.c +++ b/lapack-netlib/SRC/dgecon.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer * +/* Subroutine */ void dgecon_(char *norm, integer *n, doublereal *a, integer * lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer * iwork, integer *info) { @@ -649,7 +649,7 @@ f"> */ doublereal scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int drscl_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void drscl_(integer *, doublereal *, doublereal *, integer *), dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); @@ -659,7 +659,7 @@ f"> */ doublereal su; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int dlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatrs_(char *, char *, char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); logical onenrm; @@ -700,7 +700,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGECON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -708,9 +708,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -774,7 +774,7 @@ L10: } L20: - return 0; + return; /* End of DGECON */ diff --git a/lapack-netlib/SRC/dgeequ.c b/lapack-netlib/SRC/dgeequ.c index 0561cdab1..90e98664f 100644 --- a/lapack-netlib/SRC/dgeequ.c +++ b/lapack-netlib/SRC/dgeequ.c @@ -647,7 +647,7 @@ f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeequ_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info) { @@ -693,7 +693,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -702,7 +702,7 @@ f"> */ *rowcnd = 1.; *colcnd = 1.; *amax = 0.; - return 0; + return; } /* Get machine constants. */ @@ -756,7 +756,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.) { *info = i__; - return 0; + return; } /* L50: */ } @@ -826,7 +826,7 @@ f"> */ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -849,7 +849,7 @@ f"> */ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of DGEEQU */ diff --git a/lapack-netlib/SRC/dgeequb.c b/lapack-netlib/SRC/dgeequb.c index d76d611f2..e79854540 100644 --- a/lapack-netlib/SRC/dgeequb.c +++ b/lapack-netlib/SRC/dgeequb.c @@ -654,7 +654,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgeequb_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeequb_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info) { @@ -700,7 +700,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGEEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -709,7 +709,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rowcnd = 1.; *colcnd = 1.; *amax = 0.; - return 0; + return; } /* Get machine constants. Assume SMLNUM is a power of the radix. */ @@ -772,7 +772,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.) { *info = i__; - return 0; + return; } /* L50: */ } @@ -846,7 +846,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -869,7 +869,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of DGEEQUB */ diff --git a/lapack-netlib/SRC/dgees.c b/lapack-netlib/SRC/dgees.c index 636b450a5..4c9946227 100644 --- a/lapack-netlib/SRC/dgees.c +++ b/lapack-netlib/SRC/dgees.c @@ -729,7 +729,7 @@ or GE matrices */ /* > \ingroup doubleGEeigen */ /* ===================================================================== */ -/* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n, +/* Subroutine */ void dgees_(char *jobvs, char *sort, L_fp select, integer *n, doublereal *a, integer *lda, integer *sdim, doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work, integer *lwork, logical *bwork, integer *info) @@ -744,12 +744,12 @@ or GE matrices */ doublereal s; integer icond, ieval; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical cursl; integer i1, i2; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dgebak_( + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *), dgebak_( char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dgebal_(char *, integer *, doublereal *, integer *, integer *, @@ -759,17 +759,17 @@ or GE matrices */ doublereal cscale; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void dgehrd_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; - extern /* Subroutine */ int dorghr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorghr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dhseqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, @@ -874,16 +874,16 @@ or GE matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEES ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1118,7 +1118,7 @@ L20: } work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGEES */ diff --git a/lapack-netlib/SRC/dgeesx.c b/lapack-netlib/SRC/dgeesx.c index 3c6b2792c..1394a7953 100644 --- a/lapack-netlib/SRC/dgeesx.c +++ b/lapack-netlib/SRC/dgeesx.c @@ -793,7 +793,7 @@ f"> */ /* > \ingroup doubleGEeigen */ /* ===================================================================== */ -/* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char * +/* Subroutine */ void dgeesx_(char *jobvs, char *sort, L_fp select, char * sense, integer *n, doublereal *a, integer *lda, integer *sdim, doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, doublereal *rconde, doublereal *rcondv, doublereal *work, integer * @@ -807,12 +807,12 @@ f"> */ doublereal anrm; integer ierr, itau, iwrk, lwrk, inxt, i__, icond, ieval; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical cursl; integer liwrk, i1, i2; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dgebak_( + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *), dgebak_( char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dgebal_(char *, integer *, doublereal *, integer *, integer *, @@ -822,23 +822,23 @@ f"> */ doublereal cscale; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void dgehrd_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; - extern /* Subroutine */ int dorghr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorghr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dhseqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); logical wantsb; - extern /* Subroutine */ int dtrsen_(char *, char *, logical *, integer *, + extern /* Subroutine */ void dtrsen_(char *, char *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *); @@ -966,16 +966,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEESX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1240,7 +1240,7 @@ L20: iwork[1] = 1; } - return 0; + return; /* End of DGEESX */ diff --git a/lapack-netlib/SRC/dgeev.c b/lapack-netlib/SRC/dgeev.c index 33f472a49..5afca3c42 100644 --- a/lapack-netlib/SRC/dgeev.c +++ b/lapack-netlib/SRC/dgeev.c @@ -706,7 +706,7 @@ ices */ /* > \ingroup doubleGEeigen */ /* ===================================================================== */ -/* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal * +/* Subroutine */ void dgeev_(char *jobvl, char *jobvr, integer *n, doublereal * a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, integer *info) @@ -721,17 +721,17 @@ ices */ char side[1]; doublereal anrm; integer ierr, itau; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer iwrk, nout; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, k; doublereal r__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); extern doublereal dlapy2_(doublereal *, doublereal *); - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dgebak_( + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *), dgebak_( char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dgebal_(char *, integer *, doublereal *, integer *, integer *, @@ -742,23 +742,24 @@ ices */ doublereal cscale; extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void dgehrd_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); logical select[1]; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; - extern /* Subroutine */ int dorghr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorghr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dhseqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, @@ -768,7 +769,7 @@ ices */ doublereal smlnum; integer hswork; logical lquery, wantvr; - extern /* Subroutine */ int dtrevc3_(char *, char *, logical *, integer *, + extern /* Subroutine */ void dtrevc3_(char *, char *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *, integer *); @@ -910,15 +911,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1155,7 +1156,7 @@ L50: } work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGEEV */ diff --git a/lapack-netlib/SRC/dgeevx.c b/lapack-netlib/SRC/dgeevx.c index 38408cd68..03010fbb6 100644 --- a/lapack-netlib/SRC/dgeevx.c +++ b/lapack-netlib/SRC/dgeevx.c @@ -819,7 +819,7 @@ f"> */ /* > \ingroup doubleGEeigen */ /* ===================================================================== */ -/* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char * +/* Subroutine */ void dgeevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, doublereal *a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, @@ -835,18 +835,18 @@ f"> */ char side[1]; doublereal anrm; integer ierr, itau; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer iwrk, nout; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, k; doublereal r__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer icond; extern logical lsame_(char *, char *); extern doublereal dlapy2_(doublereal *, doublereal *); - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dgebak_( + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *), dgebak_( char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dgebal_(char *, integer *, doublereal *, integer *, integer *, @@ -857,23 +857,24 @@ f"> */ doublereal cscale; extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void dgehrd_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); logical select[1]; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; - extern /* Subroutine */ int dorghr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorghr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dhseqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, @@ -887,7 +888,7 @@ f"> */ logical wntsne; doublereal smlnum; logical lquery, wantvr, wntsnn, wntsnv; - extern /* Subroutine */ int dtrevc3_(char *, char *, logical *, integer *, + extern /* Subroutine */ void dtrevc3_(char *, char *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *, integer *); @@ -1051,15 +1052,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1322,7 +1323,7 @@ L50: } work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGEEVX */ diff --git a/lapack-netlib/SRC/dgehd2.c b/lapack-netlib/SRC/dgehd2.c index 7e1f0cd1b..9f1f39f56 100644 --- a/lapack-netlib/SRC/dgehd2.c +++ b/lapack-netlib/SRC/dgehd2.c @@ -663,7 +663,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi, +/* Subroutine */ void dgehd2_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info) { @@ -672,10 +672,11 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dlarfg_(integer *, doublereal *, - doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); doublereal aii; @@ -711,7 +712,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEHD2", &i__1, (ftnlen)6); - return 0; + return; } i__1 = *ihi - 1; @@ -744,7 +745,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of DGEHD2 */ diff --git a/lapack-netlib/SRC/dgehrd.c b/lapack-netlib/SRC/dgehrd.c index 3408b20b4..9944187fe 100644 --- a/lapack-netlib/SRC/dgehrd.c +++ b/lapack-netlib/SRC/dgehrd.c @@ -686,7 +686,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi, +/* Subroutine */ void dgehrd_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -695,11 +695,11 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nbmin, iinfo; - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), daxpy_( integer *, doublereal *, doublereal *, integer *, doublereal *, @@ -710,7 +710,7 @@ f"> */ integer ib; doublereal ei; integer nb, nh; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); @@ -771,9 +771,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEHRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Set elements 1:ILO-1 and IHI:N-1 of TAU to zero */ @@ -794,7 +794,7 @@ f"> */ nh = *ihi - *ilo + 1; if (nh <= 1) { work[1] = 1.; - return 0; + return; } /* Determine the block size */ @@ -905,7 +905,7 @@ f"> */ dgehd2_(n, &i__, ihi, &a[a_offset], lda, &tau[1], &work[1], &iinfo); work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DGEHRD */ diff --git a/lapack-netlib/SRC/dgejsv.c b/lapack-netlib/SRC/dgejsv.c index 4508d9003..73b43e471 100644 --- a/lapack-netlib/SRC/dgejsv.c +++ b/lapack-netlib/SRC/dgejsv.c @@ -991,7 +991,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgejsv_(char *joba, char *jobu, char *jobv, char *jobr, +/* Subroutine */ void dgejsv_(char *joba, char *jobu, char *jobv, char *jobr, char *jobt, char *jobp, integer *m, integer *n, doublereal *a, integer *lda, doublereal *sva, doublereal *u, integer *ldu, doublereal *v, integer *ldv, doublereal *work, integer *lwork, @@ -1011,63 +1011,65 @@ f"> */ doublereal temp1; integer p, q; logical jracc; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal small, entra, sfmin; logical lsvec; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal epsln; logical rsvec; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer n1; logical l2aber; - extern /* Subroutine */ int dgeqp3_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqp3_(integer *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal condr1, condr2, uscal1, uscal2; logical l2kill, l2rank, l2tran, l2pert; extern doublereal dlamch_(char *); integer nr; - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); doublereal scalem; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal sconda; logical goscal; doublereal aatmin; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal aatmax; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, - doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical noscal; - extern /* Subroutine */ int dpocon_(char *, integer *, doublereal *, + extern /* Subroutine */ void dpocon_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *), dgesvj_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dlassq_(integer *, doublereal *, integer - *, doublereal *, doublereal *), dlaswp_(integer *, doublereal *, + *, doublereal *, doublereal *); + extern int dlaswp_(integer *, doublereal *, integer *, integer *, integer *, integer *, integer *); doublereal entrat; logical almort; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dormlq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal maxprj; logical errest; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); logical transp, rowpiv; @@ -1173,7 +1175,7 @@ f"> */ /* #:( */ i__1 = -(*info); xerbla_("DGEJSV", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return for void matrix (Y3K safe) */ @@ -1189,7 +1191,7 @@ f"> */ work[5] = 0.; work[6] = 0.; work[7] = 0.; - return 0; + return; } /* Determine whether the matrix U should be M x N or M x M */ @@ -1229,7 +1231,7 @@ f"> */ *info = -9; i__2 = -(*info); xerbla_("DGEJSV", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscal) { @@ -1291,7 +1293,7 @@ f"> */ iwork[1] = 0; iwork[2] = 0; iwork[3] = 0; - return 0; + return; } /* Issue warning if denormalized column norms detected. Override the */ @@ -1356,7 +1358,7 @@ f"> */ work[6] = 0.; work[7] = 0.; } - return 0; + return; } @@ -2801,6 +2803,6 @@ L3302: iwork[2] = numrank; iwork[3] = warning; - return 0; + return; } /* dgejsv_ */ diff --git a/lapack-netlib/SRC/dgelq.c b/lapack-netlib/SRC/dgelq.c index c7b981ada..013cc57b2 100644 --- a/lapack-netlib/SRC/dgelq.c +++ b/lapack-netlib/SRC/dgelq.c @@ -681,7 +681,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgelq_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgelq_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *t, integer *tsize, doublereal *work, integer *lwork, integer *info) { @@ -694,12 +694,12 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dgelqt_(integer *, integer *, integer *, + extern /* Subroutine */ void dgelqt_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); logical lminws, lquery; integer mintsz; - extern /* Subroutine */ int dlaswlq_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaswlq_(integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -839,15 +839,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("DGELQ", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The LQ Decomposition */ @@ -861,7 +861,7 @@ static integer c__2 = 2; work[1] = (doublereal) lwreq; - return 0; + return; /* End of DGELQ */ diff --git a/lapack-netlib/SRC/dgelq2.c b/lapack-netlib/SRC/dgelq2.c index c42cef2fb..9d76a14c0 100644 --- a/lapack-netlib/SRC/dgelq2.c +++ b/lapack-netlib/SRC/dgelq2.c @@ -639,7 +639,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgelq2_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -647,10 +647,11 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dlarfg_(integer *, doublereal *, - doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); doublereal aii; @@ -684,7 +685,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGELQ2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -713,7 +714,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of DGELQ2 */ diff --git a/lapack-netlib/SRC/dgelqf.c b/lapack-netlib/SRC/dgelqf.c index a10cfadb7..723008a89 100644 --- a/lapack-netlib/SRC/dgelqf.c +++ b/lapack-netlib/SRC/dgelqf.c @@ -659,7 +659,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgelqf_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -667,16 +667,17 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int dgelq2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelq2_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ib, nb; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -721,9 +722,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGELQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -731,7 +732,7 @@ f"> */ k = f2cmin(*m,*n); if (k == 0) { work[1] = 1.; - return 0; + return; } nbmin = 2; @@ -816,7 +817,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DGELQF */ diff --git a/lapack-netlib/SRC/dgelqt.c b/lapack-netlib/SRC/dgelqt.c index 7d387f6aa..358b4dd31 100644 --- a/lapack-netlib/SRC/dgelqt.c +++ b/lapack-netlib/SRC/dgelqt.c @@ -648,7 +648,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgelqt_(integer *m, integer *n, integer *mb, doublereal * +/* Subroutine */ void dgelqt_(integer *m, integer *n, integer *mb, doublereal * a, integer *lda, doublereal *t, integer *ldt, doublereal *work, integer *info) { @@ -657,11 +657,12 @@ f"> */ /* Local variables */ integer i__, k, iinfo, ib; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, - integer *), xerbla_(char *, - integer *, ftnlen), dgelqt3_(integer *, integer *, doublereal *, + integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dgelqt3_(integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -701,14 +702,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGELQT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ k = f2cmin(*m,*n); if (k == 0) { - return 0; + return; } /* Blocked loop of length K */ @@ -737,7 +738,7 @@ f"> */ i__ * a_dim1], lda, &work[1], &i__5); } } - return 0; + return; /* End of DGELQT */ diff --git a/lapack-netlib/SRC/dgelqt3.c b/lapack-netlib/SRC/dgelqt3.c index ce8dec2c9..a16f2568f 100644 --- a/lapack-netlib/SRC/dgelqt3.c +++ b/lapack-netlib/SRC/dgelqt3.c @@ -646,7 +646,7 @@ ompact WY representation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgelqt3_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgelqt3_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *t, integer *ldt, integer *info) { /* System generated locals */ @@ -654,16 +654,17 @@ ompact WY representation of Q. */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer i1, j1, m1, m2; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, - integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, + integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.8.0) -- */ @@ -697,7 +698,7 @@ ompact WY representation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("DGELQT3", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 1) { @@ -795,7 +796,7 @@ ompact WY representation of Q. */ } - return 0; + return; /* End of DGELQT3 */ diff --git a/lapack-netlib/SRC/dgels.c b/lapack-netlib/SRC/dgels.c index 09efbc402..4ee0785f9 100644 --- a/lapack-netlib/SRC/dgels.c +++ b/lapack-netlib/SRC/dgels.c @@ -698,7 +698,7 @@ static integer c__0 = 0; /* > \ingroup doubleGEsolve */ /* ===================================================================== */ -/* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void dgels_(char *trans, integer *m, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info) { @@ -713,24 +713,25 @@ static integer c__0 = 0; extern logical lsame_(char *, char *); integer wsize; doublereal rwork[1]; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer nb; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer mn; - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer scllen; doublereal bignum; - extern /* Subroutine */ int dormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormlq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dormqr_(char *, char *, integer *, integer *, integer *, @@ -840,9 +841,9 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("DGELS ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -852,7 +853,7 @@ static integer c__0 = 0; if (f2cmin(i__1,*nrhs) == 0) { i__1 = f2cmax(*m,*n); dlaset_("Full", &i__1, nrhs, &c_b33, &c_b33, &b[b_offset], ldb); - return 0; + return; } /* Get machine parameters */ @@ -938,7 +939,7 @@ static integer c__0 = 0; , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; @@ -953,7 +954,7 @@ static integer c__0 = 0; lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* B(N+1:M,1:NRHS) = ZERO */ @@ -1000,7 +1001,7 @@ static integer c__0 = 0; , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* B(M+1:N,1:NRHS) = 0 */ @@ -1043,7 +1044,7 @@ static integer c__0 = 0; lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1072,7 +1073,7 @@ static integer c__0 = 0; L50: work[1] = (doublereal) wsize; - return 0; + return; /* End of DGELS */ diff --git a/lapack-netlib/SRC/dgelsd.c b/lapack-netlib/SRC/dgelsd.c index d9a932f24..5b1694bac 100644 --- a/lapack-netlib/SRC/dgelsd.c +++ b/lapack-netlib/SRC/dgelsd.c @@ -727,7 +727,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs, +/* Subroutine */ void dgelsd_(integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, integer *iwork, integer *info) @@ -740,16 +740,16 @@ f"> */ integer itau, nlvl, iascl, ibscl; doublereal sfmin; integer minmn, maxmn, itaup, itauq, mnthr, nwork; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer ie, il; - extern /* Subroutine */ int dgebrd_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgebrd_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer mm; extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlalsd_(char *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, @@ -759,20 +759,20 @@ f"> */ integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *, - doublereal *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; - extern /* Subroutine */ int dormbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormbr_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer wlalsd; - extern /* Subroutine */ int dormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormlq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer ldwork; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer liwork, minwrk, maxwrk; @@ -972,7 +972,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGELSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { goto L10; } @@ -981,7 +981,7 @@ f"> */ if (*m == 0 || *n == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters. */ @@ -1269,7 +1269,7 @@ f"> */ L10: work[1] = (doublereal) maxwrk; iwork[1] = liwork; - return 0; + return; /* End of DGELSD */ diff --git a/lapack-netlib/SRC/dgelss.c b/lapack-netlib/SRC/dgelss.c index cfd7bf8ab..e2168b2a6 100644 --- a/lapack-netlib/SRC/dgelss.c +++ b/lapack-netlib/SRC/dgelss.c @@ -689,7 +689,7 @@ f"> */ /* > \ingroup doubleGEsolve */ /* ===================================================================== */ -/* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs, +/* Subroutine */ void dgelss_(integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, integer *info) @@ -703,23 +703,23 @@ f"> */ integer itau, lwork_dgebrd__, lwork_dgelqf__, lwork_dgeqrf__, lwork_dorgbr__, lwork_dormbr__, i__, lwork_dormlq__, lwork_dormqr__; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iascl, ibscl; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), drscl_(integer *, doublereal *, doublereal *, integer *); integer chunk; doublereal sfmin; integer minmn; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer maxmn, itaup, itauq, mnthr, iwork; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer bl, ie, il; - extern /* Subroutine */ int dgebrd_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgebrd_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); @@ -727,7 +727,7 @@ f"> */ extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer bdspac; - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), @@ -735,8 +735,9 @@ f"> */ doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dbdsqr_(char *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dbdsqr_(char *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dorgbr_(char *, @@ -745,13 +746,13 @@ f"> */ doublereal bignum; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dormbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormbr_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dormlq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer ldwork; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer minwrk, maxwrk; @@ -978,16 +979,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGELSS", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters */ @@ -1434,7 +1435,7 @@ f"> */ L70: work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGELSS */ diff --git a/lapack-netlib/SRC/dgelst.c b/lapack-netlib/SRC/dgelst.c index 9327da4dd..9333bd5dd 100644 --- a/lapack-netlib/SRC/dgelst.c +++ b/lapack-netlib/SRC/dgelst.c @@ -710,7 +710,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dgelst_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void dgelst_(char *trans, integer *m, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info) { @@ -726,21 +726,21 @@ f"> */ integer nbmin; doublereal rwork[1]; integer lwopt; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer nb; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer mn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer - *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *); + *, doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer scllen; doublereal bignum; - extern /* Subroutine */ int dgelqt_(integer *, integer *, integer *, + extern /* Subroutine */ void dgelqt_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dgeqrt_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); @@ -749,7 +749,8 @@ f"> */ logical lquery; extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, - integer *), dgemlqt_(char *, char *, + integer *); + extern void dgemlqt_(char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dgemqrt_(char *, char *, integer *, @@ -827,10 +828,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("DGELST ", &i__1); - return 0; + xerbla_("DGELST ", &i__1, 6); + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -841,7 +842,7 @@ f"> */ i__1 = f2cmax(*m,*n); dlaset_("Full", &i__1, nrhs, &c_b12, &c_b12, &b[b_offset], ldb); work[1] = (doublereal) lwopt; - return 0; + return; } /* *GEQRT and *GELQT routines cannot accept NB larger than f2cmin(M,N) */ @@ -900,7 +901,7 @@ f"> */ i__1 = f2cmax(*m,*n); dlaset_("Full", &i__1, nrhs, &c_b12, &c_b12, &b[b_offset], ldb); work[1] = (doublereal) lwopt; - return 0; + return; } brow = *m; @@ -955,7 +956,7 @@ f"> */ , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; @@ -974,7 +975,7 @@ f"> */ lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* Block 2: Zero out all rows below the N-th row in B: */ @@ -1024,7 +1025,7 @@ f"> */ , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* Block 2: Zero out all rows below the M-th row in B: */ @@ -1068,7 +1069,7 @@ f"> */ lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1096,7 +1097,7 @@ f"> */ work[1] = (doublereal) lwopt; - return 0; + return; /* End of DGELST */ diff --git a/lapack-netlib/SRC/dgelsy.c b/lapack-netlib/SRC/dgelsy.c index 2bfc6d098..5c625f939 100644 --- a/lapack-netlib/SRC/dgelsy.c +++ b/lapack-netlib/SRC/dgelsy.c @@ -721,7 +721,7 @@ f"> */ /* > G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs, +/* Subroutine */ void dgelsy_(integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * jpvt, doublereal *rcond, integer *rank, doublereal *work, integer * lwork, integer *info) @@ -733,42 +733,42 @@ f"> */ /* Local variables */ doublereal anrm, bnrm, smin, smax; integer i__, j, iascl, ibscl; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer ismin, ismax; doublereal c1, c2; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dlaic1_( integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal wsize, s1, s2; - extern /* Subroutine */ int dgeqp3_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqp3_(integer *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, integer *, integer *), dlabad_(doublereal *, doublereal *); integer nb; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer mn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer - *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + *, doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; integer lwkmin, nb1, nb2, nb3, nb4; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal sminpr, smaxpr, smlnum; - extern /* Subroutine */ int dormrz_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormrz_(char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int dtzrzf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dtzrzf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); @@ -853,16 +853,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGELSY", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (mn == 0 || *nrhs == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters */ @@ -1061,7 +1061,7 @@ L10: L70: work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DGELSY */ diff --git a/lapack-netlib/SRC/dgemlq.c b/lapack-netlib/SRC/dgemlq.c index bf62e3117..acc56173a 100644 --- a/lapack-netlib/SRC/dgemlq.c +++ b/lapack-netlib/SRC/dgemlq.c @@ -674,7 +674,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgemlq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dgemlq_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *t, integer * tsize, doublereal *c__, integer *ldc, doublereal *work, integer * lwork, integer *info) @@ -684,7 +684,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ logical left, tran; - extern /* Subroutine */ int dlamswlq_(char *, char *, integer *, integer * + extern /* Subroutine */ void dlamswlq_(char *, char *, integer *, integer * , integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -693,7 +693,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer mb, nb, mn, lw, nblcks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; - extern /* Subroutine */ int dgemlqt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemlqt_(char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); @@ -774,9 +774,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGEMLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -784,7 +784,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -800,7 +800,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ work[1] = (doublereal) lw; - return 0; + return; /* End of DGEMLQ */ diff --git a/lapack-netlib/SRC/dgemlqt.c b/lapack-netlib/SRC/dgemlqt.c index 6f7470149..e188d3532 100644 --- a/lapack-netlib/SRC/dgemlqt.c +++ b/lapack-netlib/SRC/dgemlqt.c @@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgemlqt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dgemlqt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *mb, doublereal *v, integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, doublereal *work, integer *info) @@ -691,11 +691,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, kf; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, - integer *), xerbla_(char *, - integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork; @@ -757,12 +757,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGEMLQT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran) { @@ -823,7 +823,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of DGEMLQT */ diff --git a/lapack-netlib/SRC/dgemqr.c b/lapack-netlib/SRC/dgemqr.c index 84c478c03..a309b328b 100644 --- a/lapack-netlib/SRC/dgemqr.c +++ b/lapack-netlib/SRC/dgemqr.c @@ -675,7 +675,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgemqr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dgemqr_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *t, integer * tsize, doublereal *c__, integer *ldc, doublereal *work, integer * lwork, integer *info) @@ -685,7 +685,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ logical left, tran; - extern /* Subroutine */ int dlamtsqr_(char *, char *, integer *, integer * + extern /* Subroutine */ void dlamtsqr_(char *, char *, integer *, integer * , integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -694,7 +694,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer mb, nb, mn, lw, nblcks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; - extern /* Subroutine */ int dgemqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemqrt_(char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); @@ -775,9 +775,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGEMQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -785,7 +785,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -801,7 +801,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ work[1] = (doublereal) lw; - return 0; + return; /* End of DGEMQR */ diff --git a/lapack-netlib/SRC/dgemqrt.c b/lapack-netlib/SRC/dgemqrt.c index 47af19b67..f8f939385 100644 --- a/lapack-netlib/SRC/dgemqrt.c +++ b/lapack-netlib/SRC/dgemqrt.c @@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgemqrt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dgemqrt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *nb, doublereal *v, integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, doublereal *work, integer *info) @@ -691,10 +691,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, kf; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork; @@ -758,12 +759,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGEMQRT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && tran) { @@ -824,7 +825,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of DGEMQRT */ diff --git a/lapack-netlib/SRC/dgeql2.c b/lapack-netlib/SRC/dgeql2.c index aa1747386..125ede360 100644 --- a/lapack-netlib/SRC/dgeql2.c +++ b/lapack-netlib/SRC/dgeql2.c @@ -637,7 +637,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeql2_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -645,10 +645,11 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dlarfg_(integer *, doublereal *, - doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); doublereal aii; @@ -682,7 +683,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQL2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -707,7 +708,7 @@ f"> */ a[*m - k + i__ + (*n - k + i__) * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of DGEQL2 */ diff --git a/lapack-netlib/SRC/dgeqlf.c b/lapack-netlib/SRC/dgeqlf.c index b2a00a752..94853a678 100644 --- a/lapack-netlib/SRC/dgeqlf.c +++ b/lapack-netlib/SRC/dgeqlf.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqlf_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -662,16 +662,17 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int dgeql2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeql2_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ib, nb, ki, kk; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer mu, nu, nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -727,15 +728,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQLF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } nbmin = 2; @@ -827,7 +828,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DGEQLF */ diff --git a/lapack-netlib/SRC/dgeqp3.c b/lapack-netlib/SRC/dgeqp3.c index 37a6c0088..dd966a50e 100644 --- a/lapack-netlib/SRC/dgeqp3.c +++ b/lapack-netlib/SRC/dgeqp3.c @@ -667,7 +667,7 @@ f"> */ /* > X. Sun, Computer Science Dept., Duke University, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqp3_(integer *m, integer *n, doublereal *a, integer * lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -678,24 +678,24 @@ f"> */ integer nfxd; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer j, nbmin, minmn; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer minws; - extern /* Subroutine */ int dlaqp2_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaqp2_(integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *); integer jb, na, nb, sm, sn, nx; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, - integer *, doublereal *, doublereal *, integer *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, + integer *, doublereal *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlaqps_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaqps_(integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *); integer topbmn, sminmn; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer lwkopt; @@ -755,9 +755,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQP3", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Move initial columns up front. */ @@ -911,7 +911,7 @@ L30: } work[1] = (doublereal) iws; - return 0; + return; /* End of DGEQP3 */ diff --git a/lapack-netlib/SRC/dgeqr.c b/lapack-netlib/SRC/dgeqr.c index fe3e1f82f..dbd0c7e4f 100644 --- a/lapack-netlib/SRC/dgeqr.c +++ b/lapack-netlib/SRC/dgeqr.c @@ -683,7 +683,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqr_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqr_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *t, integer *tsize, doublereal *work, integer *lwork, integer *info) { @@ -696,12 +696,12 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dgeqrt_(integer *, integer *, integer *, + extern /* Subroutine */ void dgeqrt_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); logical lminws, lquery; integer mintsz; - extern /* Subroutine */ int dlatsqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dlatsqr_(integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -827,15 +827,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("DGEQR", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The QR Decomposition */ @@ -851,7 +851,7 @@ static integer c__2 = 2; i__1 = 1, i__2 = nb * *n; work[1] = (doublereal) f2cmax(i__1,i__2); - return 0; + return; /* End of DGEQR */ diff --git a/lapack-netlib/SRC/dgeqr2.c b/lapack-netlib/SRC/dgeqr2.c index b19eb347a..f80cd2da8 100644 --- a/lapack-netlib/SRC/dgeqr2.c +++ b/lapack-netlib/SRC/dgeqr2.c @@ -644,7 +644,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqr2_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -652,10 +652,11 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dlarfg_(integer *, doublereal *, - doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); doublereal aii; @@ -689,7 +690,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQR2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -718,7 +719,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of DGEQR2 */ diff --git a/lapack-netlib/SRC/dgeqr2p.c b/lapack-netlib/SRC/dgeqr2p.c index d97cc42df..83f21e878 100644 --- a/lapack-netlib/SRC/dgeqr2p.c +++ b/lapack-netlib/SRC/dgeqr2p.c @@ -648,7 +648,7 @@ l elements using an unblocked algorithm. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqr2p_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqr2p_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -656,11 +656,12 @@ l elements using an unblocked algorithm. */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, - doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); doublereal aii; - extern /* Subroutine */ int dlarfgp_(integer *, doublereal *, doublereal * + extern /* Subroutine */ void dlarfgp_(integer *, doublereal *, doublereal * , integer *, doublereal *); @@ -694,7 +695,7 @@ l elements using an unblocked algorithm. */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQR2P", &i__1, (ftnlen)7); - return 0; + return; } k = f2cmin(*m,*n); @@ -723,7 +724,7 @@ l elements using an unblocked algorithm. */ } /* L10: */ } - return 0; + return; /* End of DGEQR2P */ diff --git a/lapack-netlib/SRC/dgeqrf.c b/lapack-netlib/SRC/dgeqrf.c index ab922cf7f..fc0bb6989 100644 --- a/lapack-netlib/SRC/dgeqrf.c +++ b/lapack-netlib/SRC/dgeqrf.c @@ -661,7 +661,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqrf_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -669,16 +669,17 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int dgeqr2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqr2_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ib, nb; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -723,9 +724,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -733,7 +734,7 @@ f"> */ k = f2cmin(*m,*n); if (k == 0) { work[1] = 1.; - return 0; + return; } nbmin = 2; @@ -818,7 +819,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DGEQRF */ diff --git a/lapack-netlib/SRC/dgeqrfp.c b/lapack-netlib/SRC/dgeqrfp.c index 6abbdeb17..5de166b5c 100644 --- a/lapack-netlib/SRC/dgeqrfp.c +++ b/lapack-netlib/SRC/dgeqrfp.c @@ -665,7 +665,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqrfp_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqrfp_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -673,18 +673,19 @@ static integer c__2 = 2; /* Local variables */ integer i__, k, nbmin, iinfo, ib, nb; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; logical lquery; - extern /* Subroutine */ int dgeqr2p_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqr2p_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iws; @@ -726,9 +727,9 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("DGEQRFP", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -736,7 +737,7 @@ static integer c__2 = 2; k = f2cmin(*m,*n); if (k == 0) { work[1] = 1.; - return 0; + return; } nbmin = 2; @@ -821,7 +822,7 @@ static integer c__2 = 2; } work[1] = (doublereal) iws; - return 0; + return; /* End of DGEQRFP */ diff --git a/lapack-netlib/SRC/dgeqrt.c b/lapack-netlib/SRC/dgeqrt.c index 49b5b4e0d..2c0d8c12e 100644 --- a/lapack-netlib/SRC/dgeqrt.c +++ b/lapack-netlib/SRC/dgeqrt.c @@ -650,7 +650,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqrt_(integer *m, integer *n, integer *nb, doublereal * +/* Subroutine */ void dgeqrt_(integer *m, integer *n, integer *nb, doublereal * a, integer *lda, doublereal *t, integer *ldt, doublereal *work, integer *info) { @@ -659,11 +659,12 @@ f"> */ /* Local variables */ integer i__, k, iinfo, ib; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, - integer *), xerbla_(char *, - integer *, ftnlen), dgeqrt2_(integer *, integer *, doublereal *, + integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dgeqrt2_(integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dgeqrt3_(integer * , integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -705,14 +706,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ k = f2cmin(*m,*n); if (k == 0) { - return 0; + return; } /* Blocked loop of length K */ @@ -747,7 +748,7 @@ f"> */ ib) * a_dim1], lda, &work[1], &i__5); } } - return 0; + return; /* End of DGEQRT */ diff --git a/lapack-netlib/SRC/dgeqrt2.c b/lapack-netlib/SRC/dgeqrt2.c index 1233bc9cb..84a987387 100644 --- a/lapack-netlib/SRC/dgeqrt2.c +++ b/lapack-netlib/SRC/dgeqrt2.c @@ -643,25 +643,25 @@ presentation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqrt2_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqrt2_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *t, integer *ldt, integer *info) { /* System generated locals */ integer a_dim1, a_offset, t_dim1, t_offset, i__1, i__2, i__3; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer i__, k; doublereal alpha; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *), dlarfg_(integer *, doublereal - *, doublereal *, integer *, doublereal *), xerbla_(char *, - integer *, ftnlen); + *, doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); doublereal aii; @@ -698,7 +698,7 @@ presentation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQRT2", &i__1, (ftnlen)7); - return 0; + return; } k = f2cmin(*m,*n); @@ -767,6 +767,6 @@ presentation of Q. */ /* End of DGEQRT2 */ - return 0; + return; } /* dgeqrt2_ */ diff --git a/lapack-netlib/SRC/dgeqrt3.c b/lapack-netlib/SRC/dgeqrt3.c index 777fd0855..997a8e1d1 100644 --- a/lapack-netlib/SRC/dgeqrt3.c +++ b/lapack-netlib/SRC/dgeqrt3.c @@ -648,7 +648,7 @@ ompact WY representation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgeqrt3_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgeqrt3_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *t, integer *ldt, integer *info) { /* System generated locals */ @@ -656,16 +656,17 @@ ompact WY representation of Q. */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer i1, j1, n1, n2; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, - integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, + integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -699,7 +700,7 @@ ompact WY representation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("DGEQRT3", &i__1, (ftnlen)7); - return 0; + return; } if (*n == 1) { @@ -797,7 +798,7 @@ ompact WY representation of Q. */ } - return 0; + return; /* End of DGEQRT3 */ diff --git a/lapack-netlib/SRC/dgerfs.c b/lapack-netlib/SRC/dgerfs.c index 159da155c..a332ec33d 100644 --- a/lapack-netlib/SRC/dgerfs.c +++ b/lapack-netlib/SRC/dgerfs.c @@ -699,7 +699,7 @@ f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void dgerfs_(char *trans, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer * ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, @@ -716,21 +716,22 @@ f"> */ integer i__, j, k; doublereal s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); doublereal xk; integer nz; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dgetrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int dgetrs_( char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical notran; @@ -790,7 +791,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGERFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -802,7 +803,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -998,7 +999,7 @@ L100: /* L140: */ } - return 0; + return; /* End of DGERFS */ diff --git a/lapack-netlib/SRC/dgerfsx.c b/lapack-netlib/SRC/dgerfsx.c index 5e7f697a4..e003bfaa8 100644 --- a/lapack-netlib/SRC/dgerfsx.c +++ b/lapack-netlib/SRC/dgerfsx.c @@ -926,7 +926,7 @@ static integer c__1 = 1; /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgerfsx_(char *trans, char *equed, integer *n, integer * +/* Subroutine */ void dgerfsx_(char *trans, char *equed, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, @@ -952,9 +952,10 @@ static integer c__1 = 1; integer prec_type__; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgecon_(char *, integer *, doublereal *, + extern /* Subroutine */ void dgecon_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); logical colequ, notran, rowequ; integer trans_type__; extern integer ilaprec_(char *); @@ -963,7 +964,7 @@ static integer c__1 = 1; integer *, doublereal *, integer *); integer ithresh, n_norms__; doublereal rthresh, cwise_wrong__; - extern /* Subroutine */ int dla_gerfsx_extended_(integer *, integer *, + extern /* Subroutine */ void dla_gerfsx_extended_(integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, logical *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, @@ -1082,7 +1083,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DGERFSX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -1105,7 +1106,7 @@ static integer c__1 = 1; err_bnds_comp__[j + err_bnds_comp_dim1 * 3] = 1.; } } - return 0; + return; } /* Default to failure. */ @@ -1264,7 +1265,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of DGERFSX */ diff --git a/lapack-netlib/SRC/dgerq2.c b/lapack-netlib/SRC/dgerq2.c index 2a1a70cef..777847384 100644 --- a/lapack-netlib/SRC/dgerq2.c +++ b/lapack-netlib/SRC/dgerq2.c @@ -633,7 +633,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgerq2_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -641,10 +641,11 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dlarfg_(integer *, doublereal *, - doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); doublereal aii; @@ -678,7 +679,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGERQ2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -703,7 +704,7 @@ f"> */ a[*m - k + i__ + (*n - k + i__) * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of DGERQ2 */ diff --git a/lapack-netlib/SRC/dgerqf.c b/lapack-netlib/SRC/dgerqf.c index 8882ba184..1eb54dc84 100644 --- a/lapack-netlib/SRC/dgerqf.c +++ b/lapack-netlib/SRC/dgerqf.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgerqf_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -662,16 +662,17 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int dgerq2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgerq2_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ib, nb, ki, kk; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer mu, nu, nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -727,15 +728,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGERQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } nbmin = 2; @@ -826,7 +827,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DGERQF */ diff --git a/lapack-netlib/SRC/dgesc2.c b/lapack-netlib/SRC/dgesc2.c index e53e4f377..3e7288bc6 100644 --- a/lapack-netlib/SRC/dgesc2.c +++ b/lapack-netlib/SRC/dgesc2.c @@ -629,7 +629,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda, +/* Subroutine */ void dgesc2_(integer *n, doublereal *a, integer *lda, doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale) { /* System generated locals */ @@ -639,7 +639,7 @@ f"> */ /* Local variables */ doublereal temp; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); extern integer idamax_(integer *, doublereal *, integer *); @@ -720,7 +720,7 @@ f"> */ i__1 = *n - 1; dlaswp_(&c__1, &rhs[1], lda, &c__1, &i__1, &jpiv[1], &c_n1); - return 0; + return; /* End of DGESC2 */ diff --git a/lapack-netlib/SRC/dgesdd.c b/lapack-netlib/SRC/dgesdd.c index 21c133862..a84ed5006 100644 --- a/lapack-netlib/SRC/dgesdd.c +++ b/lapack-netlib/SRC/dgesdd.c @@ -734,7 +734,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal * +/* Subroutine */ void dgesdd_(char *jobz, integer *m, integer *n, doublereal * a, integer *lda, doublereal *s, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, integer *iwork, integer *info) @@ -750,7 +750,7 @@ f"> */ integer idum[1], ierr, itau, lwork_dormbr_qln_mm__, lwork_dormbr_qln_mn__, lwork_dormbr_qln_nn__, lwork_dormbr_prt_mm__, lwork_dormbr_prt_mn__, lwork_dormbr_prt_nn__, i__; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); @@ -759,11 +759,11 @@ f"> */ integer nwork; logical wntqn, wntqo, wntqs; integer ie, lwork_dorgbr_p_mm__; - extern /* Subroutine */ int dbdsdc_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dbdsdc_(char *, char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer il, lwork_dorgbr_q_nn__; - extern /* Subroutine */ int dgebrd_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgebrd_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); @@ -771,7 +771,7 @@ f"> */ extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer iu; - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), @@ -779,13 +779,14 @@ f"> */ doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dorgbr_(char *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dorgbr_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); extern logical disnan_(doublereal *); doublereal bignum; - extern /* Subroutine */ int dormbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormbr_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dorglq_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, @@ -1238,15 +1239,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGESDD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1260,7 +1261,7 @@ f"> */ anrm = dlange_("M", m, n, &a[a_offset], lda, dum); if (disnan_(&anrm)) { *info = -4; - return 0; + return; } iscl = 0; if (anrm > 0. && anrm < smlnum) { @@ -2283,7 +2284,7 @@ f"> */ work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGESDD */ diff --git a/lapack-netlib/SRC/dgesv.c b/lapack-netlib/SRC/dgesv.c index 8af33e743..ad0978250 100644 --- a/lapack-netlib/SRC/dgesv.c +++ b/lapack-netlib/SRC/dgesv.c @@ -638,8 +638,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int dgetrf_(integer *, integer *, doublereal *, - integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen), dgetrs_(char *, integer *, integer *, doublereal *, + extern /* Subroutine */ void dgetrf_(integer *, integer *, doublereal *, + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dgetrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); diff --git a/lapack-netlib/SRC/dgesvd.c b/lapack-netlib/SRC/dgesvd.c index 98b1e2279..32f136b7d 100644 --- a/lapack-netlib/SRC/dgesvd.c +++ b/lapack-netlib/SRC/dgesvd.c @@ -729,7 +729,7 @@ f"> */ /* > \ingroup doubleGEsing */ /* ===================================================================== */ -/* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, +/* Subroutine */ void dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *u, integer * ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, integer *info) @@ -745,20 +745,20 @@ f"> */ doublereal anrm; integer ierr, itau, ncvt, nrvt, lwork_dgebrd__, lwork_dgelqf__, lwork_dgeqrf__, i__; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer chunk, minmn, wrkbl, itaup, itauq, mnthr, iwork; logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; integer ie; - extern /* Subroutine */ int dgebrd_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgebrd_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer ir, bdspac, iu; - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), @@ -776,7 +776,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dormbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormbr_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dorglq_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, @@ -1382,15 +1382,15 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("DGESVD", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Get machine constants */ @@ -4591,7 +4591,7 @@ f"> */ work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGESVD */ diff --git a/lapack-netlib/SRC/dgesvdq.c b/lapack-netlib/SRC/dgesvdq.c index b69afddb4..c7f2001c3 100644 --- a/lapack-netlib/SRC/dgesvdq.c +++ b/lapack-netlib/SRC/dgesvdq.c @@ -932,7 +932,7 @@ static logical c_false = FALSE_; /* > \ingroup doubleGEsing */ /* ===================================================================== */ -/* Subroutine */ int dgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, +/* Subroutine */ void dgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, char *jobv, integer *m, integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *ldu, doublereal *v, integer * ldv, integer *numrank, integer *iwork, integer *liwork, doublereal * @@ -953,7 +953,7 @@ static logical c_false = FALSE_; logical acclh, acclm; integer p, q; logical conda; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer iwoff; @@ -965,32 +965,35 @@ static logical c_false = FALSE_; logical dntwu, dntwv, wntua; integer lworq; logical wntuf, wntva, wntur, wntus, wntvr; - extern /* Subroutine */ int dgeqp3_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqp3_(integer *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, integer *, integer *); integer lwsvd2, lworq2; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer nr; - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); doublereal sconda; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dgesvd_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, - integer *, doublereal *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen), dlapmt_(logical *, + integer *, doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlapmt_(logical *, integer *, integer *, doublereal *, integer *, integer *), dpocon_(char *, integer *, doublereal *, integer *, doublereal *, - doublereal *, doublereal *, integer *, integer *), - dlaswp_(integer *, doublereal *, integer *, integer *, integer *, - integer *, integer *), dormlq_(char *, char *, integer *, integer + doublereal *, doublereal *, integer *, integer *); + extern int dlaswp_(integer *, doublereal *, integer *, integer *, integer *, + integer *, integer *); + extern void dormlq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dormqr_(char *, char *, integer *, integer *, integer *, @@ -1380,7 +1383,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); xerbla_("DGESVDQ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { /* Return optimal workspace */ @@ -1389,13 +1392,13 @@ static logical c_false = FALSE_; work[1] = (doublereal) optwrk; work[2] = (doublereal) minwrk; rwork[1] = (doublereal) rminwrk; - return 0; + return; } /* Quick return if the matrix is void. */ if (*m == 0 || *n == 0) { - return 0; + return; } big = dlamch_("O"); @@ -1414,7 +1417,7 @@ static logical c_false = FALSE_; *info = -8; i__2 = -(*info); xerbla_("DGESVDQ", &i__2, (ftnlen)7); - return 0; + return; } /* L1904: */ } @@ -1465,7 +1468,7 @@ static logical c_false = FALSE_; rwork[1] = -1.; } rwork[2] = -1.; - return 0; + return; } if (rwork[1] > big / sqrt((doublereal) (*m))) { @@ -1489,7 +1492,7 @@ static logical c_false = FALSE_; *info = -8; i__1 = -(*info); xerbla_("DGESVDQ", &i__1, (ftnlen)7); - return 0; + return; } if (rtmp > big / sqrt((doublereal) (*m))) { /* matrix by 1/sqrt(M) if too large entry detected */ @@ -2244,7 +2247,7 @@ L4002: /* full row rank triangular (trapezoidal) factor of A. */ *numrank = nr; - return 0; + return; /* End of DGESVDQ */ diff --git a/lapack-netlib/SRC/dgesvdx.c b/lapack-netlib/SRC/dgesvdx.c index 5d0d79941..3f3a8eb4f 100644 --- a/lapack-netlib/SRC/dgesvdx.c +++ b/lapack-netlib/SRC/dgesvdx.c @@ -779,7 +779,7 @@ static doublereal c_b109 = 0.; /* > \ingroup doubleGEsing */ /* ===================================================================== */ -/* Subroutine */ int dgesvdx_(char *jobu, char *jobvt, char *range, integer * +/* Subroutine */ void dgesvdx_(char *jobu, char *jobvt, char *range, integer * m, integer *n, doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, integer *ns, doublereal *s, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, @@ -802,17 +802,17 @@ static doublereal c_b109 = 0.; integer i__, j; extern logical lsame_(char *, char *); integer iltgk, itemp, minmn; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer itaup, itauq, iutgk, itgkz, mnthr; logical wantu; integer id, ie; - extern /* Subroutine */ int dgebrd_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgebrd_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), @@ -820,16 +820,16 @@ static doublereal c_b109 = 0.; doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum, abstol; - extern /* Subroutine */ int dormbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormbr_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); char rngtgk[1]; - extern /* Subroutine */ int dormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormlq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dormqr_(char *, char *, integer *, integer *, integer *, @@ -839,7 +839,7 @@ static doublereal c_b109 = 0.; doublereal smlnum; logical lquery, wantvt; doublereal dum[1], eps; - extern /* Subroutine */ int dbdsvdx_(char *, char *, char *, integer *, + extern /* Subroutine */ void dbdsvdx_(char *, char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -1068,15 +1068,15 @@ static doublereal c_b109 = 0.; if (*info != 0) { i__2 = -(*info); xerbla_("DGESVDX", &i__2, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Set singular values indices accord to RANGE. */ @@ -1458,7 +1458,7 @@ static doublereal c_b109 = 0.; work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGESVDX */ diff --git a/lapack-netlib/SRC/dgesvj.c b/lapack-netlib/SRC/dgesvj.c index 8582ded18..88ee26ce6 100644 --- a/lapack-netlib/SRC/dgesvj.c +++ b/lapack-netlib/SRC/dgesvj.c @@ -853,7 +853,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgesvj_(char *joba, char *jobu, char *jobv, integer *m, +/* Subroutine */ void dgesvj_(char *joba, char *jobu, char *jobv, integer *m, integer *n, doublereal *a, integer *lda, doublereal *sva, integer *mv, doublereal *v, integer *ldv, doublereal *work, integer *lwork, integer *info) @@ -875,27 +875,27 @@ f"> */ doublereal temp1; integer i__, p, q; doublereal t; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal large, apoaq, aqoap; extern logical lsame_(char *, char *); doublereal theta, small, sfmin; logical lsvec; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal fastr[5]; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal epsln; logical applv, rsvec; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical uctol; - extern /* Subroutine */ int drotm_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drotm_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *); logical lower, upper, rotok; integer n2, n4; - extern /* Subroutine */ int dgsvj0_(char *, integer *, integer *, + extern /* Subroutine */ void dgsvj0_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dgsvj1_( @@ -908,16 +908,16 @@ f"> */ doublereal cs; extern doublereal dlamch_(char *); doublereal sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband, blskip; doublereal mxaapq; - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal thsign, mxsinj; integer ir1, emptsw, notrot, iswrot, jbc; @@ -1001,13 +1001,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGESVJ", &i__1, (ftnlen)6); - return 0; + return; } /* #:) Quick return for void matrix */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Set numerical parameters */ @@ -1049,7 +1049,7 @@ f"> */ *info = -4; i__1 = -(*info); xerbla_("DGESVJ", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize the right singular vector matrix. */ @@ -1087,7 +1087,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("DGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1117,7 +1117,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("DGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1147,7 +1147,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("DGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1203,7 +1203,7 @@ f"> */ work[4] = 0.; work[5] = 0.; work[6] = 0.; - return 0; + return; } /* #:) Quick return for one-column matrix */ @@ -1223,7 +1223,7 @@ f"> */ work[4] = 0.; work[5] = 0.; work[6] = 0.; - return 0; + return; } /* Protect small singular values from underflow, and try to */ @@ -2352,6 +2352,6 @@ L1995: /* MXSINJ is the largest absolute value of the sines of Jacobi angles */ /* in the last sweep */ - return 0; + return; } /* dgesvj_ */ diff --git a/lapack-netlib/SRC/dgesvx.c b/lapack-netlib/SRC/dgesvx.c index 46e72aa7e..646436f89 100644 --- a/lapack-netlib/SRC/dgesvx.c +++ b/lapack-netlib/SRC/dgesvx.c @@ -856,7 +856,7 @@ f"> */ /* > \ingroup doubleGEsolve */ /* ===================================================================== */ -/* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void dgesvx_(char *fact, char *trans, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * @@ -877,23 +877,24 @@ f"> */ logical equil; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlaqge_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlaqge_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, char *), dgecon_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); doublereal colcnd; logical nofact; - extern /* Subroutine */ int dgeequ_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeequ_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dgerfs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, - doublereal *, doublereal *, integer *, integer *), - dgetrf_(integer *, integer *, doublereal *, integer *, integer *, - integer *), dlacpy_(char *, integer *, integer *, doublereal *, - integer *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, doublereal *, integer *, integer *); + extern int dgetrf_(integer *, integer *, doublereal *, integer *, integer *, + integer *); + extern void dlacpy_(char *, integer *, integer *, doublereal *, + integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; extern doublereal dlantr_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); @@ -1030,7 +1031,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGESVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1101,7 +1102,7 @@ f"> */ } work[1] = rpvgrw; *rcond = 0.; - return 0; + return; } } @@ -1184,7 +1185,7 @@ f"> */ if (*rcond < dlamch_("Epsilon")) { *info = *n + 1; } - return 0; + return; /* End of DGESVX */ diff --git a/lapack-netlib/SRC/dgesvxx.c b/lapack-netlib/SRC/dgesvxx.c index eea6eab06..6c80d6b6d 100644 --- a/lapack-netlib/SRC/dgesvxx.c +++ b/lapack-netlib/SRC/dgesvxx.c @@ -1045,7 +1045,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGEsolve */ /* ===================================================================== */ -/* Subroutine */ int dgesvxx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void dgesvxx_(char *fact, char *trans, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * @@ -1069,25 +1069,26 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ doublereal rcmin, rcmax; logical equil; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlaqge_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlaqge_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, char *); doublereal colcnd; logical nofact; - extern /* Subroutine */ int dgetrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgetrf_(integer *, integer *, doublereal *, integer *, integer *, integer *), dlacpy_(char *, integer *, - integer *, doublereal *, integer *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer infequ; logical colequ; - extern /* Subroutine */ int dgetrs_(char *, integer *, integer *, + extern /* Subroutine */ void dgetrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal rowcnd; logical notran; doublereal smlnum; logical rowequ; - extern /* Subroutine */ int dlascl2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlascl2_(integer *, integer *, doublereal *, doublereal *, integer *), dgeequb_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dgerfsx_(char *, char *, @@ -1231,7 +1232,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGESVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1297,7 +1298,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = dla_gerpvgrw__(n, info, &a[a_offset], lda, &af[ af_offset], ldaf); - return 0; + return; } } @@ -1328,7 +1329,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dlascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); } - return 0; + return; /* End of DGESVXX */ } /* dgesvxx_ */ diff --git a/lapack-netlib/SRC/dgetc2.c b/lapack-netlib/SRC/dgetc2.c index 7d79601eb..1c33db5dc 100644 --- a/lapack-netlib/SRC/dgetc2.c +++ b/lapack-netlib/SRC/dgetc2.c @@ -625,7 +625,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer +/* Subroutine */ void dgetc2_(integer *n, doublereal *a, integer *lda, integer *ipiv, integer *jpiv, integer *info) { /* System generated locals */ @@ -633,12 +633,12 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal smin, xmax; integer i__, j; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *), dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); integer ip, jp; @@ -668,7 +668,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -687,7 +687,7 @@ f"> */ *info = 1; a[a_dim1 + 1] = smlnum; } - return 0; + return; } /* Factorize A using complete pivoting. */ @@ -762,7 +762,7 @@ f"> */ ipiv[*n] = *n; jpiv[*n] = *n; - return 0; + return; /* End of DGETC2 */ diff --git a/lapack-netlib/SRC/dgetf2.c b/lapack-netlib/SRC/dgetf2.c index c3eef9266..e0f7dd74c 100644 --- a/lapack-netlib/SRC/dgetf2.c +++ b/lapack-netlib/SRC/dgetf2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgetf2_(integer *m, integer *n, doublereal *a, integer * lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -631,14 +631,14 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sfmin; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamch_(char *); integer jp; @@ -675,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGETF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Compute machine safe minimum */ @@ -736,7 +736,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of DGETF2 */ diff --git a/lapack-netlib/SRC/dgetrf.c b/lapack-netlib/SRC/dgetrf.c index 89472f0e1..6e3faef5b 100644 --- a/lapack-netlib/SRC/dgetrf.c +++ b/lapack-netlib/SRC/dgetrf.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgetrf_(integer *m, integer *n, doublereal *a, integer * lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -632,18 +632,18 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer jb, nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlaswp_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlaswp_(integer *, doublereal *, integer *, integer *, integer *, integer *, integer *), dgetrf2_(integer *, integer *, doublereal *, integer *, integer *, integer *); @@ -677,13 +677,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGETRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -761,7 +761,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of DGETRF */ diff --git a/lapack-netlib/SRC/dgetrf2.c b/lapack-netlib/SRC/dgetrf2.c index 1aa89f114..802868e7d 100644 --- a/lapack-netlib/SRC/dgetrf2.c +++ b/lapack-netlib/SRC/dgetrf2.c @@ -625,7 +625,7 @@ static doublereal c_b16 = -1.; /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgetrf2_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dgetrf2_(integer *m, integer *n, doublereal *a, integer * lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -635,19 +635,20 @@ static doublereal c_b16 = -1.; /* Local variables */ doublereal temp; integer i__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; doublereal sfmin; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer n1, n2; extern doublereal dlamch_(char *); extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlaswp_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int dlaswp_( integer *, doublereal *, integer *, integer *, integer *, integer *, integer *); @@ -681,13 +682,13 @@ static doublereal c_b16 = -1.; if (*info != 0) { i__1 = -(*info); xerbla_("DGETRF2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (*m == 1) { @@ -799,7 +800,7 @@ static doublereal c_b16 = -1.; dlaswp_(&n1, &a[a_dim1 + 1], lda, &i__1, &i__2, &ipiv[1], &c__1); } - return 0; + return; /* End of DGETRF2 */ diff --git a/lapack-netlib/SRC/dgetri.c b/lapack-netlib/SRC/dgetri.c index e1e0b74ce..6f5b386f6 100644 --- a/lapack-netlib/SRC/dgetri.c +++ b/lapack-netlib/SRC/dgetri.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer +/* Subroutine */ void dgetri_(integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -639,14 +639,14 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nbmin; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *), dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); @@ -697,15 +697,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGETRI", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form inv(U). If INFO > 0 from DTRTRI, then U is singular, */ @@ -713,7 +713,7 @@ f"> */ dtrtri_("Upper", "Non-unit", n, &a[a_offset], lda, info); if (*info > 0) { - return 0; + return; } nbmin = 2; @@ -810,7 +810,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DGETRI */ diff --git a/lapack-netlib/SRC/dgetrs.c b/lapack-netlib/SRC/dgetrs.c index e2d312fa1..50b962b61 100644 --- a/lapack-netlib/SRC/dgetrs.c +++ b/lapack-netlib/SRC/dgetrs.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void dgetrs_(char *trans, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * ldb, integer *info) { @@ -645,10 +645,11 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, - doublereal *, integer *), xerbla_( - char *, integer *, ftnlen), dlaswp_(integer *, doublereal *, + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlaswp_(integer *, doublereal *, integer *, integer *, integer *, integer *, integer *); logical notran; @@ -691,13 +692,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGETRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (notran) { @@ -736,7 +737,7 @@ f"> */ dlaswp_(nrhs, &b[b_offset], ldb, &c__1, n, &ipiv[1], &c_n1); } - return 0; + return; /* End of DGETRS */ diff --git a/lapack-netlib/SRC/dgetsls.c b/lapack-netlib/SRC/dgetsls.c index b2138e686..221c4d5e0 100644 --- a/lapack-netlib/SRC/dgetsls.c +++ b/lapack-netlib/SRC/dgetsls.c @@ -674,7 +674,7 @@ static integer c__0 = 0; /* > \ingroup doubleGEsolve */ /* ===================================================================== */ -/* Subroutine */ int dgetsls_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void dgetsls_(char *trans, integer *m, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info) { @@ -685,27 +685,28 @@ static integer c__0 = 0; doublereal anrm, bnrm; logical tran; integer brow, tszm, tszo, info2, i__, j, iascl, ibscl; - extern /* Subroutine */ int dgelq_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelq_(integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgeqr_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqr_(integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer minmn, maxmn; doublereal workq[1]; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal tq[5]; - extern /* Subroutine */ int dgemlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemlq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer *, doublereal - *, doublereal *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen), dgemqr_(char *, char *, integer *, integer *, + *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dgemqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer scllen; @@ -819,7 +820,7 @@ static integer c__0 = 0; i__1 = -(*info); xerbla_("DGETSLS", &i__1, (ftnlen)7); work[1] = (doublereal) wsizeo; - return 0; + return; } if (lquery) { if (*lwork == -1) { @@ -828,7 +829,7 @@ static integer c__0 = 0; if (*lwork == -2) { work[1] = (real) wsizem; } - return 0; + return; } if (*lwork < wsizeo) { lw1 = tszm; @@ -845,7 +846,7 @@ static integer c__0 = 0; if (f2cmin(i__1,*nrhs) == 0) { i__1 = f2cmax(*m,*n); dlaset_("FULL", &i__1, nrhs, &c_b23, &c_b23, &b[b_offset], ldb); - return 0; + return; } /* Get machine parameters */ @@ -922,7 +923,7 @@ static integer c__0 = 0; dtrtrs_("U", "N", "N", n, nrhs, &a[a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; } else { @@ -935,7 +936,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } /* B(N+1:M,1:NRHS) = ZERO */ @@ -978,7 +979,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } /* B(M+1:N,1:NRHS) = 0 */ @@ -1019,7 +1020,7 @@ static integer c__0 = 0; lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1047,7 +1048,7 @@ static integer c__0 = 0; L50: work[1] = (doublereal) (tszo + lwo); - return 0; + return; /* End of DGETSLS */ diff --git a/lapack-netlib/SRC/dgetsqrhrt.c b/lapack-netlib/SRC/dgetsqrhrt.c index 219468381..ae9e16bb9 100644 --- a/lapack-netlib/SRC/dgetsqrhrt.c +++ b/lapack-netlib/SRC/dgetsqrhrt.c @@ -689,7 +689,7 @@ hrt.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgetsqrhrt_(integer *m, integer *n, integer *mb1, +/* Subroutine */ void dgetsqrhrt_(integer *m, integer *n, integer *mb1, integer *nb1, integer *nb2, doublereal *a, integer *lda, doublereal * t, integer *ldt, doublereal *work, integer *lwork, integer *info) { @@ -699,17 +699,18 @@ hrt.f"> */ /* Local variables */ integer ldwt, lworkopt, i__, j; - extern /* Subroutine */ int dorgtsqr_row_(integer *, integer *, integer * + extern /* Subroutine */ void dorgtsqr_row_(integer *, integer *, integer * , integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer iinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dorhr_col_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, - doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; integer lw1, lw2, num_all_row_blocks__, lwt; - extern /* Subroutine */ int dlatsqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dlatsqr_(integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer nb1local, nb2local; @@ -812,17 +813,17 @@ hrt.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGETSQRHRT", &i__1, (ftnlen)10); - return 0; + return; } else if (lquery) { work[1] = (doublereal) lworkopt; - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { work[1] = (doublereal) lworkopt; - return 0; + return; } nb2local = f2cmin(*nb2,*n); @@ -884,7 +885,7 @@ hrt.f"> */ } work[1] = (doublereal) lworkopt; - return 0; + return; /* End of DGETSQRHRT */ diff --git a/lapack-netlib/SRC/dggbak.c b/lapack-netlib/SRC/dggbak.c index 2e5d8cebe..a81fe75e9 100644 --- a/lapack-netlib/SRC/dggbak.c +++ b/lapack-netlib/SRC/dggbak.c @@ -655,7 +655,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo, +/* Subroutine */ void dggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, doublereal *v, integer *ldv, integer *info) { @@ -664,10 +664,10 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical leftv; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -720,19 +720,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGBAK", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*m == 0) { - return 0; + return; } if (lsame_(job, "N")) { - return 0; + return; } if (*ilo == *ihi) { @@ -838,7 +838,7 @@ L100: L110: - return 0; + return; /* End of DGGBAK */ diff --git a/lapack-netlib/SRC/dggbal.c b/lapack-netlib/SRC/dggbal.c index 0eea86f18..422dc2d1e 100644 --- a/lapack-netlib/SRC/dggbal.c +++ b/lapack-netlib/SRC/dggbal.c @@ -691,7 +691,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer * +/* Subroutine */ void dggbal_(char *job, integer *n, doublereal *a, integer * lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, doublereal *work, integer * info) @@ -710,14 +710,14 @@ f"> */ doublereal coef2, coef5; integer i__, j, k, l, m; doublereal gamma, t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal sfmin, sfmax; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer iflow; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer kount, jc; doublereal ta, tb, tc; @@ -770,7 +770,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGBAL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -778,7 +778,7 @@ f"> */ if (*n == 0) { *ilo = 1; *ihi = *n; - return 0; + return; } if (*n == 1) { @@ -786,7 +786,7 @@ f"> */ *ihi = *n; lscale[1] = 1.; rscale[1] = 1.; - return 0; + return; } if (lsame_(job, "N")) { @@ -798,7 +798,7 @@ f"> */ rscale[i__] = 1.; /* L10: */ } - return 0; + return; } k = 1; @@ -931,11 +931,11 @@ L190: rscale[i__] = 1.; /* L195: */ } - return 0; + return; } if (*ilo == *ihi) { - return 0; + return; } /* Balance the submatrix in rows ILO to IHI. */ @@ -1187,7 +1187,7 @@ L350: /* L380: */ } - return 0; + return; /* End of DGGBAL */ diff --git a/lapack-netlib/SRC/dgges.c b/lapack-netlib/SRC/dgges.c index 0bdd2dbb6..399d12bc6 100644 --- a/lapack-netlib/SRC/dgges.c +++ b/lapack-netlib/SRC/dgges.c @@ -798,7 +798,7 @@ or GE matrices */ /* > \ingroup doubleGEeigen */ /* ===================================================================== */ -/* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, @@ -819,7 +819,7 @@ or GE matrices */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dggbak_( + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *), dggbak_( char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dggbal_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, @@ -829,23 +829,23 @@ or GE matrices */ integer ip; extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, @@ -859,12 +859,12 @@ or GE matrices */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ijobvr; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal anrmto, bnrmto; logical lastsl; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer minwrk, maxwrk; @@ -990,16 +990,16 @@ or GE matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGES ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1283,7 +1283,7 @@ L50: work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGGES */ diff --git a/lapack-netlib/SRC/dgges3.c b/lapack-netlib/SRC/dgges3.c index 76ff7c6ac..89fca0326 100644 --- a/lapack-netlib/SRC/dgges3.c +++ b/lapack-netlib/SRC/dgges3.c @@ -796,7 +796,7 @@ f"> */ /* > \ingroup doubleGEeigen */ /* ===================================================================== */ -/* Subroutine */ int dgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void dgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, @@ -816,12 +816,12 @@ f"> */ extern logical lsame_(char *, char *); integer ileft, icols; logical cursl, ilvsl, ilvsr; - extern /* Subroutine */ int dgghd3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgghd3_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dggbak_( + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *), dggbak_( char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dggbal_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, @@ -831,21 +831,21 @@ f"> */ integer ip; extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, @@ -856,12 +856,12 @@ f"> */ doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *); integer ijobvl, iright, ijobvr; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal anrmto, bnrmto; logical lastsl; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal smlnum; @@ -998,16 +998,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGES3 ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1285,7 +1285,7 @@ L50: work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DGGES3 */ diff --git a/lapack-netlib/SRC/dggesx.c b/lapack-netlib/SRC/dggesx.c index 1a87a12c2..995b5f01e 100644 --- a/lapack-netlib/SRC/dggesx.c +++ b/lapack-netlib/SRC/dggesx.c @@ -878,7 +878,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, char *sense, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, @@ -899,7 +899,7 @@ f"> */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *), dggbak_( + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *), dggbak_( char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dggbal_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, @@ -910,31 +910,31 @@ f"> */ extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); doublereal pl; - extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal pr; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer ijobvl, iright; - extern /* Subroutine */ int dtgsen_(integer *, logical *, logical *, + extern /* Subroutine */ void dtgsen_(integer *, logical *, logical *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, @@ -947,13 +947,13 @@ f"> */ integer liwmin; logical wantse, lastsl; doublereal anrmto, bnrmto; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer minwrk, maxwrk; logical wantsn; doublereal smlnum; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); logical wantst, lquery, wantsv; @@ -1111,16 +1111,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGESX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1432,7 +1432,7 @@ L60: work[1] = (doublereal) maxwrk; iwork[1] = liwmin; - return 0; + return; /* End of DGGESX */ diff --git a/lapack-netlib/SRC/dggev.c b/lapack-netlib/SRC/dggev.c index 792053ceb..7a8f34bb8 100644 --- a/lapack-netlib/SRC/dggev.c +++ b/lapack-netlib/SRC/dggev.c @@ -743,7 +743,7 @@ ices */ /* > \ingroup doubleGEeigen */ /* ===================================================================== */ -/* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal * +/* Subroutine */ void dggev_(char *jobvl, char *jobvr, integer *n, doublereal * a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, @@ -762,9 +762,9 @@ ices */ integer iwrk; extern logical lsame_(char *, char *); integer ileft, icols, irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer jc; - extern /* Subroutine */ int dggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dggbal_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, @@ -773,13 +773,13 @@ ices */ extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer jr; - extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, @@ -790,19 +790,20 @@ ices */ logical ldumma[1]; char chtemp[1]; doublereal bignum; - extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ijobvl, iright, ijobvr; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal anrmto, bnrmto; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer minwrk, maxwrk; @@ -922,15 +923,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1218,7 +1219,7 @@ L110: } work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGGEV */ diff --git a/lapack-netlib/SRC/dggev3.c b/lapack-netlib/SRC/dggev3.c index f4cf9f192..fa8f27dbf 100644 --- a/lapack-netlib/SRC/dggev3.c +++ b/lapack-netlib/SRC/dggev3.c @@ -742,7 +742,7 @@ f"> */ /* > \ingroup doubleGEeigen */ /* ===================================================================== */ -/* Subroutine */ int dggev3_(char *jobvl, char *jobvr, integer *n, doublereal +/* Subroutine */ void dggev3_(char *jobvl, char *jobvr, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, @@ -761,14 +761,14 @@ f"> */ integer iwrk; extern logical lsame_(char *, char *); integer ileft, icols; - extern /* Subroutine */ int dgghd3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgghd3_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer jc; - extern /* Subroutine */ int dggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dggbal_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, @@ -777,11 +777,11 @@ f"> */ extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer jr; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, @@ -792,17 +792,18 @@ f"> */ logical ldumma[1]; char chtemp[1]; doublereal bignum; - extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); integer ijobvl, iright, ijobvr; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal anrmto, bnrmto; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal smlnum; @@ -947,15 +948,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGEV3 ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1238,7 +1239,7 @@ L110: } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DGGEV3 */ diff --git a/lapack-netlib/SRC/dggevx.c b/lapack-netlib/SRC/dggevx.c index b3ef245e4..213beaf84 100644 --- a/lapack-netlib/SRC/dggevx.c +++ b/lapack-netlib/SRC/dggevx.c @@ -905,7 +905,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char * +/* Subroutine */ void dggevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, @@ -930,9 +930,9 @@ f"> */ integer icols; logical noscl; integer irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer jc; - extern /* Subroutine */ int dggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dggbal_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, @@ -943,46 +943,46 @@ f"> */ extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer jr; - extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); logical ldumma[1]; char chtemp[1]; doublereal bignum; - extern /* Subroutine */ int dhgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void dhgeqz_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); integer ijobvl; - extern /* Subroutine */ int dtgevc_(char *, char *, logical *, integer *, + extern /* Subroutine */ void dtgevc_(char *, char *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *), dtgsna_(char *, char *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, - integer *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ijobvr; logical wantsb; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal anrmto; logical wantse; doublereal bnrmto; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer minwrk, maxwrk; @@ -1135,15 +1135,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } @@ -1512,7 +1512,7 @@ L130: } work[1] = (doublereal) maxwrk; - return 0; + return; /* End of DGGEVX */ diff --git a/lapack-netlib/SRC/dggglm.c b/lapack-netlib/SRC/dggglm.c index e2de18037..1299b3441 100644 --- a/lapack-netlib/SRC/dggglm.c +++ b/lapack-netlib/SRC/dggglm.c @@ -700,7 +700,7 @@ f"> */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal * +/* Subroutine */ void dggglm_(integer *n, integer *m, integer *p, doublereal * a, integer *lda, doublereal *b, integer *ldb, doublereal *d__, doublereal *x, doublereal *y, doublereal *work, integer *lwork, integer *info) @@ -710,19 +710,19 @@ f"> */ /* Local variables */ integer lopt, i__; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer nb, np; - extern /* Subroutine */ int dggqrf_(integer *, integer *, integer *, + extern /* Subroutine */ void dggqrf_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, - doublereal *, doublereal *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer lwkmin, nb1, nb2, nb3, nb4; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dormrq_(char *, char *, integer *, integer *, integer *, @@ -805,9 +805,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGGLM", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -821,7 +821,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { y[i__] = 0.; } - return 0; + return; } /* Compute the GQR factorization of matrices A and B: */ @@ -860,7 +860,7 @@ f"> */ if (*info > 0) { *info = 1; - return 0; + return; } i__1 = *n - *m; @@ -889,7 +889,7 @@ f"> */ if (*info > 0) { *info = 2; - return 0; + return; } /* Copy D to X */ @@ -909,7 +909,7 @@ f"> */ i__1 = lopt, i__2 = (integer) work[*m + np + 1]; work[1] = (doublereal) (*m + np + f2cmax(i__1,i__2)); - return 0; + return; /* End of DGGGLM */ diff --git a/lapack-netlib/SRC/dgghd3.c b/lapack-netlib/SRC/dgghd3.c index 3a1463458..c4507b8cb 100644 --- a/lapack-netlib/SRC/dgghd3.c +++ b/lapack-netlib/SRC/dgghd3.c @@ -748,7 +748,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgghd3_(char *compq, char *compz, integer *n, integer * +/* Subroutine */ void dgghd3_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer * ldz, doublereal *work, integer *lwork, integer *info) @@ -762,21 +762,21 @@ f"> */ logical blk22; integer cola, jcol, ierr; doublereal temp; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer jrow, topq, ppwo; doublereal temp1, temp2, temp3, c__; integer kacc22, i__, j, k; doublereal s; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nbmin; - extern /* Subroutine */ int dorm22_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dorm22_(char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer nblst; @@ -784,25 +784,25 @@ f"> */ doublereal c1, c2; logical wantq; integer j0; - extern /* Subroutine */ int dtrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *); logical initz, wantz; doublereal s1, s2; char compq2[1], compz2[1]; integer nb, jj, nh; - extern /* Subroutine */ int dgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgghrd_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer nx, pw; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; integer nnb, len, top, ppw, n2nb; @@ -873,9 +873,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGHD3", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Initialize Q and Z if desired. */ @@ -900,7 +900,7 @@ f"> */ nh = *ihi - *ilo + 1; if (nh <= 1) { work[1] = 1.; - return 0; + return; } /* Determine the blocksize. */ @@ -1573,7 +1573,7 @@ f"> */ } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DGGHD3 */ diff --git a/lapack-netlib/SRC/dgghrd.c b/lapack-netlib/SRC/dgghrd.c index 91e3ebfd0..03879f33e 100644 --- a/lapack-netlib/SRC/dgghrd.c +++ b/lapack-netlib/SRC/dgghrd.c @@ -721,7 +721,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer * +/* Subroutine */ void dgghrd_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer * ldz, integer *info) @@ -733,15 +733,16 @@ f"> */ /* Local variables */ integer jcol; doublereal temp; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer jrow; doublereal c__, s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); integer icompq, icompz; logical ilq, ilz; @@ -825,7 +826,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGHRD", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize Q and Z if desired. */ @@ -840,7 +841,7 @@ f"> */ /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } /* Zero out lower triangle of B */ @@ -900,7 +901,7 @@ f"> */ /* L40: */ } - return 0; + return; /* End of DGGHRD */ diff --git a/lapack-netlib/SRC/dgglse.c b/lapack-netlib/SRC/dgglse.c index 15650c690..e9b555073 100644 --- a/lapack-netlib/SRC/dgglse.c +++ b/lapack-netlib/SRC/dgglse.c @@ -695,7 +695,7 @@ f"> */ /* > \ingroup doubleOTHERsolve */ /* ===================================================================== */ -/* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal * +/* Subroutine */ void dgglse_(integer *m, integer *n, integer *p, doublereal * a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, doublereal *d__, doublereal *x, doublereal *work, integer *lwork, integer *info) @@ -705,7 +705,7 @@ f"> */ /* Local variables */ integer lopt; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer @@ -713,14 +713,14 @@ f"> */ , dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *); integer nb, mn, nr; - extern /* Subroutine */ int dggrqf_(integer *, integer *, integer *, + extern /* Subroutine */ void dggrqf_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, - doublereal *, doublereal *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer lwkmin, nb1, nb2, nb3, nb4; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dormrq_(char *, char *, integer *, integer *, integer *, @@ -803,15 +803,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGLSE", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Compute the GRQ factorization of matrices B and A: */ @@ -847,7 +847,7 @@ f"> */ if (*info > 0) { *info = 1; - return 0; + return; } /* Put the solution in X */ @@ -871,7 +871,7 @@ f"> */ if (*info > 0) { *info = 2; - return 0; + return; } /* Put the solutions in X */ @@ -908,7 +908,7 @@ f"> */ i__1 = lopt, i__2 = (integer) work[*p + mn + 1]; work[1] = (doublereal) (*p + mn + f2cmax(i__1,i__2)); - return 0; + return; /* End of DGGLSE */ diff --git a/lapack-netlib/SRC/dggqrf.c b/lapack-netlib/SRC/dggqrf.c index 19222570c..535db1cce 100644 --- a/lapack-netlib/SRC/dggqrf.c +++ b/lapack-netlib/SRC/dggqrf.c @@ -728,7 +728,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal * +/* Subroutine */ void dggqrf_(integer *n, integer *m, integer *p, doublereal * a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, doublereal *taub, doublereal *work, integer *lwork, integer *info) { @@ -737,14 +737,15 @@ f"> */ /* Local variables */ integer lopt, nb; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dgerqf_(integer *, integer *, doublereal *, integer *, doublereal - *, doublereal *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer nb1, nb2, nb3; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer lwkopt; @@ -808,9 +809,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGGQRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* QR factorization of N-by-M matrix A: A = Q*R */ @@ -834,7 +835,7 @@ f"> */ i__1 = lopt, i__2 = (integer) work[1]; work[1] = (doublereal) f2cmax(i__1,i__2); - return 0; + return; /* End of DGGQRF */ diff --git a/lapack-netlib/SRC/dggrqf.c b/lapack-netlib/SRC/dggrqf.c index 3e3961c59..9b764d7b8 100644 --- a/lapack-netlib/SRC/dggrqf.c +++ b/lapack-netlib/SRC/dggrqf.c @@ -727,7 +727,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal * +/* Subroutine */ void dggrqf_(integer *m, integer *p, integer *n, doublereal * a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, doublereal *taub, doublereal *work, integer *lwork, integer *info) { @@ -736,14 +736,15 @@ f"> */ /* Local variables */ integer lopt, nb; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dgerqf_(integer *, integer *, doublereal *, integer *, doublereal - *, doublereal *, integer *, integer *), xerbla_(char *, integer *); + *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer nb1, nb2, nb3; - extern /* Subroutine */ int dormrq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormrq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer lwkopt; @@ -806,10 +807,10 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("DGGRQF", &i__1); - return 0; + xerbla_("DGGRQF", &i__1, 6); + return; } else if (lquery) { - return 0; + return; } /* RQ factorization of M-by-N matrix A: A = R*Q */ @@ -835,7 +836,7 @@ f"> */ i__1 = lopt, i__2 = (integer) work[1]; work[1] = (doublereal) f2cmax(i__1,i__2); - return 0; + return; /* End of DGGRQF */ diff --git a/lapack-netlib/SRC/dggsvd3.c b/lapack-netlib/SRC/dggsvd3.c index 4e0572dca..347d0e08a 100644 --- a/lapack-netlib/SRC/dggsvd3.c +++ b/lapack-netlib/SRC/dggsvd3.c @@ -861,7 +861,7 @@ static integer c__1 = 1; /* > DGGSVD3 replaces the deprecated subroutine DGGSVD. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dggsvd3_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void dggsvd3_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alpha, doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer @@ -880,20 +880,21 @@ static integer c__1 = 1; integer ncallmycycle, i__, j; extern logical lsame_(char *, char *); doublereal anorm, bnorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical wantq, wantu, wantv; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dtgsja_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtgsja_(char *, char *, char *, integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int dggsvp3_(char *, char *, char *, integer *, + extern /* Subroutine */ void dggsvp3_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, @@ -988,10 +989,10 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DGGSVD3", &i__1, (ftnlen)7); - return 0; + return; } if (lquery) { - return 0; + return; } /* Compute the Frobenius norm of matrices A and B */ @@ -1054,7 +1055,7 @@ static integer c__1 = 1; } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DGGSVD3 */ diff --git a/lapack-netlib/SRC/dggsvp3.c b/lapack-netlib/SRC/dggsvp3.c index 6127bb0e3..b07984e11 100644 --- a/lapack-netlib/SRC/dggsvp3.c +++ b/lapack-netlib/SRC/dggsvp3.c @@ -785,7 +785,7 @@ static doublereal c_b24 = 1.; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dggsvp3_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void dggsvp3_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, @@ -801,7 +801,7 @@ static doublereal c_b24 = 1.; integer i__, j; extern logical lsame_(char *, char *); logical wantq, wantu, wantv; - extern /* Subroutine */ int dgeqp3_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqp3_(integer *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, integer *, integer *), dgeqr2_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dgerq2_(integer *, @@ -814,8 +814,9 @@ static doublereal c_b24 = 1.; integer *, doublereal *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dlapmt_(logical *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlapmt_(logical *, integer *, integer *, doublereal *, integer *, integer *); logical forwrd; integer lwkopt; @@ -919,10 +920,10 @@ static doublereal c_b24 = 1.; if (*info != 0) { i__1 = -(*info); xerbla_("DGGSVP3", &i__1, (ftnlen)7); - return 0; + return; } if (lquery) { - return 0; + return; } /* QR with column pivoting of B: B*P = V*( S11 S12 ) */ @@ -1174,7 +1175,7 @@ static doublereal c_b24 = 1.; } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DGGSVP3 */ diff --git a/lapack-netlib/SRC/dgsvj0.c b/lapack-netlib/SRC/dgsvj0.c index fe8dc93eb..4dc598578 100644 --- a/lapack-netlib/SRC/dgsvj0.c +++ b/lapack-netlib/SRC/dgsvj0.c @@ -732,7 +732,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* ===================================================================== */ -/* Subroutine */ int dgsvj0_(char *jobv, integer *m, integer *n, doublereal * +/* Subroutine */ void dgsvj0_(char *jobv, integer *m, integer *n, doublereal * a, integer *lda, doublereal *d__, doublereal *sva, integer *mv, doublereal *v, integer *ldv, doublereal *eps, doublereal *sfmin, doublereal *tol, integer *nsweep, doublereal *work, integer *lwork, @@ -757,25 +757,25 @@ f"> */ doublereal t, apoaq, aqoap; extern logical lsame_(char *, char *); doublereal theta, small; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal fastr[5]; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical applv, rsvec; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), drotm_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *); logical rotok; doublereal rootsfmin, cs, sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband, blskip; doublereal mxaapq; - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal thsign, mxsinj; integer ir1, emptsw, notrot, iswrot, jbc; @@ -837,7 +837,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGSVJ0", &i__1, (ftnlen)6); - return 0; + return; } if (rsvec) { @@ -1720,6 +1720,6 @@ L1995: /* L5991: */ } - return 0; + return; } /* dgsvj0_ */ diff --git a/lapack-netlib/SRC/dgsvj1.c b/lapack-netlib/SRC/dgsvj1.c index 1cfde9dfc..b191834ed 100644 --- a/lapack-netlib/SRC/dgsvj1.c +++ b/lapack-netlib/SRC/dgsvj1.c @@ -751,7 +751,7 @@ f"> */ /* > Zlatko Drmac (Zagreb, Croatia) and Kresimir Veselic (Hagen, Germany) */ /* ===================================================================== */ -/* Subroutine */ int dgsvj1_(char *jobv, integer *m, integer *n, integer *n1, +/* Subroutine */ void dgsvj1_(char *jobv, integer *m, integer *n, integer *n1, doublereal *a, integer *lda, doublereal *d__, doublereal *sva, integer *mv, doublereal *v, integer *ldv, doublereal *eps, doublereal *sfmin, doublereal *tol, integer *nsweep, doublereal *work, integer * @@ -777,25 +777,25 @@ f"> */ doublereal t, large, apoaq, aqoap; extern logical lsame_(char *, char *); doublereal theta, small; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal fastr[5]; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical applv, rsvec; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), drotm_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *); logical rotok; doublereal rootsfmin, cs, sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband, blskip; doublereal mxaapq; - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal thsign, mxsinj; integer emptsw, notrot, iswrot, jbc; @@ -859,7 +859,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGSVJ1", &i__1, (ftnlen)6); - return 0; + return; } if (rsvec) { @@ -1358,6 +1358,6 @@ L1995: /* L5991: */ } - return 0; + return; } /* dgsvj1_ */ diff --git a/lapack-netlib/SRC/dgtcon.c b/lapack-netlib/SRC/dgtcon.c index 44f0c0e2c..1244943e8 100644 --- a/lapack-netlib/SRC/dgtcon.c +++ b/lapack-netlib/SRC/dgtcon.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup doubleGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl, +/* Subroutine */ void dgtcon_(char *norm, integer *n, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer * iwork, integer *info) @@ -670,12 +670,12 @@ f"> */ integer kase, kase1, i__; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, - integer *, doublereal *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, + integer *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; logical onenrm; - extern /* Subroutine */ int dgttrs_(char *, integer *, integer *, + extern /* Subroutine */ void dgttrs_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -713,7 +713,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGTCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -721,9 +721,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } /* Check that D(1:N) is non-zero. */ @@ -731,7 +731,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (d__[i__] == 0.) { - return 0; + return; } /* L10: */ } @@ -768,7 +768,7 @@ L20: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of DGTCON */ diff --git a/lapack-netlib/SRC/dgtrfs.c b/lapack-netlib/SRC/dgtrfs.c index bf53d365d..81add9aa0 100644 --- a/lapack-netlib/SRC/dgtrfs.c +++ b/lapack-netlib/SRC/dgtrfs.c @@ -722,7 +722,7 @@ f"> */ /* > \ingroup doubleGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void dgtrfs_(char *trans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * @@ -740,22 +740,22 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer nz; - extern /* Subroutine */ int dlagtm_(char *, integer *, integer *, + extern /* Subroutine */ void dlagtm_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran; char transn[1]; - extern /* Subroutine */ int dgttrs_(char *, integer *, integer *, + extern /* Subroutine */ void dgttrs_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); char transt[1]; @@ -811,7 +811,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGTRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -823,7 +823,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1035,7 +1035,7 @@ L70: /* L110: */ } - return 0; + return; /* End of DGTRFS */ diff --git a/lapack-netlib/SRC/dgtsv.c b/lapack-netlib/SRC/dgtsv.c index b5d19ad6d..c608f1c07 100644 --- a/lapack-netlib/SRC/dgtsv.c +++ b/lapack-netlib/SRC/dgtsv.c @@ -636,7 +636,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGTsolve */ /* ===================================================================== */ -/* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl, +/* Subroutine */ void dgtsv_(integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer *info) { @@ -679,11 +679,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DGTSV ", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } if (*nrhs == 1) { @@ -699,7 +699,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ b[i__ + 1 + b_dim1] -= fact * b[i__ + b_dim1]; } else { *info = i__; - return 0; + return; } dl[i__] = 0.; } else { @@ -728,7 +728,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ b[i__ + 1 + b_dim1] -= fact * b[i__ + b_dim1]; } else { *info = i__; - return 0; + return; } } else { fact = d__[i__] / dl[i__]; @@ -743,7 +743,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (d__[*n] == 0.) { *info = *n; - return 0; + return; } } else { i__1 = *n - 2; @@ -762,7 +762,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } else { *info = i__; - return 0; + return; } dl[i__] = 0.; } else { @@ -800,7 +800,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } else { *info = i__; - return 0; + return; } } else { fact = d__[i__] / dl[i__]; @@ -820,7 +820,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (d__[*n] == 0.) { *info = *n; - return 0; + return; } } @@ -862,7 +862,7 @@ L70: } } - return 0; + return; /* End of DGTSV */ diff --git a/lapack-netlib/SRC/dgtsvx.c b/lapack-netlib/SRC/dgtsvx.c index 430bb1dc9..d6aaf1e17 100644 --- a/lapack-netlib/SRC/dgtsvx.c +++ b/lapack-netlib/SRC/dgtsvx.c @@ -804,7 +804,7 @@ f"> */ /* > \ingroup doubleGTsolve */ /* ===================================================================== */ -/* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void dgtsvx_(char *fact, char *trans, integer *n, integer * nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal * dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * @@ -818,14 +818,15 @@ f"> */ char norm[1]; extern logical lsame_(char *, char *); doublereal anorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamch_(char *), dlangt_(char *, integer *, doublereal *, doublereal *, doublereal *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dgtcon_(char *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dgtcon_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *), dgtrfs_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, @@ -834,7 +835,7 @@ f"> */ integer *, integer *), dgttrf_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); logical notran; - extern /* Subroutine */ int dgttrs_(char *, integer *, integer *, + extern /* Subroutine */ void dgttrs_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -889,7 +890,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGTSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -909,7 +910,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -946,7 +947,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of DGTSVX */ diff --git a/lapack-netlib/SRC/dgttrf.c b/lapack-netlib/SRC/dgttrf.c index f496a1bad..d4a9ebf13 100644 --- a/lapack-netlib/SRC/dgttrf.c +++ b/lapack-netlib/SRC/dgttrf.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup doubleGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__, +/* Subroutine */ void dgttrf_(integer *n, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, integer *info) { /* System generated locals */ @@ -668,13 +668,13 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("DGTTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize IPIV(i) = i and DU2(I) = 0 */ @@ -748,7 +748,7 @@ f"> */ } L50: - return 0; + return; /* End of DGTTRF */ diff --git a/lapack-netlib/SRC/dgttrs.c b/lapack-netlib/SRC/dgttrs.c index 3150c6c66..818bc0e09 100644 --- a/lapack-netlib/SRC/dgttrs.c +++ b/lapack-netlib/SRC/dgttrs.c @@ -651,7 +651,7 @@ f"> */ /* > \ingroup doubleGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void dgttrs_(char *trans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb, integer *info) { @@ -660,7 +660,7 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int dgtts2_(integer *, integer *, integer *, + extern /* Subroutine */ void dgtts2_(integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer jb, nb; @@ -707,13 +707,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DGTTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Decode TRANS */ @@ -753,6 +753,6 @@ f"> */ /* End of DGTTRS */ - return 0; + return; } /* dgttrs_ */ diff --git a/lapack-netlib/SRC/dgtts2.c b/lapack-netlib/SRC/dgtts2.c index d4cbc1a8e..7ac39f706 100644 --- a/lapack-netlib/SRC/dgtts2.c +++ b/lapack-netlib/SRC/dgtts2.c @@ -638,7 +638,7 @@ f"> */ /* > \ingroup doubleGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs, +/* Subroutine */ void dgtts2_(integer *itrans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb) { @@ -673,7 +673,7 @@ f"> */ /* Function Body */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (*itrans == 0) { @@ -825,6 +825,6 @@ L70: /* End of DGTTS2 */ - return 0; + return; } /* dgtts2_ */ diff --git a/lapack-netlib/SRC/dhgeqz.c b/lapack-netlib/SRC/dhgeqz.c index 5e3d04e45..e24783316 100644 --- a/lapack-netlib/SRC/dhgeqz.c +++ b/lapack-netlib/SRC/dhgeqz.c @@ -818,7 +818,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n, +/* Subroutine */ void dhgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *t, integer *ldt, doublereal *alphar, doublereal *alphai, doublereal * beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, @@ -831,7 +831,7 @@ f"> */ /* Local variables */ doublereal ad11l, ad12l, ad21l, ad22l, ad32l, wabs, atol, btol, temp; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *), dlag2_( doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, @@ -846,7 +846,7 @@ f"> */ doublereal tempi, tempr, s1, s2, t1, u1, u2; extern doublereal dlapy2_(doublereal *, doublereal *), dlapy3_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int dlasv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlasv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); logical ilazr2; @@ -859,15 +859,15 @@ f"> */ doublereal cz, sl, w12, w21, w22, wi; extern doublereal dlamch_(char *); doublereal sr; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); doublereal vs, wr; extern doublereal dlanhs_(char *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal safmin; - extern /* Subroutine */ int dlartg_(doublereal *, doublereal *, + extern /* Subroutine */ void dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -994,16 +994,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DHGEQZ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { work[1] = 1.; - return 0; + return; } /* Initialize Q and Z */ @@ -2101,7 +2101,7 @@ L380: L420: work[1] = (doublereal) (*n); - return 0; + return; /* End of DHGEQZ */ diff --git a/lapack-netlib/SRC/dhsein.c b/lapack-netlib/SRC/dhsein.c index 18d0f0290..299fe7d54 100644 --- a/lapack-netlib/SRC/dhsein.c +++ b/lapack-netlib/SRC/dhsein.c @@ -775,7 +775,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical * +/* Subroutine */ void dhsein_(char *side, char *eigsrc, char *initv, logical * select, integer *n, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, doublereal *work, integer * @@ -796,7 +796,7 @@ f"> */ doublereal hnorm; integer kl; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlaein_(logical *, logical *, integer *, + extern /* Subroutine */ void dlaein_(logical *, logical *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal * , doublereal *, doublereal *, integer *); @@ -900,13 +900,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DHSEIN", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Set machine-dependent constants. */ @@ -979,7 +979,7 @@ L50: work[1]); if (disnan_(&hnorm)) { *info = -6; - return 0; + return; } else if (hnorm > 0.) { eps3 = hnorm * ulp; } else { @@ -1088,7 +1088,7 @@ L60: /* L120: */ } - return 0; + return; /* End of DHSEIN */ diff --git a/lapack-netlib/SRC/dhseqr.c b/lapack-netlib/SRC/dhseqr.c index b6d323709..2c3f9d9ce 100644 --- a/lapack-netlib/SRC/dhseqr.c +++ b/lapack-netlib/SRC/dhseqr.c @@ -832,7 +832,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* ===================================================================== */ -/* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo, +/* Subroutine */ void dhseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *info) @@ -849,12 +849,12 @@ f"> */ logical initz; doublereal workl[49]; logical wantt, wantz; - extern /* Subroutine */ int dlaqr0_(logical *, logical *, integer *, + extern /* Subroutine */ void dlaqr0_(logical *, logical *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal hl[2401] /* was [49][49] */; - extern /* Subroutine */ int dlahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void dlahqr_(logical *, logical *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, @@ -932,13 +932,13 @@ f"> */ i__1 = -(*info); xerbla_("DHSEQR", &i__1, (ftnlen)6); - return 0; + return; } else if (*n == 0) { /* ==== Quick return in case N = 0; nothing to do. ==== */ - return 0; + return; } else if (lquery) { @@ -951,7 +951,7 @@ f"> */ /* Computing MAX */ d__1 = (doublereal) f2cmax(1,*n); work[1] = f2cmax(d__1,work[1]); - return 0; + return; } else { @@ -982,7 +982,7 @@ f"> */ if (*ilo == *ihi) { wr[*ilo] = h__[*ilo + *ilo * h_dim1]; wi[*ilo] = 0.; - return 0; + return; } /* ==== DLAHQR/DLAQR0 crossover point ==== */ @@ -1064,6 +1064,6 @@ f"> */ /* ==== End of DHSEQR ==== */ - return 0; + return; } /* dhseqr_ */ diff --git a/lapack-netlib/SRC/dla_gbamv.c b/lapack-netlib/SRC/dla_gbamv.c index 762d9c0c7..87d6e36bc 100644 --- a/lapack-netlib/SRC/dla_gbamv.c +++ b/lapack-netlib/SRC/dla_gbamv.c @@ -693,7 +693,7 @@ mv.f"> */ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dla_gbamv_(integer *trans, integer *m, integer *n, +/* Subroutine */ void dla_gbamv_(integer *trans, integer *m, integer *n, integer *kl, integer *ku, doublereal *alpha, doublereal *ab, integer * ldab, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy) @@ -755,13 +755,13 @@ mv.f"> */ } if (info != 0) { xerbla_("DLA_GBAMV ", &info, (ftnlen)10); - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0 || *alpha == 0. && *beta == 1.) { - return 0; + return; } /* Set LENX and LENY, the lengths of the vectors x and y, and set */ @@ -934,7 +934,7 @@ mv.f"> */ } } - return 0; + return; /* End of DLA_GBAMV */ diff --git a/lapack-netlib/SRC/dla_gbrcond.c b/lapack-netlib/SRC/dla_gbrcond.c index 6541e99c4..777b3ebd6 100644 --- a/lapack-netlib/SRC/dla_gbrcond.c +++ b/lapack-netlib/SRC/dla_gbrcond.c @@ -694,10 +694,11 @@ doublereal dla_gbrcond_(char *trans, integer *n, integer *kl, integer *ku, integer kase, i__, j; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer kd, ke; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dgbtrs_( char *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal ainvnm, tmp; diff --git a/lapack-netlib/SRC/dla_gbrfsx_extended.c b/lapack-netlib/SRC/dla_gbrfsx_extended.c index 50d601914..6fba8a5de 100644 --- a/lapack-netlib/SRC/dla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/dla_gbrfsx_extended.c @@ -922,7 +922,7 @@ fsx_extended.f"> */ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dla_gbrfsx_extended_(integer *prec_type__, integer * +/* Subroutine */ void dla_gbrfsx_extended_(integer *prec_type__, integer * trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, integer *ipiv, logical *colequ, doublereal *c__, doublereal *b, @@ -941,21 +941,21 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__; - extern /* Subroutine */ int dla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void dla_lin_berr_(integer *, integer *, integer * , doublereal *, doublereal *, doublereal *); doublereal ymin; - extern /* Subroutine */ int blas_dgbmv_x_(integer *, integer *, integer * + extern /* Subroutine */ void blas_dgbmv_x_(integer *, integer *, integer * , integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal dxratmax, dzratmax; integer y_prec_state__; - extern /* Subroutine */ int blas_dgbmv2_x_(integer *, integer *, integer + extern /* Subroutine */ void blas_dgbmv2_x_(integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer i__, j, m; - extern /* Subroutine */ int dla_gbamv_(integer *, integer *, integer *, + extern /* Subroutine */ void dla_gbamv_(integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dgbmv_(char *, integer *, integer *, integer *, integer *, @@ -965,17 +965,17 @@ fsx_extended.f"> */ doublereal dxrat; logical incr_prec__; doublereal dzrat; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); char trans[1]; doublereal normx, normy, myhugeval, prev_dz_z__; extern doublereal dlamch_(char *); doublereal yk; - extern /* Subroutine */ int dgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void dgbtrs_(char *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal final_dx_x__; - extern /* Subroutine */ int dla_wwaddw_(integer *, doublereal *, + extern /* Subroutine */ void dla_wwaddw_(integer *, doublereal *, doublereal *, doublereal *); doublereal final_dz_z__, normdx; extern /* Character */ VOID chla_transtype_(char *, integer *); @@ -1024,7 +1024,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } chla_transtype_(ch__1, trans_type__); *(unsigned char *)trans = *(unsigned char *)&ch__1[0]; @@ -1262,6 +1262,6 @@ L666: } - return 0; + return; } /* dla_gbrfsx_extended__ */ diff --git a/lapack-netlib/SRC/dla_geamv.c b/lapack-netlib/SRC/dla_geamv.c index 7e0c15dfd..c52212090 100644 --- a/lapack-netlib/SRC/dla_geamv.c +++ b/lapack-netlib/SRC/dla_geamv.c @@ -682,7 +682,7 @@ mv.f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dla_geamv_(integer *trans, integer *m, integer *n, +/* Subroutine */ void dla_geamv_(integer *trans, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy) { @@ -738,13 +738,13 @@ mv.f"> */ } if (info != 0) { xerbla_("DLA_GEAMV ", &info, (ftnlen)10); - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0 || *alpha == 0. && *beta == 1.) { - return 0; + return; } /* Set LENX and LENY, the lengths of the vectors x and y, and set */ @@ -895,7 +895,7 @@ mv.f"> */ } } - return 0; + return; /* End of DLA_GEAMV */ diff --git a/lapack-netlib/SRC/dla_gercond.c b/lapack-netlib/SRC/dla_gercond.c index 869a1e848..3a6fa8eca 100644 --- a/lapack-netlib/SRC/dla_gercond.c +++ b/lapack-netlib/SRC/dla_gercond.c @@ -675,11 +675,11 @@ doublereal dla_gercond_(char *trans, integer *n, doublereal *a, integer *lda, integer kase, i__, j; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, - integer *, doublereal *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, + integer *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int dgetrs_(char *, integer *, integer *, + extern /* Subroutine */ void dgetrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/dla_gerfsx_extended.c b/lapack-netlib/SRC/dla_gerfsx_extended.c index 700c2b0af..96959334e 100644 --- a/lapack-netlib/SRC/dla_gerfsx_extended.c +++ b/lapack-netlib/SRC/dla_gerfsx_extended.c @@ -908,7 +908,7 @@ fsx_extended.f"> */ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int dla_gerfsx_extended_(integer *prec_type__, integer * +/* Subroutine */ void dla_gerfsx_extended_(integer *prec_type__, integer * trans_type__, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__, doublereal *b, integer *ldb, doublereal *y, integer * @@ -927,15 +927,15 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__; - extern /* Subroutine */ int dla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void dla_lin_berr_(integer *, integer *, integer * , doublereal *, doublereal *, doublereal *); doublereal ymin; - extern /* Subroutine */ int blas_dgemv_x_(integer *, integer *, integer * + extern /* Subroutine */ void blas_dgemv_x_(integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal dxratmax, dzratmax; integer y_prec_state__, i__, j; - extern /* Subroutine */ int blas_dgemv2_x_(integer *, integer *, integer + extern /* Subroutine */ void blas_dgemv2_x_(integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dla_geamv_(integer *, integer *, integer *, @@ -947,13 +947,13 @@ fsx_extended.f"> */ doublereal dxrat; logical incr_prec__; doublereal dzrat; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); char trans[1]; doublereal normx, normy, myhugeval, prev_dz_z__; extern doublereal dlamch_(char *); doublereal yk, final_dx_x__; - extern /* Subroutine */ int dgetrs_(char *, integer *, integer *, + extern /* Subroutine */ void dgetrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dla_wwaddw_(integer *, doublereal *, doublereal *, doublereal *); @@ -1004,7 +1004,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } chla_transtype_(ch__1, trans_type__); *(unsigned char *)trans = *(unsigned char *)&ch__1[0]; @@ -1241,6 +1241,6 @@ L666: } - return 0; + return; } /* dla_gerfsx_extended__ */ diff --git a/lapack-netlib/SRC/dla_lin_berr.c b/lapack-netlib/SRC/dla_lin_berr.c index 5ab4cceee..63fba703a 100644 --- a/lapack-netlib/SRC/dla_lin_berr.c +++ b/lapack-netlib/SRC/dla_lin_berr.c @@ -610,7 +610,7 @@ _berr.f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dla_lin_berr_(integer *n, integer *nz, integer *nrhs, +/* Subroutine */ void dla_lin_berr_(integer *n, integer *nz, integer *nrhs, doublereal *res, doublereal *ayb, doublereal *berr) { /* System generated locals */ @@ -667,6 +667,6 @@ _berr.f"> */ } } - return 0; + return; } /* dla_lin_berr__ */ diff --git a/lapack-netlib/SRC/dla_porcond.c b/lapack-netlib/SRC/dla_porcond.c index 296cfb099..75e3f7f7a 100644 --- a/lapack-netlib/SRC/dla_porcond.c +++ b/lapack-netlib/SRC/dla_porcond.c @@ -665,12 +665,12 @@ doublereal dla_porcond_(char *uplo, integer *n, doublereal *a, integer *lda, integer kase, i__, j; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int dpotrs_(char *, integer *, integer *, + extern /* Subroutine */ void dpotrs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/dla_porfsx_extended.c b/lapack-netlib/SRC/dla_porfsx_extended.c index 5dc03574d..482ff9cf6 100644 --- a/lapack-netlib/SRC/dla_porfsx_extended.c +++ b/lapack-netlib/SRC/dla_porfsx_extended.c @@ -899,7 +899,7 @@ fsx_extended.f"> */ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dla_porfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void dla_porfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal * af, integer *ldaf, logical *colequ, doublereal *c__, doublereal *b, integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__, @@ -916,16 +916,16 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__; - extern /* Subroutine */ int dla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void dla_lin_berr_(integer *, integer *, integer * , doublereal *, doublereal *, doublereal *); doublereal ymin, dxratmax, dzratmax; integer y_prec_state__; - extern /* Subroutine */ int blas_dsymv_x_(integer *, integer *, + extern /* Subroutine */ void blas_dsymv_x_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer uplo2, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int blas_dsymv2_x_(integer *, integer *, + extern /* Subroutine */ void blas_dsymv2_x_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer * @@ -933,7 +933,7 @@ fsx_extended.f"> */ doublereal dxrat; logical incr_prec__; doublereal dzrat; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dla_syamv_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dsymv_(char *, @@ -942,10 +942,10 @@ fsx_extended.f"> */ doublereal normx, normy, myhugeval, prev_dz_z__; extern doublereal dlamch_(char *); doublereal yk, final_dx_x__; - extern /* Subroutine */ int dla_wwaddw_(integer *, doublereal *, + extern /* Subroutine */ void dla_wwaddw_(integer *, doublereal *, doublereal *, doublereal *); doublereal final_dz_z__, normdx; - extern /* Subroutine */ int dpotrs_(char *, integer *, integer *, + extern /* Subroutine */ void dpotrs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal prevnormdx; integer cnt; @@ -992,7 +992,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } eps = dlamch_("Epsilon"); myhugeval = dlamch_("Overflow"); @@ -1217,6 +1217,6 @@ L666: } - return 0; + return; } /* dla_porfsx_extended__ */ diff --git a/lapack-netlib/SRC/dla_syamv.c b/lapack-netlib/SRC/dla_syamv.c index 8b812d55c..c696c3fab 100644 --- a/lapack-netlib/SRC/dla_syamv.c +++ b/lapack-netlib/SRC/dla_syamv.c @@ -686,7 +686,7 @@ mv.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dla_syamv_(integer *uplo, integer *n, doublereal *alpha, +/* Subroutine */ void dla_syamv_(integer *uplo, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy) { @@ -739,13 +739,13 @@ mv.f"> */ } if (info != 0) { xerbla_("DLA_SYAMV", &info, (ftnlen)9); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || *alpha == 0. && *beta == 1.) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -918,7 +918,7 @@ mv.f"> */ } } - return 0; + return; /* End of DLA_SYAMV */ diff --git a/lapack-netlib/SRC/dla_syrcond.c b/lapack-netlib/SRC/dla_syrcond.c index ff1a935cf..9466eb0f2 100644 --- a/lapack-netlib/SRC/dla_syrcond.c +++ b/lapack-netlib/SRC/dla_syrcond.c @@ -671,7 +671,7 @@ doublereal dla_syrcond_(char *uplo, integer *n, doublereal *a, integer *lda, integer kase, i__, j; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); logical up; @@ -679,7 +679,7 @@ doublereal dla_syrcond_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal ainvnm; char normin[1]; doublereal smlnum; - extern /* Subroutine */ int dsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/dla_syrfsx_extended.c b/lapack-netlib/SRC/dla_syrfsx_extended.c index ef3aab107..ff90972d1 100644 --- a/lapack-netlib/SRC/dla_syrfsx_extended.c +++ b/lapack-netlib/SRC/dla_syrfsx_extended.c @@ -907,7 +907,7 @@ fsx_extended.f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dla_syrfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void dla_syrfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal * af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__, doublereal *b, integer *ldb, doublereal *y, integer *ldy, doublereal * @@ -925,16 +925,16 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__; - extern /* Subroutine */ int dla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void dla_lin_berr_(integer *, integer *, integer * , doublereal *, doublereal *, doublereal *); doublereal ymin, dxratmax, dzratmax; integer y_prec_state__; - extern /* Subroutine */ int blas_dsymv_x_(integer *, integer *, + extern /* Subroutine */ void blas_dsymv_x_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer uplo2, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int blas_dsymv2_x_(integer *, integer *, + extern /* Subroutine */ void blas_dsymv2_x_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer * @@ -942,10 +942,10 @@ fsx_extended.f"> */ doublereal dxrat; logical incr_prec__; doublereal dzrat; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dla_syamv_(integer *, integer *, doublereal * + extern /* Subroutine */ void dla_syamv_(integer *, integer *, doublereal * , doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dsymv_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, @@ -955,10 +955,10 @@ fsx_extended.f"> */ doublereal yk; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal final_dx_x__; - extern /* Subroutine */ int dla_wwaddw_(integer *, doublereal *, + extern /* Subroutine */ void dla_wwaddw_(integer *, doublereal *, doublereal *, doublereal *); doublereal final_dz_z__, normdx; - extern /* Subroutine */ int dsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal prevnormdx; @@ -1026,7 +1026,7 @@ fsx_extended.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLA_SYRFSX_EXTENDED", &i__1, (ftnlen)19); - return 0; + return; } eps = dlamch_("Epsilon"); myhugeval = dlamch_("Overflow"); @@ -1251,6 +1251,6 @@ L666: } - return 0; + return; } /* dla_syrfsx_extended__ */ diff --git a/lapack-netlib/SRC/dla_wwaddw.c b/lapack-netlib/SRC/dla_wwaddw.c index a472871b3..bdc0ff26b 100644 --- a/lapack-netlib/SRC/dla_wwaddw.c +++ b/lapack-netlib/SRC/dla_wwaddw.c @@ -590,7 +590,7 @@ ddw.f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dla_wwaddw_(integer *n, doublereal *x, doublereal *y, +/* Subroutine */ void dla_wwaddw_(integer *n, doublereal *x, doublereal *y, doublereal *w) { /* System generated locals */ @@ -624,6 +624,6 @@ ddw.f"> */ x[i__] = s; /* L10: */ } - return 0; + return; } /* dla_wwaddw__ */ diff --git a/lapack-netlib/SRC/dlabad.c b/lapack-netlib/SRC/dlabad.c index 7f8896e9c..f9ad54cae 100644 --- a/lapack-netlib/SRC/dlabad.c +++ b/lapack-netlib/SRC/dlabad.c @@ -585,7 +585,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlabad_(doublereal *small, doublereal *large) +/* Subroutine */ void dlabad_(doublereal *small, doublereal *large) { /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -605,7 +605,7 @@ f"> */ *large = sqrt(*large); } - return 0; + return; /* End of DLABAD */ diff --git a/lapack-netlib/SRC/dlabrd.c b/lapack-netlib/SRC/dlabrd.c index 0607853d0..4697defb2 100644 --- a/lapack-netlib/SRC/dlabrd.c +++ b/lapack-netlib/SRC/dlabrd.c @@ -725,7 +725,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal * +/* Subroutine */ void dlabrd_(integer *m, integer *n, integer *nb, doublereal * a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer *ldy) @@ -736,7 +736,7 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dlarfg_(integer *, doublereal *, @@ -771,7 +771,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } if (*m >= *n) { @@ -1001,7 +1001,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of DLABRD */ diff --git a/lapack-netlib/SRC/dlacn2.c b/lapack-netlib/SRC/dlacn2.c index 58f8119b0..d354699f0 100644 --- a/lapack-netlib/SRC/dlacn2.c +++ b/lapack-netlib/SRC/dlacn2.c @@ -651,7 +651,7 @@ f"> */ /* > ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlacn2_(integer *n, doublereal *v, doublereal *x, +/* Subroutine */ void dlacn2_(integer *n, doublereal *v, doublereal *x, integer *isgn, doublereal *est, integer *kase, integer *isave) { /* System generated locals */ @@ -663,7 +663,7 @@ f"> */ integer i__; extern doublereal dasum_(integer *, doublereal *, integer *); integer jlast; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); extern integer idamax_(integer *, doublereal *, integer *); doublereal altsgn, estold; @@ -693,7 +693,7 @@ f"> */ } *kase = 1; isave[1] = 1; - return 0; + return; } switch (isave[1]) { @@ -724,7 +724,7 @@ L20: } *kase = 2; isave[1] = 2; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 2) */ /* FIRST ITERATION. X HAS BEEN OVERWRITTEN BY TRANSPOSE(A)*X. */ @@ -744,7 +744,7 @@ L50: x[isave[2]] = 1.; *kase = 1; isave[1] = 3; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 3) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -778,7 +778,7 @@ L90: } *kase = 2; isave[1] = 4; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 4) */ /* X HAS BEEN OVERWRITTEN BY TRANSPOSE(A)*X. */ @@ -804,7 +804,7 @@ L120: } *kase = 1; isave[1] = 5; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 5) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -818,7 +818,7 @@ L140: L150: *kase = 0; - return 0; + return; /* End of DLACN2 */ diff --git a/lapack-netlib/SRC/dlacon.c b/lapack-netlib/SRC/dlacon.c index 765098a9f..69bb8261b 100644 --- a/lapack-netlib/SRC/dlacon.c +++ b/lapack-netlib/SRC/dlacon.c @@ -630,7 +630,7 @@ f"> */ /* > ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x, +/* Subroutine */ void dlacon_(integer *n, doublereal *v, doublereal *x, integer *isgn, doublereal *est, integer *kase) { /* System generated locals */ @@ -643,7 +643,7 @@ f"> */ static integer jump, i__, j; extern doublereal dasum_(integer *, doublereal *, integer *); static integer jlast; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); extern integer idamax_(integer *, doublereal *, integer *); static doublereal altsgn, estold; @@ -672,7 +672,7 @@ f"> */ } *kase = 1; jump = 1; - return 0; + return; } switch (jump) { @@ -703,7 +703,7 @@ L20: } *kase = 2; jump = 2; - return 0; + return; /* ................ ENTRY (JUMP = 2) */ /* FIRST ITERATION. X HAS BEEN OVERWRITTEN BY TRANSPOSE(A)*X. */ @@ -723,7 +723,7 @@ L50: x[j] = 1.; *kase = 1; jump = 3; - return 0; + return; /* ................ ENTRY (JUMP = 3) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -757,7 +757,7 @@ L90: } *kase = 2; jump = 4; - return 0; + return; /* ................ ENTRY (JUMP = 4) */ /* X HAS BEEN OVERWRITTEN BY TRANSPOSE(A)*X. */ @@ -783,7 +783,7 @@ L120: } *kase = 1; jump = 5; - return 0; + return; /* ................ ENTRY (JUMP = 5) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -797,7 +797,7 @@ L140: L150: *kase = 0; - return 0; + return; /* End of DLACON */ diff --git a/lapack-netlib/SRC/dlacpy.c b/lapack-netlib/SRC/dlacpy.c index c3ee7c6ec..b123a705a 100644 --- a/lapack-netlib/SRC/dlacpy.c +++ b/lapack-netlib/SRC/dlacpy.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal * +/* Subroutine */ void dlacpy_(char *uplo, integer *m, integer *n, doublereal * a, integer *lda, doublereal *b, integer *ldb) { /* System generated locals */ @@ -672,7 +672,7 @@ f"> */ /* L60: */ } } - return 0; + return; /* End of DLACPY */ diff --git a/lapack-netlib/SRC/dladiv.c b/lapack-netlib/SRC/dladiv.c index 7ae92a69a..158cf1a63 100644 --- a/lapack-netlib/SRC/dladiv.c +++ b/lapack-netlib/SRC/dladiv.c @@ -602,7 +602,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__, +/* Subroutine */ void dladiv_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *p, doublereal *q) { /* System generated locals */ @@ -612,7 +612,7 @@ f"> */ doublereal s, aa, ab, bb, cc, cd, dd, be; extern doublereal dlamch_(char *); doublereal un, ov; - extern /* Subroutine */ int dladiv1_(doublereal *, doublereal *, + extern /* Subroutine */ void dladiv1_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal eps; @@ -671,14 +671,14 @@ f"> */ *p *= s; *q *= s; - return 0; + return; /* End of DLADIV */ } /* dladiv_ */ /* > \ingroup doubleOTHERauxiliary */ -/* Subroutine */ int dladiv1_(doublereal *a, doublereal *b, doublereal *c__, +/* Subroutine */ void dladiv1_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *p, doublereal *q) { doublereal r__, t; @@ -702,7 +702,7 @@ f"> */ *a = -(*a); *q = dladiv2_(b, a, c__, d__, &r__, &t); - return 0; + return; /* End of DLADIV1 */ diff --git a/lapack-netlib/SRC/dlae2.c b/lapack-netlib/SRC/dlae2.c index d62de608a..b5784baea 100644 --- a/lapack-netlib/SRC/dlae2.c +++ b/lapack-netlib/SRC/dlae2.c @@ -613,7 +613,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__, +/* Subroutine */ void dlae2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2) { /* System generated locals */ @@ -683,7 +683,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rt1 = rt * .5; *rt2 = rt * -.5; } - return 0; + return; /* End of DLAE2 */ diff --git a/lapack-netlib/SRC/dlaebz.c b/lapack-netlib/SRC/dlaebz.c index c5efc98fe..801e1b402 100644 --- a/lapack-netlib/SRC/dlaebz.c +++ b/lapack-netlib/SRC/dlaebz.c @@ -827,7 +827,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n, +/* Subroutine */ void dlaebz_(integer *ijob, integer *nitmax, integer *n, integer *mmax, integer *minp, integer *nbmin, doublereal *abstol, doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal * e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__, @@ -874,7 +874,7 @@ f"> */ *info = 0; if (*ijob < 1 || *ijob > 3) { *info = -1; - return 0; + return; } /* Initialize NAB */ @@ -912,7 +912,7 @@ f"> */ *mout = *mout + nab[ji + (nab_dim1 << 1)] - nab[ji + nab_dim1]; /* L30: */ } - return 0; + return; } /* Initialize for loop */ @@ -1028,7 +1028,7 @@ f"> */ /* L70: */ } if (*info != 0) { - return 0; + return; } kl = klnew; } else { @@ -1126,7 +1126,7 @@ f"> */ nab[ji + (nab_dim1 << 1)] = itmp1; } else { *info = *mmax + 1; - return 0; + return; } } else { @@ -1216,7 +1216,7 @@ L140: *info = f2cmax(i__1,0); *mout = kl; - return 0; + return; /* End of DLAEBZ */ diff --git a/lapack-netlib/SRC/dlaed0.c b/lapack-netlib/SRC/dlaed0.c index 74e58dd2d..ccd364205 100644 --- a/lapack-netlib/SRC/dlaed0.c +++ b/lapack-netlib/SRC/dlaed0.c @@ -690,7 +690,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n, +/* Subroutine */ void dlaed0_(integer *icompq, integer *qsiz, integer *n, doublereal *d__, doublereal *e, doublereal *q, integer *ldq, doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, integer *info) @@ -702,31 +702,31 @@ f"> */ /* Local variables */ doublereal temp; integer curr, i__, j, k; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iperm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer indxq, iwrem; - extern /* Subroutine */ int dlaed1_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlaed1_(integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer iqptr; - extern /* Subroutine */ int dlaed7_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaed7_(integer *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, integer *); integer tlvls, iq; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); integer igivcl; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer igivnm, submat, curprb, subpbs, igivpt; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer curlvl, matsiz, iprmpt, smlsiz, lgn, msd2, smm1, spm1, spm2; @@ -771,13 +771,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAED0", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } smlsiz = ilaenv_(&c__9, "DLAED0", " ", &c__0, &c__0, &c__0, &c__0, ( @@ -996,7 +996,7 @@ L130: *info = submat * (*n + 1) + submat + matsiz - 1; L140: - return 0; + return; /* End of DLAED0 */ diff --git a/lapack-netlib/SRC/dlaed1.c b/lapack-netlib/SRC/dlaed1.c index 70001b449..64d2342eb 100644 --- a/lapack-netlib/SRC/dlaed1.c +++ b/lapack-netlib/SRC/dlaed1.c @@ -677,7 +677,7 @@ f"> */ /* > Modified by Francoise Tisseur, University of Tennessee */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q, +/* Subroutine */ void dlaed1_(integer *n, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, doublereal *work, integer *iwork, integer *info) { @@ -686,10 +686,10 @@ f"> */ /* Local variables */ integer indx, i__, k, indxc; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer indxp; - extern /* Subroutine */ int dlaed2_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaed2_(integer *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *, integer *), dlaed3_(integer *, @@ -697,8 +697,9 @@ f"> */ doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, integer *); integer n1, n2, idlmda, is, iw, iz; - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, - integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer coltyp, iq2, zpp1; @@ -739,13 +740,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAED1", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* The following values are integer pointers which indicate */ @@ -807,7 +808,7 @@ f"> */ } L20: - return 0; + return; /* End of DLAED1 */ diff --git a/lapack-netlib/SRC/dlaed2.c b/lapack-netlib/SRC/dlaed2.c index 51ab633bd..bdaf0e127 100644 --- a/lapack-netlib/SRC/dlaed2.c +++ b/lapack-netlib/SRC/dlaed2.c @@ -726,7 +726,7 @@ f"> */ /* > Modified by Francoise Tisseur, University of Tennessee */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal * +/* Subroutine */ void dlaed2_(integer *k, integer *n, integer *n1, doublereal * d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2, integer *indx, integer *indxc, integer *indxp, integer *coltyp, @@ -738,13 +738,13 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer ctot[4]; doublereal c__; integer i__, j; doublereal s, t; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer k2, n2; @@ -753,9 +753,10 @@ f"> */ extern doublereal dlamch_(char *); integer pj, js; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, integer *, integer *, integer *), dlacpy_(char *, integer *, - integer *, doublereal *, integer *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer iq1, iq2, n1p1; doublereal eps, tau, tol; integer psm[4]; @@ -804,13 +805,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAED2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } n2 = *n - *n1; @@ -1111,7 +1112,7 @@ L100: } L190: - return 0; + return; /* End of DLAED2 */ diff --git a/lapack-netlib/SRC/dlaed3.c b/lapack-netlib/SRC/dlaed3.c index c2fe61d9b..b4fe8ce6c 100644 --- a/lapack-netlib/SRC/dlaed3.c +++ b/lapack-netlib/SRC/dlaed3.c @@ -700,7 +700,7 @@ f"> */ /* > Modified by Francoise Tisseur, University of Tennessee */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal * +/* Subroutine */ void dlaed3_(integer *k, integer *n, integer *n1, doublereal * d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda, doublereal *q2, integer *indx, integer *ctot, doublereal *w, doublereal *s, integer *info) @@ -713,7 +713,7 @@ f"> */ doublereal temp; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer @@ -722,10 +722,11 @@ f"> */ integer n2; extern doublereal dlamc3_(doublereal *, doublereal *); integer n12, ii, n23; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, - doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer iq2; @@ -765,13 +766,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAED3", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*k == 0) { - return 0; + return; } /* Modify values DLAMDA(i) to make sure all DLAMDA(i)-DLAMDA(j) can */ @@ -902,7 +903,7 @@ L110: L120: - return 0; + return; /* End of DLAED3 */ diff --git a/lapack-netlib/SRC/dlaed4.c b/lapack-netlib/SRC/dlaed4.c index 3e0e3f8be..13a400656 100644 --- a/lapack-netlib/SRC/dlaed4.c +++ b/lapack-netlib/SRC/dlaed4.c @@ -654,7 +654,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__, +/* Subroutine */ void dlaed4_(integer *n, integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam, integer *info) { @@ -670,7 +670,7 @@ f"> */ doublereal w, dltlb, dltub, midpt; integer niter; logical swtch; - extern /* Subroutine */ int dlaed5_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlaed5_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlaed6_(integer *, logical *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *); @@ -712,11 +712,11 @@ f"> */ *dlam = d__[1] + *rho * z__[1] * z__[1]; delta[1] = 1.; - return 0; + return; } if (*n == 2) { dlaed5_(i__, &d__[1], &z__[1], &delta[1], rho, dlam); - return 0; + return; } /* Compute machine epsilon */ @@ -1495,7 +1495,7 @@ f"> */ L250: - return 0; + return; /* End of DLAED4 */ diff --git a/lapack-netlib/SRC/dlaed5.c b/lapack-netlib/SRC/dlaed5.c index f714b4ffc..4b76eec7b 100644 --- a/lapack-netlib/SRC/dlaed5.c +++ b/lapack-netlib/SRC/dlaed5.c @@ -617,7 +617,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, +/* Subroutine */ void dlaed5_(integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam) { /* System generated locals */ @@ -688,7 +688,7 @@ f"> */ delta[1] /= temp; delta[2] /= temp; } - return 0; + return; /* End OF DLAED5 */ diff --git a/lapack-netlib/SRC/dlaed6.c b/lapack-netlib/SRC/dlaed6.c index 09dc39000..2e0ea1d33 100644 --- a/lapack-netlib/SRC/dlaed6.c +++ b/lapack-netlib/SRC/dlaed6.c @@ -649,7 +649,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal * +/* Subroutine */ void dlaed6_(integer *kniter, logical *orgati, doublereal * rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal * tau, integer *info) { @@ -928,7 +928,7 @@ L60: if (scale) { *tau *= sclinv; } - return 0; + return; /* End of DLAED6 */ diff --git a/lapack-netlib/SRC/dlaed7.c b/lapack-netlib/SRC/dlaed7.c index d23a72be0..6826f29a5 100644 --- a/lapack-netlib/SRC/dlaed7.c +++ b/lapack-netlib/SRC/dlaed7.c @@ -775,7 +775,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz, +/* Subroutine */ void dlaed7_(integer *icompq, integer *n, integer *qsiz, integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer * @@ -787,11 +787,11 @@ f"> */ /* Local variables */ integer indx, curr, i__, k; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer indxc, indxp, n1, n2; - extern /* Subroutine */ int dlaed8_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaed8_(integer *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, @@ -803,8 +803,9 @@ f"> */ *, doublereal *, integer *, doublereal *, doublereal *, integer *) ; integer idlmda, is, iw, iz; - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, - integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer coltyp, iq2, ptr, ldq2; @@ -852,13 +853,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAED7", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* The following values are for bookkeeping purposes only. They are */ @@ -948,7 +949,7 @@ f"> */ } L30: - return 0; + return; /* End of DLAED7 */ diff --git a/lapack-netlib/SRC/dlaed8.c b/lapack-netlib/SRC/dlaed8.c index 5224a8ca2..e18ae05e0 100644 --- a/lapack-netlib/SRC/dlaed8.c +++ b/lapack-netlib/SRC/dlaed8.c @@ -756,7 +756,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer +/* Subroutine */ void dlaed8_(integer *icompq, integer *k, integer *n, integer *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda, doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer @@ -769,21 +769,22 @@ f"> */ /* Local variables */ integer jlam, imax, jmax; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal c__; integer i__, j; doublereal s, t; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer k2, n1, n2; extern doublereal dlapy2_(doublereal *, doublereal *), dlamch_(char *); integer jp; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, integer *, integer *, integer *), dlacpy_(char *, integer *, - integer *, doublereal *, integer *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer n1p1; doublereal eps, tau, tol; @@ -837,7 +838,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAED8", &i__1, (ftnlen)6); - return 0; + return; } /* Need to initialize GIVPTR to O here in case of quick exit */ @@ -850,7 +851,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } n1 = *cutpnt; @@ -924,7 +925,7 @@ f"> */ } dlacpy_("A", qsiz, n, &q2[q2_dim1 + 1], ldq2, &q[q_dim1 + 1], ldq); } - return 0; + return; } /* If there are multiple eigenvalues then the problem deflates. Here */ @@ -1075,7 +1076,7 @@ L110: } } - return 0; + return; /* End of DLAED8 */ diff --git a/lapack-netlib/SRC/dlaed9.c b/lapack-netlib/SRC/dlaed9.c index 9e2bbde18..a2ccbd483 100644 --- a/lapack-netlib/SRC/dlaed9.c +++ b/lapack-netlib/SRC/dlaed9.c @@ -669,7 +669,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop, +/* Subroutine */ void dlaed9_(integer *k, integer *kstart, integer *kstop, integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal * rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds, integer *info) @@ -682,7 +682,7 @@ f"> */ doublereal temp; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dlaed4_(integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *); @@ -731,13 +731,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAED9", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*k == 0) { - return 0; + return; } /* Modify values DLAMDA(i) to make sure all DLAMDA(i)-DLAMDA(j) can */ @@ -837,7 +837,7 @@ f"> */ } L120: - return 0; + return; /* End of DLAED9 */ diff --git a/lapack-netlib/SRC/dlaeda.c b/lapack-netlib/SRC/dlaeda.c index 202e1b636..fc992d879 100644 --- a/lapack-netlib/SRC/dlaeda.c +++ b/lapack-netlib/SRC/dlaeda.c @@ -682,7 +682,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl, +/* Subroutine */ void dlaeda_(integer *n, integer *tlvls, integer *curlvl, integer *curpbm, integer *prmptr, integer *perm, integer *givptr, integer *givcol, doublereal *givnum, doublereal *q, integer *qptr, doublereal *z__, doublereal *ztemp, integer *info) @@ -691,14 +691,14 @@ f"> */ integer i__1, i__2, i__3; /* Local variables */ - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer curr, bsiz1, bsiz2, psiz1, psiz2, i__, k, zptr1; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, - doublereal *, integer *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer mid, ptr; @@ -733,13 +733,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAEDA", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine location of first number in second half. */ @@ -851,7 +851,7 @@ f"> */ /* L70: */ } - return 0; + return; /* End of DLAEDA */ diff --git a/lapack-netlib/SRC/dlaein.c b/lapack-netlib/SRC/dlaein.c index 93134f4b7..009df2142 100644 --- a/lapack-netlib/SRC/dlaein.c +++ b/lapack-netlib/SRC/dlaein.c @@ -685,7 +685,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n, +/* Subroutine */ void dlaein_(logical *rightv, logical *noinit, integer *n, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, doublereal *vr, doublereal *vi, doublereal *b, integer *ldb, doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal * @@ -700,7 +700,7 @@ f"> */ doublereal temp, norm, vmax; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal scale, w, x, y; extern doublereal dasum_(integer *, doublereal *, integer *); @@ -711,10 +711,10 @@ f"> */ extern doublereal dlapy2_(doublereal *, doublereal *); doublereal ei, ej, absbii, absbjj, xi; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dladiv_(doublereal *, doublereal *, + extern /* Subroutine */ void dladiv_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal xr; - extern /* Subroutine */ int dlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatrs_(char *, char *, char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); char normin[1]; @@ -1252,7 +1252,7 @@ L280: } - return 0; + return; /* End of DLAEIN */ diff --git a/lapack-netlib/SRC/dlaev2.c b/lapack-netlib/SRC/dlaev2.c index 8140108f6..685a62fa8 100644 --- a/lapack-netlib/SRC/dlaev2.c +++ b/lapack-netlib/SRC/dlaev2.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, +/* Subroutine */ void dlaev2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1) { /* System generated locals */ @@ -735,7 +735,7 @@ f"> */ *cs1 = -(*sn1); *sn1 = tn; } - return 0; + return; /* End of DLAEV2 */ diff --git a/lapack-netlib/SRC/dlaexc.c b/lapack-netlib/SRC/dlaexc.c index 38c73491a..be0c45dd9 100644 --- a/lapack-netlib/SRC/dlaexc.c +++ b/lapack-netlib/SRC/dlaexc.c @@ -656,7 +656,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t, +/* Subroutine */ void dlaexc_(logical *wantq, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, integer *n2, doublereal *work, integer *info) { @@ -667,14 +667,14 @@ f"> */ /* Local variables */ integer ierr; doublereal temp; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal d__[16] /* was [4][4] */; integer k; doublereal u[3], scale, x[4] /* was [2][2] */, dnorm; integer j2, j3, j4; doublereal xnorm, u1[3], u2[3]; - extern /* Subroutine */ int dlanv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlanv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlasy2_( logical *, logical *, integer *, integer *, integer *, doublereal @@ -686,10 +686,10 @@ f"> */ doublereal t33; extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); doublereal sn; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlarfx_(char *, integer *, integer *, doublereal *, @@ -721,10 +721,10 @@ f"> */ /* Quick return if possible */ if (*n == 0 || *n1 == 0 || *n2 == 0) { - return 0; + return; } if (*j1 + *n1 > *n) { - return 0; + return; } j2 = *j1 + 1; @@ -1010,13 +1010,13 @@ L40: } } - return 0; + return; /* Exit with INFO = 1 if swap was rejected. */ L50: *info = 1; - return 0; + return; /* End of DLAEXC */ diff --git a/lapack-netlib/SRC/dlag2.c b/lapack-netlib/SRC/dlag2.c index e466fc876..bddbf647b 100644 --- a/lapack-netlib/SRC/dlag2.c +++ b/lapack-netlib/SRC/dlag2.c @@ -665,7 +665,7 @@ ssary to avoid over-/underflow. */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b, +/* Subroutine */ void dlag2_(doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *safmin, doublereal *scale1, doublereal * scale2, doublereal *wr1, doublereal *wr2, doublereal *wi) { @@ -914,6 +914,6 @@ ssary to avoid over-/underflow. */ /* End of DLAG2 */ - return 0; + return; } /* dlag2_ */ diff --git a/lapack-netlib/SRC/dlag2s.c b/lapack-netlib/SRC/dlag2s.c index 8cbfb62e9..83f47eab7 100644 --- a/lapack-netlib/SRC/dlag2s.c +++ b/lapack-netlib/SRC/dlag2s.c @@ -617,7 +617,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlag2s_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dlag2s_(integer *m, integer *n, doublereal *a, integer * lda, real *sa, integer *ldsa, integer *info) { /* System generated locals */ @@ -663,7 +663,7 @@ f"> */ } *info = 0; L30: - return 0; + return; /* End of DLAG2S */ diff --git a/lapack-netlib/SRC/dlags2.c b/lapack-netlib/SRC/dlags2.c index a4bd98b80..023660b91 100644 --- a/lapack-netlib/SRC/dlags2.c +++ b/lapack-netlib/SRC/dlags2.c @@ -663,7 +663,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2, +/* Subroutine */ void dlags2_(logical *upper, doublereal *a1, doublereal *a2, doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3, doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv, doublereal *csq, doublereal *snq) @@ -674,7 +674,7 @@ f"> */ /* Local variables */ doublereal aua11, aua12, aua21, aua22, avb11, avb12, avb21, avb22, ua11r, ua22r, vb11r, vb22r, a, b, c__, d__, r__, s1, s2; - extern /* Subroutine */ int dlasv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlasv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -867,7 +867,7 @@ f"> */ } - return 0; + return; /* End of DLAGS2 */ diff --git a/lapack-netlib/SRC/dlagtf.c b/lapack-netlib/SRC/dlagtf.c index 3d0e92bf5..1d55872e4 100644 --- a/lapack-netlib/SRC/dlagtf.c +++ b/lapack-netlib/SRC/dlagtf.c @@ -666,7 +666,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda, +/* Subroutine */ void dlagtf_(integer *n, doublereal *a, doublereal *lambda, doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, integer *in, integer *info) { @@ -706,11 +706,11 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("DLAGTF", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } a[1] -= *lambda; @@ -719,7 +719,7 @@ f"> */ if (a[1] == 0.) { in[1] = 1; } - return 0; + return; } eps = dlamch_("Epsilon"); @@ -778,7 +778,7 @@ f"> */ in[*n] = *n; } - return 0; + return; /* End of DLAGTF */ diff --git a/lapack-netlib/SRC/dlagtm.c b/lapack-netlib/SRC/dlagtm.c index ce7364ab0..7bce48edd 100644 --- a/lapack-netlib/SRC/dlagtm.c +++ b/lapack-netlib/SRC/dlagtm.c @@ -654,7 +654,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void dlagtm_(char *trans, integer *n, integer *nrhs, doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer *ldb) @@ -689,7 +689,7 @@ f"> */ /* Function Body */ if (*n == 0) { - return 0; + return; } /* Multiply B by BETA if BETA.NE.1. */ @@ -821,7 +821,7 @@ f"> */ } } } - return 0; + return; /* End of DLAGTM */ diff --git a/lapack-netlib/SRC/dlagts.c b/lapack-netlib/SRC/dlagts.c index 998b0cdde..31cac2306 100644 --- a/lapack-netlib/SRC/dlagts.c +++ b/lapack-netlib/SRC/dlagts.c @@ -671,7 +671,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a, +/* Subroutine */ void dlagts_(integer *job, integer *n, doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, integer *in, doublereal *y, doublereal *tol, integer *info) { @@ -715,11 +715,11 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAGTS", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } eps = dlamch_("Epsilon"); @@ -778,14 +778,14 @@ f"> */ if (absak < sfmin) { if (absak == 0. || abs(temp) * sfmin > absak) { *info = k; - return 0; + return; } else { temp *= bignum; ak *= bignum; } } else if (abs(temp) > absak * bignum) { *info = k; - return 0; + return; } } y[k] = temp / ak; @@ -844,14 +844,14 @@ L40: if (absak < sfmin) { if (absak == 0. || abs(temp) * sfmin > absak) { *info = k; - return 0; + return; } else { temp *= bignum; ak *= bignum; } } else if (abs(temp) > absak * bignum) { *info = k; - return 0; + return; } } y[k] = temp / ak; @@ -906,6 +906,6 @@ L70: /* End of DLAGTS */ - return 0; + return; } /* dlagts_ */ diff --git a/lapack-netlib/SRC/dlagv2.c b/lapack-netlib/SRC/dlagv2.c index 19d838aed..e89877f5e 100644 --- a/lapack-netlib/SRC/dlagv2.c +++ b/lapack-netlib/SRC/dlagv2.c @@ -671,7 +671,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b, +/* Subroutine */ void dlagv2_(doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal * snr) @@ -681,20 +681,20 @@ f"> */ doublereal d__1, d__2, d__3, d__4, d__5, d__6; /* Local variables */ - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *), dlag2_( doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal r__, t, anorm, bnorm, h1, h2, h3, scale1, scale2; - extern /* Subroutine */ int dlasv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlasv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); extern doublereal dlapy2_(doublereal *, doublereal *); doublereal ascale, bscale; extern doublereal dlamch_(char *); doublereal wi, qq, rr, safmin; - extern /* Subroutine */ int dlartg_(doublereal *, doublereal *, + extern /* Subroutine */ void dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal wr1, wr2, ulp; @@ -913,7 +913,7 @@ f"> */ beta[2] = 1.; } - return 0; + return; /* End of DLAGV2 */ diff --git a/lapack-netlib/SRC/dlahqr.c b/lapack-netlib/SRC/dlahqr.c index a27f82309..6b78231cc 100644 --- a/lapack-netlib/SRC/dlahqr.c +++ b/lapack-netlib/SRC/dlahqr.c @@ -720,7 +720,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void dlahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, integer *info) @@ -730,23 +730,23 @@ f"> */ doublereal d__1, d__2, d__3, d__4; /* Local variables */ - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer i__, j, k, l, m; doublereal s, v[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer itmax, i1, i2; doublereal t1, t2, t3, v2, v3; - extern /* Subroutine */ int dlanv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlanv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal aa, ab, ba, bb; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); doublereal h11, h12, h21, h22, cs; integer nh; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); doublereal sn; integer nr; @@ -782,12 +782,12 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*ilo == *ihi) { wr[*ilo] = h__[*ilo + *ilo * h_dim1]; wi[*ilo] = 0.; - return 0; + return; } /* ==== clear out the trash ==== */ @@ -1156,7 +1156,7 @@ L60: /* Failure to converge in remaining number of iterations */ *info = i__; - return 0; + return; L150: @@ -1206,7 +1206,7 @@ L150: goto L20; L160: - return 0; + return; /* End of DLAHQR */ diff --git a/lapack-netlib/SRC/dlahr2.c b/lapack-netlib/SRC/dlahr2.c index 92fbb38b2..c4593e671 100644 --- a/lapack-netlib/SRC/dlahr2.c +++ b/lapack-netlib/SRC/dlahr2.c @@ -700,7 +700,7 @@ f"> */ /* > Mathematical Software, 32(2):180-194, June 2006. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlahr2_(integer *n, integer *k, integer *nb, doublereal * +/* Subroutine */ void dlahr2_(integer *n, integer *k, integer *nb, doublereal * a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, doublereal *y, integer *ldy) { @@ -711,7 +711,7 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dgemv_( @@ -724,7 +724,7 @@ f"> */ dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal ei; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); @@ -754,7 +754,7 @@ f"> */ /* Function Body */ if (*n <= 1) { - return 0; + return; } i__1 = *nb; @@ -882,7 +882,7 @@ f"> */ dtrmm_("RIGHT", "Upper", "NO TRANSPOSE", "NON-UNIT", k, nb, &c_b5, &t[ t_offset], ldt, &y[y_offset], ldy); - return 0; + return; /* End of DLAHR2 */ diff --git a/lapack-netlib/SRC/dlaic1.c b/lapack-netlib/SRC/dlaic1.c index a18af5a1f..5aff47dda 100644 --- a/lapack-netlib/SRC/dlaic1.c +++ b/lapack-netlib/SRC/dlaic1.c @@ -648,7 +648,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x, +/* Subroutine */ void dlaic1_(integer *job, integer *j, doublereal *x, doublereal *sest, doublereal *w, doublereal *gamma, doublereal * sestpr, doublereal *s, doublereal *c__) { @@ -704,7 +704,7 @@ f"> */ *c__ /= tmp; *sestpr = s1 * tmp; } - return 0; + return; } else if (absgam <= eps * absest) { *s = 1.; *c__ = 0.; @@ -712,7 +712,7 @@ f"> */ s1 = absest / tmp; s2 = absalp / tmp; *sestpr = tmp * sqrt(s1 * s1 + s2 * s2); - return 0; + return; } else if (absalp <= eps * absest) { s1 = absgam; s2 = absest; @@ -725,7 +725,7 @@ f"> */ *c__ = 1.; *sestpr = s1; } - return 0; + return; } else if (absest <= eps * absalp || absest <= eps * absgam) { s1 = absgam; s2 = absalp; @@ -742,7 +742,7 @@ f"> */ *s = alpha / s1 / *c__; *c__ = d_sign(&c_b5, gamma) / *c__; } - return 0; + return; } else { /* normal case */ @@ -764,7 +764,7 @@ f"> */ *s = sine / tmp; *c__ = cosine / tmp; *sestpr = sqrt(t + 1.) * absest; - return 0; + return; } } else if (*job == 2) { @@ -790,12 +790,12 @@ f"> */ tmp = sqrt(*s * *s + *c__ * *c__); *s /= tmp; *c__ /= tmp; - return 0; + return; } else if (absgam <= eps * absest) { *s = 0.; *c__ = 1.; *sestpr = absgam; - return 0; + return; } else if (absalp <= eps * absest) { s1 = absgam; s2 = absest; @@ -808,7 +808,7 @@ f"> */ *c__ = 0.; *sestpr = s2; } - return 0; + return; } else if (absest <= eps * absalp || absest <= eps * absgam) { s1 = absgam; s2 = absalp; @@ -825,7 +825,7 @@ f"> */ *c__ = alpha / s1 / *s; *s = -d_sign(&c_b5, gamma) / *s; } - return 0; + return; } else { /* normal case */ @@ -869,11 +869,11 @@ f"> */ tmp = sqrt(sine * sine + cosine * cosine); *s = sine / tmp; *c__ = cosine / tmp; - return 0; + return; } } - return 0; + return; /* End of DLAIC1 */ diff --git a/lapack-netlib/SRC/dlaln2.c b/lapack-netlib/SRC/dlaln2.c index 624ea2f98..9964063b8 100644 --- a/lapack-netlib/SRC/dlaln2.c +++ b/lapack-netlib/SRC/dlaln2.c @@ -726,7 +726,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw, +/* Subroutine */ void dlaln2_(logical *ltrans, integer *na, integer *nw, doublereal *smin, doublereal *ca, doublereal *a, integer *lda, doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, @@ -753,7 +753,7 @@ f"> */ #define ci (equiv_0) #define cr (equiv_1) extern doublereal dlamch_(char *); - extern /* Subroutine */ int dladiv_(doublereal *, doublereal *, + extern /* Subroutine */ void dladiv_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal bignum, bi1, bi2, br1, br2, smlnum, xi1, xi2, xr1, xr2, ci21, ci22, cr21, cr22, li21, csi, ui11, lr21, ui12, ui22; @@ -920,7 +920,7 @@ f"> */ x[x_dim1 + 2] = temp * b[b_dim1 + 2]; *xnorm = temp * bnorm; *info = 1; - return 0; + return; } /* Gaussian elimination with complete pivoting. */ @@ -1023,7 +1023,7 @@ f"> */ x[(x_dim1 << 1) + 2] = temp * b[(b_dim1 << 1) + 2]; *xnorm = temp * bnorm; *info = 1; - return 0; + return; } /* Gaussian elimination with complete pivoting. */ @@ -1142,7 +1142,7 @@ f"> */ } } - return 0; + return; /* End of DLALN2 */ diff --git a/lapack-netlib/SRC/dlals0.c b/lapack-netlib/SRC/dlals0.c index 7fa2ff247..3fb8b931e 100644 --- a/lapack-netlib/SRC/dlals0.c +++ b/lapack-netlib/SRC/dlals0.c @@ -783,7 +783,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr, +/* Subroutine */ void dlals0_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal * @@ -798,24 +798,24 @@ f"> */ /* Local variables */ doublereal temp; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j, m, n; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal diflj, difrj, dsigj; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamc3_(doublereal *, doublereal *); doublereal dj; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer - *, doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + *, doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal dsigjp; integer nlp1; @@ -886,7 +886,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLALS0", &i__1, (ftnlen)6); - return 0; + return; } m = n + *sqre; @@ -1070,7 +1070,7 @@ f"> */ } } - return 0; + return; /* End of DLALS0 */ diff --git a/lapack-netlib/SRC/dlalsa.c b/lapack-netlib/SRC/dlalsa.c index 4d5c347c3..2d20aaf8f 100644 --- a/lapack-netlib/SRC/dlalsa.c +++ b/lapack-netlib/SRC/dlalsa.c @@ -779,7 +779,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n, +/* Subroutine */ void dlalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer * ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal * @@ -796,23 +796,23 @@ f"> */ /* Local variables */ integer nlvl, sqre, i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer inode, ndiml, ndimr; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer i1; - extern /* Subroutine */ int dlals0_(integer *, integer *, integer *, + extern /* Subroutine */ void dlals0_(integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); integer ic, lf, nd, ll, nl, nr; - extern /* Subroutine */ int dlasdt_(integer *, integer *, integer *, - integer *, integer *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dlasdt_(integer *, integer *, integer *, + integer *, integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer im1, nlf, nrf, lvl, ndb1, nlp1, lvl2, nrp1; @@ -891,7 +891,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLALSA", &i__1, (ftnlen)6); - return 0; + return; } /* Book-keeping and setting up the computation tree. */ @@ -1067,7 +1067,7 @@ L50: L90: - return 0; + return; /* End of DLALSA */ diff --git a/lapack-netlib/SRC/dlalsd.c b/lapack-netlib/SRC/dlalsd.c index 527810599..6be6155b7 100644 --- a/lapack-netlib/SRC/dlalsd.c +++ b/lapack-netlib/SRC/dlalsd.c @@ -694,7 +694,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer +/* Subroutine */ void dlalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, doublereal *rcond, integer *rank, doublereal *work, integer *iwork, integer *info) @@ -707,53 +707,53 @@ f"> */ integer difl, difr; doublereal rcnd; integer perm, nsub; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer nlvl, sqre, bxst, c__, i__, j, k; doublereal r__; integer s, u; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer z__; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer poles, sizei, nsize, nwork, icmpq1, icmpq2; doublereal cs; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlasda_(integer *, integer *, integer *, + extern /* Subroutine */ void dlasda_(integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); integer bx; - extern /* Subroutine */ int dlalsa_(integer *, integer *, integer *, + extern /* Subroutine */ void dlalsa_(integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); doublereal sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); integer st; - extern /* Subroutine */ int dlasdq_(char *, integer *, integer *, integer + extern /* Subroutine */ void dlasdq_(char *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer vt; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlaset_(char *, integer *, integer *, doublereal *, - doublereal *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer givcol; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dlasrt_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlasrt_(char *, integer *, doublereal *, integer *); doublereal orgnrm; integer givnum, givptr, nm1, smlszp, st1; @@ -795,7 +795,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLALSD", &i__1, (ftnlen)6); - return 0; + return; } eps = dlamch_("Epsilon"); @@ -813,7 +813,7 @@ f"> */ /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } else if (*n == 1) { if (d__[1] == 0.) { dlaset_("A", &c__1, nrhs, &c_b6, &c_b6, &b[b_offset], ldb); @@ -823,7 +823,7 @@ f"> */ b_offset], ldb, info); d__[1] = abs(d__[1]); } - return 0; + return; } /* Rotate the matrix if it is lower bidiagonal. */ @@ -866,7 +866,7 @@ f"> */ orgnrm = dlanst_("M", n, &d__[1], &e[1]); if (orgnrm == 0.) { dlaset_("A", n, nrhs, &c_b6, &c_b6, &b[b_offset], ldb); - return 0; + return; } dlascl_("G", &c__0, &c__0, &orgnrm, &c_b11, n, &c__1, &d__[1], n, info); @@ -882,7 +882,7 @@ f"> */ dlasdq_("U", &c__0, n, n, &c__0, nrhs, &d__[1], &e[1], &work[1], n, & work[1], n, &b[b_offset], ldb, &work[nwork], info); if (*info != 0) { - return 0; + return; } tol = rcnd * (d__1 = d__[idamax_(n, &d__[1], &c__1)], abs(d__1)); i__1 = *n; @@ -908,7 +908,7 @@ f"> */ dlascl_("G", &c__0, &c__0, &orgnrm, &c_b11, n, nrhs, &b[b_offset], ldb, info); - return 0; + return; } /* Book-keeping and setting up some constants. */ @@ -1002,7 +1002,7 @@ f"> */ st], &work[vt + st1], n, &work[nwork], n, &b[st + b_dim1], ldb, &work[nwork], info); if (*info != 0) { - return 0; + return; } dlacpy_("A", &nsize, nrhs, &b[st + b_dim1], ldb, &work[bx + st1], n); @@ -1018,7 +1018,7 @@ f"> */ st1], &work[c__ + st1], &work[s + st1], &work[nwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } bxst = bx + st1; dlalsa_(&icmpq2, smlsiz, &nsize, nrhs, &b[st + b_dim1], ldb, & @@ -1029,7 +1029,7 @@ f"> */ work[givnum + st1], &work[c__ + st1], &work[s + st1], &work[nwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } } st = i__ + 1; @@ -1081,7 +1081,7 @@ f"> */ &work[c__ + st1], &work[s + st1], &work[nwork], &iwork[ iwk], info); if (*info != 0) { - return 0; + return; } } /* L80: */ @@ -1094,7 +1094,7 @@ f"> */ dlascl_("G", &c__0, &c__0, &orgnrm, &c_b11, n, nrhs, &b[b_offset], ldb, info); - return 0; + return; /* End of DLALSD */ diff --git a/lapack-netlib/SRC/dlamrg.c b/lapack-netlib/SRC/dlamrg.c index 98a63c822..87eab4d7f 100644 --- a/lapack-netlib/SRC/dlamrg.c +++ b/lapack-netlib/SRC/dlamrg.c @@ -609,7 +609,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer +/* Subroutine */ void dlamrg_(integer *n1, integer *n2, doublereal *a, integer *dtrd1, integer *dtrd2, integer *index) { /* System generated locals */ @@ -682,7 +682,7 @@ L10: } } - return 0; + return; /* End of DLAMRG */ diff --git a/lapack-netlib/SRC/dlamswlq.c b/lapack-netlib/SRC/dlamswlq.c index 4db85c57c..5d63419ec 100644 --- a/lapack-netlib/SRC/dlamswlq.c +++ b/lapack-netlib/SRC/dlamswlq.c @@ -713,7 +713,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlamswlq_(char *side, char *trans, integer *m, integer * +/* Subroutine */ void dlamswlq_(char *side, char *trans, integer *m, integer * n, integer *k, integer *mb, integer *nb, doublereal *a, integer *lda, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info) @@ -731,7 +731,7 @@ static integer c__0 = 0; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; integer ctr; - extern /* Subroutine */ int dgemlqt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemlqt_(char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dtpmlqt_(char *, char *, integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, @@ -799,10 +799,10 @@ static integer c__0 = 0; i__1 = -(*info); xerbla_("DLAMSWLQ", &i__1, (ftnlen)8); work[1] = (doublereal) lw; - return 0; + return; } else if (lquery) { work[1] = (doublereal) lw; - return 0; + return; } /* Quick return if possible */ @@ -810,7 +810,7 @@ static integer c__0 = 0; /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -818,7 +818,7 @@ static integer c__0 = 0; if (*nb <= *k || *nb >= f2cmax(i__1,*k)) { dgemlqt_(side, trans, m, n, k, mb, &a[a_offset], lda, &t[t_offset], ldt, &c__[c_offset], ldc, &work[1], info); - return 0; + return; } if (left && tran) { @@ -961,7 +961,7 @@ static integer c__0 = 0; } work[1] = (doublereal) lw; - return 0; + return; /* End of DLAMSWLQ */ diff --git a/lapack-netlib/SRC/dlamtsqr.c b/lapack-netlib/SRC/dlamtsqr.c index 99bb5748f..ab6e329ae 100644 --- a/lapack-netlib/SRC/dlamtsqr.c +++ b/lapack-netlib/SRC/dlamtsqr.c @@ -706,7 +706,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlamtsqr_(char *side, char *trans, integer *m, integer * +/* Subroutine */ void dlamtsqr_(char *side, char *trans, integer *m, integer * n, integer *k, integer *mb, integer *nb, doublereal *a, integer *lda, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info) @@ -724,7 +724,7 @@ static integer c__0 = 0; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; integer ctr; - extern /* Subroutine */ int dgemqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemqrt_(char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dtpmqrt_(char *, char *, integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, @@ -797,9 +797,9 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("DLAMTSQR", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -807,7 +807,7 @@ static integer c__0 = 0; /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -815,7 +815,7 @@ static integer c__0 = 0; if (*mb <= *k || *mb >= f2cmax(i__1,*k)) { dgemqrt_(side, trans, m, n, k, nb, &a[a_offset], lda, &t[t_offset], ldt, &c__[c_offset], ldc, &work[1], info); - return 0; + return; } if (left && notran) { @@ -959,7 +959,7 @@ static integer c__0 = 0; } work[1] = (doublereal) lw; - return 0; + return; /* End of DLAMTSQR */ diff --git a/lapack-netlib/SRC/dlangb.c b/lapack-netlib/SRC/dlangb.c index 82673d740..5503198fa 100644 --- a/lapack-netlib/SRC/dlangb.c +++ b/lapack-netlib/SRC/dlangb.c @@ -646,12 +646,12 @@ doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku, /* Local variables */ doublereal temp; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, k, l; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlange.c b/lapack-netlib/SRC/dlange.c index 115817e08..70b743c64 100644 --- a/lapack-netlib/SRC/dlange.c +++ b/lapack-netlib/SRC/dlange.c @@ -637,12 +637,12 @@ doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer /* Local variables */ doublereal temp; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlangt.c b/lapack-netlib/SRC/dlangt.c index 95918e22e..2dd791d90 100644 --- a/lapack-netlib/SRC/dlangt.c +++ b/lapack-netlib/SRC/dlangt.c @@ -634,7 +634,7 @@ doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__, extern logical lsame_(char *, char *); doublereal anorm; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal sum; diff --git a/lapack-netlib/SRC/dlanhs.c b/lapack-netlib/SRC/dlanhs.c index 39a67b1f7..a1ddef031 100644 --- a/lapack-netlib/SRC/dlanhs.c +++ b/lapack-netlib/SRC/dlanhs.c @@ -630,12 +630,12 @@ doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda, doublereal ret_val, d__1; /* Local variables */ - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlansb.c b/lapack-netlib/SRC/dlansb.c index 3e0280024..787679ef9 100644 --- a/lapack-netlib/SRC/dlansb.c +++ b/lapack-netlib/SRC/dlansb.c @@ -651,12 +651,12 @@ doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, l; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlansf.c b/lapack-netlib/SRC/dlansf.c index 6ddb002e1..7563b7be9 100644 --- a/lapack-netlib/SRC/dlansf.c +++ b/lapack-netlib/SRC/dlansf.c @@ -739,7 +739,7 @@ doublereal dlansf_(char *norm, char *transr, char *uplo, integer *n, integer n1; doublereal aa; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); integer lda, ifm, noe, ilu; diff --git a/lapack-netlib/SRC/dlansp.c b/lapack-netlib/SRC/dlansp.c index 311166b64..fcf0e02d2 100644 --- a/lapack-netlib/SRC/dlansp.c +++ b/lapack-netlib/SRC/dlansp.c @@ -637,12 +637,12 @@ doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap, /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, k; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlanst.c b/lapack-netlib/SRC/dlanst.c index 1d45e5e74..b31ca3fdc 100644 --- a/lapack-netlib/SRC/dlanst.c +++ b/lapack-netlib/SRC/dlanst.c @@ -626,7 +626,7 @@ doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e) extern logical lsame_(char *, char *); doublereal anorm; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal sum; diff --git a/lapack-netlib/SRC/dlansy.c b/lapack-netlib/SRC/dlansy.c index 42df67128..d001d8620 100644 --- a/lapack-netlib/SRC/dlansy.c +++ b/lapack-netlib/SRC/dlansy.c @@ -645,12 +645,12 @@ doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlantb.c b/lapack-netlib/SRC/dlantb.c index fddff35de..9c7c50f90 100644 --- a/lapack-netlib/SRC/dlantb.c +++ b/lapack-netlib/SRC/dlantb.c @@ -661,13 +661,13 @@ doublereal dlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, doublereal ret_val, d__1; /* Local variables */ - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, l; logical udiag; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlantp.c b/lapack-netlib/SRC/dlantp.c index d92019634..1733bd85f 100644 --- a/lapack-netlib/SRC/dlantp.c +++ b/lapack-netlib/SRC/dlantp.c @@ -646,13 +646,13 @@ doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal doublereal ret_val, d__1; /* Local variables */ - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, k; logical udiag; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlantr.c b/lapack-netlib/SRC/dlantr.c index 75e790cc5..20a40dc57 100644 --- a/lapack-netlib/SRC/dlantr.c +++ b/lapack-netlib/SRC/dlantr.c @@ -662,13 +662,13 @@ doublereal dlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, doublereal ret_val, d__1; /* Local variables */ - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; logical udiag; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal colssq[2], sum, ssq[2]; diff --git a/lapack-netlib/SRC/dlanv2.c b/lapack-netlib/SRC/dlanv2.c index 8074d0b93..b0254077c 100644 --- a/lapack-netlib/SRC/dlanv2.c +++ b/lapack-netlib/SRC/dlanv2.c @@ -643,7 +643,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, +/* Subroutine */ void dlanv2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r, doublereal *rt2i, doublereal *cs, doublereal *sn) { @@ -826,7 +826,7 @@ L10: *rt1i = sqrt((abs(*b))) * sqrt((abs(*c__))); *rt2i = -(*rt1i); } - return 0; + return; /* End of DLANV2 */ diff --git a/lapack-netlib/SRC/dlaorhr_col_getrfnp.c b/lapack-netlib/SRC/dlaorhr_col_getrfnp.c index efc394f2a..e716a0efa 100644 --- a/lapack-netlib/SRC/dlaorhr_col_getrfnp.c +++ b/lapack-netlib/SRC/dlaorhr_col_getrfnp.c @@ -662,21 +662,21 @@ _col_getrfnp.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dlaorhr_col_getrfnp_(integer *m, integer *n, doublereal +/* Subroutine */ void dlaorhr_col_getrfnp_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *d__, integer *info) { /* System generated locals */ integer a_dim1, a_offset, i__1, i__2, i__3, i__4; /* Local variables */ - extern /* Subroutine */ int dlaorhr_col_getrfnp2_(integer *, integer *, + extern /* Subroutine */ void dlaorhr_col_getrfnp2_(integer *, integer *, doublereal *, integer *, doublereal *, integer *); integer j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer jb, nb; @@ -714,13 +714,13 @@ _col_getrfnp.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAORHR_COL_GETRFNP", &i__1, (ftnlen)19); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -771,7 +771,7 @@ _col_getrfnp.f"> */ } } } - return 0; + return; /* End of DLAORHR_COL_GETRFNP */ diff --git a/lapack-netlib/SRC/dlaorhr_col_getrfnp2.c b/lapack-netlib/SRC/dlaorhr_col_getrfnp2.c index bf0237f4d..fe828f6d5 100644 --- a/lapack-netlib/SRC/dlaorhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/dlaorhr_col_getrfnp2.c @@ -682,7 +682,7 @@ _col_getrfnp2.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dlaorhr_col_getrfnp2_(integer *m, integer *n, +/* Subroutine */ void dlaorhr_col_getrfnp2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *d__, integer *info) { /* System generated locals */ @@ -691,13 +691,13 @@ _col_getrfnp2.f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; doublereal sfmin; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer n1, n2; @@ -734,13 +734,13 @@ _col_getrfnp2.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAORHR_COL_GETRFNP2", &i__1, (ftnlen)20); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } if (*m == 1) { @@ -824,7 +824,7 @@ _col_getrfnp2.f"> */ lda, &d__[n1 + 1], &iinfo); } - return 0; + return; /* End of DLAORHR_COL_GETRFNP2 */ diff --git a/lapack-netlib/SRC/dlapll.c b/lapack-netlib/SRC/dlapll.c index 1b8c46ab0..e3d2c80b2 100644 --- a/lapack-netlib/SRC/dlapll.c +++ b/lapack-netlib/SRC/dlapll.c @@ -611,7 +611,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx, +/* Subroutine */ void dlapll_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *ssmin) { /* System generated locals */ @@ -620,13 +620,13 @@ f"> */ /* Local variables */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); - extern /* Subroutine */ int dlas2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlas2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal c__; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal ssmax, a11, a12, a22; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); doublereal tau; @@ -649,7 +649,7 @@ f"> */ /* Function Body */ if (*n <= 1) { *ssmin = 0.; - return 0; + return; } /* Compute the QR factorization of the N-by-2 matrix ( X Y ) */ @@ -671,7 +671,7 @@ f"> */ dlas2_(&a11, &a12, &a22, ssmin, &ssmax); - return 0; + return; /* End of DLAPLL */ diff --git a/lapack-netlib/SRC/dlapmr.c b/lapack-netlib/SRC/dlapmr.c index 04368041a..c4c4e169b 100644 --- a/lapack-netlib/SRC/dlapmr.c +++ b/lapack-netlib/SRC/dlapmr.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlapmr_(logical *forwrd, integer *m, integer *n, +/* Subroutine */ void dlapmr_(logical *forwrd, integer *m, integer *n, doublereal *x, integer *ldx, integer *k) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ /* Function Body */ if (*m <= 1) { - return 0; + return; } i__1 = *m; @@ -727,7 +727,7 @@ L80: } - return 0; + return; /* End of ZLAPMT */ diff --git a/lapack-netlib/SRC/dlapmt.c b/lapack-netlib/SRC/dlapmt.c index 0acbad2b3..6c01575d4 100644 --- a/lapack-netlib/SRC/dlapmt.c +++ b/lapack-netlib/SRC/dlapmt.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n, +/* Subroutine */ void dlapmt_(logical *forwrd, integer *m, integer *n, doublereal *x, integer *ldx, integer *k) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ /* Function Body */ if (*n <= 1) { - return 0; + return; } i__1 = *n; @@ -727,7 +727,7 @@ L80: } - return 0; + return; /* End of DLAPMT */ diff --git a/lapack-netlib/SRC/dlaqgb.c b/lapack-netlib/SRC/dlaqgb.c index 603a4414f..6814ef750 100644 --- a/lapack-netlib/SRC/dlaqgb.c +++ b/lapack-netlib/SRC/dlaqgb.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup doubleGBauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void dlaqgb_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed) { @@ -702,7 +702,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -781,7 +781,7 @@ f"> */ *(unsigned char *)equed = 'B'; } - return 0; + return; /* End of DLAQGB */ diff --git a/lapack-netlib/SRC/dlaqge.c b/lapack-netlib/SRC/dlaqge.c index ef6dd26b4..2191d7519 100644 --- a/lapack-netlib/SRC/dlaqge.c +++ b/lapack-netlib/SRC/dlaqge.c @@ -651,7 +651,7 @@ f"> */ /* > \ingroup doubleGEauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dlaqge_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed) { @@ -685,7 +685,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -749,7 +749,7 @@ f"> */ *(unsigned char *)equed = 'B'; } - return 0; + return; /* End of DLAQGE */ diff --git a/lapack-netlib/SRC/dlaqp2.c b/lapack-netlib/SRC/dlaqp2.c index a95bc84cb..00fbc5937 100644 --- a/lapack-netlib/SRC/dlaqp2.c +++ b/lapack-netlib/SRC/dlaqp2.c @@ -661,7 +661,7 @@ f"> */ /* > \endhtmlonly */ /* ===================================================================== */ -/* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset, +/* Subroutine */ void dlaqp2_(integer *m, integer *n, integer *offset, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *work) { @@ -675,15 +675,15 @@ f"> */ doublereal temp2; integer i__, j; doublereal tol3z; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer offpi, itemp; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamch_(char *); integer mn; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); extern integer idamax_(integer *, doublereal *, integer *); doublereal aii; @@ -797,7 +797,7 @@ f"> */ /* L20: */ } - return 0; + return; /* End of DLAQP2 */ diff --git a/lapack-netlib/SRC/dlaqps.c b/lapack-netlib/SRC/dlaqps.c index 729df0e28..f8944618b 100644 --- a/lapack-netlib/SRC/dlaqps.c +++ b/lapack-netlib/SRC/dlaqps.c @@ -693,7 +693,7 @@ f"> */ /* > \endhtmlonly */ /* ===================================================================== */ -/* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer +/* Subroutine */ void dlaqps_(integer *m, integer *n, integer *offset, integer *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv, doublereal *f, integer *ldf) @@ -708,18 +708,18 @@ f"> */ doublereal temp2; integer j, k; doublereal tol3z; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer itemp; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamch_(char *); integer rk; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); extern integer idamax_(integer *, doublereal *, integer *); integer lsticc, lastrk; @@ -917,7 +917,7 @@ L40: goto L40; } - return 0; + return; /* End of DLAQPS */ diff --git a/lapack-netlib/SRC/dlaqr0.c b/lapack-netlib/SRC/dlaqr0.c index abbf5410c..5b3ae7779 100644 --- a/lapack-netlib/SRC/dlaqr0.c +++ b/lapack-netlib/SRC/dlaqr0.c @@ -777,7 +777,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void dlaqr0_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *info) @@ -792,7 +792,7 @@ f"> */ integer ktop; doublereal zdum[1] /* was [1][1] */; integer kacc22, i__, k, itmax, nsmax, nwmax, kwtop; - extern /* Subroutine */ int dlanv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlanv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlaqr3_( logical *, logical *, integer *, integer *, integer *, integer *, @@ -817,7 +817,7 @@ f"> */ integer ku, kv, ls, ns; doublereal ss; integer nw; - extern /* Subroutine */ int dlahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void dlahqr_(logical *, logical *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, @@ -871,7 +871,7 @@ f"> */ if (*n == 0) { work[1] = 1.; - return 0; + return; } if (*n <= 15) { @@ -953,7 +953,7 @@ f"> */ if (*lwork == -1) { work[1] = (doublereal) lwkopt; - return 0; + return; } /* ==== DLAHQR/DLAQR0 crossover point ==== */ @@ -1340,6 +1340,6 @@ L90: /* ==== End of DLAQR0 ==== */ - return 0; + return; } /* dlaqr0_ */ diff --git a/lapack-netlib/SRC/dlaqr1.c b/lapack-netlib/SRC/dlaqr1.c index 9677836fb..b878f8c31 100644 --- a/lapack-netlib/SRC/dlaqr1.c +++ b/lapack-netlib/SRC/dlaqr1.c @@ -631,7 +631,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaqr1_(integer *n, doublereal *h__, integer *ldh, +/* Subroutine */ void dlaqr1_(integer *n, doublereal *h__, integer *ldh, doublereal *sr1, doublereal *si1, doublereal *sr2, doublereal *si2, doublereal *v) { @@ -662,7 +662,7 @@ f"> */ /* Function Body */ if (*n != 2 && *n != 3) { - return 0; + return; } if (*n == 2) { @@ -698,6 +698,6 @@ f"> */ sr2) + h21s * h__[(h_dim1 << 1) + 3]; } } - return 0; + return; } /* dlaqr1_ */ diff --git a/lapack-netlib/SRC/dlaqr2.c b/lapack-netlib/SRC/dlaqr2.c index 02aaf62e4..783a1e5d3 100644 --- a/lapack-netlib/SRC/dlaqr2.c +++ b/lapack-netlib/SRC/dlaqr2.c @@ -795,7 +795,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void dlaqr2_(logical *wantt, logical *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer * ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal * @@ -811,35 +811,35 @@ f"> */ doublereal beta; integer kend, kcol, info, ifst, ilst, ltop, krow, i__, j, k; doublereal s; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dgemm_(char *, char *, integer *, integer * , integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical bulge; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer infqr, kwtop; - extern /* Subroutine */ int dlanv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlanv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal aa, bb, cc; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); doublereal dd, cs; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void dgehrd_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); doublereal sn; integer jw; - extern /* Subroutine */ int dlahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void dlahqr_(logical *, logical *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin, safmax; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dtrexc_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *), @@ -916,7 +916,7 @@ f"> */ if (*lwork == -1) { work[1] = (doublereal) lwkopt; - return 0; + return; } /* ==== Nothing to do ... */ @@ -925,11 +925,11 @@ f"> */ *nd = 0; work[1] = 1.; if (*ktop > *kbot) { - return 0; + return; } /* ... nor for an empty deflation window. ==== */ if (*nw < 1) { - return 0; + return; } /* ==== Machine constants ==== */ @@ -971,7 +971,7 @@ f"> */ } } work[1] = 1.; - return 0; + return; } /* ==== Convert to spike-triangular form. (In case of a */ @@ -1312,6 +1312,6 @@ L60: /* ==== End of DLAQR2 ==== */ - return 0; + return; } /* dlaqr2_ */ diff --git a/lapack-netlib/SRC/dlaqr3.c b/lapack-netlib/SRC/dlaqr3.c index e1504a6ed..f88c8cb2c 100644 --- a/lapack-netlib/SRC/dlaqr3.c +++ b/lapack-netlib/SRC/dlaqr3.c @@ -793,7 +793,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void dlaqr3_(logical *wantt, logical *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer * ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal * @@ -809,32 +809,32 @@ f"> */ doublereal beta; integer kend, kcol, info, nmin, ifst, ilst, ltop, krow, i__, j, k; doublereal s; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dgemm_(char *, char *, integer *, integer * , integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical bulge; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer infqr, kwtop; - extern /* Subroutine */ int dlanv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlanv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlaqr4_( logical *, logical *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal aa, bb, cc; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); doublereal dd, cs; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void dgehrd_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); doublereal sn; integer jw; - extern /* Subroutine */ int dlahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void dlahqr_(logical *, logical *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, @@ -842,7 +842,7 @@ f"> */ doublereal safmin, safmax; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dtrexc_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *), @@ -928,7 +928,7 @@ f"> */ if (*lwork == -1) { work[1] = (doublereal) lwkopt; - return 0; + return; } /* ==== Nothing to do ... */ @@ -937,11 +937,11 @@ f"> */ *nd = 0; work[1] = 1.; if (*ktop > *kbot) { - return 0; + return; } /* ... nor for an empty deflation window. ==== */ if (*nw < 1) { - return 0; + return; } /* ==== Machine constants ==== */ @@ -983,7 +983,7 @@ f"> */ } } work[1] = 1.; - return 0; + return; } /* ==== Convert to spike-triangular form. (In case of a */ @@ -1332,6 +1332,6 @@ L60: /* ==== End of DLAQR3 ==== */ - return 0; + return; } /* dlaqr3_ */ diff --git a/lapack-netlib/SRC/dlaqr4.c b/lapack-netlib/SRC/dlaqr4.c index 4e167011d..f267f5aae 100644 --- a/lapack-netlib/SRC/dlaqr4.c +++ b/lapack-netlib/SRC/dlaqr4.c @@ -784,7 +784,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void dlaqr4_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *info) @@ -799,7 +799,7 @@ f"> */ integer ktop; doublereal zdum[1] /* was [1][1] */; integer kacc22, i__, k, itmax, nsmax, nwmax, kwtop; - extern /* Subroutine */ int dlaqr2_(logical *, logical *, integer *, + extern /* Subroutine */ void dlaqr2_(logical *, logical *, integer *, integer *, integer *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, @@ -820,7 +820,7 @@ f"> */ integer ku, kv, ls, ns; doublereal ss; integer nw; - extern /* Subroutine */ int dlahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void dlahqr_(logical *, logical *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, @@ -873,7 +873,7 @@ f"> */ if (*n == 0) { work[1] = 1.; - return 0; + return; } if (*n <= 15) { @@ -955,7 +955,7 @@ f"> */ if (*lwork == -1) { work[1] = (doublereal) lwkopt; - return 0; + return; } /* ==== DLAHQR/DLAQR0 crossover point ==== */ @@ -1335,6 +1335,6 @@ L90: /* ==== End of DLAQR4 ==== */ - return 0; + return; } /* dlaqr4_ */ diff --git a/lapack-netlib/SRC/dlaqr5.c b/lapack-netlib/SRC/dlaqr5.c index 5f84da486..939c4378e 100644 --- a/lapack-netlib/SRC/dlaqr5.c +++ b/lapack-netlib/SRC/dlaqr5.c @@ -781,7 +781,7 @@ f"> */ /* > ACM Trans. Math. Softw. 40, 2, Article 12 (February 2014). */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, integer *kacc22, +/* Subroutine */ void dlaqr5_(logical *wantt, logical *wantz, integer *kacc22, integer *n, integer *ktop, integer *kbot, integer *nshfts, doublereal *sr, doublereal *si, doublereal *h__, integer *ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, doublereal *v, integer * @@ -802,24 +802,24 @@ f"> */ integer jtop, jrow, mtop, i__, j, k, m; doublereal alpha; logical accum; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ndcol, incol, krcol, nbmps, i2, k1, i4; - extern /* Subroutine */ int dlaqr1_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlaqr1_(integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlabad_(doublereal *, doublereal *); doublereal h11, h12, h21, h22; integer m22; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); integer ns, nu; doublereal vt[3]; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin, safmax; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal refsum, smlnum, scl; integer kdu, kms; @@ -862,14 +862,14 @@ f"> */ /* Function Body */ if (*nshfts < 2) { - return 0; + return; } /* ==== If the active block is empty or 1-by-1, then there */ /* . is nothing to do. ==== */ if (*ktop >= *kbot) { - return 0; + return; } /* ==== Shuffle shifts into pairs of real shifts and pairs */ @@ -1527,6 +1527,6 @@ f"> */ /* ==== End of DLAQR5 ==== */ - return 0; + return; } /* dlaqr5_ */ diff --git a/lapack-netlib/SRC/dlaqsb.c b/lapack-netlib/SRC/dlaqsb.c index ee4c22686..55eb4420e 100644 --- a/lapack-netlib/SRC/dlaqsb.c +++ b/lapack-netlib/SRC/dlaqsb.c @@ -649,7 +649,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal * +/* Subroutine */ void dlaqsb_(char *uplo, integer *n, integer *kd, doublereal * ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { @@ -684,7 +684,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -739,7 +739,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of DLAQSB */ diff --git a/lapack-netlib/SRC/dlaqsp.c b/lapack-netlib/SRC/dlaqsp.c index a810ac24f..ad7861aa3 100644 --- a/lapack-netlib/SRC/dlaqsp.c +++ b/lapack-netlib/SRC/dlaqsp.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap, +/* Subroutine */ void dlaqsp_(char *uplo, integer *n, doublereal *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { /* System generated locals */ @@ -669,7 +669,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -722,7 +722,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of DLAQSP */ diff --git a/lapack-netlib/SRC/dlaqsy.c b/lapack-netlib/SRC/dlaqsy.c index 5e11b257f..8c144b04f 100644 --- a/lapack-netlib/SRC/dlaqsy.c +++ b/lapack-netlib/SRC/dlaqsy.c @@ -642,7 +642,7 @@ f"> */ /* > \ingroup doubleSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dlaqsy_(char *uplo, integer *n, doublereal *a, integer * lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { /* System generated locals */ @@ -676,7 +676,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -725,7 +725,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of DLAQSY */ diff --git a/lapack-netlib/SRC/dlaqtr.c b/lapack-netlib/SRC/dlaqtr.c index debdd0af7..1a91df092 100644 --- a/lapack-netlib/SRC/dlaqtr.c +++ b/lapack-netlib/SRC/dlaqtr.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n, +/* Subroutine */ void dlaqtr_(logical *ltran, logical *lreal, integer *n, doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal *scale, doublereal *x, doublereal *work, integer *info) { @@ -698,16 +698,16 @@ f"> */ doublereal smin, xmax, d__[4] /* was [2][2] */; integer i__, j, k; doublereal v[4] /* was [2][2] */, z__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern doublereal dasum_(integer *, doublereal *, integer *); - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer jnext, j1, j2; doublereal sminw; integer n1, n2; doublereal xnorm; - extern /* Subroutine */ int dlaln2_(logical *, integer *, integer *, + extern /* Subroutine */ void dlaln2_(logical *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal * , doublereal *, integer *, doublereal *, doublereal *, integer *); @@ -716,7 +716,7 @@ f"> */ doublereal si, xj; extern integer idamax_(integer *, doublereal *, integer *); doublereal scaloc, sr; - extern /* Subroutine */ int dladiv_(doublereal *, doublereal *, + extern /* Subroutine */ void dladiv_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal bignum; logical notran; @@ -749,7 +749,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -1388,7 +1388,7 @@ L80: } - return 0; + return; /* End of DLAQTR */ diff --git a/lapack-netlib/SRC/dlar1v.c b/lapack-netlib/SRC/dlar1v.c index be4d3d94a..221c7f8c4 100644 --- a/lapack-netlib/SRC/dlar1v.c +++ b/lapack-netlib/SRC/dlar1v.c @@ -738,7 +738,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal +/* Subroutine */ void dlar1v_(integer *n, integer *b1, integer *bn, doublereal *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal * lld, doublereal *pivmin, doublereal *gaptol, doublereal *z__, logical *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, @@ -1031,7 +1031,7 @@ L280: *rqcorr = *mingma * tmp; - return 0; + return; /* End of DLAR1V */ diff --git a/lapack-netlib/SRC/dlar2v.c b/lapack-netlib/SRC/dlar2v.c index bdb351890..d7096f009 100644 --- a/lapack-netlib/SRC/dlar2v.c +++ b/lapack-netlib/SRC/dlar2v.c @@ -620,7 +620,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y, +/* Subroutine */ void dlar2v_(integer *n, doublereal *x, doublereal *y, doublereal *z__, integer *incx, doublereal *c__, doublereal *s, integer *incc) { @@ -678,6 +678,6 @@ f"> */ /* End of DLAR2V */ - return 0; + return; } /* dlar2v_ */ diff --git a/lapack-netlib/SRC/dlarf.c b/lapack-netlib/SRC/dlarf.c index fe30037af..5bb376a82 100644 --- a/lapack-netlib/SRC/dlarf.c +++ b/lapack-netlib/SRC/dlarf.c @@ -639,7 +639,7 @@ static integer c__1 = 1; /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v, +/* Subroutine */ void dlarf_(char *side, integer *m, integer *n, doublereal *v, integer *incv, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work) { @@ -648,12 +648,12 @@ static integer c__1 = 1; doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer lastc, lastv; @@ -745,7 +745,7 @@ static integer c__1 = 1; c_offset], ldc); } } - return 0; + return; /* End of DLARF */ diff --git a/lapack-netlib/SRC/dlarfb.c b/lapack-netlib/SRC/dlarfb.c index f21289d62..b04824a31 100644 --- a/lapack-netlib/SRC/dlarfb.c +++ b/lapack-netlib/SRC/dlarfb.c @@ -711,7 +711,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void dlarfb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, doublereal *v, integer * ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, doublereal *work, integer *ldwork) @@ -722,11 +722,11 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); @@ -760,7 +760,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } if (lsame_(trans, "N")) { @@ -1330,7 +1330,7 @@ f"> */ } } - return 0; + return; /* End of DLARFB */ diff --git a/lapack-netlib/SRC/dlarfb_gett.c b/lapack-netlib/SRC/dlarfb_gett.c index 40f67601f..232d12b23 100644 --- a/lapack-netlib/SRC/dlarfb_gett.c +++ b/lapack-netlib/SRC/dlarfb_gett.c @@ -904,7 +904,7 @@ gett.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlarfb_gett_(char *ident, integer *m, integer *n, +/* Subroutine */ void dlarfb_gett_(char *ident, integer *m, integer *n, integer *k, doublereal *t, integer *ldt, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *work, integer *ldwork) { @@ -914,11 +914,11 @@ gett.f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); @@ -951,7 +951,7 @@ gett.f"> */ /* Function Body */ if (*m < 0 || *n <= 0 || *k == 0 || *k > *n) { - return 0; + return; } lnotident = ! lsame_(ident, "I"); @@ -1132,7 +1132,7 @@ gett.f"> */ } } - return 0; + return; /* End of DLARFB_GETT */ diff --git a/lapack-netlib/SRC/dlarfg.c b/lapack-netlib/SRC/dlarfg.c index de8c8ec01..24995a5e1 100644 --- a/lapack-netlib/SRC/dlarfg.c +++ b/lapack-netlib/SRC/dlarfg.c @@ -615,7 +615,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x, +/* Subroutine */ void dlarfg_(integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *tau) { /* System generated locals */ @@ -626,7 +626,7 @@ f"> */ doublereal beta; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal xnorm; extern doublereal dlapy2_(doublereal *, doublereal *), dlamch_(char *); @@ -649,7 +649,7 @@ f"> */ /* Function Body */ if (*n <= 1) { *tau = 0.; - return 0; + return; } i__1 = *n - 1; @@ -705,7 +705,7 @@ L10: *alpha = beta; } - return 0; + return; /* End of DLARFG */ diff --git a/lapack-netlib/SRC/dlarfgp.c b/lapack-netlib/SRC/dlarfgp.c index 32223c0e3..04073a559 100644 --- a/lapack-netlib/SRC/dlarfgp.c +++ b/lapack-netlib/SRC/dlarfgp.c @@ -613,7 +613,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlarfgp_(integer *n, doublereal *alpha, doublereal *x, +/* Subroutine */ void dlarfgp_(integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *tau) { /* System generated locals */ @@ -624,7 +624,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ doublereal beta; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal savealpha, xnorm; extern doublereal dlapy2_(doublereal *, doublereal *), dlamch_(char *); @@ -647,7 +647,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Function Body */ if (*n <= 0) { *tau = 0.; - return 0; + return; } i__1 = *n - 1; @@ -753,7 +753,7 @@ L10: *alpha = beta; } - return 0; + return; /* End of DLARFGP */ diff --git a/lapack-netlib/SRC/dlarft.c b/lapack-netlib/SRC/dlarft.c index fc6dc02ea..b5e2c542c 100644 --- a/lapack-netlib/SRC/dlarft.c +++ b/lapack-netlib/SRC/dlarft.c @@ -677,7 +677,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer * +/* Subroutine */ void dlarft_(char *direct, char *storev, integer *n, integer * k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, integer *ldt) { @@ -688,14 +688,13 @@ f"> */ /* Local variables */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer lastv; - extern /* Subroutine */ int dtrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *); integer prevlastv; - extern /* Subroutine */ int mecago_(); /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -720,7 +719,7 @@ f"> */ /* Function Body */ if (*n == 0) { - return 0; + return; } if (lsame_(direct, "F")) { @@ -881,7 +880,7 @@ f"> */ } } } - return 0; + return; /* End of DLARFT */ diff --git a/lapack-netlib/SRC/dlarfx.c b/lapack-netlib/SRC/dlarfx.c index b852ca535..1d5400d10 100644 --- a/lapack-netlib/SRC/dlarfx.c +++ b/lapack-netlib/SRC/dlarfx.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal * +/* Subroutine */ void dlarfx_(char *side, integer *m, integer *n, doublereal * v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); extern logical lsame_(char *, char *); @@ -668,7 +668,7 @@ f"> */ /* Function Body */ if (*tau == 0.) { - return 0; + return; } if (lsame_(side, "L")) { @@ -1280,7 +1280,7 @@ L390: goto L410; } L410: - return 0; + return; /* End of DLARFX */ diff --git a/lapack-netlib/SRC/dlarfy.c b/lapack-netlib/SRC/dlarfy.c index 409ce9a2d..3101bd5dd 100644 --- a/lapack-netlib/SRC/dlarfy.c +++ b/lapack-netlib/SRC/dlarfy.c @@ -620,7 +620,7 @@ static integer c__1 = 1; /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlarfy_(char *uplo, integer *n, doublereal *v, integer * +/* Subroutine */ void dlarfy_(char *uplo, integer *n, doublereal *v, integer * incv, doublereal *tau, doublereal *c__, integer *ldc, doublereal * work) { @@ -631,11 +631,11 @@ static integer c__1 = 1; /* Local variables */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); - extern /* Subroutine */ int dsyr2_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyr2_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal alpha; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsymv_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); @@ -659,7 +659,7 @@ static integer c__1 = 1; /* Function Body */ if (*tau == 0.) { - return 0; + return; } /* Form w:= C * v */ @@ -675,7 +675,7 @@ static integer c__1 = 1; d__1 = -(*tau); dsyr2_(uplo, n, &d__1, &v[1], incv, &work[1], &c__1, &c__[c_offset], ldc); - return 0; + return; /* End of DLARFY */ diff --git a/lapack-netlib/SRC/dlargv.c b/lapack-netlib/SRC/dlargv.c index 70a41e2a7..944e3e241 100644 --- a/lapack-netlib/SRC/dlargv.c +++ b/lapack-netlib/SRC/dlargv.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx, +/* Subroutine */ void dlargv_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *c__, integer *incc) { /* System generated locals */ @@ -673,7 +673,7 @@ f"> */ ix += *incx; /* L10: */ } - return 0; + return; /* End of DLARGV */ diff --git a/lapack-netlib/SRC/dlarnv.c b/lapack-netlib/SRC/dlarnv.c index 65f2cd091..c5f3ca408 100644 --- a/lapack-netlib/SRC/dlarnv.c +++ b/lapack-netlib/SRC/dlarnv.c @@ -606,7 +606,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n, +/* Subroutine */ void dlarnv_(integer *idist, integer *iseed, integer *n, doublereal *x) { /* System generated locals */ @@ -616,7 +616,7 @@ f"> */ integer i__; doublereal u[128]; integer il, iv; - extern /* Subroutine */ int dlaruv_(integer *, integer *, doublereal *); + extern /* Subroutine */ void dlaruv_(integer *, integer *, doublereal *); integer il2; @@ -681,7 +681,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of DLARNV */ diff --git a/lapack-netlib/SRC/dlarra.c b/lapack-netlib/SRC/dlarra.c index 771da614f..9b41fec62 100644 --- a/lapack-netlib/SRC/dlarra.c +++ b/lapack-netlib/SRC/dlarra.c @@ -644,7 +644,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlarra_(integer *n, doublereal *d__, doublereal *e, +/* Subroutine */ void dlarra_(integer *n, doublereal *d__, doublereal *e, doublereal *e2, doublereal *spltol, doublereal *tnrm, integer *nsplit, integer *isplit, integer *info) { @@ -679,7 +679,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Compute splitting points */ @@ -714,7 +714,7 @@ f"> */ } } isplit[*nsplit] = *n; - return 0; + return; /* End of DLARRA */ diff --git a/lapack-netlib/SRC/dlarrb.c b/lapack-netlib/SRC/dlarrb.c index 8a046fdd8..cdf261b4c 100644 --- a/lapack-netlib/SRC/dlarrb.c +++ b/lapack-netlib/SRC/dlarrb.c @@ -703,7 +703,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *lld, +/* Subroutine */ void dlarrb_(integer *n, doublereal *d__, doublereal *lld, integer *ifirst, integer *ilast, doublereal *rtol1, doublereal *rtol2, integer *offset, doublereal *w, doublereal *wgap, doublereal *werr, doublereal *work, integer *iwork, doublereal *pivmin, doublereal * @@ -751,7 +751,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } maxitr = (integer) ((log(*spdiam + *pivmin) - log(*pivmin)) / log(2.)) + @@ -933,7 +933,7 @@ L100: wgap[ii - 1] = f2cmax(d__1,d__2); /* L111: */ } - return 0; + return; /* End of DLARRB */ diff --git a/lapack-netlib/SRC/dlarrc.c b/lapack-netlib/SRC/dlarrc.c index 804f2d361..c2e3c4054 100644 --- a/lapack-netlib/SRC/dlarrc.c +++ b/lapack-netlib/SRC/dlarrc.c @@ -645,7 +645,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlarrc_(char *jobt, integer *n, doublereal *vl, +/* Subroutine */ void dlarrc_(char *jobt, integer *n, doublereal *vl, doublereal *vu, doublereal *d__, doublereal *e, doublereal *pivmin, integer *eigcnt, integer *lcnt, integer *rcnt, integer *info) { @@ -679,7 +679,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } *lcnt = 0; @@ -752,7 +752,7 @@ f"> */ } } *eigcnt = *rcnt - *lcnt; - return 0; + return; /* end of DLARRC */ diff --git a/lapack-netlib/SRC/dlarrd.c b/lapack-netlib/SRC/dlarrd.c index aef42a9a0..89c51279f 100644 --- a/lapack-netlib/SRC/dlarrd.c +++ b/lapack-netlib/SRC/dlarrd.c @@ -844,7 +844,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlarrd_(char *range, char *order, integer *n, doublereal +/* Subroutine */ void dlarrd_(char *range, char *order, integer *n, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *gers, doublereal *reltol, doublereal *d__, doublereal *e, doublereal *e2, doublereal *pivmin, integer *nsplit, integer *isplit, integer *m, @@ -869,7 +869,7 @@ f"> */ extern doublereal dlamch_(char *); doublereal gu; integer ibegin, iw; - extern /* Subroutine */ int dlaebz_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaebz_(integer *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, @@ -915,7 +915,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Decode RANGE */ @@ -950,7 +950,7 @@ f"> */ } if (*info != 0) { - return 0; + return; } /* Initialize error flags */ *info = 0; @@ -959,7 +959,7 @@ f"> */ /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Simplification: */ if (irange == 3 && *il == 1 && *iu == *n) { @@ -980,7 +980,7 @@ f"> */ iblock[1] = 1; indexw[1] = 1; } - return 0; + return; } /* NB is the minimum vector length for vector bisection, or 0 */ /* if only scalar is to be done. */ @@ -1045,7 +1045,7 @@ f"> */ , &iout, &iwork[1], &w[1], &iblock[1], &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } /* On exit, output intervals may not be ordered by ascending negcount */ if (iwork[6] == *iu) { @@ -1067,7 +1067,7 @@ f"> */ /* and [WUL, WU] contains a value with negcount NWU. */ if (nwl < 0 || nwl >= *n || nwu < 1 || nwu > *n) { *info = 4; - return 0; + return; } } else if (irange == 2) { *wl = *vl; @@ -1205,7 +1205,7 @@ f"> */ w[*m + 1], &iblock[*m + 1], &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } nwl += iwork[1]; @@ -1220,7 +1220,7 @@ f"> */ &w[*m + 1], &iblock[*m + 1], &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } /* Copy eigenvalues into W and IBLOCK */ @@ -1413,7 +1413,7 @@ L70: if (toofew) { *info += 2; } - return 0; + return; /* End of DLARRD */ diff --git a/lapack-netlib/SRC/dlarre.c b/lapack-netlib/SRC/dlarre.c index 625660456..367cf1d0b 100644 --- a/lapack-netlib/SRC/dlarre.c +++ b/lapack-netlib/SRC/dlarre.c @@ -817,7 +817,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlarre_(char *range, integer *n, doublereal *vl, +/* Subroutine */ void dlarre_(char *range, integer *n, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *d__, doublereal *e, doublereal *e2, doublereal *rtol1, doublereal *rtol2, doublereal * spltol, integer *nsplit, integer *isplit, integer *m, doublereal *w, @@ -841,11 +841,11 @@ f"> */ doublereal avgap, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical norep; doublereal s1, s2; - extern /* Subroutine */ int dlasq2_(integer *, doublereal *, integer *); + extern /* Subroutine */ void dlasq2_(integer *, doublereal *, integer *); integer mb; doublereal gl; integer in; @@ -856,7 +856,7 @@ f"> */ logical forceb; integer irange; doublereal sgndef; - extern /* Subroutine */ int dlarra_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarra_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *), dlarrb_(integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, integer *, @@ -866,7 +866,7 @@ f"> */ *, doublereal *, integer *, integer *, integer *, integer *); integer wbegin; doublereal safmin, spdiam; - extern /* Subroutine */ int dlarrd_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dlarrd_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer * , integer *, integer *, doublereal *, doublereal *, doublereal *, @@ -877,7 +877,7 @@ f"> */ ; logical usedqd; doublereal clwdth, isleft; - extern /* Subroutine */ int dlarnv_(integer *, integer *, integer *, + extern /* Subroutine */ void dlarnv_(integer *, integer *, integer *, doublereal *); doublereal isrght, bsrtol, dpivot; integer cnt; @@ -915,7 +915,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Decode RANGE */ @@ -950,7 +950,7 @@ f"> */ } /* store the shift for the initial RRR, which is zero in this case */ e[1] = 0.; - return 0; + return; } /* General case: tridiagonal matrix of order > 1 */ @@ -1015,7 +1015,7 @@ f"> */ vl, vu, &iblock[1], &indexw[1], &work[1], &iwork[1], &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* Make sure that the entries M+1 to N in W, WERR, IBLOCK, INDEXW are 0 */ i__1 = *n; @@ -1124,7 +1124,7 @@ L21: rtl, &tmp, &tmp1, &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* Computing MAX */ d__2 = gl, d__3 = tmp - tmp1 - eps * 100. * (d__1 = tmp - tmp1, @@ -1134,7 +1134,7 @@ L21: rtl, &tmp, &tmp1, &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* Computing MIN */ d__2 = gu, d__3 = tmp + tmp1 + eps * 100. * (d__1 = tmp + tmp1, @@ -1322,7 +1322,7 @@ L21: /* if the program reaches this point, no base representation could be */ /* found in MAXTRY iterations. */ *info = 2; - return 0; + return; L83: /* At this point, we have found an initial base representation */ /* T - SIGMA I = L D L^T with not too much element growth. */ @@ -1388,7 +1388,7 @@ L83: iinfo); if (iinfo != 0) { *info = -4; - return 0; + return; } /* DLARRB computes all gaps correctly except for the last one */ /* Record distance to VU/GU */ @@ -1431,14 +1431,14 @@ L83: /* and should be changed. The index is in IWORK(1) and the */ /* gap is in WORK(N+1) */ *info = -5; - return 0; + return; } else { /* Test that all eigenvalues are positive as expected */ i__2 = in; for (i__ = 1; i__ <= i__2; ++i__) { if (work[i__] < 0.) { *info = -6; - return 0; + return; } /* L149: */ } @@ -1488,7 +1488,7 @@ L170: ; } - return 0; + return; /* end of DLARRE */ diff --git a/lapack-netlib/SRC/dlarrf.c b/lapack-netlib/SRC/dlarrf.c index 11664d085..82e631d54 100644 --- a/lapack-netlib/SRC/dlarrf.c +++ b/lapack-netlib/SRC/dlarrf.c @@ -704,7 +704,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l, +/* Subroutine */ void dlarrf_(integer *n, doublereal *d__, doublereal *l, doublereal *ld, integer *clstrt, integer *clend, doublereal *w, doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal * clgapl, doublereal *clgapr, doublereal *pivmin, doublereal *sigma, @@ -723,7 +723,7 @@ f"> */ integer i__; doublereal s, avgap, ldmax, rdmax; integer shift; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal bestshift, smlgrowth; logical dorrr1; @@ -766,7 +766,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } fact = 2.; @@ -1011,7 +1011,7 @@ L50: goto L5; } else { *info = 1; - return 0; + return; } } L100: @@ -1022,7 +1022,7 @@ L100: i__1 = *n - 1; dcopy_(&i__1, &work[*n + 1], &c__1, &lplus[1], &c__1); } - return 0; + return; /* End of DLARRF */ diff --git a/lapack-netlib/SRC/dlarrj.c b/lapack-netlib/SRC/dlarrj.c index cc5ad7a05..1a45ffda6 100644 --- a/lapack-netlib/SRC/dlarrj.c +++ b/lapack-netlib/SRC/dlarrj.c @@ -675,7 +675,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlarrj_(integer *n, doublereal *d__, doublereal *e2, +/* Subroutine */ void dlarrj_(integer *n, doublereal *d__, doublereal *e2, integer *ifirst, integer *ilast, doublereal *rtol, integer *offset, doublereal *w, doublereal *werr, doublereal *work, integer *iwork, doublereal *pivmin, doublereal *spdiam, integer *info) @@ -718,7 +718,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } maxitr = (integer) ((log(*spdiam + *pivmin) - log(*pivmin)) / log(2.)) + @@ -910,7 +910,7 @@ L100: /* L110: */ } - return 0; + return; /* End of DLARRJ */ diff --git a/lapack-netlib/SRC/dlarrk.c b/lapack-netlib/SRC/dlarrk.c index 8e0bec887..73258f5eb 100644 --- a/lapack-netlib/SRC/dlarrk.c +++ b/lapack-netlib/SRC/dlarrk.c @@ -654,7 +654,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlarrk_(integer *n, integer *iw, doublereal *gl, +/* Subroutine */ void dlarrk_(integer *n, integer *iw, doublereal *gl, doublereal *gu, doublereal *d__, doublereal *e2, doublereal *pivmin, doublereal *reltol, doublereal *w, doublereal *werr, integer *info) { @@ -691,7 +691,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *info = 0; - return 0; + return; } /* Get machine constants */ @@ -760,7 +760,7 @@ L30: *w = (left + right) * .5; *werr = (d__1 = right - left, abs(d__1)) * .5; - return 0; + return; /* End of DLARRK */ diff --git a/lapack-netlib/SRC/dlarrr.c b/lapack-netlib/SRC/dlarrr.c index 5b6031065..f27afc862 100644 --- a/lapack-netlib/SRC/dlarrr.c +++ b/lapack-netlib/SRC/dlarrr.c @@ -604,7 +604,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlarrr_(integer *n, doublereal *d__, doublereal *e, +/* Subroutine */ void dlarrr_(integer *n, doublereal *d__, doublereal *e, integer *info) { /* System generated locals */ @@ -639,7 +639,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *info = 0; - return 0; + return; } /* As a default, do NOT go for relative-accuracy preserving computations. */ @@ -697,7 +697,7 @@ f"> */ L11: if (yesrel) { *info = 0; - return 0; + return; } else { } @@ -716,7 +716,7 @@ L11: /* to the computed eigenvectors (and the support) */ - return 0; + return; /* END OF DLARRR */ diff --git a/lapack-netlib/SRC/dlarrv.c b/lapack-netlib/SRC/dlarrv.c index 095642d49..d9d672554 100644 --- a/lapack-netlib/SRC/dlarrv.c +++ b/lapack-netlib/SRC/dlarrv.c @@ -804,7 +804,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dlarrv_(integer *n, doublereal *vl, doublereal *vu, +/* Subroutine */ void dlarrv_(integer *n, doublereal *vl, doublereal *vu, doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, integer *m, integer *dol, integer *dou, doublereal *minrgp, doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr, @@ -825,7 +825,7 @@ f"> */ integer wend, iter; doublereal bstw; integer minwsize, itmp1, i__, j, k, p, q; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer indld; doublereal fudge; @@ -835,12 +835,12 @@ f"> */ doublereal resid; logical eskip; doublereal right; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer nclus, zfrom; doublereal rqtol; integer iindc1, iindc2; - extern /* Subroutine */ int dlar1v_(integer *, integer *, integer *, + extern /* Subroutine */ void dlar1v_(integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, logical *, integer *, doublereal *, doublereal *, integer *, integer *, @@ -857,7 +857,7 @@ f"> */ logical needbs; integer indlld; doublereal sgndef, mingma; - extern /* Subroutine */ int dlarrb_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarrb_(integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); @@ -867,7 +867,7 @@ f"> */ doublereal savgap; integer ndepth; doublereal ssigma; - extern /* Subroutine */ int dlarrf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarrf_(integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, @@ -875,7 +875,7 @@ f"> */ logical usedbs; integer iindwk, offset; doublereal gaptol; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); integer newcls, oldfst, indwrk, windex, oldlst; logical usedrq; @@ -921,7 +921,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0 || *m <= 0) { - return 0; + return; } /* The first N entries of WORK are reserved for the eigenvalues */ @@ -1071,7 +1071,7 @@ L40: /* This is a crude protection against infinitely deep trees */ if (ndepth > *m) { *info = -2; - return 0; + return; } /* breadth first processing of the current level of the representation */ /* tree: OLDNCL = number of clusters on current level */ @@ -1151,7 +1151,7 @@ L40: iindwk], pivmin, &spdiam, &in, &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* We also recompute the extremal gaps. W holds all eigenvalues */ /* of the unshifted matrix and must be used for computation */ @@ -1318,7 +1318,7 @@ L40: iwork[k] = newlst; } else { *info = -2; - return 0; + return; } } else { @@ -1422,7 +1422,7 @@ L120: iindwk], pivmin, &spdiam, &itmp1, &iinfo); if (iinfo != 0) { *info = -3; - return 0; + return; } lambda = work[windex]; /* Reset twist index from inaccurate LAMBDA to */ @@ -1517,7 +1517,7 @@ L120: goto L120; } else { *info = 5; - return 0; + return; } } else { stp2ii = FALSE_; @@ -1610,7 +1610,7 @@ L170: ; } - return 0; + return; /* End of DLARRV */ diff --git a/lapack-netlib/SRC/dlarscl2.c b/lapack-netlib/SRC/dlarscl2.c index 06995b924..5a34dfaf0 100644 --- a/lapack-netlib/SRC/dlarscl2.c +++ b/lapack-netlib/SRC/dlarscl2.c @@ -599,7 +599,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlarscl2_(integer *m, integer *n, doublereal *d__, +/* Subroutine */ void dlarscl2_(integer *m, integer *n, doublereal *d__, doublereal *x, integer *ldx) { /* System generated locals */ @@ -632,6 +632,6 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ x[i__ + j * x_dim1] /= d__[i__]; } } - return 0; + return; } /* dlarscl2_ */ diff --git a/lapack-netlib/SRC/dlartg.c b/lapack-netlib/SRC/dlartg.c index 7c7103685..c4e3889b1 100644 --- a/lapack-netlib/SRC/dlartg.c +++ b/lapack-netlib/SRC/dlartg.c @@ -608,7 +608,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs, +/* Subroutine */ void dlartg_(doublereal *f, doublereal *g, doublereal *cs, doublereal *sn, doublereal *r__) { /* System generated locals */ @@ -722,7 +722,7 @@ L30: *r__ = -(*r__); } } - return 0; + return; /* End of DLARTG */ diff --git a/lapack-netlib/SRC/dlartgp.c b/lapack-netlib/SRC/dlartgp.c index 903229a48..6bdb30f95 100644 --- a/lapack-netlib/SRC/dlartgp.c +++ b/lapack-netlib/SRC/dlartgp.c @@ -610,7 +610,7 @@ static doublereal c_b6 = 1.; /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlartgp_(doublereal *f, doublereal *g, doublereal *cs, +/* Subroutine */ void dlartgp_(doublereal *f, doublereal *g, doublereal *cs, doublereal *sn, doublereal *r__) { /* System generated locals */ @@ -724,7 +724,7 @@ L30: *r__ = -(*r__); } } - return 0; + return; /* End of DLARTGP */ diff --git a/lapack-netlib/SRC/dlartgs.c b/lapack-netlib/SRC/dlartgs.c index 878ddee3a..e99526275 100644 --- a/lapack-netlib/SRC/dlartgs.c +++ b/lapack-netlib/SRC/dlartgs.c @@ -602,13 +602,13 @@ he bidiagonal SVD problem. */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlartgs_(doublereal *x, doublereal *y, doublereal *sigma, +/* Subroutine */ void dlartgs_(doublereal *x, doublereal *y, doublereal *sigma, doublereal *cs, doublereal *sn) { doublereal r__, s, w, z__; extern doublereal dlamch_(char *); doublereal thresh; - extern /* Subroutine */ int dlartgp_(doublereal *, doublereal *, + extern /* Subroutine */ void dlartgp_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -657,7 +657,7 @@ he bidiagonal SVD problem. */ dlartgp_(&w, &z__, sn, cs, &r__); - return 0; + return; /* End DLARTGS */ diff --git a/lapack-netlib/SRC/dlartv.c b/lapack-netlib/SRC/dlartv.c index d72f5c694..e5dc6e61b 100644 --- a/lapack-netlib/SRC/dlartv.c +++ b/lapack-netlib/SRC/dlartv.c @@ -618,7 +618,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx, +/* Subroutine */ void dlartv_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer *incc) { @@ -660,7 +660,7 @@ f"> */ ic += *incc; /* L10: */ } - return 0; + return; /* End of DLARTV */ diff --git a/lapack-netlib/SRC/dlaruv.c b/lapack-netlib/SRC/dlaruv.c index bfdb82b20..c6a996a4b 100644 --- a/lapack-netlib/SRC/dlaruv.c +++ b/lapack-netlib/SRC/dlaruv.c @@ -604,7 +604,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x) +/* Subroutine */ void dlaruv_(integer *iseed, integer *n, doublereal *x) { /* Initialized data */ @@ -726,7 +726,7 @@ L20: iseed[2] = it2; iseed[3] = it3; iseed[4] = it4; - return 0; + return; /* End of DLARUV */ diff --git a/lapack-netlib/SRC/dlarz.c b/lapack-netlib/SRC/dlarz.c index cfd7e1dab..611daefd8 100644 --- a/lapack-netlib/SRC/dlarz.c +++ b/lapack-netlib/SRC/dlarz.c @@ -659,7 +659,7 @@ static doublereal c_b5 = 1.; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l, +/* Subroutine */ void dlarz_(char *side, integer *m, integer *n, integer *l, doublereal *v, integer *incv, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work) { @@ -668,11 +668,11 @@ static doublereal c_b5 = 1.; doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer @@ -756,7 +756,7 @@ static doublereal c_b5 = 1.; } - return 0; + return; /* End of DLARZ */ diff --git a/lapack-netlib/SRC/dlarzb.c b/lapack-netlib/SRC/dlarzb.c index 7565e5d02..61ca61992 100644 --- a/lapack-netlib/SRC/dlarzb.c +++ b/lapack-netlib/SRC/dlarzb.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void dlarzb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, integer *l, doublereal *v, integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer * ldc, doublereal *work, integer *ldwork) @@ -708,15 +708,15 @@ f"> */ /* Local variables */ integer info, i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, - doublereal *, integer *), xerbla_( - char *, integer *, ftnlen); + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); char transt[1]; @@ -747,7 +747,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } /* Check for currently supported options */ @@ -761,7 +761,7 @@ f"> */ if (info != 0) { i__1 = -info; xerbla_("DLARZB", &i__1, (ftnlen)6); - return 0; + return; } if (lsame_(trans, "N")) { @@ -867,7 +867,7 @@ f"> */ } - return 0; + return; /* End of DLARZB */ diff --git a/lapack-netlib/SRC/dlarzt.c b/lapack-netlib/SRC/dlarzt.c index 166d7a3f3..fd508cb5d 100644 --- a/lapack-netlib/SRC/dlarzt.c +++ b/lapack-netlib/SRC/dlarzt.c @@ -699,7 +699,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer * +/* Subroutine */ void dlarzt_(char *direct, char *storev, integer *n, integer * k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, integer *ldt) { @@ -710,11 +710,12 @@ f"> */ /* Local variables */ integer info, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -747,7 +748,7 @@ f"> */ if (info != 0) { i__1 = -info; xerbla_("DLARZT", &i__1, (ftnlen)6); - return 0; + return; } for (i__ = *k; i__ >= 1; --i__) { @@ -785,7 +786,7 @@ f"> */ } /* L20: */ } - return 0; + return; /* End of DLARZT */ diff --git a/lapack-netlib/SRC/dlas2.c b/lapack-netlib/SRC/dlas2.c index a4fe5ef12..4090a4da7 100644 --- a/lapack-netlib/SRC/dlas2.c +++ b/lapack-netlib/SRC/dlas2.c @@ -618,7 +618,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__, +/* Subroutine */ void dlas2_(doublereal *f, doublereal *g, doublereal *h__, doublereal *ssmin, doublereal *ssmax) { /* System generated locals */ @@ -685,7 +685,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } } - return 0; + return; /* End of DLAS2 */ diff --git a/lapack-netlib/SRC/dlascl.c b/lapack-netlib/SRC/dlascl.c index 42cab9b18..87d6903b7 100644 --- a/lapack-netlib/SRC/dlascl.c +++ b/lapack-netlib/SRC/dlascl.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku, +/* Subroutine */ void dlascl_(char *type__, integer *kl, integer *ku, doublereal *cfrom, doublereal *cto, integer *m, integer *n, doublereal *a, integer *lda, integer *info) { @@ -743,13 +743,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASCL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } /* Get machine parameters */ @@ -912,7 +912,7 @@ L10: goto L10; } - return 0; + return; /* End of DLASCL */ diff --git a/lapack-netlib/SRC/dlascl2.c b/lapack-netlib/SRC/dlascl2.c index 2a63e7321..b677a534e 100644 --- a/lapack-netlib/SRC/dlascl2.c +++ b/lapack-netlib/SRC/dlascl2.c @@ -599,7 +599,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlascl2_(integer *m, integer *n, doublereal *d__, +/* Subroutine */ void dlascl2_(integer *m, integer *n, doublereal *d__, doublereal *x, integer *ldx) { /* System generated locals */ @@ -632,6 +632,6 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ x[i__ + j * x_dim1] *= d__[i__]; } } - return 0; + return; } /* dlascl2_ */ diff --git a/lapack-netlib/SRC/dlasd0.c b/lapack-netlib/SRC/dlasd0.c index 0f88527ef..fdc8be7d4 100644 --- a/lapack-netlib/SRC/dlasd0.c +++ b/lapack-netlib/SRC/dlasd0.c @@ -664,7 +664,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__, +/* Subroutine */ void dlasd0_(integer *n, integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer * ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer * info) @@ -677,17 +677,17 @@ f"> */ integer idxq, nlvl, i__, j, m; doublereal alpha; integer inode, ndiml, idxqc, ndimr, itemp, sqrei, i1; - extern /* Subroutine */ int dlasd1_(integer *, integer *, integer *, + extern /* Subroutine */ void dlasd1_(integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *); integer ic, lf, nd, ll, nl, nr; - extern /* Subroutine */ int dlasdq_(char *, integer *, integer *, integer + extern /* Subroutine */ void dlasdq_(char *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dlasdt_(integer *, integer *, - integer *, integer *, integer *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + integer *, integer *, integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer im1, ncc, nlf, nrf, iwk, lvl, ndb1, nlp1, nrp1; @@ -735,7 +735,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASD0", &i__1, (ftnlen)6); - return 0; + return; } /* If the input matrix is too small, call DLASDQ to find the SVD. */ @@ -743,7 +743,7 @@ f"> */ if (*n <= *smlsiz) { dlasdq_("U", sqre, n, &m, n, &c__0, &d__[1], &e[1], &vt[vt_offset], ldvt, &u[u_offset], ldu, &u[u_offset], ldu, &work[1], info); - return 0; + return; } /* Set up the computation tree. */ @@ -783,7 +783,7 @@ f"> */ nlf + nlf * vt_dim1], ldvt, &u[nlf + nlf * u_dim1], ldu, &u[ nlf + nlf * u_dim1], ldu, &work[1], info); if (*info != 0) { - return 0; + return; } itemp = idxq + nlf - 2; i__2 = nl; @@ -801,7 +801,7 @@ f"> */ nrf + nrf * vt_dim1], ldvt, &u[nrf + nrf * u_dim1], ldu, &u[ nrf + nrf * u_dim1], ldu, &work[1], info); if (*info != 0) { - return 0; + return; } itemp = idxq + ic; i__2 = nr; @@ -849,14 +849,14 @@ f"> */ /* Report the possible convergence failure. */ if (*info != 0) { - return 0; + return; } /* L40: */ } /* L50: */ } - return 0; + return; /* End of DLASD0 */ diff --git a/lapack-netlib/SRC/dlasd1.c b/lapack-netlib/SRC/dlasd1.c index 8b0d7031c..c45c2fe7d 100644 --- a/lapack-netlib/SRC/dlasd1.c +++ b/lapack-netlib/SRC/dlasd1.c @@ -720,7 +720,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre, +/* Subroutine */ void dlasd1_(integer *nl, integer *nr, integer *sqre, doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer * iwork, doublereal *work, integer *info) @@ -731,7 +731,7 @@ f"> */ /* Local variables */ integer idxc, idxp, ldvt2, i__, k, m, n, n1, n2; - extern /* Subroutine */ int dlasd2_(integer *, integer *, integer *, + extern /* Subroutine */ void dlasd2_(integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, @@ -741,11 +741,11 @@ f"> */ doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *); integer iq; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer iz; - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, integer *, integer *, integer *); integer isigma; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -790,7 +790,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASD1", &i__1, (ftnlen)6); - return 0; + return; } n = *nl + *nr + 1; @@ -848,7 +848,7 @@ f"> */ /* Report the convergence failure. */ if (*info != 0) { - return 0; + return; } /* Unscale. */ @@ -861,7 +861,7 @@ f"> */ n2 = n - k; dlamrg_(&n1, &n2, &d__[1], &c__1, &c_n1, &idxq[1]); - return 0; + return; /* End of DLASD1 */ diff --git a/lapack-netlib/SRC/dlasd2.c b/lapack-netlib/SRC/dlasd2.c index 8e915c949..457957a06 100644 --- a/lapack-netlib/SRC/dlasd2.c +++ b/lapack-netlib/SRC/dlasd2.c @@ -782,7 +782,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer +/* Subroutine */ void dlasd2_(integer *nl, integer *nr, integer *sqre, integer *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal * beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2, @@ -796,14 +796,14 @@ f"> */ /* Local variables */ integer idxi, idxj; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer ctot[4]; doublereal c__; integer i__, j, m, n; doublereal s; integer idxjp; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer jprev, k2; doublereal z1; @@ -811,11 +811,11 @@ f"> */ integer ct; extern doublereal dlamch_(char *); integer jp; - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, integer *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *, - doublereal *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal hlftol, eps, tau, tol; integer psm[4], nlp1, nlp2; @@ -879,7 +879,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASD2", &i__1, (ftnlen)6); - return 0; + return; } nlp1 = *nl + 1; @@ -1206,7 +1206,7 @@ L120: /* L190: */ } - return 0; + return; /* End of DLASD2 */ diff --git a/lapack-netlib/SRC/dlasd3.c b/lapack-netlib/SRC/dlasd3.c index d648ecbea..d4b747295 100644 --- a/lapack-netlib/SRC/dlasd3.c +++ b/lapack-netlib/SRC/dlasd3.c @@ -740,7 +740,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer +/* Subroutine */ void dlasd3_(integer *nl, integer *nr, integer *sqre, integer *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma, doublereal *u, integer *ldu, doublereal *u2, integer *ldu2, doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2, @@ -755,23 +755,23 @@ f"> */ doublereal temp; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j, m, n; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ctemp; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer ktemp; extern doublereal dlamc3_(doublereal *, doublereal *); - extern /* Subroutine */ int dlasd4_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlasd4_(integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *); integer jc; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer - *, doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + *, doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal rho; integer nlp1, nlp2, nrp1; @@ -841,7 +841,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASD3", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -858,7 +858,7 @@ f"> */ /* L10: */ } } - return 0; + return; } /* Modify values DSIGMA(i) to make sure all DSIGMA(i)-DSIGMA(j) can */ @@ -904,7 +904,7 @@ f"> */ /* If the zero finder fails, report the convergence failure. */ if (*info != 0) { - return 0; + return; } /* L30: */ } @@ -1007,7 +1007,7 @@ L100: if (*k == 2) { dgemm_("N", "N", k, &m, k, &c_b13, &q[q_offset], ldq, &vt2[vt2_offset] , ldvt2, &c_b26, &vt[vt_offset], ldvt); - return 0; + return; } ktemp = ctot[1] + 1; dgemm_("N", "N", k, &nlp1, &ktemp, &c_b13, &q[q_dim1 + 1], ldq, &vt2[ @@ -1038,7 +1038,7 @@ L100: vt2[ktemp + nlp2 * vt2_dim1], ldvt2, &c_b26, &vt[nlp2 * vt_dim1 + 1], ldvt); - return 0; + return; /* End of DLASD3 */ diff --git a/lapack-netlib/SRC/dlasd4.c b/lapack-netlib/SRC/dlasd4.c index e0c3a23e1..a19c9d997 100644 --- a/lapack-netlib/SRC/dlasd4.c +++ b/lapack-netlib/SRC/dlasd4.c @@ -663,7 +663,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__, +/* Subroutine */ void dlasd4_(integer *n, integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal * sigma, doublereal *work, integer *info) { @@ -681,7 +681,7 @@ f"> */ doublereal dtisq; logical swtch; doublereal dtnsq; - extern /* Subroutine */ int dlaed6_(integer *, logical *, doublereal *, + extern /* Subroutine */ void dlaed6_(integer *, logical *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *) , dlasd5_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -728,11 +728,11 @@ f"> */ *sigma = sqrt(d__[1] * d__[1] + *rho * z__[1] * z__[1]); delta[1] = 1.; work[1] = 1.; - return 0; + return; } if (*n == 2) { dlasd5_(i__, &d__[1], &z__[1], &delta[1], rho, sigma, &work[1]); - return 0; + return; } /* Compute machine epsilon */ @@ -1661,7 +1661,7 @@ f"> */ } L240: - return 0; + return; /* End of DLASD4 */ diff --git a/lapack-netlib/SRC/dlasd5.c b/lapack-netlib/SRC/dlasd5.c index efbb03073..aad2836af 100644 --- a/lapack-netlib/SRC/dlasd5.c +++ b/lapack-netlib/SRC/dlasd5.c @@ -626,7 +626,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, +/* Subroutine */ void dlasd5_(integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal * work) { @@ -733,7 +733,7 @@ f"> */ /* DELTA( 1 ) = DELTA( 1 ) / TEMP */ /* DELTA( 2 ) = DELTA( 2 ) / TEMP */ } - return 0; + return; /* End of DLASD5 */ diff --git a/lapack-netlib/SRC/dlasd6.c b/lapack-netlib/SRC/dlasd6.c index ba2465acf..46b1c968e 100644 --- a/lapack-netlib/SRC/dlasd6.c +++ b/lapack-netlib/SRC/dlasd6.c @@ -827,7 +827,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr, +/* Subroutine */ void dlasd6_(integer *icompq, integer *nl, integer *nr, integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl, doublereal *alpha, doublereal *beta, integer *idxq, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, @@ -842,10 +842,10 @@ f"> */ /* Local variables */ integer idxc, idxp, ivfw, ivlw, i__, m, n; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer n1, n2; - extern /* Subroutine */ int dlasd7_(integer *, integer *, integer *, + extern /* Subroutine */ void dlasd7_(integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, @@ -855,7 +855,7 @@ f"> */ doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iw; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlamrg_(integer *, integer *, doublereal *, integer *, integer *, integer *); @@ -918,7 +918,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASD6", &i__1, (ftnlen)6); - return 0; + return; } /* The following values are for bookkeeping purposes only. They are */ @@ -967,7 +967,7 @@ f"> */ /* Report the possible convergence failure. */ if (*info != 0) { - return 0; + return; } /* Save the poles if ICOMPQ = 1. */ @@ -987,7 +987,7 @@ f"> */ n2 = n - *k; dlamrg_(&n1, &n2, &d__[1], &c__1, &c_n1, &idxq[1]); - return 0; + return; /* End of DLASD6 */ diff --git a/lapack-netlib/SRC/dlasd7.c b/lapack-netlib/SRC/dlasd7.c index 799bcb003..6ff2e9f11 100644 --- a/lapack-netlib/SRC/dlasd7.c +++ b/lapack-netlib/SRC/dlasd7.c @@ -791,7 +791,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr, +/* Subroutine */ void dlasd7_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *k, doublereal *d__, doublereal *z__, doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl, doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal * @@ -805,17 +805,18 @@ f"> */ /* Local variables */ integer idxi, idxj; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer i__, j, m, n, idxjp; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer jprev, k2; doublereal z1; extern doublereal dlapy2_(doublereal *, doublereal *), dlamch_(char *); integer jp; - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, - integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal hlftol, eps, tau, tol; integer nlp1, nlp2; @@ -873,7 +874,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASD7", &i__1, (ftnlen)6); - return 0; + return; } nlp1 = *nl + 1; @@ -1128,7 +1129,7 @@ L100: i__1 = n - 1; dcopy_(&i__1, &vlw[2], &c__1, &vl[2], &c__1); - return 0; + return; /* End of DLASD7 */ diff --git a/lapack-netlib/SRC/dlasd8.c b/lapack-netlib/SRC/dlasd8.c index 415a93c4a..e3e771c94 100644 --- a/lapack-netlib/SRC/dlasd8.c +++ b/lapack-netlib/SRC/dlasd8.c @@ -681,7 +681,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__, +/* Subroutine */ void dlasd8_(integer *icompq, integer *k, doublereal *d__, doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal * work, integer *info) @@ -697,18 +697,18 @@ f"> */ extern doublereal dnrm2_(integer *, doublereal *, integer *); integer iwk2i, iwk3i, i__, j; doublereal diflj, difrj, dsigj; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamc3_(doublereal *, doublereal *); - extern /* Subroutine */ int dlasd4_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlasd4_(integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *); doublereal dj; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer - *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + *, doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal dsigjp, rho; integer iwk1, iwk2, iwk3; @@ -749,7 +749,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASD8", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -761,7 +761,7 @@ f"> */ difl[2] = 1.; difr[(difr_dim1 << 1) + 1] = 1.; } - return 0; + return; } /* Modify values DSIGMA(i) to make sure all DSIGMA(i)-DSIGMA(j) can */ @@ -816,7 +816,7 @@ f"> */ /* If the root finder fails, report the convergence failure. */ if (*info != 0) { - return 0; + return; } work[iwk3i + j] = work[iwk3i + j] * work[j] * work[iwk2i + j]; difl[j] = -work[j]; @@ -883,7 +883,7 @@ f"> */ dcopy_(k, &work[iwk2], &c__1, &vf[1], &c__1); dcopy_(k, &work[iwk3], &c__1, &vl[1], &c__1); - return 0; + return; /* End of DLASD8 */ diff --git a/lapack-netlib/SRC/dlasda.c b/lapack-netlib/SRC/dlasda.c index a9190f805..f9993150d 100644 --- a/lapack-netlib/SRC/dlasda.c +++ b/lapack-netlib/SRC/dlasda.c @@ -789,7 +789,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n, +/* Subroutine */ void dlasda_(integer *icompq, integer *smlsiz, integer *n, integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, @@ -807,23 +807,24 @@ f"> */ integer idxq, nlvl, i__, j, m; doublereal alpha; integer inode, ndiml, ndimr, idxqi, itemp; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer sqrei, i1; - extern /* Subroutine */ int dlasd6_(integer *, integer *, integer *, + extern /* Subroutine */ void dlasd6_(integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); integer ic, nwork1, lf, nd, nwork2, ll, nl, vf, nr, vl; - extern /* Subroutine */ int dlasdq_(char *, integer *, integer *, integer + extern /* Subroutine */ void dlasdq_(char *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dlasdt_(integer *, integer *, integer *, integer *, integer *, integer *, integer *), dlaset_( char *, integer *, integer *, doublereal *, doublereal *, - doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer im1, smlszp, ncc, nlf, nrf, vfi, iwk, vli, lvl, nru, ndb1, nlp1, lvl2, nrp1; @@ -895,7 +896,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASDA", &i__1, (ftnlen)6); - return 0; + return; } m = *n + *sqre; @@ -912,7 +913,7 @@ f"> */ , ldu, &u[u_offset], ldu, &u[u_offset], ldu, &work[1], info); } - return 0; + return; } /* Book-keeping and set up the computation tree. */ @@ -979,7 +980,7 @@ f"> */ ; } if (*info != 0) { - return 0; + return; } i__2 = nl; for (j = 1; j <= i__2; ++j) { @@ -1015,7 +1016,7 @@ f"> */ ; } if (*info != 0) { - return 0; + return; } i__2 = nr; for (j = 1; j <= i__2; ++j) { @@ -1080,14 +1081,14 @@ f"> */ &s[j], &work[nwork1], &iwork[iwk], info); } if (*info != 0) { - return 0; + return; } /* L40: */ } /* L50: */ } - return 0; + return; /* End of DLASDA */ diff --git a/lapack-netlib/SRC/dlasdq.c b/lapack-netlib/SRC/dlasdq.c index cee659c39..054dabbac 100644 --- a/lapack-netlib/SRC/dlasdq.c +++ b/lapack-netlib/SRC/dlasdq.c @@ -724,7 +724,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer * +/* Subroutine */ void dlasdq_(char *uplo, integer *sqre, integer *n, integer * ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *ldc, doublereal *work, integer *info) @@ -739,14 +739,15 @@ f"> */ integer sqre1, i__, j; doublereal r__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dlasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dlasr_(char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dswap_(integer *, doublereal *, integer * , doublereal *, integer *); integer iuplo; doublereal cs, sn; - extern /* Subroutine */ int dlartg_(doublereal *, doublereal *, - doublereal *, doublereal *, doublereal *), xerbla_(char *, - integer *, ftnlen), dbdsqr_(char *, integer *, integer *, integer + extern /* Subroutine */ void dlartg_(doublereal *, doublereal *, + doublereal *, doublereal *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dbdsqr_(char *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); @@ -810,10 +811,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASDQ", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* ROTATE is true if any singular vectors desired, false otherwise */ @@ -953,7 +954,7 @@ f"> */ /* L40: */ } - return 0; + return; /* End of DLASDQ */ diff --git a/lapack-netlib/SRC/dlasdt.c b/lapack-netlib/SRC/dlasdt.c index 54259a2d6..d651ab090 100644 --- a/lapack-netlib/SRC/dlasdt.c +++ b/lapack-netlib/SRC/dlasdt.c @@ -614,7 +614,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer * +/* Subroutine */ void dlasdt_(integer *n, integer *lvl, integer *nd, integer * inode, integer *ndiml, integer *ndimr, integer *msub) { /* System generated locals */ @@ -678,7 +678,7 @@ f"> */ } *nd = (llst << 1) - 1; - return 0; + return; /* End of DLASDT */ diff --git a/lapack-netlib/SRC/dlaset.c b/lapack-netlib/SRC/dlaset.c index 060fefbee..7777c3059 100644 --- a/lapack-netlib/SRC/dlaset.c +++ b/lapack-netlib/SRC/dlaset.c @@ -620,7 +620,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal * +/* Subroutine */ void dlaset_(char *uplo, integer *m, integer *n, doublereal * alpha, doublereal *beta, doublereal *a, integer *lda) { /* System generated locals */ @@ -701,7 +701,7 @@ f"> */ /* L70: */ } - return 0; + return; /* End of DLASET */ diff --git a/lapack-netlib/SRC/dlasq1.c b/lapack-netlib/SRC/dlasq1.c index aaafa28d9..d77f5653e 100644 --- a/lapack-netlib/SRC/dlasq1.c +++ b/lapack-netlib/SRC/dlasq1.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e, +/* Subroutine */ void dlasq1_(integer *n, doublereal *d__, doublereal *e, doublereal *work, integer *info) { /* System generated locals */ @@ -631,22 +631,23 @@ f"> */ doublereal d__1, d__2, d__3; /* Local variables */ - extern /* Subroutine */ int dlas2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlas2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); integer i__; doublereal scale; integer iinfo; doublereal sigmn; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal sigmx; - extern /* Subroutine */ int dlasq2_(integer *, doublereal *, integer *); + extern /* Subroutine */ void dlasq2_(integer *, doublereal *, integer *); extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlasrt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dlasrt_( char *, integer *, doublereal *, integer *); doublereal eps; @@ -671,17 +672,17 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("DLASQ1", &i__1, (ftnlen)6); - return 0; + return; } else if (*n == 0) { - return 0; + return; } else if (*n == 1) { d__[1] = abs(d__[1]); - return 0; + return; } else if (*n == 2) { dlas2_(&d__[1], &e[1], &d__[2], &sigmn, &sigmx); d__[1] = sigmx; d__[2] = sigmn; - return 0; + return; } /* Estimate the largest singular value. */ @@ -701,7 +702,7 @@ f"> */ if (sigmx == 0.) { dlasrt_("D", n, &d__[1], &iinfo); - return 0; + return; } i__1 = *n; @@ -762,7 +763,7 @@ f"> */ dlascl_("G", &c__0, &c__0, &scale, &sigmx, n, &c__1, &e[1], n, &iinfo); } - return 0; + return; /* End of DLASQ1 */ diff --git a/lapack-netlib/SRC/dlasq2.c b/lapack-netlib/SRC/dlasq2.c index b349edd99..4958580f2 100644 --- a/lapack-netlib/SRC/dlasq2.c +++ b/lapack-netlib/SRC/dlasq2.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info) +/* Subroutine */ void dlasq2_(integer *n, doublereal *z__, integer *info) { /* System generated locals */ integer i__1, i__2, i__3; @@ -652,7 +652,7 @@ f"> */ integer iinfo; doublereal tempe, tempq; integer i0, i1, i4, n0, n1, ttype; - extern /* Subroutine */ int dlasq3_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlasq3_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, logical *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, @@ -666,7 +666,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlasrt_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlasrt_(char *, integer *, doublereal *, integer *); doublereal dn1, dn2, dee, eps, tau, tol; integer ipn4; @@ -700,9 +700,9 @@ f"> */ if (*n < 0) { *info = -1; xerbla_("DLASQ2", &c__1, (ftnlen)6); - return 0; + return; } else if (*n == 0) { - return 0; + return; } else if (*n == 1) { /* 1-by-1 case. */ @@ -711,7 +711,7 @@ f"> */ *info = -201; xerbla_("DLASQ2", &c__2, (ftnlen)6); } - return 0; + return; } else if (*n == 2) { /* 2-by-2 case. */ @@ -719,15 +719,15 @@ f"> */ if (z__[1] < 0.) { *info = -201; xerbla_("DLASQ2", &c__2, (ftnlen)6); - return 0; + return; } else if (z__[2] < 0.) { *info = -202; xerbla_("DLASQ2", &c__2, (ftnlen)6); - return 0; + return; } else if (z__[3] < 0.) { *info = -203; xerbla_("DLASQ2", &c__2, (ftnlen)6); - return 0; + return; } else if (z__[3] > z__[1]) { d__ = z__[3]; z__[3] = z__[1]; @@ -748,7 +748,7 @@ f"> */ } z__[2] = z__[3]; z__[6] = z__[2] + z__[1]; - return 0; + return; } /* Check for negative data and compute sums of q's and e's. */ @@ -765,11 +765,11 @@ f"> */ if (z__[k] < 0.) { *info = -(k + 200); xerbla_("DLASQ2", &c__2, (ftnlen)6); - return 0; + return; } else if (z__[k + 1] < 0.) { *info = -(k + 201); xerbla_("DLASQ2", &c__2, (ftnlen)6); - return 0; + return; } d__ += z__[k]; e += z__[k + 1]; @@ -787,7 +787,7 @@ f"> */ if (z__[(*n << 1) - 1] < 0.) { *info = -((*n << 1) + 199); xerbla_("DLASQ2", &c__2, (ftnlen)6); - return 0; + return; } d__ += z__[(*n << 1) - 1]; /* Computing MAX */ @@ -805,7 +805,7 @@ f"> */ } dlasrt_("D", n, &z__[1], &iinfo); z__[(*n << 1) - 1] = d__; - return 0; + return; } trace = d__ + e; @@ -814,7 +814,7 @@ f"> */ if (trace == 0.) { z__[(*n << 1) - 1] = 0.; - return 0; + return; } /* Check whether the machine is IEEE conformable. */ @@ -950,7 +950,7 @@ f"> */ } if (sigma < 0.) { *info = 1; - return 0; + return; } /* Find last unreduced submatrix's top index I0, find QMAX and */ @@ -1137,7 +1137,7 @@ L145: z__[k * 2] = 0.; } } - return 0; + return; /* end IWHILB */ @@ -1148,7 +1148,7 @@ L150: } *info = 3; - return 0; + return; /* end IWHILA */ @@ -1181,7 +1181,7 @@ L170: i__1 = *n; z__[(*n << 1) + 4] = (doublereal) ndiv / (doublereal) (i__1 * i__1); z__[(*n << 1) + 5] = nfail * 100. / (doublereal) iter; - return 0; + return; /* End of DLASQ2 */ diff --git a/lapack-netlib/SRC/dlasq3.c b/lapack-netlib/SRC/dlasq3.c index c30f1faed..cb65b63e7 100644 --- a/lapack-netlib/SRC/dlasq3.c +++ b/lapack-netlib/SRC/dlasq3.c @@ -689,7 +689,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__, +/* Subroutine */ void dlasq3_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig, doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2, @@ -703,7 +703,7 @@ f"> */ /* Local variables */ doublereal temp, s, t; integer j4; - extern /* Subroutine */ int dlasq4_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlasq4_(integer *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *), dlasq5_(integer *, integer *, doublereal *, @@ -745,7 +745,7 @@ f"> */ L10: if (*n0 < *i0) { - return 0; + return; } if (*n0 == *i0) { goto L20; @@ -941,7 +941,7 @@ L90: } *sigma = t; - return 0; + return; /* End of DLASQ3 */ diff --git a/lapack-netlib/SRC/dlasq4.c b/lapack-netlib/SRC/dlasq4.c index cab77310d..ce0322f0b 100644 --- a/lapack-netlib/SRC/dlasq4.c +++ b/lapack-netlib/SRC/dlasq4.c @@ -660,7 +660,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__, +/* Subroutine */ void dlasq4_(integer *i0, integer *n0, doublereal *z__, integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *tau, integer *ttype, doublereal *g) @@ -694,7 +694,7 @@ f"> */ if (*dmin__ <= 0.) { *tau = -(*dmin__); *ttype = -1; - return 0; + return; } nn = (*n0 << 2) + *pp; @@ -747,7 +747,7 @@ f"> */ gam = *dn; a2 = 0.; if (z__[nn - 5] > z__[nn - 7]) { - return 0; + return; } b2 = z__[nn - 5] / z__[nn - 7]; np = nn - 9; @@ -755,11 +755,11 @@ f"> */ np = nn - (*pp << 1); gam = *dn1; if (z__[np - 4] > z__[np - 2]) { - return 0; + return; } a2 = z__[np - 4] / z__[np - 2]; if (z__[nn - 9] > z__[nn - 11]) { - return 0; + return; } b2 = z__[nn - 9] / z__[nn - 11]; np = nn - 13; @@ -775,7 +775,7 @@ f"> */ } b1 = b2; if (z__[i4] > z__[i4 - 2]) { - return 0; + return; } b2 *= z__[i4] / z__[i4 - 2]; a2 += b2; @@ -807,7 +807,7 @@ L20: b2 = z__[np - 6]; gam = *dn2; if (z__[np - 8] > b2 || z__[np - 4] > b1) { - return 0; + return; } a2 = z__[np - 8] / b2 * (z__[np - 4] / b1 + 1.); @@ -823,7 +823,7 @@ L20: } b1 = b2; if (z__[i4] > z__[i4 - 2]) { - return 0; + return; } b2 *= z__[i4] / z__[i4 - 2]; a2 += b2; @@ -865,7 +865,7 @@ L40: *ttype = -7; s = *dmin1 * .333; if (z__[nn - 5] > z__[nn - 7]) { - return 0; + return; } b1 = z__[nn - 5] / z__[nn - 7]; b2 = b1; @@ -876,7 +876,7 @@ L40: for (i4 = (*n0 << 2) - 9 + *pp; i4 >= i__1; i4 += -4) { a2 = b1; if (z__[i4] > z__[i4 - 2]) { - return 0; + return; } b1 *= z__[i4] / z__[i4 - 2]; b2 += b1; @@ -922,7 +922,7 @@ L60: *ttype = -10; s = *dmin2 * .333; if (z__[nn - 5] > z__[nn - 7]) { - return 0; + return; } b1 = z__[nn - 5] / z__[nn - 7]; b2 = b1; @@ -932,7 +932,7 @@ L60: i__1 = (*i0 << 2) - 1 + *pp; for (i4 = (*n0 << 2) - 9 + *pp; i4 >= i__1; i4 += -4) { if (z__[i4] > z__[i4 - 2]) { - return 0; + return; } b1 *= z__[i4] / z__[i4 - 2]; b2 += b1; @@ -970,7 +970,7 @@ L80: } *tau = s; - return 0; + return; /* End of DLASQ4 */ diff --git a/lapack-netlib/SRC/dlasq5.c b/lapack-netlib/SRC/dlasq5.c index 38b713c90..cbf6af7e7 100644 --- a/lapack-netlib/SRC/dlasq5.c +++ b/lapack-netlib/SRC/dlasq5.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__, +/* Subroutine */ void dlasq5_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *tau, doublereal *sigma, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal * dnm1, doublereal *dnm2, logical *ieee, doublereal *eps) @@ -681,7 +681,7 @@ f"> */ /* Function Body */ if (*n0 - *i0 - 1 <= 0) { - return 0; + return; } dthresh = *eps * (*sigma + *tau); @@ -755,7 +755,7 @@ f"> */ for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { z__[j4 - 2] = d__ + z__[j4 - 1]; if (d__ < 0.) { - return 0; + return; } else { z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); d__ = z__[j4 + 1] * (d__ / z__[j4 - 2]) - *tau; @@ -771,7 +771,7 @@ f"> */ for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { z__[j4 - 3] = d__ + z__[j4]; if (d__ < 0.) { - return 0; + return; } else { z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); d__ = z__[j4 + 2] * (d__ / z__[j4 - 3]) - *tau; @@ -792,7 +792,7 @@ f"> */ j4p2 = j4 + (*pp << 1) - 1; z__[j4 - 2] = *dnm2 + z__[j4p2]; if (*dnm2 < 0.) { - return 0; + return; } else { z__[j4] = z__[j4p2 + 2] * (z__[j4p2] / z__[j4 - 2]); *dnm1 = z__[j4p2 + 2] * (*dnm2 / z__[j4 - 2]) - *tau; @@ -804,7 +804,7 @@ f"> */ j4p2 = j4 + (*pp << 1) - 1; z__[j4 - 2] = *dnm1 + z__[j4p2]; if (*dnm1 < 0.) { - return 0; + return; } else { z__[j4] = z__[j4p2 + 2] * (z__[j4p2] / z__[j4 - 2]); *dn = z__[j4p2 + 2] * (*dnm1 / z__[j4 - 2]) - *tau; @@ -885,7 +885,7 @@ f"> */ for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { z__[j4 - 2] = d__ + z__[j4 - 1]; if (d__ < 0.) { - return 0; + return; } else { z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); d__ = z__[j4 + 1] * (d__ / z__[j4 - 2]) - *tau; @@ -904,7 +904,7 @@ f"> */ for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { z__[j4 - 3] = d__ + z__[j4]; if (d__ < 0.) { - return 0; + return; } else { z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); d__ = z__[j4 + 2] * (d__ / z__[j4 - 3]) - *tau; @@ -928,7 +928,7 @@ f"> */ j4p2 = j4 + (*pp << 1) - 1; z__[j4 - 2] = *dnm2 + z__[j4p2]; if (*dnm2 < 0.) { - return 0; + return; } else { z__[j4] = z__[j4p2 + 2] * (z__[j4p2] / z__[j4 - 2]); *dnm1 = z__[j4p2 + 2] * (*dnm2 / z__[j4 - 2]) - *tau; @@ -940,7 +940,7 @@ f"> */ j4p2 = j4 + (*pp << 1) - 1; z__[j4 - 2] = *dnm1 + z__[j4p2]; if (*dnm1 < 0.) { - return 0; + return; } else { z__[j4] = z__[j4p2 + 2] * (z__[j4p2] / z__[j4 - 2]); *dn = z__[j4p2 + 2] * (*dnm1 / z__[j4 - 2]) - *tau; @@ -952,7 +952,7 @@ f"> */ z__[j4 + 2] = *dn; z__[(*n0 << 2) - *pp] = emin; - return 0; + return; /* End of DLASQ5 */ diff --git a/lapack-netlib/SRC/dlasq6.c b/lapack-netlib/SRC/dlasq6.c index 6f26df3da..3dc825211 100644 --- a/lapack-netlib/SRC/dlasq6.c +++ b/lapack-netlib/SRC/dlasq6.c @@ -627,7 +627,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__, +/* Subroutine */ void dlasq6_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2) { @@ -657,7 +657,7 @@ f"> */ /* Function Body */ if (*n0 - *i0 - 1 <= 0) { - return 0; + return; } safmin = dlamch_("Safe minimum"); @@ -761,7 +761,7 @@ f"> */ z__[j4 + 2] = *dn; z__[(*n0 << 2) - *pp] = emin; - return 0; + return; /* End of DLASQ6 */ diff --git a/lapack-netlib/SRC/dlasr.c b/lapack-netlib/SRC/dlasr.c index 2b24ecb32..f4fc9cf2b 100644 --- a/lapack-netlib/SRC/dlasr.c +++ b/lapack-netlib/SRC/dlasr.c @@ -708,7 +708,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m, +/* Subroutine */ void dlasr_(char *side, char *pivot, char *direct, integer *m, integer *n, doublereal *c__, doublereal *s, doublereal *a, integer * lda) { @@ -761,13 +761,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("DLASR ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (lsame_(side, "L")) { @@ -1003,7 +1003,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of DLASR */ diff --git a/lapack-netlib/SRC/dlasrt.c b/lapack-netlib/SRC/dlasrt.c index 784820de8..256737709 100644 --- a/lapack-netlib/SRC/dlasrt.c +++ b/lapack-netlib/SRC/dlasrt.c @@ -597,7 +597,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer * +/* Subroutine */ void dlasrt_(char *id, integer *n, doublereal *d__, integer * info) { /* System generated locals */ @@ -644,13 +644,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLASRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } stkpnt = 1; @@ -817,7 +817,7 @@ L110: if (stkpnt > 0) { goto L10; } - return 0; + return; /* End of DLASRT */ diff --git a/lapack-netlib/SRC/dlassq.c b/lapack-netlib/SRC/dlassq.c index a88d377cf..53f30d4ec 100644 --- a/lapack-netlib/SRC/dlassq.c +++ b/lapack-netlib/SRC/dlassq.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx, +/* Subroutine */ void dlassq_(integer *n, doublereal *x, integer *incx, doublereal *scale, doublereal *sumsq) { /* System generated locals */ @@ -658,7 +658,7 @@ f"> */ /* L10: */ } } - return 0; + return; /* End of DLASSQ */ diff --git a/lapack-netlib/SRC/dlasv2.c b/lapack-netlib/SRC/dlasv2.c index 92fb8a02f..570f2a111 100644 --- a/lapack-netlib/SRC/dlasv2.c +++ b/lapack-netlib/SRC/dlasv2.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, +/* Subroutine */ void dlasv2_(doublereal *f, doublereal *g, doublereal *h__, doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal * csr, doublereal *snl, doublereal *csl) { @@ -827,7 +827,7 @@ f"> */ *ssmax = d_sign(ssmax, &tsign); d__1 = tsign * d_sign(&c_b4, f) * d_sign(&c_b4, h__); *ssmin = d_sign(ssmin, &d__1); - return 0; + return; /* End of DLASV2 */ diff --git a/lapack-netlib/SRC/dlaswlq.c b/lapack-netlib/SRC/dlaswlq.c index a75055a00..83c2a0870 100644 --- a/lapack-netlib/SRC/dlaswlq.c +++ b/lapack-netlib/SRC/dlaswlq.c @@ -671,7 +671,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaswlq_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void dlaswlq_(integer *m, integer *n, integer *mb, integer * nb, doublereal *a, integer *lda, doublereal *t, integer *ldt, doublereal *work, integer *lwork, integer *info) { @@ -680,7 +680,8 @@ static integer c__0 = 0; /* Local variables */ integer i__, ii, kk; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dgelqt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dgelqt_( integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dtplqt_( integer *, integer *, integer *, integer *, doublereal *, integer @@ -737,15 +738,15 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("DLASWLQ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The LQ Decomposition */ @@ -753,7 +754,7 @@ static integer c__0 = 0; if (*m >= *n || *nb <= *m || *nb >= *n) { dgelqt_(m, n, mb, &a[a_offset], lda, &t[t_offset], ldt, &work[1], info); - return 0; + return; } kk = (*n - *m) % (*nb - *m); @@ -785,7 +786,7 @@ static integer c__0 = 0; } work[1] = (doublereal) (*m * *mb); - return 0; + return; /* End of DLASWLQ */ diff --git a/lapack-netlib/SRC/dlaswp.c b/lapack-netlib/SRC/dlaswp.c index ab2eb43ac..06ce8e244 100644 --- a/lapack-netlib/SRC/dlaswp.c +++ b/lapack-netlib/SRC/dlaswp.c @@ -624,7 +624,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer +/* Subroutine */ void dlaswp_(integer *n, doublereal *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx) { /* System generated locals */ @@ -665,7 +665,7 @@ f"> */ i2 = *k1; inc = -1; } else { - return 0; + return; } n32 = *n / 32 << 5; @@ -714,7 +714,7 @@ f"> */ } } - return 0; + return; /* End of DLASWP */ diff --git a/lapack-netlib/SRC/dlasy2.c b/lapack-netlib/SRC/dlasy2.c index b3e9062ee..8d48d4d4f 100644 --- a/lapack-netlib/SRC/dlasy2.c +++ b/lapack-netlib/SRC/dlasy2.c @@ -689,7 +689,7 @@ f"> */ /* > \ingroup doubleSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, +/* Subroutine */ void dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal * tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, doublereal *x, integer *ldx, doublereal *xnorm, integer *info) @@ -715,7 +715,7 @@ f"> */ doublereal xmax; integer ipsv, jpsv, i__, j, k; logical bswap; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical xswap; @@ -758,7 +758,7 @@ f"> */ /* Quick return if possible */ if (*n1 == 0 || *n2 == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -794,7 +794,7 @@ L10: x[x_dim1 + 1] = b[b_dim1 + 1] * *scale / tau1; *xnorm = (d__1 = x[x_dim1 + 1], abs(d__1)); - return 0; + return; /* 1 by 2: */ /* TL11*[X11 X12] + ISGN*[X11 X12]*op[TR11 TR12] = [B11 B12] */ @@ -904,7 +904,7 @@ L40: , abs(d__2)); *xnorm = f2cmax(d__3,d__4); } - return 0; + return; /* 2 by 2: */ /* op[TL11 TL12]*[X11 X12] +ISGN* [X11 X12]*op[TR11 TR12] = [B11 B12] */ @@ -1047,7 +1047,7 @@ L50: /* Computing MAX */ d__1 = abs(tmp[0]) + abs(tmp[2]), d__2 = abs(tmp[1]) + abs(tmp[3]); *xnorm = f2cmax(d__1,d__2); - return 0; + return; /* End of DLASY2 */ diff --git a/lapack-netlib/SRC/dlasyf.c b/lapack-netlib/SRC/dlasyf.c index 11c66c40d..b63353a0c 100644 --- a/lapack-netlib/SRC/dlasyf.c +++ b/lapack-netlib/SRC/dlasyf.c @@ -692,7 +692,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb, +/* Subroutine */ void dlasyf_(char *uplo, integer *n, integer *nb, integer *kb, doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer * ldw, integer *info) { @@ -703,12 +703,12 @@ f"> */ /* Local variables */ integer imax, jmax, j, k; doublereal t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer @@ -1434,7 +1434,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of DLASYF */ diff --git a/lapack-netlib/SRC/dlasyf_aa.c b/lapack-netlib/SRC/dlasyf_aa.c index 5d8aea1f0..2f4d34f3d 100644 --- a/lapack-netlib/SRC/dlasyf_aa.c +++ b/lapack-netlib/SRC/dlasyf_aa.c @@ -659,7 +659,7 @@ aa.f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dlasyf_aa_(char *uplo, integer *j1, integer *m, integer +/* Subroutine */ void dlasyf_aa_(char *uplo, integer *j1, integer *m, integer *nb, doublereal *a, integer *lda, integer *ipiv, doublereal *h__, integer *ldh, doublereal *work) { @@ -669,10 +669,10 @@ aa.f"> */ /* Local variables */ integer j, k; doublereal alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer @@ -681,7 +681,7 @@ aa.f"> */ integer *); integer i1, k1, i2, mj; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal piv; @@ -1045,7 +1045,7 @@ L30: L40: ; } - return 0; + return; /* End of DLASYF_AA */ diff --git a/lapack-netlib/SRC/dlasyf_rk.c b/lapack-netlib/SRC/dlasyf_rk.c index 8a8682f47..c38bc9431 100644 --- a/lapack-netlib/SRC/dlasyf_rk.c +++ b/lapack-netlib/SRC/dlasyf_rk.c @@ -777,7 +777,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dlasyf_rk_(char *uplo, integer *n, integer *nb, integer +/* Subroutine */ void dlasyf_rk_(char *uplo, integer *n, integer *nb, integer *kb, doublereal *a, integer *lda, doublereal *e, integer *ipiv, doublereal *w, integer *ldw, integer *info) { @@ -789,17 +789,17 @@ rk.f"> */ logical done; integer imax, jmax, j, k, p; doublereal t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal dtemp, sfmin; integer itemp; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; @@ -1585,7 +1585,7 @@ L90: } - return 0; + return; /* End of DLASYF_RK */ diff --git a/lapack-netlib/SRC/dlasyf_rook.c b/lapack-netlib/SRC/dlasyf_rook.c index 65e77e371..172e0a7b4 100644 --- a/lapack-netlib/SRC/dlasyf_rook.c +++ b/lapack-netlib/SRC/dlasyf_rook.c @@ -699,7 +699,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dlasyf_rook_(char *uplo, integer *n, integer *nb, +/* Subroutine */ void dlasyf_rook_(char *uplo, integer *n, integer *nb, integer *kb, doublereal *a, integer *lda, integer *ipiv, doublereal * w, integer *ldw, integer *info) { @@ -711,17 +711,17 @@ rook.f"> */ logical done; integer imax, jmax, j, k, p; doublereal t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal dtemp, sfmin; integer itemp; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; @@ -1520,7 +1520,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of DLASYF_ROOK */ diff --git a/lapack-netlib/SRC/dlat2s.c b/lapack-netlib/SRC/dlat2s.c index 633724754..27fe21280 100644 --- a/lapack-netlib/SRC/dlat2s.c +++ b/lapack-netlib/SRC/dlat2s.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlat2s_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dlat2s_(char *uplo, integer *n, doublereal *a, integer * lda, real *sa, integer *ldsa, integer *info) { /* System generated locals */ @@ -688,7 +688,7 @@ f"> */ } L50: - return 0; + return; /* End of DLAT2S */ diff --git a/lapack-netlib/SRC/dlatbs.c b/lapack-netlib/SRC/dlatbs.c index a8ebed6df..98e64489f 100644 --- a/lapack-netlib/SRC/dlatbs.c +++ b/lapack-netlib/SRC/dlatbs.c @@ -755,7 +755,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void dlatbs_(char *uplo, char *trans, char *diag, char * normin, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *x, doublereal *scale, doublereal *cnorm, integer *info) { @@ -771,14 +771,14 @@ f"> */ integer imax; doublereal tmax, tjjs, xmax, grow, sumj; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer maind; extern logical lsame_(char *, char *); doublereal tscal, uscal; extern doublereal dasum_(integer *, doublereal *, integer *); integer jlast; - extern /* Subroutine */ int dtbsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtbsv_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; @@ -838,13 +838,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLATBS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1414,7 +1414,7 @@ L150: dscal_(n, &d__1, &cnorm[1], &c__1); } - return 0; + return; /* End of DLATBS */ diff --git a/lapack-netlib/SRC/dlatdf.c b/lapack-netlib/SRC/dlatdf.c index f1c5901fd..ef0d5c9eb 100644 --- a/lapack-netlib/SRC/dlatdf.c +++ b/lapack-netlib/SRC/dlatdf.c @@ -687,7 +687,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__, +/* Subroutine */ void dlatdf_(integer *ijob, integer *n, doublereal *z__, integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, integer *ipiv, integer *jpiv) { @@ -701,25 +701,26 @@ f"> */ integer info; doublereal temp, work[32]; integer i__, j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern doublereal dasum_(integer *, doublereal *, integer *); doublereal pmone; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal sminu; integer iwork[8]; doublereal splus; - extern /* Subroutine */ int dgesc2_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dgesc2_(integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *); doublereal bm, bp; - extern /* Subroutine */ int dgecon_(char *, integer *, doublereal *, + extern /* Subroutine */ void dgecon_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); doublereal xm[8], xp[8]; - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, - doublereal *, doublereal *), dlaswp_(integer *, doublereal *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, + doublereal *, doublereal *); + extern int dlaswp_(integer *, doublereal *, integer *, integer *, integer *, integer *, integer *); @@ -861,7 +862,7 @@ f"> */ } - return 0; + return; /* End of DLATDF */ diff --git a/lapack-netlib/SRC/dlatps.c b/lapack-netlib/SRC/dlatps.c index 34bf5e823..95446856a 100644 --- a/lapack-netlib/SRC/dlatps.c +++ b/lapack-netlib/SRC/dlatps.c @@ -742,7 +742,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void dlatps_(char *uplo, char *trans, char *diag, char * normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale, doublereal *cnorm, integer *info) { @@ -758,16 +758,16 @@ f"> */ integer imax; doublereal tmax, tjjs, xmax, grow, sumj; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal tscal, uscal; extern doublereal dasum_(integer *, doublereal *, integer *); integer jlast; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dtpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpsv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); extern doublereal dlamch_(char *); integer ip; @@ -820,13 +820,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLATPS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1383,7 +1383,7 @@ L150: dscal_(n, &d__1, &cnorm[1], &c__1); } - return 0; + return; /* End of DLATPS */ diff --git a/lapack-netlib/SRC/dlatrd.c b/lapack-netlib/SRC/dlatrd.c index 9af43ac54..d1bf854d2 100644 --- a/lapack-netlib/SRC/dlatrd.c +++ b/lapack-netlib/SRC/dlatrd.c @@ -715,7 +715,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal * +/* Subroutine */ void dlatrd_(char *uplo, integer *n, integer *nb, doublereal * a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, integer *ldw) { @@ -727,10 +727,10 @@ f"> */ integer *); integer i__; doublereal alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), @@ -763,7 +763,7 @@ f"> */ /* Function Body */ if (*n <= 0) { - return 0; + return; } if (lsame_(uplo, "U")) { @@ -909,7 +909,7 @@ f"> */ } } - return 0; + return; /* End of DLATRD */ diff --git a/lapack-netlib/SRC/dlatrs.c b/lapack-netlib/SRC/dlatrs.c index c5d0ea9fc..13adcdfed 100644 --- a/lapack-netlib/SRC/dlatrs.c +++ b/lapack-netlib/SRC/dlatrs.c @@ -752,7 +752,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void dlatrs_(char *uplo, char *trans, char *diag, char * normin, integer *n, doublereal *a, integer *lda, doublereal *x, doublereal *scale, doublereal *cnorm, integer *info) { @@ -768,16 +768,16 @@ f"> */ integer imax; doublereal tmax, tjjs, xmax, grow, sumj; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal tscal, uscal; extern doublereal dasum_(integer *, doublereal *, integer *); integer jlast; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dtrsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrsv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamch_(char *); doublereal xj; @@ -833,13 +833,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLATRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1377,7 +1377,7 @@ L150: dscal_(n, &d__1, &cnorm[1], &c__1); } - return 0; + return; /* End of DLATRS */ diff --git a/lapack-netlib/SRC/dlatrs3.c b/lapack-netlib/SRC/dlatrs3.c index 46eca6379..4de1f53c3 100644 --- a/lapack-netlib/SRC/dlatrs3.c +++ b/lapack-netlib/SRC/dlatrs3.c @@ -743,7 +743,7 @@ static doublereal c_b36 = 1.; /* Angelika Schwarz, Umea University, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int dlatrs3_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void dlatrs3_(char *uplo, char *trans, char *diag, char * normin, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *x, integer *ldx, doublereal *scale, doublereal *cnorm, doublereal *work, integer *lwork, integer *info) @@ -759,10 +759,10 @@ static doublereal c_b36 = 1.; integer awrk; doublereal tmax, xnrm[32]; integer i__, j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal w[64]; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); @@ -775,11 +775,11 @@ static doublereal c_b36 = 1.; integer lscale; doublereal scaloc, scamin; extern doublereal dlarmm_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen ); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; - extern /* Subroutine */ int dlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatrs_(char *, char *, char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); integer ifirst; @@ -871,10 +871,10 @@ static doublereal c_b36 = 1.; } if (*info != 0) { i__1 = -(*info); - xerbla_("DLATRS3", &i__1); - return 0; + xerbla_("DLATRS3", &i__1, 7); + return; } else if (lquery) { - return 0; + return; } /* Initialize scaling factors */ @@ -887,7 +887,7 @@ static doublereal c_b36 = 1.; /* Quick return if possible */ if (f2cmin(*n,*nrhs) == 0) { - return 0; + return; } /* Determine machine dependent constant to control overflow. */ @@ -905,7 +905,7 @@ static doublereal c_b36 = 1.; dlatrs_(uplo, trans, diag, "Y", n, &a[a_offset], lda, &x[k * x_dim1 + 1], &scale[k], &cnorm[1], info); } - return 0; + return; } /* Compute norms of blocks of A excluding diagonal blocks and find */ @@ -965,7 +965,7 @@ static doublereal c_b36 = 1.; dlatrs_(uplo, trans, diag, "N", n, &a[a_offset], lda, &x[k * x_dim1 + 1], &scale[k], &cnorm[1], info); } - return 0; + return; } /* Every right-hand side requires workspace to store NBA local scale */ @@ -1257,7 +1257,7 @@ static doublereal c_b36 = 1.; } } } - return 0; + return; /* End of DLATRS3 */ diff --git a/lapack-netlib/SRC/dlatrz.c b/lapack-netlib/SRC/dlatrz.c index c9c903245..496021ba1 100644 --- a/lapack-netlib/SRC/dlatrz.c +++ b/lapack-netlib/SRC/dlatrz.c @@ -649,7 +649,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal * +/* Subroutine */ void dlatrz_(integer *m, integer *n, integer *l, doublereal * a, integer *lda, doublereal *tau, doublereal *work) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int dlarz_(char *, integer *, integer *, integer * + extern /* Subroutine */ void dlarz_(char *, integer *, integer *, integer * , doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *), dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); @@ -685,14 +685,14 @@ f"> */ /* Function Body */ if (*m == 0) { - return 0; + return; } else if (*m == *n) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { tau[i__] = 0.; /* L10: */ } - return 0; + return; } for (i__ = *m; i__ >= 1; --i__) { @@ -714,7 +714,7 @@ f"> */ /* L20: */ } - return 0; + return; /* End of DLATRZ */ diff --git a/lapack-netlib/SRC/dlatsqr.c b/lapack-netlib/SRC/dlatsqr.c index 158974214..52ab4b6ec 100644 --- a/lapack-netlib/SRC/dlatsqr.c +++ b/lapack-netlib/SRC/dlatsqr.c @@ -673,7 +673,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dlatsqr_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void dlatsqr_(integer *m, integer *n, integer *mb, integer * nb, doublereal *a, integer *lda, doublereal *t, integer *ldt, doublereal *work, integer *lwork, integer *info) { @@ -682,7 +682,8 @@ static integer c__0 = 0; /* Local variables */ integer i__, ii, kk; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dgeqrt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dgeqrt_( integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dtpqrt_( integer *, integer *, integer *, integer *, doublereal *, integer @@ -738,15 +739,15 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("DLATSQR", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The QR Decomposition */ @@ -754,7 +755,7 @@ static integer c__0 = 0; if (*mb <= *n || *mb >= *m) { dgeqrt_(m, n, nb, &a[a_offset], lda, &t[t_offset], ldt, &work[1], info); - return 0; + return; } kk = (*m - *n) % (*mb - *n); @@ -786,7 +787,7 @@ static integer c__0 = 0; } work[1] = (doublereal) (*n * *nb); - return 0; + return; /* End of DLATSQR */ diff --git a/lapack-netlib/SRC/dlauu2.c b/lapack-netlib/SRC/dlauu2.c index ff83d379a..a688bac1d 100644 --- a/lapack-netlib/SRC/dlauu2.c +++ b/lapack-netlib/SRC/dlauu2.c @@ -617,7 +617,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dlauu2_(char *uplo, integer *n, doublereal *a, integer * lda, integer *info) { /* System generated locals */ @@ -627,10 +627,10 @@ f"> */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); integer i__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical upper; @@ -667,13 +667,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAUU2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -721,7 +721,7 @@ f"> */ } } - return 0; + return; /* End of DLAUU2 */ diff --git a/lapack-netlib/SRC/dlauum.c b/lapack-netlib/SRC/dlauum.c index cc1af80e1..e94f929ff 100644 --- a/lapack-netlib/SRC/dlauum.c +++ b/lapack-netlib/SRC/dlauum.c @@ -618,7 +618,7 @@ f"> */ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dlauum_(char *uplo, integer *n, doublereal *a, integer * lda, integer *info) { /* System generated locals */ @@ -626,15 +626,15 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyrk_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *), dlauu2_(char *, integer *, doublereal *, integer *, integer *); @@ -673,13 +673,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DLAUUM", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -757,7 +757,7 @@ f"> */ } } - return 0; + return; /* End of DLAUUM */ diff --git a/lapack-netlib/SRC/dopgtr.c b/lapack-netlib/SRC/dopgtr.c index c95dfcd99..e59efa17d 100644 --- a/lapack-netlib/SRC/dopgtr.c +++ b/lapack-netlib/SRC/dopgtr.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap, +/* Subroutine */ void dopgtr_(char *uplo, integer *n, doublereal *ap, doublereal *tau, doublereal *q, integer *ldq, doublereal *work, integer *info) { @@ -635,7 +635,7 @@ f"> */ extern logical lsame_(char *, char *); integer iinfo; logical upper; - extern /* Subroutine */ int dorg2l_(integer *, integer *, integer *, + extern /* Subroutine */ void dorg2l_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dorg2r_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); @@ -675,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DOPGTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -758,7 +758,7 @@ f"> */ &work[1], &iinfo); } } - return 0; + return; /* End of DOPGTR */ diff --git a/lapack-netlib/SRC/dopmtr.c b/lapack-netlib/SRC/dopmtr.c index 65df69df0..3497632f8 100644 --- a/lapack-netlib/SRC/dopmtr.c +++ b/lapack-netlib/SRC/dopmtr.c @@ -662,7 +662,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m, +/* Subroutine */ void dopmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *info) { @@ -672,7 +672,7 @@ f"> */ /* Local variables */ logical left; integer i__; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); extern logical lsame_(char *, char *); @@ -732,13 +732,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DOPMTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (upper) { @@ -854,7 +854,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of DOPMTR */ diff --git a/lapack-netlib/SRC/dorbdb.c b/lapack-netlib/SRC/dorbdb.c index fc84ad7d5..b59b35b4f 100644 --- a/lapack-netlib/SRC/dorbdb.c +++ b/lapack-netlib/SRC/dorbdb.c @@ -798,7 +798,7 @@ f"> */ /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dorbdb_(char *trans, char *signs, integer *m, integer *p, +/* Subroutine */ void dorbdb_(char *trans, char *signs, integer *m, integer *p, integer *q, doublereal *x11, integer *ldx11, doublereal *x12, integer *ldx12, doublereal *x21, integer *ldx21, doublereal *x22, integer *ldx22, doublereal *theta, doublereal *phi, doublereal *taup1, @@ -815,16 +815,16 @@ f"> */ integer lworkmin; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer lworkopt, i__; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal z1, z2, z3, z4; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int dlarfgp_(integer *, doublereal *, doublereal * + extern /* Subroutine */ void dlarfgp_(integer *, doublereal *, doublereal * , integer *, doublereal *); @@ -929,9 +929,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("xORBDB", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Handle column-major and row-major separately */ @@ -1386,7 +1386,7 @@ f"> */ } - return 0; + return; /* End of DORBDB */ diff --git a/lapack-netlib/SRC/dorbdb1.c b/lapack-netlib/SRC/dorbdb1.c index 07b91220e..dbca828da 100644 --- a/lapack-netlib/SRC/dorbdb1.c +++ b/lapack-netlib/SRC/dorbdb1.c @@ -715,7 +715,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dorbdb1_(integer *m, integer *p, integer *q, doublereal * +/* Subroutine */ void dorbdb1_(integer *m, integer *p, integer *q, doublereal * x11, integer *ldx11, doublereal *x21, integer *ldx21, doublereal * theta, doublereal *phi, doublereal *taup1, doublereal *taup2, doublereal *tauq1, doublereal *work, integer *lwork, integer *info) @@ -726,7 +726,7 @@ static integer c__1 = 1; doublereal d__1, d__2; /* Local variables */ - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer lworkmin; extern doublereal dnrm2_(integer *, doublereal *, integer *); @@ -734,18 +734,18 @@ static integer c__1 = 1; doublereal c__; integer i__; doublereal s; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer ilarf, llarf, childinfo; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int dorbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void dorbdb5_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer iorbdb5, lorbdb5; - extern /* Subroutine */ int dlarfgp_(integer *, doublereal *, doublereal * + extern /* Subroutine */ void dlarfgp_(integer *, doublereal *, doublereal * , integer *, doublereal *); @@ -816,9 +816,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DORBDB1", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce columns 1, ..., Q of X11 and X21 */ @@ -886,7 +886,7 @@ static integer c__1 = 1; } - return 0; + return; /* End of DORBDB1 */ diff --git a/lapack-netlib/SRC/dorbdb2.c b/lapack-netlib/SRC/dorbdb2.c index 6c1a7d0c0..3ebea93b2 100644 --- a/lapack-netlib/SRC/dorbdb2.c +++ b/lapack-netlib/SRC/dorbdb2.c @@ -715,7 +715,7 @@ static doublereal c_b9 = -1.; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dorbdb2_(integer *m, integer *p, integer *q, doublereal * +/* Subroutine */ void dorbdb2_(integer *m, integer *p, integer *q, doublereal * x11, integer *ldx11, doublereal *x21, integer *ldx21, doublereal * theta, doublereal *phi, doublereal *taup1, doublereal *taup2, doublereal *tauq1, doublereal *work, integer *lwork, integer *info) @@ -726,7 +726,7 @@ static doublereal c_b9 = -1.; doublereal d__1, d__2; /* Local variables */ - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer lworkmin; extern doublereal dnrm2_(integer *, doublereal *, integer *); @@ -734,18 +734,18 @@ static doublereal c_b9 = -1.; doublereal c__; integer i__; doublereal s; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer ilarf, llarf, childinfo; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int dorbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void dorbdb5_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer iorbdb5, lorbdb5; - extern /* Subroutine */ int dlarfgp_(integer *, doublereal *, doublereal * + extern /* Subroutine */ void dlarfgp_(integer *, doublereal *, doublereal * , integer *, doublereal *); @@ -815,9 +815,9 @@ static doublereal c_b9 = -1.; if (*info != 0) { i__1 = -(*info); xerbla_("DORBDB2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce rows 1, ..., P of X11 and X21 */ @@ -901,7 +901,7 @@ static doublereal c_b9 = -1.; i__], &x21[i__ + (i__ + 1) * x21_dim1], ldx21, &work[ilarf]); } - return 0; + return; /* End of DORBDB2 */ diff --git a/lapack-netlib/SRC/dorbdb3.c b/lapack-netlib/SRC/dorbdb3.c index 84629c651..a22ac718f 100644 --- a/lapack-netlib/SRC/dorbdb3.c +++ b/lapack-netlib/SRC/dorbdb3.c @@ -713,7 +713,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dorbdb3_(integer *m, integer *p, integer *q, doublereal * +/* Subroutine */ void dorbdb3_(integer *m, integer *p, integer *q, doublereal * x11, integer *ldx11, doublereal *x21, integer *ldx21, doublereal * theta, doublereal *phi, doublereal *taup1, doublereal *taup2, doublereal *tauq1, doublereal *work, integer *lwork, integer *info) @@ -724,7 +724,7 @@ static integer c__1 = 1; doublereal d__1, d__2; /* Local variables */ - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer lworkmin; extern doublereal dnrm2_(integer *, doublereal *, integer *); @@ -732,18 +732,18 @@ static integer c__1 = 1; doublereal c__; integer i__; doublereal s; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer ilarf, llarf, childinfo; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int dorbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void dorbdb5_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer iorbdb5, lorbdb5; - extern /* Subroutine */ int dlarfgp_(integer *, doublereal *, doublereal * + extern /* Subroutine */ void dlarfgp_(integer *, doublereal *, doublereal * , integer *, doublereal *); @@ -813,9 +813,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DORBDB3", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce rows 1, ..., M-P of X11 and X21 */ @@ -898,7 +898,7 @@ static integer c__1 = 1; i__], &x11[i__ + (i__ + 1) * x11_dim1], ldx11, &work[ilarf]); } - return 0; + return; /* End of DORBDB3 */ diff --git a/lapack-netlib/SRC/dorbdb4.c b/lapack-netlib/SRC/dorbdb4.c index 743a020bb..d53ff709c 100644 --- a/lapack-netlib/SRC/dorbdb4.c +++ b/lapack-netlib/SRC/dorbdb4.c @@ -725,7 +725,7 @@ static doublereal c_b5 = -1.; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dorbdb4_(integer *m, integer *p, integer *q, doublereal * +/* Subroutine */ void dorbdb4_(integer *m, integer *p, integer *q, doublereal * x11, integer *ldx11, doublereal *x21, integer *ldx21, doublereal * theta, doublereal *phi, doublereal *taup1, doublereal *taup2, doublereal *tauq1, doublereal *phantom, doublereal *work, integer * @@ -737,7 +737,7 @@ static doublereal c_b5 = -1.; doublereal d__1, d__2; /* Local variables */ - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer lworkmin; extern doublereal dnrm2_(integer *, doublereal *, integer *); @@ -745,18 +745,18 @@ static doublereal c_b5 = -1.; doublereal c__; integer i__, j; doublereal s; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer ilarf, llarf, childinfo; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int dorbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void dorbdb5_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer iorbdb5, lorbdb5; - extern /* Subroutine */ int dlarfgp_(integer *, doublereal *, doublereal * + extern /* Subroutine */ void dlarfgp_(integer *, doublereal *, doublereal * , integer *, doublereal *); @@ -829,9 +829,9 @@ static doublereal c_b5 = -1.; if (*info != 0) { i__1 = -(*info); xerbla_("DORBDB4", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce columns 1, ..., M-Q of X11 and X21 */ @@ -960,7 +960,7 @@ static doublereal c_b5 = -1.; x21_dim1], ldx21, &work[ilarf]); } - return 0; + return; /* End of DORBDB4 */ diff --git a/lapack-netlib/SRC/dorbdb5.c b/lapack-netlib/SRC/dorbdb5.c index ae2b26bd8..891153fcc 100644 --- a/lapack-netlib/SRC/dorbdb5.c +++ b/lapack-netlib/SRC/dorbdb5.c @@ -664,7 +664,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorbdb5_(integer *m1, integer *m2, integer *n, +/* Subroutine */ void dorbdb5_(integer *m1, integer *m2, integer *n, doublereal *x1, integer *incx1, doublereal *x2, integer *incx2, doublereal *q1, integer *ldq1, doublereal *q2, integer *ldq2, doublereal *work, integer *lwork, integer *info) @@ -675,7 +675,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j, childinfo; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dorbdb6_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dorbdb6_( integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -726,7 +727,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DORBDB5", &i__1, (ftnlen)7); - return 0; + return; } /* Project X onto the orthogonal complement of Q */ @@ -737,7 +738,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* If the projection is nonzero, then return */ if (dnrm2_(m1, &x1[1], incx1) != 0. || dnrm2_(m2, &x2[1], incx2) != 0.) { - return 0; + return; } /* Project each standard basis vector e_1,...,e_M1 in turn, stopping */ @@ -758,7 +759,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ ldq1, &q2[q2_offset], ldq2, &work[1], lwork, &childinfo); if (dnrm2_(m1, &x1[1], incx1) != 0. || dnrm2_(m2, &x2[1], incx2) != 0.) { - return 0; + return; } } @@ -780,11 +781,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ ldq1, &q2[q2_offset], ldq2, &work[1], lwork, &childinfo); if (dnrm2_(m1, &x1[1], incx1) != 0. || dnrm2_(m2, &x2[1], incx2) != 0.) { - return 0; + return; } } - return 0; + return; /* End of DORBDB5 */ diff --git a/lapack-netlib/SRC/dorbdb6.c b/lapack-netlib/SRC/dorbdb6.c index a7ac674ba..70f1b4638 100644 --- a/lapack-netlib/SRC/dorbdb6.c +++ b/lapack-netlib/SRC/dorbdb6.c @@ -669,7 +669,7 @@ static doublereal c_b12 = -1.; /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorbdb6_(integer *m1, integer *m2, integer *n, +/* Subroutine */ void dorbdb6_(integer *m1, integer *m2, integer *n, doublereal *x1, integer *incx1, doublereal *x2, integer *incx2, doublereal *q1, integer *ldq1, doublereal *q2, integer *ldq2, doublereal *work, integer *lwork, integer *info) @@ -680,10 +680,11 @@ static doublereal c_b12 = -1.; /* Local variables */ integer i__; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, - doublereal *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen), dlassq_(integer *, doublereal *, integer *, + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal normsq1, normsq2, scl1, scl2, ssq1, ssq2; @@ -733,7 +734,7 @@ static doublereal c_b12 = -1.; if (*info != 0) { i__1 = -(*info); xerbla_("DORBDB6", &i__1, (ftnlen)7); - return 0; + return; } /* First, project X onto the orthogonal complement of Q's column */ @@ -786,11 +787,11 @@ static doublereal c_b12 = -1.; /* Otherwise, project again. */ if (normsq2 >= normsq1 * .01) { - return 0; + return; } if (normsq2 == 0.) { - return 0; + return; } normsq1 = normsq2; @@ -845,7 +846,7 @@ static doublereal c_b12 = -1.; } } - return 0; + return; /* End of DORBDB6 */ diff --git a/lapack-netlib/SRC/dorcsd.c b/lapack-netlib/SRC/dorcsd.c index 49c1e9602..a25001fb1 100644 --- a/lapack-netlib/SRC/dorcsd.c +++ b/lapack-netlib/SRC/dorcsd.c @@ -810,7 +810,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorcsd_(char *jobu1, char *jobu2, char *jobv1t, char * +/* Subroutine */ void dorcsd_(char *jobu1, char *jobu2, char *jobv1t, char * jobv2t, char *trans, char *signs, integer *m, integer *p, integer *q, doublereal *x11, integer *ldx11, doublereal *x12, integer *ldx12, doublereal *x21, integer *ldx21, doublereal *x22, integer *ldx22, @@ -835,30 +835,31 @@ f"> */ integer childinfo, lbbcsdworkmin, itaup1, itaup2, itauq1, itauq2, lorbdbworkmin, lbbcsdworkopt; logical wantu1, wantu2; - extern /* Subroutine */ int dbbcsd_(char *, char *, char *, char *, char * + extern /* Subroutine */ void dbbcsd_(char *, char *, char *, char *, char * , integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); integer ibbcsd, lorbdbworkopt; - extern /* Subroutine */ int dorbdb_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dorbdb_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); integer iorbdb, lorglqworkmin, lorgqrworkmin; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dlapmr_(logical *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlapmr_(logical *, integer *, integer *, doublereal *, integer *, integer *), dlapmt_(logical *, integer *, integer *, doublereal *, integer *, integer *); integer lorglqworkopt; - extern /* Subroutine */ int dorglq_(integer *, integer *, integer *, + extern /* Subroutine */ void dorglq_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer lorgqrworkopt, iorglq; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer iorgqr; @@ -988,7 +989,7 @@ f"> */ ldx12, &x22[x22_offset], ldx22, &theta[1], &v1t[v1t_offset], ldv1t, &v2t[v2t_offset], ldv2t, &u1[u1_offset], ldu1, &u2[ u2_offset], ldu2, &work[1], lwork, &iwork[1], info); - return 0; + return; } /* Work with permutation [ 0 I; I 0 ] * X * [ 0 I; I 0 ] if */ @@ -1008,7 +1009,7 @@ f"> */ u2_offset], ldu2, &u1[u1_offset], ldu1, &v2t[v2t_offset], ldv2t, &v1t[v1t_offset], ldv1t, &work[1], lwork, &iwork[1], info); - return 0; + return; } /* Compute workspace */ @@ -1118,9 +1119,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORCSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Transform to bidiagonal block form */ @@ -1284,7 +1285,7 @@ f"> */ } } - return 0; + return; /* End DORCSD */ diff --git a/lapack-netlib/SRC/dorcsd2by1.c b/lapack-netlib/SRC/dorcsd2by1.c index eb3e3a9e4..fc44e083b 100644 --- a/lapack-netlib/SRC/dorcsd2by1.c +++ b/lapack-netlib/SRC/dorcsd2by1.c @@ -746,7 +746,7 @@ by1.f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorcsd2by1_(char *jobu1, char *jobu2, char *jobv1t, +/* Subroutine */ void dorcsd2by1_(char *jobu1, char *jobu2, char *jobv1t, integer *m, integer *p, integer *q, doublereal *x11, integer *ldx11, doublereal *x21, integer *ldx21, doublereal *theta, doublereal *u1, integer *ldu1, doublereal *u2, integer *ldu2, doublereal *v1t, @@ -762,31 +762,32 @@ by1.f"> */ lworkmin, lworkopt, i__, j, r__; extern logical lsame_(char *, char *); integer childinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer lorglqmin, lorgqrmin, lorglqopt, itaup1, itaup2, itauq1, lorgqropt; logical wantu1, wantu2; - extern /* Subroutine */ int dbbcsd_(char *, char *, char *, char *, char * + extern /* Subroutine */ void dbbcsd_(char *, char *, char *, char *, char * , integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); integer ibbcsd, lbbcsd, iorbdb, lorbdb; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dlapmr_(logical *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlapmr_(logical *, integer *, integer *, doublereal *, integer *, integer *), dlapmt_(logical *, integer *, integer *, doublereal *, integer *, integer *), dorglq_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer iorglq; - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer lorglq, iorgqr, lorgqr; - extern /* Subroutine */ int dorbdb1_(integer *, integer *, integer *, + extern /* Subroutine */ void dorbdb1_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *), dorbdb2_(integer *, integer * @@ -1115,9 +1116,9 @@ by1.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORCSD2BY1", &i__1, (ftnlen)10); - return 0; + return; } else if (lquery) { - return 0; + return; } lorgqr = *lwork - iorgqr + 1; lorglq = *lwork - iorglq + 1; @@ -1427,7 +1428,7 @@ by1.f"> */ } } - return 0; + return; /* End of DORCSD2BY1 */ diff --git a/lapack-netlib/SRC/dorg2l.c b/lapack-netlib/SRC/dorg2l.c index 65699489c..d10fb0023 100644 --- a/lapack-netlib/SRC/dorg2l.c +++ b/lapack-netlib/SRC/dorg2l.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal * +/* Subroutine */ void dorg2l_(integer *m, integer *n, integer *k, doublereal * a, integer *lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -637,7 +637,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer ii; @@ -676,13 +676,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORG2L", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Initialise columns 1:n-k to columns of the unit matrix */ @@ -723,7 +723,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of DORG2L */ diff --git a/lapack-netlib/SRC/dorg2r.c b/lapack-netlib/SRC/dorg2r.c index 79ca4fb83..af2e98452 100644 --- a/lapack-netlib/SRC/dorg2r.c +++ b/lapack-netlib/SRC/dorg2r.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal * +/* Subroutine */ void dorg2r_(integer *m, integer *n, integer *k, doublereal * a, integer *lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -637,9 +637,10 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlarf_(char *, integer *, integer *, doublereal *, - integer *, doublereal *, doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + integer *, doublereal *, doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -674,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORG2R", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Initialise columns k+1:n to columns of the unit matrix */ @@ -723,7 +724,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of DORG2R */ diff --git a/lapack-netlib/SRC/dorgbr.c b/lapack-netlib/SRC/dorgbr.c index 54c3b2e9e..35697354b 100644 --- a/lapack-netlib/SRC/dorgbr.c +++ b/lapack-netlib/SRC/dorgbr.c @@ -670,7 +670,7 @@ f"> */ /* > \ingroup doubleGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k, +/* Subroutine */ void dorgbr_(char *vect, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -683,7 +683,8 @@ f"> */ integer iinfo; logical wantq; integer mn; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dorglq_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dorglq_( integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dorgqr_( integer *, integer *, integer *, doublereal *, integer *, @@ -766,17 +767,17 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGBR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { work[1] = (doublereal) lwkopt; - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1] = 1.; - return 0; + return; } if (wantq) { @@ -873,7 +874,7 @@ f"> */ } } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORGBR */ diff --git a/lapack-netlib/SRC/dorghr.c b/lapack-netlib/SRC/dorghr.c index 93b4f9cec..b95d45875 100644 --- a/lapack-netlib/SRC/dorghr.c +++ b/lapack-netlib/SRC/dorghr.c @@ -640,7 +640,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi, +/* Subroutine */ void dorghr_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -652,7 +652,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dorgqr_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer lwkopt; @@ -703,16 +703,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGHR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1] = 1.; - return 0; + return; } /* Shift the vectors which define the elementary reflectors one */ @@ -767,7 +767,7 @@ f"> */ ilo], &work[1], lwork, &iinfo); } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORGHR */ diff --git a/lapack-netlib/SRC/dorgl2.c b/lapack-netlib/SRC/dorgl2.c index 377727c47..6059146e6 100644 --- a/lapack-netlib/SRC/dorgl2.c +++ b/lapack-netlib/SRC/dorgl2.c @@ -622,7 +622,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal * +/* Subroutine */ void dorgl2_(integer *m, integer *n, integer *k, doublereal * a, integer *lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -631,9 +631,10 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlarf_(char *, integer *, integer *, doublereal *, - integer *, doublereal *, doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + integer *, doublereal *, doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -668,13 +669,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGL2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } if (*k < *m) { @@ -722,7 +723,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of DORGL2 */ diff --git a/lapack-netlib/SRC/dorglq.c b/lapack-netlib/SRC/dorglq.c index 8829a8e6c..09b943728 100644 --- a/lapack-netlib/SRC/dorglq.c +++ b/lapack-netlib/SRC/dorglq.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal * +/* Subroutine */ void dorglq_(integer *m, integer *n, integer *k, doublereal * a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -652,16 +652,17 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int dorgl2_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgl2_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ib, nb, ki, kk; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -707,16 +708,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { work[1] = 1.; - return 0; + return; } nbmin = 2; @@ -835,7 +836,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DORGLQ */ diff --git a/lapack-netlib/SRC/dorgql.c b/lapack-netlib/SRC/dorgql.c index 435fe5da0..374ee65a8 100644 --- a/lapack-netlib/SRC/dorgql.c +++ b/lapack-netlib/SRC/dorgql.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal * +/* Subroutine */ void dorgql_(integer *m, integer *n, integer *k, doublereal * a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -653,16 +653,17 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int dorg2l_(integer *, integer *, integer *, + extern /* Subroutine */ void dorg2l_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ib, nb, kk; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -719,15 +720,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGQL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } nbmin = 2; @@ -845,7 +846,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DORGQL */ diff --git a/lapack-netlib/SRC/dorgqr.c b/lapack-netlib/SRC/dorgqr.c index 5f8d68b75..518d410b3 100644 --- a/lapack-netlib/SRC/dorgqr.c +++ b/lapack-netlib/SRC/dorgqr.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal * +/* Subroutine */ void dorgqr_(integer *m, integer *n, integer *k, doublereal * a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -653,16 +653,17 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int dorg2r_(integer *, integer *, integer *, + extern /* Subroutine */ void dorg2r_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ib, nb, ki, kk; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -708,16 +709,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { work[1] = 1.; - return 0; + return; } nbmin = 2; @@ -836,7 +837,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DORGQR */ diff --git a/lapack-netlib/SRC/dorgr2.c b/lapack-netlib/SRC/dorgr2.c index ca626ff31..afc3fa7ba 100644 --- a/lapack-netlib/SRC/dorgr2.c +++ b/lapack-netlib/SRC/dorgr2.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal * +/* Subroutine */ void dorgr2_(integer *m, integer *n, integer *k, doublereal * a, integer *lda, doublereal *tau, doublereal *work, integer *info) { /* System generated locals */ @@ -633,7 +633,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer ii; @@ -672,13 +672,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGR2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } if (*k < *m) { @@ -724,7 +724,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of DORGR2 */ diff --git a/lapack-netlib/SRC/dorgrq.c b/lapack-netlib/SRC/dorgrq.c index 267f883aa..fa3a054b6 100644 --- a/lapack-netlib/SRC/dorgrq.c +++ b/lapack-netlib/SRC/dorgrq.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal * +/* Subroutine */ void dorgrq_(integer *m, integer *n, integer *k, doublereal * a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -653,16 +653,17 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int dorgr2_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgr2_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ib, nb, ii, kk; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nx; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -719,15 +720,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGRQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } nbmin = 2; @@ -845,7 +846,7 @@ f"> */ } work[1] = (doublereal) iws; - return 0; + return; /* End of DORGRQ */ diff --git a/lapack-netlib/SRC/dorgtr.c b/lapack-netlib/SRC/dorgtr.c index 65035cafe..d2cdcee02 100644 --- a/lapack-netlib/SRC/dorgtr.c +++ b/lapack-netlib/SRC/dorgtr.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dorgtr_(char *uplo, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -652,7 +652,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dorgql_(integer *, integer *, integer *, + extern /* Subroutine */ void dorgql_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dorgqr_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); @@ -719,16 +719,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGTR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1] = 1.; - return 0; + return; } if (upper) { @@ -799,7 +799,7 @@ f"> */ } } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORGTR */ diff --git a/lapack-netlib/SRC/dorgtsqr.c b/lapack-netlib/SRC/dorgtsqr.c index ab35ac4a9..e0d43d9f8 100644 --- a/lapack-netlib/SRC/dorgtsqr.c +++ b/lapack-netlib/SRC/dorgtsqr.c @@ -688,7 +688,7 @@ r.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dorgtsqr_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void dorgtsqr_(integer *m, integer *n, integer *mb, integer * nb, doublereal *a, integer *lda, doublereal *t, integer *ldt, doublereal *work, integer *lwork, integer *info) { @@ -696,17 +696,17 @@ r.f"> */ integer a_dim1, a_offset, t_dim1, t_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int dlamtsqr_(char *, char *, integer *, integer * + extern /* Subroutine */ void dlamtsqr_(char *, char *, integer *, integer * , integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer lworkopt, j, iinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer lc, lw; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; integer ldc, nblocal; @@ -786,17 +786,17 @@ r.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGTSQR", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { work[1] = (doublereal) lworkopt; - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { work[1] = (doublereal) lworkopt; - return 0; + return; } /* (1) Form explicitly the tall-skinny M-by-N left submatrix Q1_in */ @@ -830,7 +830,7 @@ r.f"> */ } work[1] = (doublereal) lworkopt; - return 0; + return; /* End of DORGTSQR */ diff --git a/lapack-netlib/SRC/dorgtsqr_row.c b/lapack-netlib/SRC/dorgtsqr_row.c index dfaee56c7..6bb13f718 100644 --- a/lapack-netlib/SRC/dorgtsqr_row.c +++ b/lapack-netlib/SRC/dorgtsqr_row.c @@ -701,7 +701,7 @@ r_row.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dorgtsqr_row_(integer *m, integer *n, integer *mb, +/* Subroutine */ void dorgtsqr_row_(integer *m, integer *n, integer *mb, integer *nb, doublereal *a, integer *lda, doublereal *t, integer *ldt, doublereal *work, integer *lwork, integer *info) { @@ -712,13 +712,13 @@ r_row.f"> */ integer jb_t__, itmp, lworkopt; doublereal dummy[1] /* was [1][1] */; integer ib_bottom__, ib, kb; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer mb1, mb2, m_plus_one__; logical lquery; integer num_all_row_blocks__, imb, knb, nblocal, kb_last__; - extern /* Subroutine */ int dlarfb_gett_(char *, integer *, integer *, + extern /* Subroutine */ void dlarfb_gett_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); @@ -780,17 +780,17 @@ r_row.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORGTSQR_ROW", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { work[1] = (doublereal) lworkopt; - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { work[1] = (doublereal) lworkopt; - return 0; + return; } /* (0) Set the upper-triangular part of the matrix A to zero and */ @@ -912,7 +912,7 @@ r_row.f"> */ } work[1] = (doublereal) lworkopt; - return 0; + return; /* End of DORGTSQR_ROW */ diff --git a/lapack-netlib/SRC/dorhr_col.c b/lapack-netlib/SRC/dorhr_col.c index 67ab4d40e..03f00b789 100644 --- a/lapack-netlib/SRC/dorhr_col.c +++ b/lapack-netlib/SRC/dorhr_col.c @@ -773,7 +773,7 @@ ol.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dorhr_col_(integer *m, integer *n, integer *nb, +/* Subroutine */ void dorhr_col_(integer *m, integer *n, integer *nb, doublereal *a, integer *lda, doublereal *t, integer *ldt, doublereal * d__, integer *info) { @@ -781,13 +781,13 @@ ol.f"> */ integer a_dim1, a_offset, t_dim1, t_offset, i__1, i__2, i__3, i__4; /* Local variables */ - extern /* Subroutine */ int dlaorhr_col_getrfnp_(integer *, integer *, + extern /* Subroutine */ void dlaorhr_col_getrfnp_(integer *, integer *, doublereal *, integer *, doublereal *, integer *); integer nplusone, i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer iinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); @@ -839,13 +839,13 @@ ol.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORHR_COL", &i__1, (ftnlen)9); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* On input, the M-by-N matrix A contains the orthogonal */ @@ -974,7 +974,7 @@ ol.f"> */ } - return 0; + return; /* End of DORHR_COL */ diff --git a/lapack-netlib/SRC/dorm22.c b/lapack-netlib/SRC/dorm22.c index af913ce7f..9f3b9bf32 100644 --- a/lapack-netlib/SRC/dorm22.c +++ b/lapack-netlib/SRC/dorm22.c @@ -675,7 +675,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorm22_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dorm22_(char *side, char *trans, integer *m, integer *n, integer *n1, integer *n2, doublereal *q, integer *ldq, doublereal * c__, integer *ldc, doublereal *work, integer *lwork, integer *info) { @@ -685,17 +685,17 @@ f"> */ /* Local variables */ logical left; integer i__; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer nb, nq, nw; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork, lwkopt; logical lquery; @@ -771,16 +771,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORM22", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1] = 1.; - return 0; + return; } /* Degenerate cases (N1 = 0 or N2 = 0) are handled using DTRMM. */ @@ -789,12 +789,12 @@ f"> */ dtrmm_(side, "Upper", trans, "Non-Unit", m, n, &c_b10, &q[q_offset], ldq, &c__[c_offset], ldc); work[1] = 1.; - return 0; + return; } else if (*n2 == 0) { dtrmm_(side, "Lower", trans, "Non-Unit", m, n, &c_b10, &q[q_offset], ldq, &c__[c_offset], ldc); work[1] = 1.; - return 0; + return; } /* Compute the largest chunk size available from the workspace. */ @@ -979,7 +979,7 @@ f"> */ } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORM22 */ diff --git a/lapack-netlib/SRC/dorm2l.c b/lapack-netlib/SRC/dorm2l.c index 51df94f32..9d62a36d5 100644 --- a/lapack-netlib/SRC/dorm2l.c +++ b/lapack-netlib/SRC/dorm2l.c @@ -672,7 +672,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dorm2l_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *info) { @@ -682,7 +682,7 @@ f"> */ /* Local variables */ logical left; integer i__; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); extern logical lsame_(char *, char *); @@ -743,13 +743,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORM2L", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran || ! left && ! notran) { @@ -792,7 +792,7 @@ f"> */ a[nq - *k + i__ + i__ * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of DORM2L */ diff --git a/lapack-netlib/SRC/dorm2r.c b/lapack-netlib/SRC/dorm2r.c index d3f67f1f8..7ad7af7df 100644 --- a/lapack-netlib/SRC/dorm2r.c +++ b/lapack-netlib/SRC/dorm2r.c @@ -672,7 +672,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dorm2r_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *info) { @@ -682,7 +682,7 @@ f"> */ /* Local variables */ logical left; integer i__; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); extern logical lsame_(char *, char *); @@ -743,13 +743,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORM2R", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -796,7 +796,7 @@ f"> */ a[i__ + i__ * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of DORM2R */ diff --git a/lapack-netlib/SRC/dormbr.c b/lapack-netlib/SRC/dormbr.c index 1dc15e573..ba3a607da 100644 --- a/lapack-netlib/SRC/dormbr.c +++ b/lapack-netlib/SRC/dormbr.c @@ -709,7 +709,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m, +/* Subroutine */ void dormbr_(char *vect, char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info) @@ -726,11 +726,11 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormlq_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); logical notran; - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); logical applyq; @@ -849,16 +849,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORMBR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ work[1] = 1.; if (*m == 0 || *n == 0) { - return 0; + return; } if (applyq) { @@ -927,7 +927,7 @@ f"> */ } } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORMBR */ diff --git a/lapack-netlib/SRC/dormhr.c b/lapack-netlib/SRC/dormhr.c index 3ee75ebef..25f949cb9 100644 --- a/lapack-netlib/SRC/dormhr.c +++ b/lapack-netlib/SRC/dormhr.c @@ -692,7 +692,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dormhr_(char *side, char *trans, integer *m, integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal * tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info) @@ -709,7 +709,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormqr_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer lwkopt; @@ -796,16 +796,16 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("DORMHR", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || nh == 0) { work[1] = 1.; - return 0; + return; } if (left) { @@ -824,7 +824,7 @@ f"> */ tau[*ilo], &c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo); work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORMHR */ diff --git a/lapack-netlib/SRC/dorml2.c b/lapack-netlib/SRC/dorml2.c index 7160eac6a..a9882d627 100644 --- a/lapack-netlib/SRC/dorml2.c +++ b/lapack-netlib/SRC/dorml2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dorml2_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *info) { @@ -678,7 +678,7 @@ f"> */ /* Local variables */ logical left; integer i__; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); extern logical lsame_(char *, char *); @@ -739,13 +739,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORML2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran || ! left && ! notran) { @@ -792,7 +792,7 @@ f"> */ a[i__ + i__ * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of DORML2 */ diff --git a/lapack-netlib/SRC/dormlq.c b/lapack-netlib/SRC/dormlq.c index 175860e48..ac319e054 100644 --- a/lapack-netlib/SRC/dormlq.c +++ b/lapack-netlib/SRC/dormlq.c @@ -682,7 +682,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dormlq_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *lwork, integer *info) { @@ -697,17 +697,18 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int dorml2_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dorml2_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer ib, ic, jc, nb, mi, ni; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nq, nw; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical notran; @@ -791,16 +792,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORMLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { work[1] = 1.; - return 0; + return; } nbmin = 2; @@ -890,7 +891,7 @@ f"> */ } } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORMLQ */ diff --git a/lapack-netlib/SRC/dormql.c b/lapack-netlib/SRC/dormql.c index 3ccc9681a..3d421e212 100644 --- a/lapack-netlib/SRC/dormql.c +++ b/lapack-netlib/SRC/dormql.c @@ -682,7 +682,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dormql_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *lwork, integer *info) { @@ -697,17 +697,18 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int dorm2l_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dorm2l_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer ib, nb, mi, ni; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nq, nw; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical notran; @@ -793,15 +794,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORMQL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } nbmin = 2; @@ -881,7 +882,7 @@ f"> */ } } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORMQL */ diff --git a/lapack-netlib/SRC/dormqr.c b/lapack-netlib/SRC/dormqr.c index 3278bd757..45281d776 100644 --- a/lapack-netlib/SRC/dormqr.c +++ b/lapack-netlib/SRC/dormqr.c @@ -682,7 +682,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dormqr_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *lwork, integer *info) { @@ -697,17 +697,18 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int dorm2r_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dorm2r_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer ib, ic, jc, nb, mi, ni; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nq, nw; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical notran; @@ -789,16 +790,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORMQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { work[1] = 1.; - return 0; + return; } nbmin = 2; @@ -882,7 +883,7 @@ f"> */ } } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORMQR */ diff --git a/lapack-netlib/SRC/dormr2.c b/lapack-netlib/SRC/dormr2.c index 65c1f5695..dbb930ac0 100644 --- a/lapack-netlib/SRC/dormr2.c +++ b/lapack-netlib/SRC/dormr2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dormr2_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *info) { @@ -678,7 +678,7 @@ f"> */ /* Local variables */ logical left; integer i__; - extern /* Subroutine */ int dlarf_(char *, integer *, integer *, + extern /* Subroutine */ void dlarf_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); extern logical lsame_(char *, char *); @@ -739,13 +739,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORMR2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -788,7 +788,7 @@ f"> */ a[i__ + (nq - *k + i__) * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of DORMR2 */ diff --git a/lapack-netlib/SRC/dormr3.c b/lapack-netlib/SRC/dormr3.c index 5a581e06e..ba19bfd26 100644 --- a/lapack-netlib/SRC/dormr3.c +++ b/lapack-netlib/SRC/dormr3.c @@ -687,7 +687,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dormr3_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *info) { @@ -698,7 +698,7 @@ f"> */ logical left; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dlarz_(char *, integer *, integer *, integer * + extern /* Subroutine */ void dlarz_(char *, integer *, integer *, integer * , doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer i1, i2, i3, ja, ic, jc, mi, ni, nq; @@ -759,13 +759,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORMR3", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -813,7 +813,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of DORMR3 */ diff --git a/lapack-netlib/SRC/dormrq.c b/lapack-netlib/SRC/dormrq.c index b399d9ce9..09f8dc535 100644 --- a/lapack-netlib/SRC/dormrq.c +++ b/lapack-netlib/SRC/dormrq.c @@ -682,7 +682,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dormrq_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *lwork, integer *info) { @@ -697,17 +697,18 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int dormr2_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormr2_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer ib, nb, mi, ni; - extern /* Subroutine */ int dlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nq, nw; - extern /* Subroutine */ int dlarft_(char *, char *, integer *, integer *, - doublereal *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarft_(char *, char *, integer *, integer *, + doublereal *, integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical notran; @@ -795,15 +796,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORMRQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } nbmin = 2; @@ -889,7 +890,7 @@ f"> */ } } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORMRQ */ diff --git a/lapack-netlib/SRC/dormrz.c b/lapack-netlib/SRC/dormrz.c index ed38ebe7e..ae00e8c9b 100644 --- a/lapack-netlib/SRC/dormrz.c +++ b/lapack-netlib/SRC/dormrz.c @@ -702,7 +702,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dormrz_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info) @@ -718,14 +718,14 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3; - extern /* Subroutine */ int dormr3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormr3_(char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer ib, ic, ja, jc, nb, mi, ni, nq, nw; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlarzb_(char *, char *, char *, char *, + extern /* Subroutine */ void dlarzb_(char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dlarzt_(char *, char @@ -818,16 +818,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DORMRZ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1] = 1.; - return 0; + return; } nbmin = 2; @@ -922,7 +922,7 @@ f"> */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORMRZ */ diff --git a/lapack-netlib/SRC/dormtr.c b/lapack-netlib/SRC/dormtr.c index 29c830c51..6d9b2ef79 100644 --- a/lapack-netlib/SRC/dormtr.c +++ b/lapack-netlib/SRC/dormtr.c @@ -685,7 +685,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m, +/* Subroutine */ void dormtr_(char *side, char *uplo, char *trans, integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal * c__, integer *ldc, doublereal *work, integer *lwork, integer *info) { @@ -703,7 +703,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dormql_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dormql_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dormqr_(char *, char *, integer *, integer *, integer *, @@ -817,16 +817,16 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("DORMTR", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || nq == 1) { work[1] = 1.; - return 0; + return; } if (left) { @@ -860,7 +860,7 @@ f"> */ c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo); } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DORMTR */ diff --git a/lapack-netlib/SRC/dpbcon.c b/lapack-netlib/SRC/dpbcon.c index 0272bf665..09fd9b862 100644 --- a/lapack-netlib/SRC/dpbcon.c +++ b/lapack-netlib/SRC/dpbcon.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal * +/* Subroutine */ void dpbcon_(char *uplo, integer *n, integer *kd, doublereal * ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal * work, integer *iwork, integer *info) { @@ -657,16 +657,16 @@ f"> */ doublereal scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int drscl_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void drscl_(integer *, doublereal *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; doublereal scalel; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatbs_(char *, char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal scaleu; @@ -711,7 +711,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -719,9 +719,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -785,7 +785,7 @@ L10: L20: - return 0; + return; /* End of DPBCON */ diff --git a/lapack-netlib/SRC/dpbequ.c b/lapack-netlib/SRC/dpbequ.c index 2b09d7254..97fc2189a 100644 --- a/lapack-netlib/SRC/dpbequ.c +++ b/lapack-netlib/SRC/dpbequ.c @@ -638,7 +638,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal * +/* Subroutine */ void dpbequ_(char *uplo, integer *n, integer *kd, doublereal * ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, integer *info) { @@ -686,7 +686,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPBEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -694,7 +694,7 @@ f"> */ if (*n == 0) { *scond = 1.; *amax = 0.; - return 0; + return; } if (upper) { @@ -731,7 +731,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.) { *info = i__; - return 0; + return; } /* L20: */ } @@ -750,7 +750,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of DPBEQU */ diff --git a/lapack-netlib/SRC/dpbrfs.c b/lapack-netlib/SRC/dpbrfs.c index d5fa710e1..1878fd546 100644 --- a/lapack-netlib/SRC/dpbrfs.c +++ b/lapack-netlib/SRC/dpbrfs.c @@ -703,7 +703,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void dpbrfs_(char *uplo, integer *n, integer *kd, integer * nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * ferr, doublereal *berr, doublereal *work, integer *iwork, integer * @@ -721,7 +721,7 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dsbmv_(char *, integer *, integer *, + extern /* Subroutine */ void dsbmv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer @@ -729,13 +729,14 @@ f"> */ ; integer count; logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); doublereal xk; integer nz; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpbtrs_( char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal lstres, eps; @@ -793,7 +794,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -805,7 +806,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1012,7 +1013,7 @@ L100: /* L140: */ } - return 0; + return; /* End of DPBRFS */ diff --git a/lapack-netlib/SRC/dpbstf.c b/lapack-netlib/SRC/dpbstf.c index cdbcc133a..754af635f 100644 --- a/lapack-netlib/SRC/dpbstf.c +++ b/lapack-netlib/SRC/dpbstf.c @@ -666,7 +666,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal * +/* Subroutine */ void dpbstf_(char *uplo, integer *n, integer *kd, doublereal * ab, integer *ldab, integer *info) { /* System generated locals */ @@ -674,10 +674,10 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dsyr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyr_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer j, m; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); logical upper; @@ -718,13 +718,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPBSTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Computing MAX */ @@ -850,11 +850,11 @@ f"> */ /* L40: */ } } - return 0; + return; L50: *info = j; - return 0; + return; /* End of DPBSTF */ diff --git a/lapack-netlib/SRC/dpbsv.c b/lapack-netlib/SRC/dpbsv.c index 0cac50884..48a660933 100644 --- a/lapack-netlib/SRC/dpbsv.c +++ b/lapack-netlib/SRC/dpbsv.c @@ -673,7 +673,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void dpbsv_(char *uplo, integer *n, integer *kd, integer * nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info) { @@ -682,7 +682,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpbtrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpbtrf_( char *, integer *, integer *, doublereal *, integer *, integer *), dpbtrs_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -724,7 +725,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DPBSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**T*U or A = L*L**T. */ @@ -738,7 +739,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ info); } - return 0; + return; /* End of DPBSV */ diff --git a/lapack-netlib/SRC/dpbsvx.c b/lapack-netlib/SRC/dpbsvx.c index 24d216ee1..91314848d 100644 --- a/lapack-netlib/SRC/dpbsvx.c +++ b/lapack-netlib/SRC/dpbsvx.c @@ -854,7 +854,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, +/* Subroutine */ void dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, char *equed, doublereal *s, doublereal *b, integer * ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, @@ -870,31 +870,32 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); doublereal scond, anorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical equil, rcequ, upper; integer j1, j2; extern doublereal dlamch_(char *), dlansb_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dpbcon_(char *, integer *, integer *, + extern /* Subroutine */ void dpbcon_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *), dlaqsb_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, char *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dpbequ_(char *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dpbequ_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal bignum; - extern /* Subroutine */ int dpbrfs_(char *, integer *, integer *, integer + extern /* Subroutine */ void dpbrfs_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *), dpbtrf_(char *, integer *, integer *, doublereal *, integer *, integer *); integer infequ; - extern /* Subroutine */ int dpbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void dpbtrs_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal smlnum; @@ -994,7 +995,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPBSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1061,7 +1062,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -1113,7 +1114,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of DPBSVX */ diff --git a/lapack-netlib/SRC/dpbtf2.c b/lapack-netlib/SRC/dpbtf2.c index d4f4a53ad..d7cac9cbf 100644 --- a/lapack-netlib/SRC/dpbtf2.c +++ b/lapack-netlib/SRC/dpbtf2.c @@ -657,7 +657,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal * +/* Subroutine */ void dpbtf2_(char *uplo, integer *n, integer *kd, doublereal * ab, integer *ldab, integer *info) { /* System generated locals */ @@ -665,10 +665,10 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dsyr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyr_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); logical upper; @@ -709,13 +709,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPBTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Computing MAX */ @@ -783,11 +783,11 @@ f"> */ /* L20: */ } } - return 0; + return; L30: *info = j; - return 0; + return; /* End of DPBTF2 */ diff --git a/lapack-netlib/SRC/dpbtrf.c b/lapack-netlib/SRC/dpbtrf.c index 6fca25011..ecb49b802 100644 --- a/lapack-netlib/SRC/dpbtrf.c +++ b/lapack-netlib/SRC/dpbtrf.c @@ -659,7 +659,7 @@ f"> */ /* > Peter Mayes and Giuseppe Radicati, IBM ECSEC, Rome, March 23, 1989 */ /* ===================================================================== */ -/* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal * +/* Subroutine */ void dpbtrf_(char *uplo, integer *n, integer *kd, doublereal * ab, integer *ldab, integer *info) { /* System generated locals */ @@ -668,18 +668,19 @@ f"> */ /* Local variables */ doublereal work[1056] /* was [33][32] */; integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer i2, i3; - extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyrk_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *), dpbtf2_(char *, integer *, integer *, - doublereal *, integer *, integer *), dpotf2_(char *, + doublereal *, integer *, integer *); + extern int dpotf2_(char *, integer *, doublereal *, integer *, integer *); integer ib, nb, ii, jj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -717,13 +718,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPBTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment */ @@ -1015,10 +1016,10 @@ f"> */ } } } - return 0; + return; L150: - return 0; + return; /* End of DPBTRF */ diff --git a/lapack-netlib/SRC/dpbtrs.c b/lapack-netlib/SRC/dpbtrs.c index a5e47405c..02f96e03f 100644 --- a/lapack-netlib/SRC/dpbtrs.c +++ b/lapack-netlib/SRC/dpbtrs.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void dpbtrs_(char *uplo, integer *n, integer *kd, integer * nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info) { @@ -644,7 +644,7 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtbsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtbsv_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); logical upper; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -688,13 +688,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -735,7 +735,7 @@ f"> */ } } - return 0; + return; /* End of DPBTRS */ diff --git a/lapack-netlib/SRC/dpftrf.c b/lapack-netlib/SRC/dpftrf.c index fab9678a1..1552a222a 100644 --- a/lapack-netlib/SRC/dpftrf.c +++ b/lapack-netlib/SRC/dpftrf.c @@ -713,7 +713,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dpftrf_(char *transr, char *uplo, integer *n, doublereal +/* Subroutine */ void dpftrf_(char *transr, char *uplo, integer *n, doublereal *a, integer *info) { /* System generated locals */ @@ -724,7 +724,7 @@ f"> */ logical normaltransr; extern logical lsame_(char *, char *); logical lower; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsyrk_( char *, char *, integer *, integer *, doublereal *, doublereal *, @@ -760,13 +760,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPFTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -807,7 +807,7 @@ f"> */ dpotrf_("L", &n1, a, n, info); if (*info > 0) { - return 0; + return; } dtrsm_("R", "L", "T", "N", &n2, &n1, &c_b12, a, n, &a[n1], n); dsyrk_("U", "N", &n2, &n1, &c_b15, &a[n1], n, &c_b12, &a[*n], @@ -825,7 +825,7 @@ f"> */ dpotrf_("L", &n1, &a[n2], n, info); if (*info > 0) { - return 0; + return; } dtrsm_("L", "L", "N", "N", &n1, &n2, &c_b12, &a[n2], n, a, n); dsyrk_("U", "T", &n2, &n1, &c_b15, a, n, &c_b12, &a[n1], n); @@ -848,7 +848,7 @@ f"> */ dpotrf_("U", &n1, a, &n1, info); if (*info > 0) { - return 0; + return; } dtrsm_("L", "U", "T", "N", &n1, &n2, &c_b12, a, &n1, &a[n1 * n1], &n1); @@ -867,7 +867,7 @@ f"> */ dpotrf_("U", &n1, &a[n2 * n2], &n2, info); if (*info > 0) { - return 0; + return; } dtrsm_("R", "U", "N", "N", &n2, &n1, &c_b12, &a[n2 * n2], &n2, a, &n2); @@ -899,7 +899,7 @@ f"> */ i__1 = *n + 1; dpotrf_("L", &k, &a[1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -924,7 +924,7 @@ f"> */ i__1 = *n + 1; dpotrf_("L", &k, &a[k + 1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -954,7 +954,7 @@ f"> */ dpotrf_("U", &k, &a[k], &k, info); if (*info > 0) { - return 0; + return; } dtrsm_("L", "U", "T", "N", &k, &k, &c_b12, &a[k], &n1, &a[k * (k + 1)], &k); @@ -973,7 +973,7 @@ f"> */ dpotrf_("U", &k, &a[k * (k + 1)], &k, info); if (*info > 0) { - return 0; + return; } dtrsm_("R", "U", "N", "N", &k, &k, &c_b12, &a[k * (k + 1)], & k, a, &k); @@ -989,7 +989,7 @@ f"> */ } - return 0; + return; /* End of DPFTRF */ diff --git a/lapack-netlib/SRC/dpftri.c b/lapack-netlib/SRC/dpftri.c index 763a06450..df7208a88 100644 --- a/lapack-netlib/SRC/dpftri.c +++ b/lapack-netlib/SRC/dpftri.c @@ -705,7 +705,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dpftri_(char *transr, char *uplo, integer *n, doublereal +/* Subroutine */ void dpftri_(char *transr, char *uplo, integer *n, doublereal *a, integer *info) { /* System generated locals */ @@ -715,18 +715,19 @@ f"> */ integer k; logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical lower; - extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyrk_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer n1, n2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical nisodd; extern /* Subroutine */ int dlauum_(char *, integer *, doublereal *, - integer *, integer *), dtftri_(char *, char *, char *, + integer *, integer *); + extern void dtftri_(char *, char *, char *, integer *, doublereal *, integer *); @@ -754,20 +755,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPFTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ dtftri_(transr, uplo, "N", n, a, info); if (*info > 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -942,7 +943,7 @@ f"> */ } - return 0; + return; /* End of DPFTRI */ diff --git a/lapack-netlib/SRC/dpftrs.c b/lapack-netlib/SRC/dpftrs.c index 82305f70f..4764e86a3 100644 --- a/lapack-netlib/SRC/dpftrs.c +++ b/lapack-netlib/SRC/dpftrs.c @@ -712,7 +712,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dpftrs_(char *transr, char *uplo, integer *n, integer * +/* Subroutine */ void dpftrs_(char *transr, char *uplo, integer *n, integer * nrhs, doublereal *a, doublereal *b, integer *ldb, integer *info) { /* System generated locals */ @@ -721,7 +721,7 @@ f"> */ /* Local variables */ logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtfsm_(char *, char *, char *, char *, char *, + extern /* Subroutine */ void dtfsm_(char *, char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); logical lower; @@ -762,13 +762,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPFTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* start execution: there are two triangular solves */ @@ -785,7 +785,7 @@ f"> */ ldb); } - return 0; + return; /* End of DPFTRS */ diff --git a/lapack-netlib/SRC/dpocon.c b/lapack-netlib/SRC/dpocon.c index a05dcdd13..4699fa3a7 100644 --- a/lapack-netlib/SRC/dpocon.c +++ b/lapack-netlib/SRC/dpocon.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dpocon_(char *uplo, integer *n, doublereal *a, integer * lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer * iwork, integer *info) { @@ -646,10 +646,10 @@ f"> */ doublereal scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int drscl_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void drscl_(integer *, doublereal *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -658,7 +658,7 @@ f"> */ doublereal scaleu; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int dlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatrs_(char *, char *, char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); char normin[1]; @@ -698,7 +698,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPOCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -706,9 +706,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -769,7 +769,7 @@ L10: } L20: - return 0; + return; /* End of DPOCON */ diff --git a/lapack-netlib/SRC/dpoequ.c b/lapack-netlib/SRC/dpoequ.c index 738587e88..95635a7c4 100644 --- a/lapack-netlib/SRC/dpoequ.c +++ b/lapack-netlib/SRC/dpoequ.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda, +/* Subroutine */ void dpoequ_(integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info) { /* System generated locals */ @@ -661,7 +661,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPOEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -669,7 +669,7 @@ f"> */ if (*n == 0) { *scond = 1.; *amax = 0.; - return 0; + return; } /* Find the minimum and maximum diagonal elements. */ @@ -697,7 +697,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.) { *info = i__; - return 0; + return; } /* L20: */ } @@ -716,7 +716,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of DPOEQU */ diff --git a/lapack-netlib/SRC/dpoequb.c b/lapack-netlib/SRC/dpoequb.c index 2352f05f9..87b3fbec4 100644 --- a/lapack-netlib/SRC/dpoequb.c +++ b/lapack-netlib/SRC/dpoequb.c @@ -627,7 +627,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpoequb_(integer *n, doublereal *a, integer *lda, +/* Subroutine */ void dpoequb_(integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info) { /* System generated locals */ @@ -671,7 +671,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DPOEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -679,7 +679,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*n == 0) { *scond = 1.; *amax = 0.; - return 0; + return; } base = dlamch_("B"); tmp = -.5 / log(base); @@ -709,7 +709,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.) { *info = i__; - return 0; + return; } /* L20: */ } @@ -730,7 +730,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of DPOEQUB */ diff --git a/lapack-netlib/SRC/dporfs.c b/lapack-netlib/SRC/dporfs.c index 7a516ad09..91ca297f2 100644 --- a/lapack-netlib/SRC/dporfs.c +++ b/lapack-netlib/SRC/dporfs.c @@ -697,7 +697,7 @@ f"> */ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dporfs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * ferr, doublereal *berr, doublereal *work, integer *iwork, integer * @@ -715,12 +715,12 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; logical upper; - extern /* Subroutine */ int dsymv_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsymv_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -728,7 +728,8 @@ f"> */ doublereal xk; integer nz; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpotrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpotrs_( char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal lstres, eps; @@ -784,7 +785,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPORFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -796,7 +797,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -993,7 +994,7 @@ L100: /* L140: */ } - return 0; + return; /* End of DPORFS */ diff --git a/lapack-netlib/SRC/dporfsx.c b/lapack-netlib/SRC/dporfsx.c index 6393f3969..63408560e 100644 --- a/lapack-netlib/SRC/dporfsx.c +++ b/lapack-netlib/SRC/dporfsx.c @@ -803,7 +803,7 @@ static integer c__1 = 1; /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dporfsx_(char *uplo, char *equed, integer *n, integer * +/* Subroutine */ void dporfsx_(char *uplo, char *equed, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer * ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__, @@ -819,7 +819,7 @@ static integer c__1 = 1; /* Local variables */ doublereal illrcond_thresh__, unstable_thresh__; - extern /* Subroutine */ int dla_porfsx_extended_(integer *, char *, + extern /* Subroutine */ void dla_porfsx_extended_(integer *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, logical *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, @@ -837,7 +837,8 @@ static integer c__1 = 1; doublereal rcond_tmp__; integer prec_type__; extern doublereal dlamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpocon_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpocon_( char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); extern doublereal dlansy_(char *, char *, integer *, doublereal *, @@ -955,7 +956,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DPORFSX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -978,7 +979,7 @@ static integer c__1 = 1; err_bnds_comp__[j + err_bnds_comp_dim1 * 3] = 1.; } } - return 0; + return; } /* Default to failure. */ @@ -1117,7 +1118,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of DPORFSX */ diff --git a/lapack-netlib/SRC/dposv.c b/lapack-netlib/SRC/dposv.c index 876f37ecc..2e6b5019f 100644 --- a/lapack-netlib/SRC/dposv.c +++ b/lapack-netlib/SRC/dposv.c @@ -639,7 +639,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doublePOsolve */ /* ===================================================================== */ -/* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal +/* Subroutine */ void dposv_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info) { /* System generated locals */ @@ -647,9 +647,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpotrf_( - char *, integer *, doublereal *, integer *, integer *), - dpotrs_(char *, integer *, integer *, doublereal *, integer *, + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int dpotrf_( + char *, integer *, doublereal *, integer *, integer *); + extern void dpotrs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -688,7 +689,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DPOSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**T*U or A = L*L**T. */ @@ -701,7 +702,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dpotrs_(uplo, n, nrhs, &a[a_offset], lda, &b[b_offset], ldb, info); } - return 0; + return; /* End of DPOSV */ diff --git a/lapack-netlib/SRC/dposvx.c b/lapack-netlib/SRC/dposvx.c index 1d9340d1b..bd56317d8 100644 --- a/lapack-netlib/SRC/dposvx.c +++ b/lapack-netlib/SRC/dposvx.c @@ -814,7 +814,7 @@ f"> */ /* > \ingroup doublePOsolve */ /* ===================================================================== */ -/* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void dposvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal * x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal * @@ -833,25 +833,26 @@ f"> */ logical equil, rcequ; extern doublereal dlamch_(char *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dpocon_(char *, integer *, doublereal *, + extern /* Subroutine */ void dpocon_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); integer infequ; extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlaqsy_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlaqsy_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, char *), dpoequ_(integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *), dporfs_( char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, - doublereal *, doublereal *, doublereal *, integer *, integer *), dpotrf_(char *, integer *, doublereal *, integer *, + doublereal *, doublereal *, doublereal *, integer *, integer *); + extern int dpotrf_(char *, integer *, doublereal *, integer *, integer *); doublereal smlnum; - extern /* Subroutine */ int dpotrs_(char *, integer *, integer *, + extern /* Subroutine */ void dpotrs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -948,7 +949,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPOSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -990,7 +991,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -1041,7 +1042,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of DPOSVX */ diff --git a/lapack-netlib/SRC/dposvxx.c b/lapack-netlib/SRC/dposvxx.c index 7a7a7b8aa..9e7eeb14d 100644 --- a/lapack-netlib/SRC/dposvxx.c +++ b/lapack-netlib/SRC/dposvxx.c @@ -1000,7 +1000,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doublePOsolve */ /* ===================================================================== */ -/* Subroutine */ int dposvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void dposvxx_(char *fact, char *uplo, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal * x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, doublereal * @@ -1024,16 +1024,16 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical equil, rcequ; extern doublereal dlamch_(char *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer infequ; - extern /* Subroutine */ int dlaqsy_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlaqsy_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, char *), dpotrf_(char *, integer *, doublereal *, integer *, integer *); doublereal smlnum; - extern /* Subroutine */ int dpotrs_(char *, integer *, integer *, + extern /* Subroutine */ void dpotrs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *), dlascl2_(integer *, integer *, doublereal *, doublereal * , integer *), dpoequb_(integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *), dporfsx_( @@ -1149,7 +1149,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DPOSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1189,7 +1189,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = dla_porpvgrw_(uplo, info, &a[a_offset], lda, &af[ af_offset], ldaf, &work[1]); - return 0; + return; } } @@ -1218,7 +1218,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dlascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of DPOSVXX */ diff --git a/lapack-netlib/SRC/dpotf2.c b/lapack-netlib/SRC/dpotf2.c index a560a7211..b6a732841 100644 --- a/lapack-netlib/SRC/dpotf2.c +++ b/lapack-netlib/SRC/dpotf2.c @@ -625,7 +625,7 @@ f"> */ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dpotf2_(char *uplo, integer *n, doublereal *a, integer * lda, integer *info) { /* System generated locals */ @@ -636,10 +636,10 @@ f"> */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); integer j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical upper; @@ -677,13 +677,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPOTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -759,7 +759,7 @@ L30: *info = j; L40: - return 0; + return; /* End of DPOTF2 */ diff --git a/lapack-netlib/SRC/dpotrf.c b/lapack-netlib/SRC/dpotrf.c index dc4a608a0..2c09fd41e 100644 --- a/lapack-netlib/SRC/dpotrf.c +++ b/lapack-netlib/SRC/dpotrf.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dpotrf_(char *uplo, integer *n, doublereal *a, integer * lda, integer *info) { /* System generated locals */ @@ -631,22 +631,22 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyrk_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer jb, nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dpotrf2_(char *, integer *, doublereal *, + extern /* Subroutine */ void dpotrf2_(char *, integer *, doublereal *, integer *, integer *); @@ -679,13 +679,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPOTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -785,7 +785,7 @@ L30: *info = *info + j - 1; L40: - return 0; + return; /* End of DPOTRF */ diff --git a/lapack-netlib/SRC/dpotrf2.c b/lapack-netlib/SRC/dpotrf2.c index 08922f139..5073fe1ae 100644 --- a/lapack-netlib/SRC/dpotrf2.c +++ b/lapack-netlib/SRC/dpotrf2.c @@ -617,7 +617,7 @@ static doublereal c_b11 = -1.; /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpotrf2_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dpotrf2_(char *uplo, integer *n, doublereal *a, integer * lda, integer *info) { /* System generated locals */ @@ -626,11 +626,11 @@ static doublereal c_b11 = -1.; /* Local variables */ extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyrk_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer n1, n2; @@ -667,13 +667,13 @@ static doublereal c_b11 = -1.; if (*info != 0) { i__1 = -(*info); xerbla_("DPOTRF2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* N=1 case */ @@ -684,7 +684,7 @@ static doublereal c_b11 = -1.; if (a[a_dim1 + 1] <= 0. || disnan_(&a[a_dim1 + 1])) { *info = 1; - return 0; + return; } /* Factor */ @@ -702,7 +702,7 @@ static doublereal c_b11 = -1.; dpotrf2_(uplo, &n1, &a[a_dim1 + 1], lda, &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } /* Compute the Cholesky factorization A = U**T*U */ @@ -721,7 +721,7 @@ static doublereal c_b11 = -1.; dpotrf2_(uplo, &n2, &a[n1 + 1 + (n1 + 1) * a_dim1], lda, &iinfo); if (iinfo != 0) { *info = iinfo + n1; - return 0; + return; } /* Compute the Cholesky factorization A = L*L**T */ @@ -740,11 +740,11 @@ static doublereal c_b11 = -1.; dpotrf2_(uplo, &n2, &a[n1 + 1 + (n1 + 1) * a_dim1], lda, &iinfo); if (iinfo != 0) { *info = iinfo + n1; - return 0; + return; } } } - return 0; + return; /* End of DPOTRF2 */ diff --git a/lapack-netlib/SRC/dpotri.c b/lapack-netlib/SRC/dpotri.c index 285575f3f..c11d90d8d 100644 --- a/lapack-netlib/SRC/dpotri.c +++ b/lapack-netlib/SRC/dpotri.c @@ -604,7 +604,7 @@ f"> */ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dpotri_(char *uplo, integer *n, doublereal *a, integer * lda, integer *info) { /* System generated locals */ @@ -612,9 +612,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlauum_( - char *, integer *, doublereal *, integer *, integer *), - dtrtri_(char *, char *, integer *, doublereal *, integer *, + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int dlauum_( + char *, integer *, doublereal *, integer *, integer *); + extern int dtrtri_(char *, char *, integer *, doublereal *, integer *, integer *); @@ -646,27 +647,27 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPOTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ dtrtri_(uplo, "Non-unit", n, &a[a_offset], lda, info); if (*info > 0) { - return 0; + return; } /* Form inv(U) * inv(U)**T or inv(L)**T * inv(L). */ dlauum_(uplo, n, &a[a_offset], lda, info); - return 0; + return; /* End of DPOTRI */ diff --git a/lapack-netlib/SRC/dpotrs.c b/lapack-netlib/SRC/dpotrs.c index fcfc993d2..97ed17d61 100644 --- a/lapack-netlib/SRC/dpotrs.c +++ b/lapack-netlib/SRC/dpotrs.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup doublePOcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dpotrs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * info) { @@ -632,7 +632,7 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; @@ -675,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPOTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -712,7 +712,7 @@ f"> */ a_offset], lda, &b[b_offset], ldb); } - return 0; + return; /* End of DPOTRS */ diff --git a/lapack-netlib/SRC/dppcon.c b/lapack-netlib/SRC/dppcon.c index 1a09f5445..c81be8bee 100644 --- a/lapack-netlib/SRC/dppcon.c +++ b/lapack-netlib/SRC/dppcon.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap, +/* Subroutine */ void dppcon_(char *uplo, integer *n, doublereal *ap, doublereal *anorm, doublereal *rcond, doublereal *work, integer * iwork, integer *info) { @@ -644,17 +644,18 @@ f"> */ doublereal scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int drscl_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void drscl_(integer *, doublereal *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; doublereal scalel; extern integer idamax_(integer *, doublereal *, integer *); doublereal scaleu; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlatps_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dlatps_( char *, char *, char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *); doublereal ainvnm; @@ -691,7 +692,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -699,9 +700,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -760,7 +761,7 @@ L10: } L20: - return 0; + return; /* End of DPPCON */ diff --git a/lapack-netlib/SRC/dppequ.c b/lapack-netlib/SRC/dppequ.c index 380949cf3..9700a80bd 100644 --- a/lapack-netlib/SRC/dppequ.c +++ b/lapack-netlib/SRC/dppequ.c @@ -625,7 +625,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap, +/* Subroutine */ void dppequ_(char *uplo, integer *n, doublereal *ap, doublereal *s, doublereal *scond, doublereal *amax, integer *info) { /* System generated locals */ @@ -667,7 +667,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPPEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -675,7 +675,7 @@ f"> */ if (*n == 0) { *scond = 1.; *amax = 0.; - return 0; + return; } /* Initialize SMIN and AMAX. */ @@ -731,7 +731,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.) { *info = i__; - return 0; + return; } /* L30: */ } @@ -750,7 +750,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of DPPEQU */ diff --git a/lapack-netlib/SRC/dpprfs.c b/lapack-netlib/SRC/dpprfs.c index 9eee3ee5b..40e1677cd 100644 --- a/lapack-netlib/SRC/dpprfs.c +++ b/lapack-netlib/SRC/dpprfs.c @@ -685,7 +685,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dpprfs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *afp, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info) @@ -701,15 +701,15 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; - extern /* Subroutine */ int dspmv_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspmv_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer ik, kk; extern doublereal dlamch_(char *); @@ -718,7 +718,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int dpptrs_(char *, integer *, integer *, + extern /* Subroutine */ void dpptrs_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *); doublereal eps; @@ -765,7 +765,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -777,7 +777,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -978,7 +978,7 @@ L100: /* L140: */ } - return 0; + return; /* End of DPPRFS */ diff --git a/lapack-netlib/SRC/dppsv.c b/lapack-netlib/SRC/dppsv.c index 956e7ac8f..e730dc071 100644 --- a/lapack-netlib/SRC/dppsv.c +++ b/lapack-netlib/SRC/dppsv.c @@ -653,7 +653,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal +/* Subroutine */ void dppsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info) { /* System generated locals */ @@ -661,7 +661,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpptrf_( char *, integer *, doublereal *, integer *), dpptrs_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *); @@ -698,7 +699,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DPPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**T*U or A = L*L**T. */ @@ -711,7 +712,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dpptrs_(uplo, n, nrhs, &ap[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of DPPSV */ diff --git a/lapack-netlib/SRC/dppsvx.c b/lapack-netlib/SRC/dppsvx.c index ccae54feb..3a339ab87 100644 --- a/lapack-netlib/SRC/dppsvx.c +++ b/lapack-netlib/SRC/dppsvx.c @@ -823,7 +823,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void dppsvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * @@ -838,29 +838,29 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); doublereal scond, anorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical equil, rcequ; extern doublereal dlamch_(char *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; extern doublereal dlansp_(char *, char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dppcon_(char *, integer *, doublereal *, + extern /* Subroutine */ void dppcon_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *), dlaqsp_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, char *); integer infequ; - extern /* Subroutine */ int dppequ_(char *, integer *, doublereal *, + extern /* Subroutine */ void dppequ_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dpprfs_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *), dpptrf_(char *, integer *, doublereal *, integer *); doublereal smlnum; - extern /* Subroutine */ int dpptrs_(char *, integer *, integer *, + extern /* Subroutine */ void dpptrs_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *); @@ -949,7 +949,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -992,7 +992,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -1041,7 +1041,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of DPPSVX */ diff --git a/lapack-netlib/SRC/dpptrf.c b/lapack-netlib/SRC/dpptrf.c index bd13ca253..7cfd1b984 100644 --- a/lapack-netlib/SRC/dpptrf.c +++ b/lapack-netlib/SRC/dpptrf.c @@ -633,7 +633,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer * +/* Subroutine */ void dpptrf_(char *uplo, integer *n, doublereal *ap, integer * info) { /* System generated locals */ @@ -643,14 +643,14 @@ f"> */ /* Local variables */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); - extern /* Subroutine */ int dspr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspr_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int dtpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpsv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); integer jc, jj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -682,13 +682,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -759,7 +759,7 @@ L30: *info = j; L40: - return 0; + return; /* End of DPPTRF */ diff --git a/lapack-netlib/SRC/dpptri.c b/lapack-netlib/SRC/dpptri.c index 4ec7a0184..be3e43847 100644 --- a/lapack-netlib/SRC/dpptri.c +++ b/lapack-netlib/SRC/dpptri.c @@ -607,7 +607,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer * +/* Subroutine */ void dpptri_(char *uplo, integer *n, doublereal *ap, integer * info) { /* System generated locals */ @@ -616,17 +616,18 @@ f"> */ /* Local variables */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); - extern /* Subroutine */ int dspr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspr_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpmv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); logical upper; integer jc, jj; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dtptri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dtptri_( char *, char *, integer *, doublereal *, integer *); doublereal ajj; integer jjn; @@ -657,20 +658,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ dtptri_(uplo, "Non-unit", n, &ap[1], info); if (*info > 0) { - return 0; + return; } if (upper) { @@ -711,7 +712,7 @@ f"> */ } } - return 0; + return; /* End of DPPTRI */ diff --git a/lapack-netlib/SRC/dpptrs.c b/lapack-netlib/SRC/dpptrs.c index 8ae33bf90..ae96e067f 100644 --- a/lapack-netlib/SRC/dpptrs.c +++ b/lapack-netlib/SRC/dpptrs.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dpptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info) { /* System generated locals */ @@ -631,9 +631,9 @@ f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int dtpsv_(char *, char *, char *, integer *, - doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dtpsv_(char *, char *, char *, integer *, + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -668,13 +668,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -715,7 +715,7 @@ f"> */ } } - return 0; + return; /* End of DPPTRS */ diff --git a/lapack-netlib/SRC/dpstf2.c b/lapack-netlib/SRC/dpstf2.c index c08e9bc0a..ff677abef 100644 --- a/lapack-netlib/SRC/dpstf2.c +++ b/lapack-netlib/SRC/dpstf2.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpstf2_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dpstf2_(char *uplo, integer *n, doublereal *a, integer * lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, integer *info) { @@ -669,15 +669,15 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal dtemp; integer itemp; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal dstop; logical upper; @@ -719,13 +719,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPSTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize PIV */ @@ -948,7 +948,7 @@ L160: *info = 1; L170: - return 0; + return; /* End of DPSTF2 */ diff --git a/lapack-netlib/SRC/dpstrf.c b/lapack-netlib/SRC/dpstrf.c index f9449e3aa..fe83d4232 100644 --- a/lapack-netlib/SRC/dpstrf.c +++ b/lapack-netlib/SRC/dpstrf.c @@ -660,7 +660,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpstrf_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dpstrf_(char *uplo, integer *n, doublereal *a, integer * lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, integer *info) { @@ -671,19 +671,19 @@ f"> */ /* Local variables */ integer i__, j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal dtemp; integer itemp; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal dstop; logical upper; - extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyrk_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *), dpstf2_(char *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, @@ -729,13 +729,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPSTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get block size */ @@ -1027,7 +1027,7 @@ L190: *info = 1; L200: - return 0; + return; /* End of DPSTRF */ diff --git a/lapack-netlib/SRC/dptcon.c b/lapack-netlib/SRC/dptcon.c index 256d8cb93..f097bdf20 100644 --- a/lapack-netlib/SRC/dptcon.c +++ b/lapack-netlib/SRC/dptcon.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e, +/* Subroutine */ void dptcon_(integer *n, doublereal *d__, doublereal *e, doublereal *anorm, doublereal *rcond, doublereal *work, integer *info) { /* System generated locals */ @@ -671,7 +671,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPTCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -679,9 +679,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } /* Check that D(1:N) is positive. */ @@ -689,7 +689,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (d__[i__] <= 0.) { - return 0; + return; } /* L10: */ } @@ -730,7 +730,7 @@ f"> */ *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of DPTCON */ diff --git a/lapack-netlib/SRC/dpteqr.c b/lapack-netlib/SRC/dpteqr.c index eab9d1709..a1426dcbb 100644 --- a/lapack-netlib/SRC/dpteqr.c +++ b/lapack-netlib/SRC/dpteqr.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup doublePTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__, +/* Subroutine */ void dpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info) { @@ -673,14 +673,15 @@ f"> */ integer i__; extern logical lsame_(char *, char *); doublereal vt[1] /* was [1][1] */; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dbdsqr_(char *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dbdsqr_(char *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer icompz; - extern /* Subroutine */ int dpttrf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dpttrf_(integer *, doublereal *, doublereal *, integer *); integer nru; @@ -726,20 +727,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPTEQR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (icompz > 0) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } if (icompz == 2) { dlaset_("Full", n, n, &c_b7, &c_b8, &z__[z_offset], ldz); @@ -749,7 +750,7 @@ f"> */ dpttrf_(n, &d__[1], &e[1], info); if (*info != 0) { - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -785,7 +786,7 @@ f"> */ *info = *n + *info; } - return 0; + return; /* End of DPTEQR */ diff --git a/lapack-netlib/SRC/dptrfs.c b/lapack-netlib/SRC/dptrfs.c index 7dc933efc..b1077e93c 100644 --- a/lapack-netlib/SRC/dptrfs.c +++ b/lapack-netlib/SRC/dptrfs.c @@ -676,7 +676,7 @@ f"> */ /* > \ingroup doublePTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__, +/* Subroutine */ void dptrfs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *info) @@ -689,7 +689,7 @@ f"> */ doublereal safe1, safe2; integer i__, j; doublereal s; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; doublereal bi; @@ -701,7 +701,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int dpttrs_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dpttrs_(integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); doublereal eps; @@ -746,7 +746,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPTRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -758,7 +758,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -937,7 +937,7 @@ L20: /* L90: */ } - return 0; + return; /* End of DPTRFS */ diff --git a/lapack-netlib/SRC/dptsv.c b/lapack-netlib/SRC/dptsv.c index eecf96359..2afc6ea37 100644 --- a/lapack-netlib/SRC/dptsv.c +++ b/lapack-netlib/SRC/dptsv.c @@ -623,14 +623,15 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doublePTsolve */ /* ===================================================================== */ -/* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__, +/* Subroutine */ void dptsv_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info) { /* System generated locals */ integer b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpttrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpttrf_( integer *, doublereal *, doublereal *, integer *), dpttrs_( integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); @@ -666,7 +667,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DPTSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the L*D*L**T (or U**T*D*U) factorization of A. */ @@ -678,7 +679,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dpttrs_(n, nrhs, &d__[1], &e[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of DPTSV */ diff --git a/lapack-netlib/SRC/dptsvx.c b/lapack-netlib/SRC/dptsvx.c index 48f980c3f..9f28238fe 100644 --- a/lapack-netlib/SRC/dptsvx.c +++ b/lapack-netlib/SRC/dptsvx.c @@ -740,7 +740,7 @@ f"> */ /* > \ingroup doublePTsolve */ /* ===================================================================== */ -/* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs, +/* Subroutine */ void dptsvx_(char *fact, integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * @@ -752,15 +752,15 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); doublereal anorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamch_(char *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dptcon_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dptcon_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dptrfs_( integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, @@ -813,7 +813,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPTSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -831,7 +831,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -860,7 +860,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of DPTSVX */ diff --git a/lapack-netlib/SRC/dpttrf.c b/lapack-netlib/SRC/dpttrf.c index 609d614a5..f3aa48b26 100644 --- a/lapack-netlib/SRC/dpttrf.c +++ b/lapack-netlib/SRC/dpttrf.c @@ -600,7 +600,7 @@ f"> */ /* > \ingroup doublePTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e, +/* Subroutine */ void dpttrf_(integer *n, doublereal *d__, doublereal *e, integer *info) { /* System generated locals */ @@ -633,13 +633,13 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("DPTTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Compute the L*D*L**T (or U**T*D*U) factorization of A. */ @@ -716,7 +716,7 @@ f"> */ } L30: - return 0; + return; /* End of DPTTRF */ diff --git a/lapack-netlib/SRC/dpttrs.c b/lapack-netlib/SRC/dpttrs.c index 42ac11416..9c49ef959 100644 --- a/lapack-netlib/SRC/dpttrs.c +++ b/lapack-netlib/SRC/dpttrs.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup doublePTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__, +/* Subroutine */ void dpttrs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info) { /* System generated locals */ @@ -631,8 +631,9 @@ f"> */ /* Local variables */ integer j, jb, nb; - extern /* Subroutine */ int dptts2_(integer *, integer *, doublereal *, - doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dptts2_(integer *, integer *, doublereal *, + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); @@ -667,13 +668,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DPTTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Determine the number of right-hand sides to solve at a time. */ @@ -701,7 +702,7 @@ f"> */ } } - return 0; + return; /* End of DPTTRS */ diff --git a/lapack-netlib/SRC/dptts2.c b/lapack-netlib/SRC/dptts2.c index d8bddfa2b..e6991be26 100644 --- a/lapack-netlib/SRC/dptts2.c +++ b/lapack-netlib/SRC/dptts2.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup doublePTcomputational */ /* ===================================================================== */ -/* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__, +/* Subroutine */ void dptts2_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb) { /* System generated locals */ @@ -621,7 +621,7 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); @@ -649,7 +649,7 @@ f"> */ d__1 = 1. / d__[1]; dscal_(nrhs, &d__1, &b[b_offset], ldb); } - return 0; + return; } /* Solve A * X = B using the factorization A = L*D*L**T, */ @@ -677,7 +677,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of DPTTS2 */ diff --git a/lapack-netlib/SRC/drscl.c b/lapack-netlib/SRC/drscl.c index 1dadc5ba3..653d90874 100644 --- a/lapack-netlib/SRC/drscl.c +++ b/lapack-netlib/SRC/drscl.c @@ -593,13 +593,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx, +/* Subroutine */ void drscl_(integer *n, doublereal *sa, doublereal *sx, integer *incx) { doublereal cden; logical done; doublereal cnum, cden1, cnum1; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); doublereal bignum, smlnum, mul; @@ -621,7 +621,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Function Body */ if (*n <= 0) { - return 0; + return; } /* Get machine parameters */ @@ -668,7 +668,7 @@ L10: goto L10; } - return 0; + return; /* End of DRSCL */ diff --git a/lapack-netlib/SRC/dsb2st_kernels.c b/lapack-netlib/SRC/dsb2st_kernels.c index 061b6c43e..2d619ce18 100644 --- a/lapack-netlib/SRC/dsb2st_kernels.c +++ b/lapack-netlib/SRC/dsb2st_kernels.c @@ -680,7 +680,7 @@ kernels.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsb2st_kernels_(char *uplo, logical *wantz, integer * +/* Subroutine */ void dsb2st_kernels_(char *uplo, logical *wantz, integer * ttype, integer *st, integer *ed, integer *sweep, integer *n, integer * nb, integer *ib, doublereal *a, integer *lda, doublereal *v, doublereal *tau, integer *ldvt, doublereal *work) @@ -695,10 +695,10 @@ kernels.f"> */ extern logical lsame_(char *, char *); logical upper; integer j1, j2, lm, ln; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); integer ajeter; - extern /* Subroutine */ int dlarfx_(char *, integer *, integer *, + extern /* Subroutine */ void dlarfx_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *), dlarfy_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer ofdpos, taupos; @@ -896,7 +896,7 @@ kernels.f"> */ } } - return 0; + return; /* END OF DSB2ST_KERNELS */ diff --git a/lapack-netlib/SRC/dsbev.c b/lapack-netlib/SRC/dsbev.c index 05399e679..50e54cea6 100644 --- a/lapack-netlib/SRC/dsbev.c +++ b/lapack-netlib/SRC/dsbev.c @@ -660,7 +660,7 @@ atrices */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd, +/* Subroutine */ void dsbev_(char *jobz, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *info) { @@ -673,7 +673,7 @@ atrices */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -681,7 +681,7 @@ atrices */ logical lower, wantz; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern doublereal dlansb_(char *, char *, integer *, integer *, @@ -689,12 +689,12 @@ atrices */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dsbtrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsbtrd_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsterf_( integer *, doublereal *, doublereal *, integer *); integer indwrk; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal smlnum, eps; @@ -742,13 +742,13 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("DSBEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -760,7 +760,7 @@ atrices */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -821,7 +821,7 @@ atrices */ dscal_(&imax, &d__1, &w[1], &c__1); } - return 0; + return; /* End of DSBEV */ diff --git a/lapack-netlib/SRC/dsbev_2stage.c b/lapack-netlib/SRC/dsbev_2stage.c index 494db1a2e..563547b6e 100644 --- a/lapack-netlib/SRC/dsbev_2stage.c +++ b/lapack-netlib/SRC/dsbev_2stage.c @@ -722,7 +722,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsbev_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void dsbev_2stage_(char *jobz, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *info) { @@ -737,7 +737,7 @@ stage.f"> */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dsytrd_sb2st_(char *, char *, char *, + extern /* Subroutine */ void dsytrd_sb2st_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dscal_(integer *, doublereal * @@ -751,7 +751,7 @@ stage.f"> */ integer ib; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern doublereal dlansb_(char *, char *, integer *, integer *, @@ -759,10 +759,10 @@ stage.f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); integer indwrk; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer llwork; doublereal smlnum; @@ -836,15 +836,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSBEV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -856,7 +856,7 @@ stage.f"> */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -924,7 +924,7 @@ stage.f"> */ work[1] = (doublereal) lwmin; - return 0; + return; /* End of DSBEV_2STAGE */ diff --git a/lapack-netlib/SRC/dsbevd.c b/lapack-netlib/SRC/dsbevd.c index f36eedece..900bb9718 100644 --- a/lapack-netlib/SRC/dsbevd.c +++ b/lapack-netlib/SRC/dsbevd.c @@ -708,7 +708,7 @@ f"> */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd, +/* Subroutine */ void dsbevd_(char *jobz, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) @@ -720,7 +720,7 @@ f"> */ /* Local variables */ integer inde; doublereal anrm, rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); @@ -731,19 +731,19 @@ f"> */ integer indwk2, llwrk2; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern doublereal dlansb_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dstedc_(char *, integer *, doublereal *, + extern /* Subroutine */ void dstedc_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dsbtrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsbtrd_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsterf_( integer *, doublereal *, doublereal *, integer *); @@ -823,15 +823,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSBEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -839,7 +839,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -902,7 +902,7 @@ f"> */ work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSBEVD */ diff --git a/lapack-netlib/SRC/dsbevd_2stage.c b/lapack-netlib/SRC/dsbevd_2stage.c index c0df11606..7d9617985 100644 --- a/lapack-netlib/SRC/dsbevd_2stage.c +++ b/lapack-netlib/SRC/dsbevd_2stage.c @@ -753,7 +753,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsbevd_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void dsbevd_2stage_(char *jobz, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) @@ -767,7 +767,7 @@ static integer c__1 = 1; extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); doublereal anrm, rmin, rmax; - extern /* Subroutine */ int dsytrd_sb2st_(char *, char *, char *, + extern /* Subroutine */ void dsytrd_sb2st_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dscal_(integer *, doublereal * @@ -783,19 +783,19 @@ static integer c__1 = 1; integer indwk2, ib, llwrk2; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern doublereal dlansb_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dstedc_(char *, integer *, doublereal *, + extern /* Subroutine */ void dstedc_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); integer indwrk, liwmin, llwork; doublereal smlnum; @@ -880,15 +880,15 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DSBEVD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -896,7 +896,7 @@ static integer c__1 = 1; if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -962,7 +962,7 @@ static integer c__1 = 1; work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSBEVD_2STAGE */ diff --git a/lapack-netlib/SRC/dsbevx.c b/lapack-netlib/SRC/dsbevx.c index 8b77ce15a..61e687d3e 100644 --- a/lapack-netlib/SRC/dsbevx.c +++ b/lapack-netlib/SRC/dsbevx.c @@ -779,7 +779,7 @@ f"> */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void dsbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer * ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, @@ -798,16 +798,16 @@ f"> */ doublereal rmin, rmax; logical test; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical lower, wantz; @@ -817,30 +817,30 @@ f"> */ integer iscale, indibl; extern doublereal dlansb_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical valeig; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal abstll, bignum; - extern /* Subroutine */ int dsbtrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsbtrd_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo; - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer nsplit; doublereal smlnum, eps, vll, vuu, tmp1; @@ -916,14 +916,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSBEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -944,7 +944,7 @@ f"> */ z__[z_dim1 + 1] = 1.; } } - return 0; + return; } /* Get machine constants. */ @@ -1119,7 +1119,7 @@ L30: } } - return 0; + return; /* End of DSBEVX */ diff --git a/lapack-netlib/SRC/dsbevx_2stage.c b/lapack-netlib/SRC/dsbevx_2stage.c index f2b17b908..cea4ec24c 100644 --- a/lapack-netlib/SRC/dsbevx_2stage.c +++ b/lapack-netlib/SRC/dsbevx_2stage.c @@ -840,7 +840,7 @@ static doublereal c_b45 = 0.; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsbevx_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void dsbevx_2stage_(char *jobz, char *range, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer * iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, @@ -860,22 +860,22 @@ static doublereal c_b45 = 0.; integer imax; doublereal rmin, rmax; logical test; - extern /* Subroutine */ int dsytrd_sb2st_(char *, char *, char *, + extern /* Subroutine */ void dsytrd_sb2st_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; char order[1]; integer lhtrd; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; @@ -888,27 +888,27 @@ static doublereal c_b45 = 0.; integer iscale, indibl; extern doublereal dlansb_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); logical valeig; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal abstll, bignum; integer indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo; - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer nsplit, llwork; doublereal smlnum; @@ -1010,16 +1010,16 @@ static doublereal c_b45 = 0.; if (*info != 0) { i__1 = -(*info); xerbla_("DSBEVX_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1040,7 +1040,7 @@ static doublereal c_b45 = 0.; z__[z_dim1 + 1] = 1.; } } - return 0; + return; } /* Get machine constants. */ @@ -1223,7 +1223,7 @@ L30: work[1] = (doublereal) lwmin; - return 0; + return; /* End of DSBEVX_2STAGE */ diff --git a/lapack-netlib/SRC/dsbgst.c b/lapack-netlib/SRC/dsbgst.c index 3ab4e9705..ff5565603 100644 --- a/lapack-netlib/SRC/dsbgst.c +++ b/lapack-netlib/SRC/dsbgst.c @@ -674,7 +674,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka, +/* Subroutine */ void dsbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info) { @@ -685,31 +685,33 @@ f"> */ /* Local variables */ integer inca; - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), drot_(integer *, doublereal *, integer *, doublereal * , integer *, doublereal *, doublereal *); integer i__, j, k, l, m; doublereal t; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer i0, i1; logical upper; integer i2, j1, j2; logical wantx; - extern /* Subroutine */ int dlar2v_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlar2v_(integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal ra; integer nr, nx; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *, ftnlen), dlargv_( + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlargv_( integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); logical update; - extern /* Subroutine */ int dlartv_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlartv_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer ka1, kb1; doublereal ra1; @@ -767,13 +769,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSBGST", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } inca = *ldab * ka1; @@ -1611,14 +1613,14 @@ L490: --i__; i0 = m + 1; if (*ka == 0) { - return 0; + return; } goto L490; } } else { i__ -= *ka; if (i__ < 2) { - return 0; + return; } } diff --git a/lapack-netlib/SRC/dsbgv.c b/lapack-netlib/SRC/dsbgv.c index 9a6abb11b..149689762 100644 --- a/lapack-netlib/SRC/dsbgv.c +++ b/lapack-netlib/SRC/dsbgv.c @@ -685,7 +685,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, +/* Subroutine */ void dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *info) @@ -699,7 +699,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); integer iinfo; logical upper, wantz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpbstf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpbstf_( char *, integer *, integer *, doublereal *, integer *, integer *), dsbtrd_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsbgst_(char *, char *, @@ -708,7 +709,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indwrk; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); @@ -761,13 +762,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DSBGV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -775,7 +776,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -804,7 +805,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dsteqr_(jobz, n, &w[1], &work[inde], &z__[z_offset], ldz, &work[ indwrk], info); } - return 0; + return; /* End of DSBGV */ diff --git a/lapack-netlib/SRC/dsbgvd.c b/lapack-netlib/SRC/dsbgvd.c index ebfe89712..c8274131f 100644 --- a/lapack-netlib/SRC/dsbgvd.c +++ b/lapack-netlib/SRC/dsbgvd.c @@ -740,7 +740,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, +/* Subroutine */ void dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) @@ -751,17 +751,19 @@ f"> */ /* Local variables */ integer inde; char vect[1]; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer iinfo, lwmin; logical upper, wantz; integer indwk2, llwrk2; - extern /* Subroutine */ int dstedc_(char *, integer *, doublereal *, + extern /* Subroutine */ void dstedc_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *), dlacpy_(char *, integer - *, integer *, doublereal *, integer *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen), dpbstf_(char *, + *, integer *, doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dpbstf_(char *, integer *, integer *, doublereal *, integer *, integer *), dsbtrd_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, @@ -850,15 +852,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSBGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -866,7 +868,7 @@ f"> */ dpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -903,7 +905,7 @@ f"> */ work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSBGVD */ diff --git a/lapack-netlib/SRC/dsbgvx.c b/lapack-netlib/SRC/dsbgvx.c index 7b55235dc..d5422073d 100644 --- a/lapack-netlib/SRC/dsbgvx.c +++ b/lapack-netlib/SRC/dsbgvx.c @@ -807,7 +807,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void dsbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal * bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer @@ -824,12 +824,12 @@ f"> */ logical test; integer itmp1, i__, j, indee; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iinfo; char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical upper, wantz; @@ -837,28 +837,29 @@ f"> */ logical alleig, indeig; integer indibl; logical valeig; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dpbstf_(char *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dpbstf_(char *, integer *, integer *, doublereal *, integer *, integer *), dsbtrd_( char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer indisp; - extern /* Subroutine */ int dsbgst_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsbgst_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *); integer indiwo; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer nsplit; doublereal tmp1; @@ -941,14 +942,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSBGVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -956,7 +957,7 @@ f"> */ dpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -1082,7 +1083,7 @@ L30: } } - return 0; + return; /* End of DSBGVX */ diff --git a/lapack-netlib/SRC/dsbtrd.c b/lapack-netlib/SRC/dsbtrd.c index 89101e3eb..91da67f14 100644 --- a/lapack-netlib/SRC/dsbtrd.c +++ b/lapack-netlib/SRC/dsbtrd.c @@ -677,7 +677,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd, +/* Subroutine */ void dsbtrd_(char *vect, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *d__, doublereal *e, doublereal *q, integer *ldq, doublereal *work, integer *info) { @@ -688,19 +688,21 @@ f"> */ /* Local variables */ integer inca, jend, lend, jinc, incx, last; doublereal temp; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer j1end, j1inc, i__, j, k, l, iqend; extern logical lsame_(char *, char *); logical initq, wantq, upper; integer i2, j1, j2; - extern /* Subroutine */ int dlar2v_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlar2v_(integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nq, nr, iqaend; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *, ftnlen), dlargv_( + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlargv_( integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *), dlartv_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, @@ -756,13 +758,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSBTRD", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize Q to the unit matrix, if needed */ @@ -1277,7 +1279,7 @@ f"> */ } } - return 0; + return; /* End of DSBTRD */ diff --git a/lapack-netlib/SRC/dsfrk.c b/lapack-netlib/SRC/dsfrk.c index d9c21b64d..d31002e1e 100644 --- a/lapack-netlib/SRC/dsfrk.c +++ b/lapack-netlib/SRC/dsfrk.c @@ -674,7 +674,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsfrk_(char *transr, char *uplo, char *trans, integer *n, +/* Subroutine */ void dsfrk_(char *transr, char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublereal *a, integer *lda, doublereal *beta, doublereal *c__) { @@ -684,13 +684,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ integer info, j; logical normaltransr; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer nrowa; logical lower; - extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyrk_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer n1, n2, nk; @@ -743,7 +743,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (info != 0) { i__1 = -info; xerbla_("DSFRK ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ @@ -752,7 +752,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* done (it is in DSYRK for example) and left in the general case. */ if (*n == 0 || (*alpha == 0. || *k == 0) && *beta == 1.) { - return 0; + return; } if (*alpha == 0. && *beta == 0.) { @@ -760,7 +760,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { c__[j] = 0.; } - return 0; + return; } /* C is N-by-N. */ @@ -1066,7 +1066,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of DSFRK */ diff --git a/lapack-netlib/SRC/dsgesv.c b/lapack-netlib/SRC/dsgesv.c index c170f3d07..049fd25d8 100644 --- a/lapack-netlib/SRC/dsgesv.c +++ b/lapack-netlib/SRC/dsgesv.c @@ -710,7 +710,7 @@ f"> */ /* > \ingroup doubleGEsolve */ /* ===================================================================== */ -/* Subroutine */ int dsgesv_(integer *n, integer *nrhs, doublereal *a, +/* Subroutine */ void dsgesv_(integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal * x, integer *ldx, doublereal *work, real *swork, integer *iter, integer *info) @@ -725,11 +725,11 @@ f"> */ integer ptsa; doublereal rnrm, xnrm; integer ptsx, i__; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer iiter; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dlag2s_(integer *, integer *, doublereal *, integer *, real *, integer *, integer *), slag2d_( integer *, integer *, real *, integer *, doublereal *, integer *, @@ -737,13 +737,17 @@ f"> */ extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - dgetrf_(integer *, integer *, doublereal *, integer *, integer *, - integer *), xerbla_(char *, integer *, ftnlen), dgetrs_(char *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int dgetrf_(integer *, integer *, doublereal *, integer *, integer *, + integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern int dgetrs_(char *, integer *, integer *, doublereal *, integer *, integer *, - doublereal *, integer *, integer *), sgetrf_(integer *, - integer *, real *, integer *, integer *, integer *), sgetrs_(char + doublereal *, integer *, integer *); + extern int sgetrf_(integer *, + integer *, real *, integer *, integer *, integer *); + extern int sgetrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); doublereal cte, eps; @@ -799,13 +803,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSGESV", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if (N.EQ.0). */ if (*n == 0) { - return 0; + return; } /* Skip single precision iterative refinement if a priori slower */ @@ -890,7 +894,7 @@ f"> */ /* stopping criterion. We are good to exit. */ *iter = 0; - return 0; + return; L10: @@ -949,7 +953,7 @@ L10: *iter = iiter; - return 0; + return; L20: @@ -972,14 +976,14 @@ L40: dgetrf_(n, n, &a[a_offset], lda, &ipiv[1], info); if (*info != 0) { - return 0; + return; } dlacpy_("All", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); dgetrs_("No transpose", n, nrhs, &a[a_offset], lda, &ipiv[1], &x[x_offset] , ldx, info); - return 0; + return; /* End of DSGESV. */ diff --git a/lapack-netlib/SRC/dspcon.c b/lapack-netlib/SRC/dspcon.c index 9a0588c80..1ae028787 100644 --- a/lapack-netlib/SRC/dspcon.c +++ b/lapack-netlib/SRC/dspcon.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer * +/* Subroutine */ void dspcon_(char *uplo, integer *n, doublereal *ap, integer * ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info) { @@ -649,12 +649,12 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int dsptrs_(char *, integer *, integer *, + extern /* Subroutine */ void dsptrs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -688,7 +688,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -696,9 +696,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -710,7 +710,7 @@ f"> */ ip = *n * (*n + 1) / 2; for (i__ = *n; i__ >= 1; --i__) { if (ipiv[i__] > 0 && ap[ip] == 0.) { - return 0; + return; } ip -= i__; /* L10: */ @@ -723,7 +723,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (ipiv[i__] > 0 && ap[ip] == 0.) { - return 0; + return; } ip = ip + *n - i__ + 1; /* L20: */ @@ -749,7 +749,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of DSPCON */ diff --git a/lapack-netlib/SRC/dspev.c b/lapack-netlib/SRC/dspev.c index 7d65a7af4..aa0b6bf8c 100644 --- a/lapack-netlib/SRC/dspev.c +++ b/lapack-netlib/SRC/dspev.c @@ -644,7 +644,7 @@ atrices */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal * +/* Subroutine */ void dspev_(char *jobz, char *uplo, integer *n, doublereal * ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *info) { @@ -657,7 +657,7 @@ atrices */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -671,10 +671,10 @@ atrices */ extern doublereal dlansp_(char *, char *, integer *, doublereal *, doublereal *); integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); integer indwrk; - extern /* Subroutine */ int dopgtr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dopgtr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsptrd_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, @@ -719,13 +719,13 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -733,7 +733,7 @@ atrices */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -792,7 +792,7 @@ atrices */ dscal_(&imax, &d__1, &w[1], &c__1); } - return 0; + return; /* End of DSPEV */ diff --git a/lapack-netlib/SRC/dspevd.c b/lapack-netlib/SRC/dspevd.c index ebc45ce5f..e674f18b0 100644 --- a/lapack-netlib/SRC/dspevd.c +++ b/lapack-netlib/SRC/dspevd.c @@ -691,7 +691,7 @@ f"> */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal * +/* Subroutine */ void dspevd_(char *jobz, char *uplo, integer *n, doublereal * ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -702,7 +702,7 @@ f"> */ /* Local variables */ integer inde; doublereal anrm, rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -710,7 +710,7 @@ f"> */ logical wantz; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dstedc_(char *, integer *, doublereal *, + extern /* Subroutine */ void dstedc_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *); doublereal safmin; @@ -719,10 +719,10 @@ f"> */ extern doublereal dlansp_(char *, char *, integer *, doublereal *, doublereal *); integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int dsptrd_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsptrd_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dopmtr_(char *, char *, char *, integer *, integer *, doublereal * , doublereal *, doublereal *, integer *, doublereal *, integer *); @@ -796,15 +796,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -812,7 +812,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -871,7 +871,7 @@ f"> */ work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSPEVD */ diff --git a/lapack-netlib/SRC/dspevx.c b/lapack-netlib/SRC/dspevx.c index 536e5ac92..92ea4ac6d 100644 --- a/lapack-netlib/SRC/dspevx.c +++ b/lapack-netlib/SRC/dspevx.c @@ -746,7 +746,7 @@ f"> */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void dspevx_(char *jobz, char *range, char *uplo, integer *n, doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer * iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, @@ -763,13 +763,13 @@ f"> */ doublereal rmin, rmax; logical test; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical wantz; @@ -784,17 +784,17 @@ f"> */ extern doublereal dlansp_(char *, char *, integer *, doublereal *, doublereal *); integer indtau, indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo; - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int dopgtr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dopgtr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsptrd_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, @@ -864,14 +864,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -887,7 +887,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -1053,7 +1053,7 @@ L20: } } - return 0; + return; /* End of DSPEVX */ diff --git a/lapack-netlib/SRC/dspgst.c b/lapack-netlib/SRC/dspgst.c index 74f3e5774..3fd0c23c1 100644 --- a/lapack-netlib/SRC/dspgst.c +++ b/lapack-netlib/SRC/dspgst.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n, +/* Subroutine */ void dspgst_(integer *itype, char *uplo, integer *n, doublereal *ap, doublereal *bp, integer *info) { /* System generated locals */ @@ -638,19 +638,19 @@ f"> */ /* Local variables */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); - extern /* Subroutine */ int dspr2_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspr2_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *); integer j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dspmv_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical upper; integer j1, k1; - extern /* Subroutine */ int dtpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpmv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *), dtpsv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); @@ -692,7 +692,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPGST", &i__1, (ftnlen)6); - return 0; + return; } if (*itype == 1) { @@ -831,7 +831,7 @@ f"> */ } } } - return 0; + return; /* End of DSPGST */ diff --git a/lapack-netlib/SRC/dspgv.c b/lapack-netlib/SRC/dspgv.c index 1f9e29d3f..be8b6d322 100644 --- a/lapack-netlib/SRC/dspgv.c +++ b/lapack-netlib/SRC/dspgv.c @@ -672,7 +672,7 @@ static integer c__1 = 1; /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void dspgv_(integer *itype, char *jobz, char *uplo, integer * n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *info) { @@ -682,16 +682,17 @@ static integer c__1 = 1; /* Local variables */ integer neig, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dspev_(char *, char *, integer *, doublereal * + extern /* Subroutine */ void dspev_(char *, char *, integer *, doublereal * , doublereal *, doublereal *, integer *, doublereal *, integer *); char trans[1]; logical upper; - extern /* Subroutine */ int dtpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpmv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *), dtpsv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); logical wantz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpptrf_( char *, integer *, doublereal *, integer *), dspgst_( integer *, char *, integer *, doublereal *, doublereal *, integer *); @@ -736,13 +737,13 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DSPGV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -750,7 +751,7 @@ static integer c__1 = 1; dpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -803,7 +804,7 @@ static integer c__1 = 1; } } } - return 0; + return; /* End of DSPGV */ diff --git a/lapack-netlib/SRC/dspgvd.c b/lapack-netlib/SRC/dspgvd.c index b80830a7b..3927df724 100644 --- a/lapack-netlib/SRC/dspgvd.c +++ b/lapack-netlib/SRC/dspgvd.c @@ -722,7 +722,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void dspgvd_(integer *itype, char *jobz, char *uplo, integer * n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) @@ -737,17 +737,18 @@ f"> */ integer lwmin; char trans[1]; logical upper; - extern /* Subroutine */ int dtpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpmv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *), dtpsv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); logical wantz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dspevd_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dspevd_( char *, char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *); integer liwmin; - extern /* Subroutine */ int dpptrf_(char *, integer *, doublereal *, + extern /* Subroutine */ void dpptrf_(char *, integer *, doublereal *, integer *), dspgst_(integer *, char *, integer *, doublereal *, doublereal *, integer *); logical lquery; @@ -819,15 +820,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of BP. */ @@ -835,7 +836,7 @@ f"> */ dpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -899,7 +900,7 @@ f"> */ work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSPGVD */ diff --git a/lapack-netlib/SRC/dspgvx.c b/lapack-netlib/SRC/dspgvx.c index 4d978aca4..b02296c2c 100644 --- a/lapack-netlib/SRC/dspgvx.c +++ b/lapack-netlib/SRC/dspgvx.c @@ -783,7 +783,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char * +/* Subroutine */ void dspgvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, @@ -797,12 +797,13 @@ f"> */ extern logical lsame_(char *, char *); char trans[1]; logical upper; - extern /* Subroutine */ int dtpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpmv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *), dtpsv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); logical wantz, alleig, indeig, valeig; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dpptrf_( char *, integer *, doublereal *, integer *), dspgst_( integer *, char *, integer *, doublereal *, doublereal *, integer *), dspevx_(char *, char *, char *, integer *, doublereal @@ -873,14 +874,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPGVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -888,7 +889,7 @@ f"> */ dpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -942,7 +943,7 @@ f"> */ } } - return 0; + return; /* End of DSPGVX */ diff --git a/lapack-netlib/SRC/dsposv.c b/lapack-netlib/SRC/dsposv.c index 5ce5794de..3e0f26533 100644 --- a/lapack-netlib/SRC/dsposv.c +++ b/lapack-netlib/SRC/dsposv.c @@ -713,7 +713,7 @@ f"> */ /* > \ingroup doublePOsolve */ /* ===================================================================== */ -/* Subroutine */ int dsposv_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsposv_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * x, integer *ldx, doublereal *work, real *swork, integer *iter, integer *info) @@ -730,7 +730,7 @@ f"> */ integer ptsx, i__; extern logical lsame_(char *, char *); integer iiter; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsymm_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dlag2s_(integer *, integer *, doublereal *, @@ -740,14 +740,17 @@ f"> */ integer *, integer *); extern doublereal dlamch_(char *); extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); extern /* Subroutine */ int dpotrf_(char *, integer *, doublereal *, - integer *, integer *), dpotrs_(char *, integer *, integer - *, doublereal *, integer *, doublereal *, integer *, integer *), spotrf_(char *, integer *, real *, integer *, integer *), spotrs_(char *, integer *, integer *, real *, integer *, + integer *, integer *); + extern void dpotrs_(char *, integer *, integer + *, doublereal *, integer *, doublereal *, integer *, integer *); + extern int spotrf_(char *, integer *, real *, integer *, integer *); + extern void spotrs_(char *, integer *, integer *, real *, integer *, real *, integer *, integer *); doublereal cte, eps; @@ -803,13 +806,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPOSV", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if (N.EQ.0). */ if (*n == 0) { - return 0; + return; } /* Skip single precision iterative refinement if a priori slower */ @@ -893,7 +896,7 @@ f"> */ /* stopping criterion. We are good to exit. */ *iter = 0; - return 0; + return; L10: @@ -950,7 +953,7 @@ L10: *iter = iiter; - return 0; + return; L20: @@ -973,13 +976,13 @@ L40: dpotrf_(uplo, n, &a[a_offset], lda, info); if (*info != 0) { - return 0; + return; } dlacpy_("All", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); dpotrs_(uplo, n, nrhs, &a[a_offset], lda, &x[x_offset], ldx, info); - return 0; + return; /* End of DSPOSV. */ diff --git a/lapack-netlib/SRC/dsprfs.c b/lapack-netlib/SRC/dsprfs.c index bd16e71f3..520916c6a 100644 --- a/lapack-netlib/SRC/dsprfs.c +++ b/lapack-netlib/SRC/dsprfs.c @@ -693,7 +693,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsprfs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info) @@ -709,15 +709,15 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; - extern /* Subroutine */ int dspmv_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspmv_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer ik, kk; extern doublereal dlamch_(char *); @@ -726,7 +726,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int dsptrs_(char *, integer *, integer *, + extern /* Subroutine */ void dsptrs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); doublereal eps; @@ -774,7 +774,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -786,7 +786,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -989,7 +989,7 @@ L100: /* L140: */ } - return 0; + return; /* End of DSPRFS */ diff --git a/lapack-netlib/SRC/dspsv.c b/lapack-netlib/SRC/dspsv.c index f15ef292f..c98c5229d 100644 --- a/lapack-netlib/SRC/dspsv.c +++ b/lapack-netlib/SRC/dspsv.c @@ -671,7 +671,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal +/* Subroutine */ void dspsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info) { /* System generated locals */ @@ -679,7 +679,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dsptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dsptrf_( char *, integer *, doublereal *, integer *, integer *), dsptrs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -717,7 +718,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DSPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -730,7 +731,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dsptrs_(uplo, n, nrhs, &ap[1], &ipiv[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of DSPSV */ diff --git a/lapack-netlib/SRC/dspsvx.c b/lapack-netlib/SRC/dspsvx.c index 7ef98db65..41bfe98f8 100644 --- a/lapack-netlib/SRC/dspsvx.c +++ b/lapack-netlib/SRC/dspsvx.c @@ -788,7 +788,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void dspsvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, @@ -800,16 +800,16 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); doublereal anorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); extern doublereal dlamch_(char *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern doublereal dlansp_(char *, char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dspcon_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspcon_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *), dsprfs_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, @@ -866,7 +866,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -881,7 +881,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -911,7 +911,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of DSPSVX */ diff --git a/lapack-netlib/SRC/dsptrd.c b/lapack-netlib/SRC/dsptrd.c index 9e0821bbe..d613b5799 100644 --- a/lapack-netlib/SRC/dsptrd.c +++ b/lapack-netlib/SRC/dsptrd.c @@ -665,7 +665,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap, +/* Subroutine */ void dsptrd_(char *uplo, integer *n, doublereal *ap, doublereal *d__, doublereal *e, doublereal *tau, integer *info) { /* System generated locals */ @@ -675,20 +675,21 @@ f"> */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal taui; - extern /* Subroutine */ int dspr2_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspr2_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *); integer i__; doublereal alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dspmv_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer i1; logical upper; integer ii; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, - integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, + integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); integer i1i1; @@ -720,13 +721,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPTRD", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } if (upper) { @@ -828,7 +829,7 @@ f"> */ d__[*n] = ap[ii]; } - return 0; + return; /* End of DSPTRD */ diff --git a/lapack-netlib/SRC/dsptrf.c b/lapack-netlib/SRC/dsptrf.c index 61b6c7491..6040c539d 100644 --- a/lapack-netlib/SRC/dsptrf.c +++ b/lapack-netlib/SRC/dsptrf.c @@ -672,7 +672,7 @@ f"> */ /* > J. Lewis, Boeing Computer Services Company */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer * +/* Subroutine */ void dsptrf_(char *uplo, integer *n, doublereal *ap, integer * ipiv, integer *info) { /* System generated locals */ @@ -681,14 +681,14 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int dspr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspr_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer i__, j, k; doublereal t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; logical upper; @@ -729,7 +729,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1168,7 +1168,7 @@ L60: } L110: - return 0; + return; /* End of DSPTRF */ diff --git a/lapack-netlib/SRC/dsptri.c b/lapack-netlib/SRC/dsptri.c index eef8a578c..2ecb43c46 100644 --- a/lapack-netlib/SRC/dsptri.c +++ b/lapack-netlib/SRC/dsptri.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer * +/* Subroutine */ void dsptri_(char *uplo, integer *n, doublereal *ap, integer * ipiv, doublereal *work, integer *info) { /* System generated locals */ @@ -638,11 +638,11 @@ f"> */ integer j, k; doublereal t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; - extern /* Subroutine */ int dspmv_(char *, integer *, doublereal *, + extern /* Subroutine */ void dspmv_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical upper; @@ -680,13 +680,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -698,7 +698,7 @@ f"> */ kp = *n * (*n + 1) / 2; for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && ap[kp] == 0.) { - return 0; + return; } kp -= *info; /* L10: */ @@ -711,7 +711,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && ap[kp] == 0.) { - return 0; + return; } kp = kp + *n - *info + 1; /* L20: */ @@ -952,7 +952,7 @@ L80: ; } - return 0; + return; /* End of DSPTRI */ diff --git a/lapack-netlib/SRC/dsptrs.c b/lapack-netlib/SRC/dsptrs.c index 759e14f70..c31a7c796 100644 --- a/lapack-netlib/SRC/dsptrs.c +++ b/lapack-netlib/SRC/dsptrs.c @@ -630,7 +630,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer * info) { @@ -639,16 +639,16 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal akm1k; integer j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal denom; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); @@ -690,13 +690,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1003,7 +1003,7 @@ L100: ; } - return 0; + return; /* End of DSPTRS */ diff --git a/lapack-netlib/SRC/dstebz.c b/lapack-netlib/SRC/dstebz.c index 973b1faf6..608ebe510 100644 --- a/lapack-netlib/SRC/dstebz.c +++ b/lapack-netlib/SRC/dstebz.c @@ -789,7 +789,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal +/* Subroutine */ void dstebz_(char *range, char *order, integer *n, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, doublereal *d__, doublereal *e, integer *m, integer *nsplit, doublereal *w, integer *iblock, integer *isplit, doublereal *work, @@ -815,7 +815,7 @@ f"> */ integer ibegin; doublereal gu; integer iw; - extern /* Subroutine */ int dlaebz_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaebz_(integer *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, @@ -901,7 +901,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSTEBZ", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize error flags */ @@ -914,7 +914,7 @@ f"> */ *m = 0; if (*n == 0) { - return 0; + return; } /* Simplifications: */ @@ -948,7 +948,7 @@ f"> */ iblock[1] = 1; *m = 1; } - return 0; + return; } /* Compute Splitting Points */ @@ -1061,7 +1061,7 @@ f"> */ if (nwl < 0 || nwl >= *n || nwu < 1 || nwu > *n) { *info = 4; - return 0; + return; } } else { @@ -1364,7 +1364,7 @@ L70: if (toofew) { *info += 2; } - return 0; + return; /* End of DSTEBZ */ diff --git a/lapack-netlib/SRC/dstedc.c b/lapack-netlib/SRC/dstedc.c index 56511d6cf..cd3ba9a66 100644 --- a/lapack-netlib/SRC/dstedc.c +++ b/lapack-netlib/SRC/dstedc.c @@ -705,7 +705,7 @@ f"> */ /* > Modified by Francoise Tisseur, University of Tennessee */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__, +/* Subroutine */ void dstedc_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -717,19 +717,19 @@ f"> */ doublereal tiny; integer i__, j, k, m; doublereal p; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; - extern /* Subroutine */ int dlaed0_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaed0_(integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer start, ii; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), @@ -740,10 +740,10 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer finish; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), dlasrt_(char *, integer *, doublereal *, integer *); integer liwmin, icompz; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal orgnrm; logical lquery; @@ -837,21 +837,21 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSTEDC", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (icompz != 0) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* If the following conditional clause is removed, then the routine */ @@ -1033,7 +1033,7 @@ L50: work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSTEDC */ diff --git a/lapack-netlib/SRC/dstegr.c b/lapack-netlib/SRC/dstegr.c index 592c8b597..d64c439ae 100644 --- a/lapack-netlib/SRC/dstegr.c +++ b/lapack-netlib/SRC/dstegr.c @@ -772,7 +772,7 @@ f"> */ /* > Christof Voemel, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal * +/* Subroutine */ void dstegr_(char *jobz, char *range, integer *n, doublereal * d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, @@ -782,7 +782,7 @@ f"> */ integer z_dim1, z_offset; /* Local variables */ - extern /* Subroutine */ int dstemr_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstemr_(char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, integer *, logical *, doublereal *, integer *, integer *, integer @@ -818,6 +818,6 @@ f"> */ /* End of DSTEGR */ - return 0; + return; } /* dstegr_ */ diff --git a/lapack-netlib/SRC/dstein.c b/lapack-netlib/SRC/dstein.c index 22798e355..a916d8ad1 100644 --- a/lapack-netlib/SRC/dstein.c +++ b/lapack-netlib/SRC/dstein.c @@ -688,7 +688,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e, +/* Subroutine */ void dstein_(integer *n, doublereal *d__, doublereal *e, integer *m, doublereal *w, integer *iblock, integer *isplit, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info) @@ -704,28 +704,29 @@ f"> */ integer jmax; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer iseed[4], gpind, iinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer b1; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer j1; doublereal ortol; integer indrv1, indrv2, indrv3, indrv4, indrv5, bn; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlagtf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlagtf_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer * , integer *); doublereal xj; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlagts_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dlagts_( integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nrmchk; - extern /* Subroutine */ int dlarnv_(integer *, integer *, integer *, + extern /* Subroutine */ void dlarnv_(integer *, integer *, integer *, doublereal *); integer blksiz; doublereal onenrm, dtpcrt, pertol, scl, eps, sep, nrm, tol; @@ -791,16 +792,16 @@ L30: if (*info != 0) { i__1 = -(*info); xerbla_("DSTEIN", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } else if (*n == 1) { z__[z_dim1 + 1] = 1.; - return 0; + return; } /* Get machine constants. */ @@ -1015,7 +1016,7 @@ L160: ; } - return 0; + return; /* End of DSTEIN */ diff --git a/lapack-netlib/SRC/dstemr.c b/lapack-netlib/SRC/dstemr.c index fdafc23fe..42b58bf61 100644 --- a/lapack-netlib/SRC/dstemr.c +++ b/lapack-netlib/SRC/dstemr.c @@ -833,7 +833,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int dstemr_(char *jobz, char *range, integer *n, doublereal * +/* Subroutine */ void dstemr_(char *jobz, char *range, integer *n, doublereal * d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, integer *m, doublereal *w, doublereal *z__, integer *ldz, integer *nzc, integer *isuppz, logical *tryrac, doublereal *work, @@ -848,24 +848,24 @@ f"> */ doublereal rmin, rmax; integer itmp; doublereal tnrm; - extern /* Subroutine */ int dlae2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlae2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); integer inde2, itmp2; doublereal rtol1, rtol2; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal scale; integer indgp; extern logical lsame_(char *, char *); integer iinfo, iindw, ilast; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; logical wantz; doublereal r1, r2; - extern /* Subroutine */ int dlaev2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlaev2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); integer jj; @@ -876,7 +876,7 @@ f"> */ integer ibegin, iindbl; doublereal sn, wl; logical valeig; - extern /* Subroutine */ int dlarrc_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlarrc_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *), dlarre_(char *, integer *, doublereal *, doublereal *, integer *, integer *, @@ -886,14 +886,15 @@ f"> */ doublereal *, doublereal *, doublereal *, integer *, integer *); integer wbegin; doublereal safmin, wu; - extern /* Subroutine */ int dlarrj_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarrj_(integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer inderr, iindwk, indgrs, offset; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dlarrr_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarrr_(integer *, doublereal *, doublereal *, integer *), dlarrv_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, @@ -1027,16 +1028,16 @@ f"> */ i__1 = -(*info); xerbla_("DSTEMR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery || zquery) { - return 0; + return; } /* Handle N = 0, 1, and 2 cases immediately */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1054,7 +1055,7 @@ f"> */ isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } if (*n == 2) { @@ -1202,7 +1203,7 @@ f"> */ work[indgrs], &pivmin, &work[indwrk], &iwork[iindwk], &iinfo); if (iinfo != 0) { *info = abs(iinfo) + 10; - return 0; + return; } /* Note that if RANGE .NE. 'V', DLARRE computes bounds on the desired */ /* part of the spectrum. All desired eigenvalues are contained in */ @@ -1219,7 +1220,7 @@ f"> */ iindwk], &iinfo); if (iinfo != 0) { *info = abs(iinfo) + 20; - return 0; + return; } } else { /* DLARRE computes eigenvalues of the (shifted) root representation */ @@ -1288,7 +1289,7 @@ L39: dlasrt_("I", m, &w[1], &iinfo); if (iinfo != 0) { *info = 3; - return 0; + return; } } else { i__1 = *m - 1; @@ -1325,7 +1326,7 @@ L39: work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSTEMR */ diff --git a/lapack-netlib/SRC/dsteqr.c b/lapack-netlib/SRC/dsteqr.c index 95c0524cc..d1140bea6 100644 --- a/lapack-netlib/SRC/dsteqr.c +++ b/lapack-netlib/SRC/dsteqr.c @@ -648,7 +648,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__, +/* Subroutine */ void dsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info) { @@ -658,19 +658,19 @@ f"> */ /* Local variables */ integer lend, jtot; - extern /* Subroutine */ int dlae2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlae2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal b, c__, f, g; integer i__, j, k, l, m; doublereal p, r__, s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dlasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dlasr_(char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal anorm; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer l1; - extern /* Subroutine */ int dlaev2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlaev2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); integer lendm1, lendp1; @@ -678,17 +678,17 @@ f"> */ integer ii; extern doublereal dlamch_(char *); integer mm, iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal safmin; - extern /* Subroutine */ int dlartg_(doublereal *, doublereal *, + extern /* Subroutine */ void dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dlasrt_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlasrt_(char *, integer *, doublereal *, integer *); integer lendsv; doublereal ssfmin; @@ -741,20 +741,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSTEQR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (icompz == 2) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Determine the unit roundoff and over/underflow thresholds. */ @@ -1168,7 +1168,7 @@ L160: } L190: - return 0; + return; /* End of DSTEQR */ diff --git a/lapack-netlib/SRC/dsterf.c b/lapack-netlib/SRC/dsterf.c index 168d3c940..090c50b61 100644 --- a/lapack-netlib/SRC/dsterf.c +++ b/lapack-netlib/SRC/dsterf.c @@ -601,7 +601,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e, +/* Subroutine */ void dsterf_(integer *n, doublereal *d__, doublereal *e, integer *info) { /* System generated locals */ @@ -613,7 +613,7 @@ f"> */ integer lend; doublereal rmax; integer jtot; - extern /* Subroutine */ int dlae2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlae2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal c__; integer i__, l, m; @@ -623,14 +623,14 @@ f"> */ doublereal bb; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal oldgam, safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal safmax; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dlasrt_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlasrt_(char *, integer *, doublereal *, integer *); integer lendsv; doublereal ssfmin; @@ -664,10 +664,10 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("DSTERF", &i__1, (ftnlen)6); - return 0; + return; } if (*n <= 1) { - return 0; + return; } /* Determine the unit roundoff for this environment. */ @@ -998,7 +998,7 @@ L170: dlasrt_("I", n, &d__[1], info); L180: - return 0; + return; /* End of DSTERF */ diff --git a/lapack-netlib/SRC/dstev.c b/lapack-netlib/SRC/dstev.c index e1dfae026..00ab2cfe0 100644 --- a/lapack-netlib/SRC/dstev.c +++ b/lapack-netlib/SRC/dstev.c @@ -630,7 +630,7 @@ atrices */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__, +/* Subroutine */ void dstev_(char *jobz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info) { @@ -641,7 +641,7 @@ atrices */ /* Local variables */ integer imax; doublereal rmin, rmax, tnrm; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -652,7 +652,7 @@ atrices */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), dsteqr_(char *, integer *, doublereal *, doublereal * , doublereal *, integer *, doublereal *, integer *); doublereal smlnum, eps; @@ -692,20 +692,20 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("DSTEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -755,7 +755,7 @@ atrices */ dscal_(&imax, &d__1, &d__[1], &c__1); } - return 0; + return; /* End of DSTEV */ diff --git a/lapack-netlib/SRC/dstevd.c b/lapack-netlib/SRC/dstevd.c index efd4540a4..cf2f30eac 100644 --- a/lapack-netlib/SRC/dstevd.c +++ b/lapack-netlib/SRC/dstevd.c @@ -676,7 +676,7 @@ f"> */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__, +/* Subroutine */ void dstevd_(char *jobz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -686,7 +686,7 @@ f"> */ /* Local variables */ doublereal rmin, rmax, tnrm; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -694,14 +694,14 @@ f"> */ logical wantz; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dstedc_(char *, integer *, doublereal *, + extern /* Subroutine */ void dstedc_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *); doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); integer liwmin; doublereal smlnum; @@ -765,22 +765,22 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSTEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -829,7 +829,7 @@ f"> */ work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSTEVD */ diff --git a/lapack-netlib/SRC/dstevr.c b/lapack-netlib/SRC/dstevr.c index 5e1eacdd2..e5fbbdae4 100644 --- a/lapack-netlib/SRC/dstevr.c +++ b/lapack-netlib/SRC/dstevr.c @@ -820,7 +820,7 @@ f"> */ /* > California at Berkeley, USA \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal * +/* Subroutine */ void dstevr_(char *jobz, char *range, integer *n, doublereal * d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, @@ -836,12 +836,12 @@ f"> */ logical test; doublereal tnrm; integer itmp1, i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; @@ -858,12 +858,12 @@ f"> */ doublereal bignum; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); integer indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo; - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), @@ -961,16 +961,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSTEVR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -986,7 +986,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -1145,7 +1145,7 @@ L10: work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSTEVR */ diff --git a/lapack-netlib/SRC/dstevx.c b/lapack-netlib/SRC/dstevx.c index 413be6220..1febd23eb 100644 --- a/lapack-netlib/SRC/dstevx.c +++ b/lapack-netlib/SRC/dstevx.c @@ -740,7 +740,7 @@ f"> */ /* > \ingroup doubleOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal * +/* Subroutine */ void dstevx_(char *jobz, char *range, integer *n, doublereal * d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, @@ -756,12 +756,12 @@ f"> */ logical test; doublereal tnrm; integer itmp1, i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical wantz; @@ -775,17 +775,17 @@ f"> */ doublereal bignum; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); integer indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo; - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer nsplit; doublereal smlnum, eps, vll, vuu, tmp1; @@ -848,14 +848,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSTEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -871,7 +871,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -1017,7 +1017,7 @@ L20: } } - return 0; + return; /* End of DSTEVX */ diff --git a/lapack-netlib/SRC/dsycon.c b/lapack-netlib/SRC/dsycon.c index c9554631e..751cd076d 100644 --- a/lapack-netlib/SRC/dsycon.c +++ b/lapack-netlib/SRC/dsycon.c @@ -642,7 +642,7 @@ f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dsycon_(char *uplo, integer *n, doublereal *a, integer * lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal * work, integer *iwork, integer *info) { @@ -654,11 +654,11 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, - integer *, doublereal *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, + integer *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int dsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); @@ -697,7 +697,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -705,9 +705,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -718,7 +718,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.) { - return 0; + return; } /* L10: */ } @@ -729,7 +729,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.) { - return 0; + return; } /* L20: */ } @@ -755,7 +755,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of DSYCON */ diff --git a/lapack-netlib/SRC/dsycon_3.c b/lapack-netlib/SRC/dsycon_3.c index 4aff37b54..9f9cb0039 100644 --- a/lapack-netlib/SRC/dsycon_3.c +++ b/lapack-netlib/SRC/dsycon_3.c @@ -683,7 +683,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsycon_3_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsycon_3_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *e, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info) { @@ -692,16 +692,16 @@ static integer c__1 = 1; /* Local variables */ integer kase; - extern /* Subroutine */ int dsytrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_3_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, - integer *, doublereal *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, + integer *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; @@ -740,7 +740,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DSYCON_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ @@ -748,9 +748,9 @@ static integer c__1 = 1; *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -761,7 +761,7 @@ static integer c__1 = 1; for (i__ = *n; i__ >= 1; --i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.) { - return 0; + return; } } } else { @@ -771,7 +771,7 @@ static integer c__1 = 1; i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.) { - return 0; + return; } } } @@ -796,7 +796,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of DSYCON_3 */ diff --git a/lapack-netlib/SRC/dsycon_rook.c b/lapack-netlib/SRC/dsycon_rook.c index 5d7da8bdc..c339fc39c 100644 --- a/lapack-netlib/SRC/dsycon_rook.c +++ b/lapack-netlib/SRC/dsycon_rook.c @@ -656,7 +656,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsycon_rook_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsycon_rook_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info) { @@ -664,16 +664,16 @@ rook.f"> */ integer a_dim1, a_offset, i__1; /* Local variables */ - extern /* Subroutine */ int dsytrs_rook_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_rook_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer kase, i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, - integer *, doublereal *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, + integer *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; @@ -711,7 +711,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYCON_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ @@ -719,9 +719,9 @@ rook.f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -732,7 +732,7 @@ rook.f"> */ for (i__ = *n; i__ >= 1; --i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.) { - return 0; + return; } /* L10: */ } @@ -743,7 +743,7 @@ rook.f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.) { - return 0; + return; } /* L20: */ } @@ -769,7 +769,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of DSYCON_ROOK */ diff --git a/lapack-netlib/SRC/dsyconv.c b/lapack-netlib/SRC/dsyconv.c index 38a830639..192321ef6 100644 --- a/lapack-netlib/SRC/dsyconv.c +++ b/lapack-netlib/SRC/dsyconv.c @@ -623,7 +623,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsyconv_(char *uplo, char *way, integer *n, doublereal * +/* Subroutine */ void dsyconv_(char *uplo, char *way, integer *n, doublereal * a, integer *lda, integer *ipiv, doublereal *e, integer *info) { /* System generated locals */ @@ -672,13 +672,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DSYCONV", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -880,7 +880,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } } - return 0; + return; /* End of DSYCONV */ diff --git a/lapack-netlib/SRC/dsyconvf.c b/lapack-netlib/SRC/dsyconvf.c index d3a589870..3947a6b56 100644 --- a/lapack-netlib/SRC/dsyconvf.c +++ b/lapack-netlib/SRC/dsyconvf.c @@ -715,7 +715,7 @@ f.f"> */ /* > */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsyconvf_(char *uplo, char *way, integer *n, doublereal * +/* Subroutine */ void dsyconvf_(char *uplo, char *way, integer *n, doublereal * a, integer *lda, doublereal *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -724,7 +724,7 @@ f.f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical upper; integer ip; @@ -765,13 +765,13 @@ f.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYCONVF", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -1072,7 +1072,7 @@ f.f"> */ /* End A is LOWER */ } - return 0; + return; /* End of DSYCONVF */ diff --git a/lapack-netlib/SRC/dsyconvf_rook.c b/lapack-netlib/SRC/dsyconvf_rook.c index 5c546aeb3..49b4fcc19 100644 --- a/lapack-netlib/SRC/dsyconvf_rook.c +++ b/lapack-netlib/SRC/dsyconvf_rook.c @@ -706,7 +706,7 @@ f_rook.f"> */ /* > */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsyconvf_rook_(char *uplo, char *way, integer *n, +/* Subroutine */ void dsyconvf_rook_(char *uplo, char *way, integer *n, doublereal *a, integer *lda, doublereal *e, integer *ipiv, integer * info) { @@ -716,7 +716,7 @@ f_rook.f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical upper; integer ip; @@ -758,13 +758,13 @@ f_rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYCONVF_ROOK", &i__1, (ftnlen)13); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -1063,7 +1063,7 @@ f_rook.f"> */ /* End A is LOWER */ } - return 0; + return; /* End of DSYCONVF_ROOK */ diff --git a/lapack-netlib/SRC/dsyequb.c b/lapack-netlib/SRC/dsyequb.c index a9d8d00cc..84cb49886 100644 --- a/lapack-netlib/SRC/dsyequb.c +++ b/lapack-netlib/SRC/dsyequb.c @@ -644,7 +644,7 @@ static integer c__1 = 1; /* > Tech report version: http://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.3.1679 */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsyequb_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dsyequb_(char *uplo, integer *n, doublereal *a, integer * lda, doublereal *s, doublereal *scond, doublereal *amax, doublereal * work, integer *info) { @@ -665,7 +665,7 @@ static integer c__1 = 1; logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal smlnum, avg, std, tol; @@ -700,7 +700,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DSYEQUB", &i__1, (ftnlen)7); - return 0; + return; } up = lsame_(uplo, "U"); *amax = 0.; @@ -709,7 +709,7 @@ static integer c__1 = 1; if (*n == 0) { *scond = 1.; - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -826,7 +826,7 @@ static integer c__1 = 1; d__ = c1 * c1 - c0 * 4 * c2; if (d__ <= 0.) { *info = -1; - return 0; + return; } si = c0 * -2 / (c1 + sqrt(d__)); d__ = si - s[i__]; @@ -883,6 +883,6 @@ L999: } *scond = f2cmax(smin,smlnum) / f2cmin(smax,bignum); - return 0; + return; } /* dsyequb_ */ diff --git a/lapack-netlib/SRC/dsyev.c b/lapack-netlib/SRC/dsyev.c index 3c0a8c242..50801fc31 100644 --- a/lapack-netlib/SRC/dsyev.c +++ b/lapack-netlib/SRC/dsyev.c @@ -649,7 +649,7 @@ ices */ /* > \ingroup doubleSYeigen */ /* ===================================================================== */ -/* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsyev_(char *jobz, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *w, doublereal *work, integer *lwork, integer *info) { @@ -662,7 +662,7 @@ ices */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -671,7 +671,7 @@ ices */ integer nb; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal safmin; @@ -680,12 +680,12 @@ ices */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); integer indwrk; - extern /* Subroutine */ int dorgtr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dorgtr_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsytrd_(char *, integer *, doublereal *, integer *, doublereal *, @@ -749,15 +749,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -766,7 +766,7 @@ ices */ if (wantz) { a[a_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -831,7 +831,7 @@ ices */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYEV */ diff --git a/lapack-netlib/SRC/dsyev_2stage.c b/lapack-netlib/SRC/dsyev_2stage.c index a9fc841c9..0b9f7283c 100644 --- a/lapack-netlib/SRC/dsyev_2stage.c +++ b/lapack-netlib/SRC/dsyev_2stage.c @@ -702,7 +702,7 @@ SY matrices */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsyev_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void dsyev_2stage_(char *jobz, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *w, doublereal *work, integer *lwork, integer *info) { @@ -716,12 +716,12 @@ SY matrices */ integer *, integer *, integer *); integer imax; doublereal anrm, rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int dsytrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void dsytrd_2stage_(char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer lhtrd, lwmin; @@ -731,19 +731,19 @@ SY matrices */ integer ib, kd; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); integer indwrk; - extern /* Subroutine */ int dorgtr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dorgtr_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer llwork; @@ -807,15 +807,15 @@ SY matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYEV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -824,7 +824,7 @@ SY matrices */ if (wantz) { a[a_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -872,7 +872,7 @@ SY matrices */ } else { /* Not available in this release, and argument checking should not */ /* let it getting here */ - return 0; + return; dorgtr_(uplo, n, &a[a_offset], lda, &work[indtau], &work[indwrk], & llwork, &iinfo); dsteqr_(jobz, n, &w[1], &work[inde], &a[a_offset], lda, &work[indtau], @@ -895,7 +895,7 @@ SY matrices */ work[1] = (doublereal) lwmin; - return 0; + return; /* End of DSYEV_2STAGE */ diff --git a/lapack-netlib/SRC/dsyevd.c b/lapack-netlib/SRC/dsyevd.c index 7e1810f1d..16f71d9b6 100644 --- a/lapack-netlib/SRC/dsyevd.c +++ b/lapack-netlib/SRC/dsyevd.c @@ -699,7 +699,7 @@ f"> */ /* > Modified description of INFO. Sven, 16 Feb 05. \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal * +/* Subroutine */ void dsyevd_(char *jobz, char *uplo, integer *n, doublereal * a, integer *lda, doublereal *w, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -711,7 +711,7 @@ f"> */ integer inde; doublereal anrm, rmin, rmax; integer lopt; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -720,7 +720,7 @@ f"> */ integer indwk2, llwrk2; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dstedc_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, @@ -733,12 +733,12 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); integer indwrk, liwmin; - extern /* Subroutine */ int dormtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormtr_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *), dsytrd_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, @@ -820,15 +820,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -836,7 +836,7 @@ f"> */ if (wantz) { a[a_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -901,7 +901,7 @@ f"> */ work[1] = (doublereal) lopt; iwork[1] = liopt; - return 0; + return; /* End of DSYEVD */ diff --git a/lapack-netlib/SRC/dsyevd_2stage.c b/lapack-netlib/SRC/dsyevd_2stage.c index ba5cdb7fc..a2fdcc74d 100644 --- a/lapack-netlib/SRC/dsyevd_2stage.c +++ b/lapack-netlib/SRC/dsyevd_2stage.c @@ -746,7 +746,7 @@ static doublereal c_b27 = 1.; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsyevd_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void dsyevd_2stage_(char *jobz, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *w, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -759,12 +759,12 @@ static doublereal c_b27 = 1.; extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); doublereal anrm, rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int dsytrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void dsytrd_2stage_(char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer lhtrd, lwmin; @@ -774,7 +774,7 @@ static doublereal c_b27 = 1.; integer indwk2, ib, llwrk2, kd; extern doublereal dlamch_(char *); integer iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dstedc_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, @@ -785,12 +785,12 @@ static doublereal c_b27 = 1.; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); integer indwrk, liwmin; - extern /* Subroutine */ int dormtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormtr_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer llwork; @@ -873,15 +873,15 @@ static doublereal c_b27 = 1.; if (*info != 0) { i__1 = -(*info); xerbla_("DSYEVD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -889,7 +889,7 @@ static doublereal c_b27 = 1.; if (wantz) { a[a_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -941,7 +941,7 @@ static doublereal c_b27 = 1.; } else { /* Not available in this release, and argument checking should not */ /* let it getting here */ - return 0; + return; dstedc_("I", n, &w[1], &work[inde], &work[indwrk], n, &work[indwk2], & llwrk2, &iwork[1], liwork, info); dormtr_("L", uplo, "N", n, n, &a[a_offset], lda, &work[indtau], &work[ @@ -959,7 +959,7 @@ static doublereal c_b27 = 1.; work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSYEVD_2STAGE */ diff --git a/lapack-netlib/SRC/dsyevr.c b/lapack-netlib/SRC/dsyevr.c index a15b9d195..6f55b9f42 100644 --- a/lapack-netlib/SRC/dsyevr.c +++ b/lapack-netlib/SRC/dsyevr.c @@ -851,7 +851,7 @@ f"> */ /* > California at Berkeley, USA \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void dsyevr_(char *jobz, char *range, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer * il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, @@ -867,14 +867,14 @@ f"> */ integer imax; doublereal rmin, rmax; integer i__, j, inddd, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; integer indwk; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; @@ -890,14 +890,14 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal abstll, bignum; integer indtau, indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo, indwkn; extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), @@ -908,12 +908,12 @@ f"> */ *); integer liwmin; logical tryrac; - extern /* Subroutine */ int dormtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormtr_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer llwrkn, llwork, nsplit; doublereal smlnum; - extern /* Subroutine */ int dsytrd_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytrd_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); integer lwkopt; @@ -1014,9 +1014,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYEVR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -1024,7 +1024,7 @@ f"> */ *m = 0; if (*n == 0) { work[1] = 1.; - return 0; + return; } if (*n == 1) { @@ -1043,7 +1043,7 @@ f"> */ isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } /* Get machine constants. */ @@ -1255,7 +1255,7 @@ L30: work[1] = (doublereal) lwkopt; iwork[1] = liwmin; - return 0; + return; /* End of DSYEVR */ diff --git a/lapack-netlib/SRC/dsyevr_2stage.c b/lapack-netlib/SRC/dsyevr_2stage.c index 51e0ad3c7..a706e53f6 100644 --- a/lapack-netlib/SRC/dsyevr_2stage.c +++ b/lapack-netlib/SRC/dsyevr_2stage.c @@ -898,7 +898,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsyevr_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void dsyevr_2stage_(char *jobz, char *range, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *vl, doublereal * vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, integer *isuppz, @@ -917,14 +917,14 @@ static integer c_n1 = -1; integer imax; doublereal rmin, rmax; integer i__, j, inddd, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; integer indwk, lhtrd; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *), dsytrd_2stage_(char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, @@ -945,14 +945,14 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal abstll, bignum; integer indtau, indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo, indwkn; extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), @@ -963,7 +963,7 @@ static integer c_n1 = -1; *); integer liwmin; logical tryrac; - extern /* Subroutine */ int dormtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void dormtr_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer llwrkn, llwork, nsplit; @@ -1066,9 +1066,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("DSYEVR_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -1076,7 +1076,7 @@ static integer c_n1 = -1; *m = 0; if (*n == 0) { work[1] = 1.; - return 0; + return; } if (*n == 1) { @@ -1095,7 +1095,7 @@ static integer c_n1 = -1; isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } /* Get machine constants. */ @@ -1311,7 +1311,7 @@ L30: work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DSYEVR_2STAGE */ diff --git a/lapack-netlib/SRC/dsyevx.c b/lapack-netlib/SRC/dsyevx.c index 0ef079646..83927ddec 100644 --- a/lapack-netlib/SRC/dsyevx.c +++ b/lapack-netlib/SRC/dsyevx.c @@ -766,7 +766,7 @@ f"> */ /* > \ingroup doubleSYeigen */ /* ===================================================================== */ -/* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void dsyevx_(char *jobz, char *range, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer * il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, @@ -783,13 +783,13 @@ f"> */ doublereal rmin, rmax; logical test; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical lower, wantz; @@ -798,7 +798,7 @@ f"> */ logical alleig, indeig; integer iscale, indibl; logical valeig; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, @@ -806,19 +806,19 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal abstll, bignum; integer indtau, indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo, indwkn; extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indwrk, lwkmin; - extern /* Subroutine */ int dorgtr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dorgtr_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), dormtr_(char *, char *, char *, integer *, integer *, doublereal * @@ -826,7 +826,7 @@ f"> */ integer *, integer *); integer llwrkn, llwork, nsplit; doublereal smlnum; - extern /* Subroutine */ int dsytrd_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytrd_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *); integer lwkopt; @@ -921,16 +921,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -946,7 +946,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -1130,7 +1130,7 @@ L40: work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYEVX */ diff --git a/lapack-netlib/SRC/dsyevx_2stage.c b/lapack-netlib/SRC/dsyevx_2stage.c index bf58bc6ca..b73bdddfe 100644 --- a/lapack-netlib/SRC/dsyevx_2stage.c +++ b/lapack-netlib/SRC/dsyevx_2stage.c @@ -816,7 +816,7 @@ static integer c__4 = 4; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsyevx_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void dsyevx_2stage_(char *jobz, char *range, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *vl, doublereal * vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, @@ -835,17 +835,17 @@ static integer c__4 = 4; doublereal rmin, rmax; logical test; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; - extern /* Subroutine */ int dsytrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void dsytrd_2stage_(char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer lhtrd; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; @@ -857,25 +857,25 @@ static integer c__4 = 4; logical alleig, indeig; integer iscale, indibl; logical valeig; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal abstll, bignum; integer indtau, indisp; - extern /* Subroutine */ int dstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *), dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo, indwkn; extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int dorgtr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dorgtr_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), dormtr_(char *, char *, char *, integer *, integer *, doublereal * @@ -978,16 +978,16 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("DSYEVX_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1003,7 +1003,7 @@ static integer c__4 = 4; if (wantz) { z__[z_dim1 + 1] = 1.; } - return 0; + return; } /* Get machine constants. */ @@ -1190,7 +1190,7 @@ L40: work[1] = (doublereal) lwmin; - return 0; + return; /* End of DSYEVX_2STAGE */ diff --git a/lapack-netlib/SRC/dsygs2.c b/lapack-netlib/SRC/dsygs2.c index 4d7c07bc8..da9ba7b8e 100644 --- a/lapack-netlib/SRC/dsygs2.c +++ b/lapack-netlib/SRC/dsygs2.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n, +/* Subroutine */ void dsygs2_(integer *itype, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * info) { @@ -652,17 +652,17 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dsyr2_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyr2_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dtrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *), dtrsv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal ct; @@ -706,7 +706,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYGS2", &i__1, (ftnlen)6); - return 0; + return; } if (*itype == 1) { @@ -848,7 +848,7 @@ f"> */ } } } - return 0; + return; /* End of DSYGS2 */ diff --git a/lapack-netlib/SRC/dsygst.c b/lapack-netlib/SRC/dsygst.c index 49bb202cf..b18805b89 100644 --- a/lapack-netlib/SRC/dsygst.c +++ b/lapack-netlib/SRC/dsygst.c @@ -645,7 +645,7 @@ f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n, +/* Subroutine */ void dsygst_(integer *itype, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * info) { @@ -655,20 +655,20 @@ f"> */ /* Local variables */ integer k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsymm_( char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dsygs2_( integer *, char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer kb; - extern /* Subroutine */ int dsyr2k_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyr2k_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nb; @@ -713,13 +713,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYGST", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -897,7 +897,7 @@ f"> */ } } } - return 0; + return; /* End of DSYGST */ diff --git a/lapack-netlib/SRC/dsygv.c b/lapack-netlib/SRC/dsygv.c index 22de5e475..21792c93c 100644 --- a/lapack-netlib/SRC/dsygv.c +++ b/lapack-netlib/SRC/dsygv.c @@ -689,7 +689,7 @@ static doublereal c_b16 = 1.; /* > \ingroup doubleSYeigen */ /* ===================================================================== */ -/* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void dsygv_(integer *itype, char *jobz, char *uplo, integer * n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *w, doublereal *work, integer *lwork, integer *info) { @@ -699,15 +699,15 @@ static doublereal c_b16 = 1.; /* Local variables */ integer neig; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); char trans[1]; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dsyev_(char *, char *, integer *, doublereal * + extern /* Subroutine */ void dsyev_(char *, char *, integer *, doublereal * , integer *, doublereal *, doublereal *, integer *, integer *); logical wantz; integer nb; @@ -717,7 +717,7 @@ static doublereal c_b16 = 1.; extern /* Subroutine */ int dpotrf_(char *, integer *, doublereal *, integer *, integer *); integer lwkmin; - extern /* Subroutine */ int dsygst_(integer *, char *, integer *, + extern /* Subroutine */ void dsygst_(integer *, char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer lwkopt; logical lquery; @@ -783,15 +783,15 @@ static doublereal c_b16 = 1.; if (*info != 0) { i__1 = -(*info); xerbla_("DSYGV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -799,7 +799,7 @@ static doublereal c_b16 = 1.; dpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -846,7 +846,7 @@ static doublereal c_b16 = 1.; } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYGV */ diff --git a/lapack-netlib/SRC/dsygv_2stage.c b/lapack-netlib/SRC/dsygv_2stage.c index 341534833..92e12102e 100644 --- a/lapack-netlib/SRC/dsygv_2stage.c +++ b/lapack-netlib/SRC/dsygv_2stage.c @@ -743,7 +743,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsygv_2stage_(integer *itype, char *jobz, char *uplo, +/* Subroutine */ void dsygv_2stage_(integer *itype, char *jobz, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *w, doublereal *work, integer *lwork, integer *info) { @@ -754,26 +754,27 @@ stage.f"> */ integer neig; extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); - extern /* Subroutine */ int dsyev_2stage_(char *, char *, integer *, + extern /* Subroutine */ void dsyev_2stage_(char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); extern logical lsame_(char *, char *); integer lhtrd; - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer lwmin; char trans[1]; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; integer lwtrd; logical wantz; integer ib, kd; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpotrf_( - char *, integer *, doublereal *, integer *, integer *), - dsygst_(integer *, char *, integer *, doublereal *, integer *, + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int dpotrf_( + char *, integer *, doublereal *, integer *, integer *); + extern void dsygst_(integer *, char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); logical lquery; @@ -839,15 +840,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYGV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -855,7 +856,7 @@ stage.f"> */ dpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -903,7 +904,7 @@ stage.f"> */ } work[1] = (doublereal) lwmin; - return 0; + return; /* End of DSYGV_2STAGE */ diff --git a/lapack-netlib/SRC/dsygvd.c b/lapack-netlib/SRC/dsygvd.c index d839ccb68..828399c97 100644 --- a/lapack-netlib/SRC/dsygvd.c +++ b/lapack-netlib/SRC/dsygvd.c @@ -739,7 +739,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void dsygvd_(integer *itype, char *jobz, char *uplo, integer * n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *w, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info) @@ -751,20 +751,21 @@ f"> */ /* Local variables */ integer lopt; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer lwmin; char trans[1]; integer liopt; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper, wantz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dpotrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int dpotrf_( char *, integer *, doublereal *, integer *, integer *); integer liwmin; - extern /* Subroutine */ int dsyevd_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dsyevd_(char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, integer *, integer *), dsygst_(integer *, char *, integer *, doublereal *, integer *, doublereal *, integer *, @@ -842,15 +843,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -858,7 +859,7 @@ f"> */ dpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -910,7 +911,7 @@ f"> */ work[1] = (doublereal) lopt; iwork[1] = liopt; - return 0; + return; /* End of DSYGVD */ diff --git a/lapack-netlib/SRC/dsygvx.c b/lapack-netlib/SRC/dsygvx.c index fdb5ee8a5..e5478eea7 100644 --- a/lapack-netlib/SRC/dsygvx.c +++ b/lapack-netlib/SRC/dsygvx.c @@ -810,7 +810,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char * +/* Subroutine */ void dsygvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, @@ -822,11 +822,11 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); char trans[1]; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper, wantz; @@ -838,11 +838,11 @@ f"> */ extern /* Subroutine */ int dpotrf_(char *, integer *, doublereal *, integer *, integer *); integer lwkmin; - extern /* Subroutine */ int dsygst_(integer *, char *, integer *, + extern /* Subroutine */ void dsygst_(integer *, char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int dsyevx_(char *, char *, char *, integer *, + extern /* Subroutine */ void dsyevx_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer @@ -936,16 +936,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYGVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -953,7 +953,7 @@ f"> */ dpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -1004,7 +1004,7 @@ f"> */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYGVX */ diff --git a/lapack-netlib/SRC/dsyrfs.c b/lapack-netlib/SRC/dsyrfs.c index af90ab722..2503d5f24 100644 --- a/lapack-netlib/SRC/dsyrfs.c +++ b/lapack-netlib/SRC/dsyrfs.c @@ -705,7 +705,7 @@ f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsyrfs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer * ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, @@ -723,12 +723,12 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; logical upper; - extern /* Subroutine */ int dsymv_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsymv_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -738,7 +738,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int dsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal eps; @@ -795,7 +795,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -807,7 +807,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1004,7 +1004,7 @@ L100: /* L140: */ } - return 0; + return; /* End of DSYRFS */ diff --git a/lapack-netlib/SRC/dsyrfsx.c b/lapack-netlib/SRC/dsyrfsx.c index d24dfc537..05218fe35 100644 --- a/lapack-netlib/SRC/dsyrfsx.c +++ b/lapack-netlib/SRC/dsyrfsx.c @@ -811,7 +811,7 @@ static integer c__1 = 1; /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsyrfsx_(char *uplo, char *equed, integer *n, integer * +/* Subroutine */ void dsyrfsx_(char *uplo, char *equed, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *berr, integer * @@ -827,7 +827,7 @@ static integer c__1 = 1; /* Local variables */ doublereal illrcond_thresh__, unstable_thresh__; - extern /* Subroutine */ int dla_syrfsx_extended_(integer *, char *, + extern /* Subroutine */ void dla_syrfsx_extended_(integer *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, logical *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, @@ -848,7 +848,7 @@ static integer c__1 = 1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dsycon_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsycon_(char *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); extern integer ilaprec_(char *); @@ -966,7 +966,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("DSYRFSX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -989,7 +989,7 @@ static integer c__1 = 1; err_bnds_comp__[j + err_bnds_comp_dim1 * 3] = 1.; } } - return 0; + return; } /* Default to failure. */ @@ -1130,7 +1130,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of DSYRFSX */ diff --git a/lapack-netlib/SRC/dsysv.c b/lapack-netlib/SRC/dsysv.c index aea218b67..802c9c4cc 100644 --- a/lapack-netlib/SRC/dsysv.c +++ b/lapack-netlib/SRC/dsysv.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \ingroup doubleSYsolve */ /* ===================================================================== */ -/* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal +/* Subroutine */ void dsysv_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info) { @@ -692,12 +692,13 @@ static integer c_n1 = -1; /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dsytrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dsytrf_( char *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int dsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dsytrs2_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, @@ -756,9 +757,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("DSYSV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -788,7 +789,7 @@ static integer c_n1 = -1; work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYSV */ diff --git a/lapack-netlib/SRC/dsysv_aa.c b/lapack-netlib/SRC/dsysv_aa.c index 64e89c82b..e01611764 100644 --- a/lapack-netlib/SRC/dsysv_aa.c +++ b/lapack-netlib/SRC/dsysv_aa.c @@ -674,7 +674,7 @@ a.f"> */ /* > \ingroup doubleSYsolve */ /* ===================================================================== */ -/* Subroutine */ int dsysv_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsysv_aa_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * ldb, doublereal *work, integer *lwork, integer *info) { @@ -684,11 +684,12 @@ a.f"> */ /* Local variables */ extern logical lsame_(char *, char *); integer lwkopt_sytrf__, lwkopt_sytrs__; - extern /* Subroutine */ int dsytrf_aa_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytrf_aa_(char *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dsytrs_aa_(char *, integer *, integer *, doublereal *, integer * , integer *, doublereal *, integer *, doublereal *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -749,9 +750,9 @@ a.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYSV_AA ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U**T*T*U or A = L*T*L**T. */ @@ -768,7 +769,7 @@ a.f"> */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYSV_AA */ diff --git a/lapack-netlib/SRC/dsysv_aa_2stage.c b/lapack-netlib/SRC/dsysv_aa_2stage.c index 2b5177832..16e3dcbc8 100644 --- a/lapack-netlib/SRC/dsysv_aa_2stage.c +++ b/lapack-netlib/SRC/dsysv_aa_2stage.c @@ -700,7 +700,7 @@ a_2stage.f"> */ /* > \ingroup doubleSYsolve */ /* ===================================================================== */ -/* Subroutine */ int dsysv_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsysv_aa_2stage_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *tb, integer *ltb, integer * ipiv, integer *ipiv2, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info) @@ -709,7 +709,7 @@ a_2stage.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int dsytrf_aa_2stage_(char *, integer *, + extern /* Subroutine */ void dsytrf_aa_2stage_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *, integer *), dsytrs_aa_2stage_(char *, integer *, integer *, doublereal *, @@ -776,9 +776,9 @@ a_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYSV_AA_2STAGE", &i__1, (ftnlen)15); - return 0; + return; } else if (wquery || tquery) { - return 0; + return; } @@ -797,7 +797,7 @@ a_2stage.f"> */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYSV_AA_2STAGE */ diff --git a/lapack-netlib/SRC/dsysv_rk.c b/lapack-netlib/SRC/dsysv_rk.c index ff765dafc..76c3fd48b 100644 --- a/lapack-netlib/SRC/dsysv_rk.c +++ b/lapack-netlib/SRC/dsysv_rk.c @@ -740,7 +740,7 @@ k.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsysv_rk_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsysv_rk_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *e, integer *ipiv, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info) { @@ -748,13 +748,14 @@ k.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int dsytrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_3_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dsytrf_rk_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytrf_rk_(char *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -812,9 +813,9 @@ k.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYSV_RK ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = P*U*D*(U**T)*(P**T) or */ @@ -834,7 +835,7 @@ k.f"> */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYSV_RK */ diff --git a/lapack-netlib/SRC/dsysv_rook.c b/lapack-netlib/SRC/dsysv_rook.c index c63bc088b..7d813426f 100644 --- a/lapack-netlib/SRC/dsysv_rook.c +++ b/lapack-netlib/SRC/dsysv_rook.c @@ -717,7 +717,7 @@ ook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsysv_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsysv_rook_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * ldb, doublereal *work, integer *lwork, integer *info) { @@ -725,7 +725,7 @@ ook.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int dsytrf_rook_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytrf_rook_(char *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *) , dsytrs_rook_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); @@ -787,9 +787,9 @@ ook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYSV_ROOK ", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -808,7 +808,7 @@ ook.f"> */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYSV_ROOK */ diff --git a/lapack-netlib/SRC/dsysvx.c b/lapack-netlib/SRC/dsysvx.c index 0f91ca588..da5c5ebe3 100644 --- a/lapack-netlib/SRC/dsysvx.c +++ b/lapack-netlib/SRC/dsysvx.c @@ -796,7 +796,7 @@ f"> */ /* > \ingroup doubleSYsolve */ /* ===================================================================== */ -/* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void dsysvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer * ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, @@ -812,14 +812,14 @@ f"> */ integer nb; extern doublereal dlamch_(char *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal dlansy_(char *, char *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dsycon_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsycon_(char *, integer *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *), dsyrfs_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, @@ -829,7 +829,7 @@ f"> */ doublereal *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int dsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrs_(char *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); @@ -910,9 +910,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYSVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } if (nofact) { @@ -927,7 +927,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -961,7 +961,7 @@ f"> */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYSVX */ diff --git a/lapack-netlib/SRC/dsysvxx.c b/lapack-netlib/SRC/dsysvxx.c index 01fc0e7d4..66978788a 100644 --- a/lapack-netlib/SRC/dsysvxx.c +++ b/lapack-netlib/SRC/dsysvxx.c @@ -1011,7 +1011,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleSYsolve */ /* ===================================================================== */ -/* Subroutine */ int dsysvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void dsysvxx_(char *fact, char *uplo, integer *n, integer * nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, char *equed, doublereal *s, doublereal *b, integer * ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal * @@ -1035,15 +1035,15 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical equil, rcequ; extern doublereal dlamch_(char *); logical nofact; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer infequ; - extern /* Subroutine */ int dlaqsy_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlaqsy_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, char *); doublereal smlnum; - extern /* Subroutine */ int dsytrf_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytrf_(char *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlascl2_(integer *, integer *, doublereal *, doublereal *, integer *), dsytrs_(char *, integer *, integer *, doublereal *, @@ -1163,7 +1163,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DSYSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1208,7 +1208,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = dla_syrpvgrw_(uplo, n, info, &a[a_offset], lda, & af[af_offset], ldaf, &ipiv[1], &work[1]); } - return 0; + return; } } @@ -1240,7 +1240,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ dlascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of DSYSVXX */ diff --git a/lapack-netlib/SRC/dsyswapr.c b/lapack-netlib/SRC/dsyswapr.c index 55c158c97..e239f7858 100644 --- a/lapack-netlib/SRC/dsyswapr.c +++ b/lapack-netlib/SRC/dsyswapr.c @@ -616,7 +616,7 @@ r.f"> */ /* > \ingroup doubleSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int dsyswapr_(char *uplo, integer *n, doublereal *a, integer +/* Subroutine */ void dsyswapr_(char *uplo, integer *n, doublereal *a, integer *lda, integer *i1, integer *i2) { /* System generated locals */ @@ -625,7 +625,7 @@ r.f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical upper; doublereal tmp; @@ -712,6 +712,6 @@ r.f"> */ } } - return 0; + return; } /* dsyswapr_ */ diff --git a/lapack-netlib/SRC/dsytd2.c b/lapack-netlib/SRC/dsytd2.c index a717bfd7e..48c357648 100644 --- a/lapack-netlib/SRC/dsytd2.c +++ b/lapack-netlib/SRC/dsytd2.c @@ -689,7 +689,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dsytd2_(char *uplo, integer *n, doublereal *a, integer * lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info) { /* System generated locals */ @@ -699,19 +699,20 @@ f"> */ extern doublereal ddot_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal taui; - extern /* Subroutine */ int dsyr2_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyr2_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer i__; doublereal alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dsymv_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsymv_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dlarfg_(integer *, doublereal *, - doublereal *, integer *, doublereal *), xerbla_(char *, integer *, ftnlen + doublereal *, integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen ); @@ -747,13 +748,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTD2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } if (upper) { @@ -856,7 +857,7 @@ f"> */ d__[*n] = a[*n + *n * a_dim1]; } - return 0; + return; /* End of DSYTD2 */ diff --git a/lapack-netlib/SRC/dsytf2.c b/lapack-netlib/SRC/dsytf2.c index e30a6d498..421bc62d7 100644 --- a/lapack-netlib/SRC/dsytf2.c +++ b/lapack-netlib/SRC/dsytf2.c @@ -708,7 +708,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dsytf2_(char *uplo, integer *n, doublereal *a, integer * lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -717,14 +717,14 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int dsyr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyr_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer i__, j, k; doublereal t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; logical upper; @@ -767,7 +767,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1168,7 +1168,7 @@ L40: L70: - return 0; + return; /* End of DSYTF2 */ diff --git a/lapack-netlib/SRC/dsytf2_rk.c b/lapack-netlib/SRC/dsytf2_rk.c index adfbdca98..0cf7a7726 100644 --- a/lapack-netlib/SRC/dsytf2_rk.c +++ b/lapack-netlib/SRC/dsytf2_rk.c @@ -755,7 +755,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytf2_rk_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytf2_rk_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -765,16 +765,16 @@ rk.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int dsyr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyr_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer i__, j, k, p; doublereal t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal dtemp, sfmin; integer itemp; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; logical upper; @@ -819,7 +819,7 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTF2_RK", &i__1, (ftnlen)9); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1534,7 +1534,7 @@ L64: ; } - return 0; + return; /* End of DSYTF2_RK */ diff --git a/lapack-netlib/SRC/dsytf2_rook.c b/lapack-netlib/SRC/dsytf2_rook.c index a549180ef..a6e93428d 100644 --- a/lapack-netlib/SRC/dsytf2_rook.c +++ b/lapack-netlib/SRC/dsytf2_rook.c @@ -708,7 +708,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytf2_rook_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytf2_rook_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -718,16 +718,16 @@ rook.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int dsyr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyr_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer i__, j, k, p; doublereal t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal dtemp, sfmin; integer itemp; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; logical upper; @@ -771,7 +771,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTF2_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1390,7 +1390,7 @@ L42: L70: - return 0; + return; /* End of DSYTF2_ROOK */ diff --git a/lapack-netlib/SRC/dsytrd.c b/lapack-netlib/SRC/dsytrd.c index a4eca3bbb..da0310281 100644 --- a/lapack-netlib/SRC/dsytrd.c +++ b/lapack-netlib/SRC/dsytrd.c @@ -710,7 +710,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dsytrd_(char *uplo, integer *n, doublereal *a, integer * lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal * work, integer *lwork, integer *info) { @@ -722,14 +722,15 @@ f"> */ extern logical lsame_(char *, char *); integer nbmin, iinfo; logical upper; - extern /* Subroutine */ int dsytd2_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytd2_(char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *), dsyr2k_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nb, kk, nx; - extern /* Subroutine */ int dlatrd_(char *, integer *, integer *, + extern /* Subroutine */ void dlatrd_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -784,16 +785,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1] = 1.; - return 0; + return; } nx = *n; @@ -920,7 +921,7 @@ f"> */ } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYTRD */ diff --git a/lapack-netlib/SRC/dsytrd_2stage.c b/lapack-netlib/SRC/dsytrd_2stage.c index eaa12cf6a..100864b63 100644 --- a/lapack-netlib/SRC/dsytrd_2stage.c +++ b/lapack-netlib/SRC/dsytrd_2stage.c @@ -740,7 +740,7 @@ static integer c__4 = 4; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsytrd_2stage_(char *vect, char *uplo, integer *n, +/* Subroutine */ void dsytrd_2stage_(char *vect, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *hous2, integer *lhous2, doublereal *work, integer *lwork, integer *info) @@ -753,12 +753,12 @@ static integer c__4 = 4; extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); integer lwrk; - extern /* Subroutine */ int dsytrd_sb2st_(char *, char *, char *, + extern /* Subroutine */ void dsytrd_sb2st_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer wpos; - extern /* Subroutine */ int dsytrd_sy2sb_(char *, integer *, integer *, + extern /* Subroutine */ void dsytrd_sy2sb_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); extern logical lsame_(char *, char *); @@ -827,16 +827,16 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1] = 1.; - return 0; + return; } /* Determine pointer position */ @@ -850,20 +850,20 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRD_SY2SB", &i__1, (ftnlen)12); - return 0; + return; } dsytrd_sb2st_("Y", vect, uplo, n, &kd, &work[abpos], &ldab, &d__[1], &e[ 1], &hous2[1], lhous2, &work[wpos], &lwrk, info); if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRD_SB2ST", &i__1, (ftnlen)12); - return 0; + return; } hous2[1] = (doublereal) lhmin; work[1] = (doublereal) lwmin; - return 0; + return; /* End of DSYTRD_2STAGE */ diff --git a/lapack-netlib/SRC/dsytrd_sb2st.c b/lapack-netlib/SRC/dsytrd_sb2st.c index 37f1bb4f9..e8f2bf0a5 100644 --- a/lapack-netlib/SRC/dsytrd_sb2st.c +++ b/lapack-netlib/SRC/dsytrd_sb2st.c @@ -746,7 +746,7 @@ sb2st.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsytrd_sb2st_(char *stage1, char *vect, char *uplo, +/* Subroutine */ void dsytrd_sb2st_(char *stage1, char *vect, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal * d__, doublereal *e, doublereal *hous, integer *lhous, doublereal * work, integer *lwork, integer *info) @@ -765,17 +765,18 @@ sb2st.f"> */ integer lhmin, sidev, sizea, shift, stind, colpt, lwmin, awpos; logical wantq, upper; integer grsiz, ttype, stepercol, ed, ib, st, abdpos; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, - doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer thgrid; - extern /* Subroutine */ int dsb2st_kernels_(char *, logical *, integer *, + extern /* Subroutine */ void dsb2st_kernels_(char *, logical *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *); integer thgrnb, indtau, ofdpos, blklastind; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); logical lquery, afters1; integer lda, tid, ldv, stt, sweepid, nbtiles, sizetau, thgrsiz; @@ -843,9 +844,9 @@ sb2st.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRD_SB2ST", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -853,7 +854,7 @@ sb2st.f"> */ if (*n == 0) { hous[1] = 1.; work[1] = 1.; - return 0; + return; } /* Determine pointer position */ @@ -906,7 +907,7 @@ sb2st.f"> */ hous[1] = 1.; work[1] = 1.; - return 0; + return; } /* Case KD=1: */ @@ -942,7 +943,7 @@ sb2st.f"> */ hous[1] = 1.; work[1] = 1.; - return 0; + return; } /* Main code start here. */ @@ -1061,7 +1062,7 @@ sb2st.f"> */ hous[1] = (doublereal) lhmin; work[1] = (doublereal) lwmin; - return 0; + return; /* End of DSYTRD_SB2ST */ diff --git a/lapack-netlib/SRC/dsytrd_sy2sb.c b/lapack-netlib/SRC/dsytrd_sy2sb.c index f272d4752..b98cecf64 100644 --- a/lapack-netlib/SRC/dsytrd_sy2sb.c +++ b/lapack-netlib/SRC/dsytrd_sy2sb.c @@ -761,7 +761,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsytrd_sy2sb_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void dsytrd_sy2sb_(char *uplo, integer *n, integer *kd, doublereal *a, integer *lda, doublereal *ab, integer *ldab, doublereal *tau, doublereal *work, integer *lwork, integer *info) { @@ -773,30 +773,31 @@ f"> */ extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); integer tpos, wpos, s1pos, s2pos, i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; - extern /* Subroutine */ int dsymm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsymm_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dsyr2k_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dsyr2k_(char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer lk, pk, pn, lt; - extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgelqf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); integer lw; - extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dlarft_(char *, char *, integer *, integer *, doublereal *, - integer *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dlaset_(char *, integer *, + integer *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); integer ls1; logical lquery; @@ -852,10 +853,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRD_SY2SB", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { work[1] = (doublereal) lwmin; - return 0; + return; } /* Quick return if possible */ @@ -884,7 +885,7 @@ f"> */ } } work[1] = 1.; - return 0; + return; } /* Determine the pointer position for the workspace */ @@ -1076,7 +1077,7 @@ f"> */ } work[1] = (doublereal) lwmin; - return 0; + return; /* End of DSYTRD_SY2SB */ diff --git a/lapack-netlib/SRC/dsytrf.c b/lapack-netlib/SRC/dsytrf.c index 250095d91..f2078bdb1 100644 --- a/lapack-netlib/SRC/dsytrf.c +++ b/lapack-netlib/SRC/dsytrf.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dsytrf_(char *uplo, integer *n, doublereal *a, integer * lda, integer *ipiv, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -708,13 +708,13 @@ f"> */ extern logical lsame_(char *, char *); integer nbmin, iinfo; logical upper; - extern /* Subroutine */ int dsytf2_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytf2_(char *, integer *, doublereal *, integer *, integer *, integer *); integer kb, nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlasyf_(char *, integer *, integer *, integer + extern /* Subroutine */ void dlasyf_(char *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer ldwork, lwkopt; @@ -767,9 +767,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -896,7 +896,7 @@ L20: L40: work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYTRF */ diff --git a/lapack-netlib/SRC/dsytrf_aa.c b/lapack-netlib/SRC/dsytrf_aa.c index eafab6749..1f56e2f7c 100644 --- a/lapack-netlib/SRC/dsytrf_aa.c +++ b/lapack-netlib/SRC/dsytrf_aa.c @@ -648,7 +648,7 @@ aa.f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytrf_aa_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytrf_aa_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *lwork, integer *info) { @@ -658,12 +658,12 @@ aa.f"> */ /* Local variables */ integer j; doublereal alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dlasyf_aa_(char *, integer *, integer *, + extern /* Subroutine */ void dlasyf_aa_(char *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *), dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, @@ -730,19 +730,19 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRF_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } ipiv[1] = 1; if (*n == 1) { - return 0; + return; } /* Adjust block size based on the workspace size */ @@ -1030,7 +1030,7 @@ L11: } L20: - return 0; + return; /* End of DSYTRF_AA */ diff --git a/lapack-netlib/SRC/dsytrf_aa_2stage.c b/lapack-netlib/SRC/dsytrf_aa_2stage.c index e66d6b2f3..24b213c70 100644 --- a/lapack-netlib/SRC/dsytrf_aa_2stage.c +++ b/lapack-netlib/SRC/dsytrf_aa_2stage.c @@ -676,7 +676,7 @@ aa_2stage.f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytrf_aa_2stage_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytrf_aa_2stage_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *tb, integer *ltb, integer *ipiv, integer * ipiv2, doublereal *work, integer *lwork, integer *info) { @@ -685,12 +685,12 @@ aa_2stage.f"> */ /* Local variables */ integer ldtb, i__, j, k; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *), dtrsm_(char *, char *, char *, char * , integer *, integer *, doublereal *, doublereal *, integer *, @@ -698,15 +698,16 @@ aa_2stage.f"> */ integer i1; logical upper; integer i2, jb, kb, nb, td, nt; - extern /* Subroutine */ int dgbtrf_(integer *, integer *, integer *, - integer *, doublereal *, integer *, integer *, integer *), - dgetrf_(integer *, integer *, doublereal *, integer *, integer *, - integer *), dlacpy_(char *, integer *, integer *, doublereal *, - integer *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dgbtrf_(integer *, integer *, integer *, + integer *, doublereal *, integer *, integer *, integer *); + extern int dgetrf_(integer *, integer *, doublereal *, integer *, integer *, + integer *); + extern void dlacpy_(char *, integer *, integer *, doublereal *, + integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dsygst_(integer *, char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -755,7 +756,7 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRF_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Answer the query */ @@ -771,13 +772,13 @@ aa_2stage.f"> */ } } if (tquery || wquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } /* Determine the number of the block size */ @@ -1232,7 +1233,7 @@ aa_2stage.f"> */ /* Factor the band matrix */ dgbtrf_(n, n, &nb, &nb, &tb[1], &ldtb, &ipiv2[1], info); - return 0; + return; /* End of DSYTRF_AA_2STAGE */ diff --git a/lapack-netlib/SRC/dsytrf_rk.c b/lapack-netlib/SRC/dsytrf_rk.c index ac483dd72..dcb9aeeff 100644 --- a/lapack-netlib/SRC/dsytrf_rk.c +++ b/lapack-netlib/SRC/dsytrf_rk.c @@ -774,7 +774,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytrf_rk_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytrf_rk_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *e, integer *ipiv, doublereal *work, integer *lwork, integer *info) { @@ -783,14 +783,14 @@ rk.f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int dsytf2_rk_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytf2_rk_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmin, iinfo; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dlasyf_rk_(char *, integer *, integer *, + extern /* Subroutine */ void dlasyf_rk_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer kb, nb, ip; @@ -848,9 +848,9 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRF_RK", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -1036,7 +1036,7 @@ L35: } work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYTRF_RK */ diff --git a/lapack-netlib/SRC/dsytrf_rook.c b/lapack-netlib/SRC/dsytrf_rook.c index ab01cd076..57f8e4e64 100644 --- a/lapack-netlib/SRC/dsytrf_rook.c +++ b/lapack-netlib/SRC/dsytrf_rook.c @@ -723,7 +723,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytrf_rook_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytrf_rook_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *lwork, integer *info) { @@ -742,7 +742,7 @@ rook.f"> */ integer ldwork, lwkopt; logical lquery; integer iws; - extern /* Subroutine */ int dsytf2_rook_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytf2_rook_(char *, integer *, doublereal *, integer *, integer *, integer *), dlasyf_rook_(char *, integer *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); @@ -795,9 +795,9 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRF_ROOK", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -927,7 +927,7 @@ L20: L40: work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYTRF_ROOK */ diff --git a/lapack-netlib/SRC/dsytri.c b/lapack-netlib/SRC/dsytri.c index e5c6a1c00..0311e9e1e 100644 --- a/lapack-netlib/SRC/dsytri.c +++ b/lapack-netlib/SRC/dsytri.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dsytri_(char *uplo, integer *n, doublereal *a, integer * lda, integer *ipiv, doublereal *work, integer *info) { /* System generated locals */ @@ -643,12 +643,12 @@ f"> */ integer k; doublereal t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; logical upper; - extern /* Subroutine */ int dsymv_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsymv_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal ak; @@ -688,13 +688,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -705,7 +705,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.) { - return 0; + return; } /* L10: */ } @@ -716,7 +716,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.) { - return 0; + return; } /* L20: */ } @@ -941,7 +941,7 @@ L60: ; } - return 0; + return; /* End of DSYTRI */ diff --git a/lapack-netlib/SRC/dsytri2.c b/lapack-netlib/SRC/dsytri2.c index 2a05e8ea2..9f453cc05 100644 --- a/lapack-netlib/SRC/dsytri2.c +++ b/lapack-netlib/SRC/dsytri2.c @@ -641,14 +641,14 @@ static integer c_n1 = -1; /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytri2_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dsytri2_(char *uplo, integer *n, doublereal *a, integer * lda, integer *ipiv, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ integer a_dim1, a_offset, i__1; /* Local variables */ - extern /* Subroutine */ int dsytri2x_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytri2x_(char *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmax; @@ -656,7 +656,7 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dsytri_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytri_(char *, integer *, doublereal *, integer *, integer *, doublereal *, integer *); logical lquery; integer minsize; @@ -709,13 +709,13 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRI2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { work[1] = (doublereal) minsize; - return 0; + return; } if (*n == 0) { - return 0; + return; } if (nbmax >= *n) { dsytri_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], info); @@ -723,7 +723,7 @@ static integer c_n1 = -1; dsytri2x_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], &nbmax, info); } - return 0; + return; /* End of DSYTRI2 */ diff --git a/lapack-netlib/SRC/dsytri2x.c b/lapack-netlib/SRC/dsytri2x.c index 11e3ffc47..6bab331f0 100644 --- a/lapack-netlib/SRC/dsytri2x.c +++ b/lapack-netlib/SRC/dsytri2x.c @@ -634,7 +634,7 @@ x.f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytri2x_(char *uplo, integer *n, doublereal *a, integer +/* Subroutine */ void dsytri2x_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *nb, integer *info) { /* System generated locals */ @@ -643,17 +643,17 @@ x.f"> */ /* Local variables */ integer invd; doublereal akkp1; - extern /* Subroutine */ int dsyswapr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyswapr_(char *, integer *, doublereal *, integer *, integer *, integer *); doublereal d__; integer i__, j, k; doublereal t; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer count; @@ -662,11 +662,12 @@ x.f"> */ integer u11; doublereal u11_i_j__; integer ip; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dtrtri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int dtrtri_( char *, char *, integer *, doublereal *, integer *, integer *); integer nnb, cut; doublereal akp1; - extern /* Subroutine */ int dsyconv_(char *, char *, integer *, + extern /* Subroutine */ void dsyconv_(char *, char *, integer *, doublereal *, integer *, integer *, doublereal *, integer *); doublereal u01_ip1_j__, u11_ip1_j__; @@ -708,10 +709,10 @@ x.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRI2X", &i__1, (ftnlen)8); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Convert A */ @@ -728,7 +729,7 @@ x.f"> */ for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.) { - return 0; + return; } } } else { @@ -738,7 +739,7 @@ x.f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.) { - return 0; + return; } } } @@ -1210,7 +1211,7 @@ x.f"> */ } } - return 0; + return; /* End of DSYTRI2X */ diff --git a/lapack-netlib/SRC/dsytri_3.c b/lapack-netlib/SRC/dsytri_3.c index 716a91169..8ce325fea 100644 --- a/lapack-netlib/SRC/dsytri_3.c +++ b/lapack-netlib/SRC/dsytri_3.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytri_3_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytri_3_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *e, integer *ipiv, doublereal *work, integer *lwork, integer *info) { @@ -692,7 +692,7 @@ static integer c_n1 = -1; /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int dsytri_3x_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsytri_3x_(char *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); logical upper; @@ -749,16 +749,16 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRI_3", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { work[1] = (doublereal) lwkopt; - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } dsytri_3x_(uplo, n, &a[a_offset], lda, &e[1], &ipiv[1], &work[1], &nb, @@ -766,7 +766,7 @@ static integer c_n1 = -1; work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DSYTRI_3 */ diff --git a/lapack-netlib/SRC/dsytri_3x.c b/lapack-netlib/SRC/dsytri_3x.c index 669af1c68..1d7a23f9f 100644 --- a/lapack-netlib/SRC/dsytri_3x.c +++ b/lapack-netlib/SRC/dsytri_3x.c @@ -673,7 +673,7 @@ static doublereal c_b14 = 0.; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytri_3x_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytri_3x_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *e, integer *ipiv, doublereal *work, integer *nb, integer *info) { @@ -683,16 +683,16 @@ static doublereal c_b14 = 0.; /* Local variables */ integer invd; doublereal akkp1; - extern /* Subroutine */ int dsyswapr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsyswapr_(char *, integer *, doublereal *, integer *, integer *, integer *); doublereal d__; integer i__, j, k; doublereal t; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; @@ -745,10 +745,10 @@ static doublereal c_b14 = 0.; if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRI_3X", &i__1, (ftnlen)9); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Workspace got Non-diag elements of D */ @@ -766,7 +766,7 @@ static doublereal c_b14 = 0.; for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.) { - return 0; + return; } } } else { @@ -776,7 +776,7 @@ static doublereal c_b14 = 0.; i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.) { - return 0; + return; } } } @@ -1259,7 +1259,7 @@ static doublereal c_b14 = 0.; } - return 0; + return; /* End of DSYTRI_3X */ diff --git a/lapack-netlib/SRC/dsytri_rook.c b/lapack-netlib/SRC/dsytri_rook.c index df6cce415..16adecc7d 100644 --- a/lapack-netlib/SRC/dsytri_rook.c +++ b/lapack-netlib/SRC/dsytri_rook.c @@ -644,7 +644,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytri_rook_(char *uplo, integer *n, doublereal *a, +/* Subroutine */ void dsytri_rook_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *info) { /* System generated locals */ @@ -658,12 +658,12 @@ rook.f"> */ integer k; doublereal t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); integer kstep; logical upper; - extern /* Subroutine */ int dsymv_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsymv_(char *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal ak; @@ -703,13 +703,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRI_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -720,7 +720,7 @@ rook.f"> */ for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.) { - return 0; + return; } /* L10: */ } @@ -731,7 +731,7 @@ rook.f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.) { - return 0; + return; } /* L20: */ } @@ -1030,7 +1030,7 @@ L60: ; } - return 0; + return; /* End of DSYTRI_ROOK */ diff --git a/lapack-netlib/SRC/dsytrs.c b/lapack-netlib/SRC/dsytrs.c index 922f4c593..69903ec36 100644 --- a/lapack-netlib/SRC/dsytrs.c +++ b/lapack-netlib/SRC/dsytrs.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsytrs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * ldb, integer *info) { @@ -644,16 +644,16 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal akm1k; integer j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal denom; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); @@ -699,13 +699,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1003,7 +1003,7 @@ L100: ; } - return 0; + return; /* End of DSYTRS */ diff --git a/lapack-netlib/SRC/dsytrs2.c b/lapack-netlib/SRC/dsytrs2.c index a9c03d96d..62a8f545a 100644 --- a/lapack-netlib/SRC/dsytrs2.c +++ b/lapack-netlib/SRC/dsytrs2.c @@ -644,7 +644,7 @@ static doublereal c_b10 = 1.; /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytrs2_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsytrs2_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * ldb, doublereal *work, integer *info) { @@ -655,12 +655,12 @@ static doublereal c_b10 = 1.; /* Local variables */ doublereal akm1k; integer i__, j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal denom; integer iinfo; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *), dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); @@ -669,7 +669,7 @@ static doublereal c_b10 = 1.; integer kp; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal akm1, bkm1; - extern /* Subroutine */ int dsyconv_(char *, char *, integer *, + extern /* Subroutine */ void dsyconv_(char *, char *, integer *, doublereal *, integer *, integer *, doublereal *, integer *); @@ -709,13 +709,13 @@ static doublereal c_b10 = 1.; if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRS2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Convert A */ @@ -900,7 +900,7 @@ static doublereal c_b10 = 1.; dsyconv_(uplo, "R", n, &a[a_offset], lda, &ipiv[1], &work[1], &iinfo); - return 0; + return; /* End of DSYTRS2 */ diff --git a/lapack-netlib/SRC/dsytrs_3.c b/lapack-netlib/SRC/dsytrs_3.c index dd8198422..ee48613c4 100644 --- a/lapack-netlib/SRC/dsytrs_3.c +++ b/lapack-netlib/SRC/dsytrs_3.c @@ -677,7 +677,7 @@ static doublereal c_b9 = 1.; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytrs_3_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsytrs_3_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *e, integer *ipiv, doublereal *b, integer *ldb, integer *info) { @@ -688,11 +688,11 @@ static doublereal c_b9 = 1.; /* Local variables */ doublereal akm1k; integer i__, j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal denom; - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *), dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); @@ -739,13 +739,13 @@ static doublereal c_b9 = 1.; if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRS_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -897,7 +897,7 @@ static doublereal c_b9 = 1.; } - return 0; + return; /* End of DSYTRS_3 */ diff --git a/lapack-netlib/SRC/dsytrs_aa.c b/lapack-netlib/SRC/dsytrs_aa.c index ece981433..bbf225259 100644 --- a/lapack-netlib/SRC/dsytrs_aa.c +++ b/lapack-netlib/SRC/dsytrs_aa.c @@ -644,7 +644,7 @@ aa.f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytrs_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsytrs_aa_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * ldb, doublereal *work, integer *lwork, integer *info) { @@ -654,16 +654,16 @@ aa.f"> */ /* Local variables */ integer k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dswap_(integer *, doublereal *, integer *, doublereal *, integer *), dgtsv_(integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *) , dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; integer kp; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -712,17 +712,17 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRS_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { lwkopt = *n * 3 - 2; work[1] = (doublereal) lwkopt; - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -854,7 +854,7 @@ aa.f"> */ } - return 0; + return; /* End of DSYTRS_AA */ diff --git a/lapack-netlib/SRC/dsytrs_aa_2stage.c b/lapack-netlib/SRC/dsytrs_aa_2stage.c index 5a98a3c60..3153ef806 100644 --- a/lapack-netlib/SRC/dsytrs_aa_2stage.c +++ b/lapack-netlib/SRC/dsytrs_aa_2stage.c @@ -653,7 +653,7 @@ aa_2stage.f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dsytrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsytrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *tb, integer *ltb, integer * ipiv, integer *ipiv2, doublereal *b, integer *ldb, integer *info) { @@ -663,15 +663,16 @@ aa_2stage.f"> */ /* Local variables */ integer ldtb; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; integer nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dgbtrs_( char *, integer *, integer *, integer *, integer *, doublereal *, - integer *, integer *, doublereal *, integer *, integer *), - dlaswp_(integer *, doublereal *, integer *, integer *, integer *, + integer *, integer *, doublereal *, integer *, integer *); + extern int dlaswp_(integer *, doublereal *, integer *, integer *, integer *, integer *, integer *); @@ -715,13 +716,13 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRS_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Read NB and compute LDTB */ @@ -806,7 +807,7 @@ aa_2stage.f"> */ } } - return 0; + return; /* End of DSYTRS_AA_2STAGE */ diff --git a/lapack-netlib/SRC/dsytrs_rook.c b/lapack-netlib/SRC/dsytrs_rook.c index 87eae958f..af9b1f43a 100644 --- a/lapack-netlib/SRC/dsytrs_rook.c +++ b/lapack-netlib/SRC/dsytrs_rook.c @@ -650,7 +650,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dsytrs_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void dsytrs_rook_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * ldb, integer *info) { @@ -659,16 +659,16 @@ rook.f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal akm1k; integer j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal denom; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dswap_(integer *, doublereal *, integer *, doublereal *, integer *); @@ -714,13 +714,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DSYTRS_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1046,7 +1046,7 @@ L100: ; } - return 0; + return; /* End of DSYTRS_ROOK */ diff --git a/lapack-netlib/SRC/dtbcon.c b/lapack-netlib/SRC/dtbcon.c index 279e546ed..0c5807e78 100644 --- a/lapack-netlib/SRC/dtbcon.c +++ b/lapack-netlib/SRC/dtbcon.c @@ -655,7 +655,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void dtbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *rcond, doublereal *work, integer *iwork, integer *info) { @@ -668,21 +668,22 @@ f"> */ doublereal scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int drscl_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void drscl_(integer *, doublereal *, doublereal *, integer *); doublereal anorm; logical upper; doublereal xnorm; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; extern integer idamax_(integer *, doublereal *, integer *); extern doublereal dlantb_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatbs_(char *, char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, - doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; logical onenrm; char normin[1]; @@ -730,14 +731,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.; - return 0; + return; } *rcond = 0.; @@ -802,7 +803,7 @@ L10: } L20: - return 0; + return; /* End of DTBCON */ diff --git a/lapack-netlib/SRC/dtbrfs.c b/lapack-netlib/SRC/dtbrfs.c index 3817e092d..19ac8469c 100644 --- a/lapack-netlib/SRC/dtbrfs.c +++ b/lapack-netlib/SRC/dtbrfs.c @@ -701,7 +701,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void dtbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info) @@ -718,14 +718,14 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dtbmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtbmv_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer * , doublereal *, integer *), dtbsv_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal * , doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); doublereal xk; @@ -793,7 +793,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -805,7 +805,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1091,7 +1091,7 @@ L210: /* L250: */ } - return 0; + return; /* End of DTBRFS */ diff --git a/lapack-netlib/SRC/dtbtrs.c b/lapack-netlib/SRC/dtbtrs.c index 9a36a3b57..6da24c48f 100644 --- a/lapack-netlib/SRC/dtbtrs.c +++ b/lapack-netlib/SRC/dtbtrs.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void dtbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info) { @@ -668,7 +668,7 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtbsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtbsv_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); logical upper; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -719,13 +719,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -735,7 +735,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ab[*kd + 1 + *info * ab_dim1] == 0.) { - return 0; + return; } /* L10: */ } @@ -743,7 +743,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ab[*info * ab_dim1 + 1] == 0.) { - return 0; + return; } /* L20: */ } @@ -760,7 +760,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of DTBTRS */ diff --git a/lapack-netlib/SRC/dtfsm.c b/lapack-netlib/SRC/dtfsm.c index 068c9afca..bc37a7ccc 100644 --- a/lapack-netlib/SRC/dtfsm.c +++ b/lapack-netlib/SRC/dtfsm.c @@ -790,7 +790,7 @@ static doublereal c_b27 = 1.; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dtfsm_(char *transr, char *side, char *uplo, char *trans, +/* Subroutine */ void dtfsm_(char *transr, char *side, char *uplo, char *trans, char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, doublereal *b, integer *ldb) { @@ -800,13 +800,13 @@ static doublereal c_b27 = 1.; /* Local variables */ integer info, i__, j, k; logical normaltransr; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical lside; extern logical lsame_(char *, char *); logical lower; - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer m1, m2, n1, n2; @@ -857,13 +857,13 @@ static doublereal c_b27 = 1.; if (info != 0) { i__1 = -info; xerbla_("DTFSM ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return when ( (N.EQ.0).OR.(M.EQ.0) ) */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Quick return when ALPHA.EQ.(0D+0) */ @@ -878,7 +878,7 @@ static doublereal c_b27 = 1.; } /* L20: */ } - return 0; + return; } if (lside) { @@ -1528,7 +1528,7 @@ static doublereal c_b27 = 1.; } } - return 0; + return; /* End of DTFSM */ diff --git a/lapack-netlib/SRC/dtftri.c b/lapack-netlib/SRC/dtftri.c index 64f498978..86b63defa 100644 --- a/lapack-netlib/SRC/dtftri.c +++ b/lapack-netlib/SRC/dtftri.c @@ -715,7 +715,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtftri_(char *transr, char *uplo, char *diag, integer *n, +/* Subroutine */ void dtftri_(char *transr, char *uplo, char *diag, integer *n, doublereal *a, integer *info) { /* System generated locals */ @@ -725,7 +725,7 @@ f"> */ integer k; logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical lower; @@ -763,13 +763,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTFTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -811,7 +811,7 @@ f"> */ dtrtri_("L", diag, &n1, a, n, info); if (*info > 0) { - return 0; + return; } dtrmm_("R", "L", "N", diag, &n2, &n1, &c_b13, a, n, &a[n1], n); dtrtri_("U", diag, &n2, &a[*n], n, info) @@ -820,7 +820,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } dtrmm_("L", "U", "T", diag, &n2, &n1, &c_b18, &a[*n], n, &a[ n1], n); @@ -834,7 +834,7 @@ f"> */ dtrtri_("L", diag, &n1, &a[n2], n, info) ; if (*info > 0) { - return 0; + return; } dtrmm_("L", "L", "T", diag, &n1, &n2, &c_b13, &a[n2], n, a, n); dtrtri_("U", diag, &n2, &a[n1], n, info) @@ -843,7 +843,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } dtrmm_("R", "U", "N", diag, &n1, &n2, &c_b18, &a[n1], n, a, n); @@ -860,7 +860,7 @@ f"> */ dtrtri_("U", diag, &n1, a, &n1, info); if (*info > 0) { - return 0; + return; } dtrmm_("L", "U", "N", diag, &n1, &n2, &c_b13, a, &n1, &a[n1 * n1], &n1); @@ -869,7 +869,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } dtrmm_("R", "L", "T", diag, &n1, &n2, &c_b18, &a[1], &n1, &a[ n1 * n1], &n1); @@ -881,7 +881,7 @@ f"> */ dtrtri_("U", diag, &n1, &a[n2 * n2], &n2, info); if (*info > 0) { - return 0; + return; } dtrmm_("R", "U", "T", diag, &n2, &n1, &c_b13, &a[n2 * n2], & n2, a, &n2); @@ -890,7 +890,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } dtrmm_("L", "L", "N", diag, &n2, &n1, &c_b18, &a[n1 * n2], & n2, a, &n2); @@ -915,7 +915,7 @@ f"> */ i__1 = *n + 1; dtrtri_("L", diag, &k, &a[1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -927,7 +927,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -944,7 +944,7 @@ f"> */ i__1 = *n + 1; dtrtri_("L", diag, &k, &a[k + 1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -956,7 +956,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -975,7 +975,7 @@ f"> */ dtrtri_("U", diag, &k, &a[k], &k, info); if (*info > 0) { - return 0; + return; } dtrmm_("L", "U", "N", diag, &k, &k, &c_b13, &a[k], &k, &a[k * (k + 1)], &k); @@ -984,7 +984,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } dtrmm_("R", "L", "T", diag, &k, &k, &c_b18, a, &k, &a[k * (k + 1)], &k) @@ -997,7 +997,7 @@ f"> */ dtrtri_("U", diag, &k, &a[k * (k + 1)], &k, info); if (*info > 0) { - return 0; + return; } dtrmm_("R", "U", "T", diag, &k, &k, &c_b13, &a[k * (k + 1)], & k, a, &k); @@ -1006,7 +1006,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } dtrmm_("L", "L", "N", diag, &k, &k, &c_b18, &a[k * k], &k, a, &k); @@ -1014,7 +1014,7 @@ f"> */ } } - return 0; + return; /* End of DTFTRI */ diff --git a/lapack-netlib/SRC/dtfttp.c b/lapack-netlib/SRC/dtfttp.c index 68f32ab0b..d1dd7891e 100644 --- a/lapack-netlib/SRC/dtfttp.c +++ b/lapack-netlib/SRC/dtfttp.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtfttp_(char *transr, char *uplo, integer *n, doublereal +/* Subroutine */ void dtfttp_(char *transr, char *uplo, integer *n, doublereal *arf, doublereal *ap, integer *info) { /* System generated locals */ @@ -738,13 +738,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTFTTP", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -753,7 +753,7 @@ f"> */ } else { ap[0] = arf[0]; } - return 0; + return; } /* Size of array ARF(0:NT-1) */ @@ -1057,7 +1057,7 @@ f"> */ } - return 0; + return; /* End of DTFTTP */ diff --git a/lapack-netlib/SRC/dtfttr.c b/lapack-netlib/SRC/dtfttr.c index 6d169bb23..105489483 100644 --- a/lapack-netlib/SRC/dtfttr.c +++ b/lapack-netlib/SRC/dtfttr.c @@ -706,7 +706,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dtfttr_(char *transr, char *uplo, integer *n, doublereal +/* Subroutine */ void dtfttr_(char *transr, char *uplo, integer *n, doublereal *arf, doublereal *a, integer *lda, integer *info) { /* System generated locals */ @@ -755,7 +755,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTFTTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -764,7 +764,7 @@ f"> */ if (*n == 1) { a[0] = arf[0]; } - return 0; + return; } /* Size of array ARF(0:nt-1) */ @@ -1034,7 +1034,7 @@ f"> */ } - return 0; + return; /* End of DTFTTR */ diff --git a/lapack-netlib/SRC/dtgevc.c b/lapack-netlib/SRC/dtgevc.c index 3f093a4e6..66b43daca 100644 --- a/lapack-netlib/SRC/dtgevc.c +++ b/lapack-netlib/SRC/dtgevc.c @@ -812,7 +812,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select, +/* Subroutine */ void dtgevc_(char *side, char *howmny, logical *select, integer *n, doublereal *s, integer *lds, doublereal *p, integer *ldp, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, doublereal *work, integer *info) @@ -826,7 +826,7 @@ f"> */ integer ibeg, ieig, iend; doublereal dmin__, temp, xmax, sump[4] /* was [2][2] */, sums[4] /* was [2][2] */; - extern /* Subroutine */ int dlag2_(doublereal *, integer *, doublereal *, + extern /* Subroutine */ void dlag2_(doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal cim2a, cim2b, cre2a, cre2b, temp2, bdiag[2]; @@ -836,7 +836,7 @@ f"> */ integer iside; doublereal sbeta; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); logical il2by2; @@ -845,12 +845,12 @@ f"> */ logical compl; doublereal anorm, bnorm; logical compr; - extern /* Subroutine */ int dlaln2_(logical *, integer *, integer *, + extern /* Subroutine */ void dlaln2_(logical *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal * , doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal temp2i; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); doublereal temp2r; integer ja; logical ilabad, ilbbad; @@ -865,7 +865,7 @@ f"> */ doublereal bcoefr; integer jw, nw; doublereal salfar, safmin; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal xscale, bignum; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -953,7 +953,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTGEVC", &i__1, (ftnlen)6); - return 0; + return; } /* Count the number of eigenvectors to be computed */ @@ -1022,14 +1022,14 @@ L10: if (*info != 0) { i__1 = -(*info); xerbla_("DTGEVC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = im; if (*n == 0) { - return 0; + return; } /* Machine Constants */ @@ -1221,7 +1221,7 @@ L10: bcoefi = -bcoefi; if (bcoefi == 0.) { *info = je; - return 0; + return; } /* Scale to avoid over/underflow */ @@ -1632,7 +1632,7 @@ L220: temp2, &bcoefi); if (bcoefi == 0.) { *info = je - 1; - return 0; + return; } /* Scale to avoid over/underflow */ @@ -1962,7 +1962,7 @@ L500: } } - return 0; + return; /* End of DTGEVC */ diff --git a/lapack-netlib/SRC/dtgex2.c b/lapack-netlib/SRC/dtgex2.c index c8b136103..f4a077d35 100644 --- a/lapack-netlib/SRC/dtgex2.c +++ b/lapack-netlib/SRC/dtgex2.c @@ -740,7 +740,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n, +/* Subroutine */ void dtgex2_(logical *wantq, logical *wantz, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer * n1, integer *n2, doublereal *work, integer *lwork, integer *info) @@ -755,23 +755,23 @@ f"> */ doublereal ddum; integer idum; doublereal taul[4], dsum; - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); doublereal taur[4], scpy[16] /* was [4][4] */, tcpy[16] /* was [4][4] */, f, g; integer i__, m; doublereal s[16] /* was [4][4] */, t[16] /* was [4][4] */; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal scale, bqra21, brqa21; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal licop[16] /* was [4][4] */; integer linfo; doublereal ircop[16] /* was [4][4] */, dnorm; integer iwork[4]; - extern /* Subroutine */ int dlagv2_(doublereal *, integer *, doublereal *, + extern /* Subroutine */ void dlagv2_(doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal * , doublereal *, doublereal *, doublereal *), dgeqr2_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, @@ -786,7 +786,7 @@ f"> */ integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal be[2], ai[2]; - extern /* Subroutine */ int dtgsy2_(char *, integer *, integer *, integer + extern /* Subroutine */ void dtgsy2_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, @@ -794,7 +794,7 @@ f"> */ doublereal ar[2], sa, sb, li[16] /* was [4][4] */; extern doublereal dlamch_(char *); doublereal dscale, ir[16] /* was [4][4] */, ss, ws; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlaset_(char *, integer *, integer *, doublereal *, @@ -836,10 +836,10 @@ f"> */ /* Quick return if possible */ if (*n <= 1 || *n1 <= 0 || *n2 <= 0) { - return 0; + return; } if (*n1 > *n || *j1 + *n1 > *n) { - return 0; + return; } m = *n1 + *n2; /* Computing MAX */ @@ -849,7 +849,7 @@ f"> */ /* Computing MAX */ i__1 = 1, i__2 = *n * m, i__1 = f2cmax(i__1,i__2), i__2 = m * m << 1; work[1] = (doublereal) f2cmax(i__1,i__2); - return 0; + return; } weak = FALSE_; @@ -988,7 +988,7 @@ f"> */ /* Exit with INFO = 0 if swap was successfully performed. */ - return 0; + return; } else { @@ -1286,7 +1286,7 @@ f"> */ /* Exit with INFO = 0 if swap was successfully performed. */ - return 0; + return; } @@ -1295,7 +1295,7 @@ f"> */ L70: *info = 1; - return 0; + return; /* End of DTGEX2 */ diff --git a/lapack-netlib/SRC/dtgexc.c b/lapack-netlib/SRC/dtgexc.c index caa0acfc5..bc0765a6f 100644 --- a/lapack-netlib/SRC/dtgexc.c +++ b/lapack-netlib/SRC/dtgexc.c @@ -733,7 +733,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n, +/* Subroutine */ void dtgexc_(logical *wantq, logical *wantz, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst, integer *ilst, doublereal *work, integer *lwork, integer *info) @@ -744,10 +744,11 @@ f"> */ /* Local variables */ integer here, lwmin; - extern /* Subroutine */ int dtgex2_(logical *, logical *, integer *, + extern /* Subroutine */ void dtgex2_(logical *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer - *, doublereal *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer nbnext; logical lquery; integer nbf, nbl; @@ -814,15 +815,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTGEXC", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } /* Determine the first row of the specified block and find out */ @@ -855,7 +856,7 @@ f"> */ } } if (*ifst == *ilst) { - return 0; + return; } if (*ifst < *ilst) { @@ -890,7 +891,7 @@ L10: &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } here += nbnext; @@ -919,7 +920,7 @@ L10: nbnext, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } if (nbnext == 1) { @@ -930,7 +931,7 @@ L10: &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } ++here; @@ -950,7 +951,7 @@ L10: here, &c__1, &nbnext, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } here += 2; } else { @@ -962,7 +963,7 @@ L10: here, &c__1, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } ++here; dtgex2_(wantq, wantz, n, &a[a_offset], lda, &b[b_offset], @@ -970,7 +971,7 @@ L10: here, &c__1, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } ++here; } @@ -1003,7 +1004,7 @@ L20: &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } here -= nbnext; @@ -1032,7 +1033,7 @@ L20: c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } if (nbnext == 1) { @@ -1043,7 +1044,7 @@ L20: nbnext, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } --here; } else { @@ -1063,7 +1064,7 @@ L20: i__1, &c__2, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } here += -2; } else { @@ -1075,7 +1076,7 @@ L20: here, &c__1, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } --here; dtgex2_(wantq, wantz, n, &a[a_offset], lda, &b[b_offset], @@ -1083,7 +1084,7 @@ L20: here, &c__1, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } --here; } @@ -1095,7 +1096,7 @@ L20: } *ilst = here; work[1] = (doublereal) lwmin; - return 0; + return; /* End of DTGEXC */ diff --git a/lapack-netlib/SRC/dtgsen.c b/lapack-netlib/SRC/dtgsen.c index b65a290f6..1d2e658e2 100644 --- a/lapack-netlib/SRC/dtgsen.c +++ b/lapack-netlib/SRC/dtgsen.c @@ -964,7 +964,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz, +/* Subroutine */ void dtgsen_(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, doublereal *a, integer *lda, doublereal * b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, @@ -983,7 +983,7 @@ f"> */ integer ierr; doublereal dsum; logical swap; - extern /* Subroutine */ int dlag2_(doublereal *, integer *, doublereal *, + extern /* Subroutine */ void dlag2_(doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); integer i__, k, isave[3]; @@ -991,7 +991,7 @@ f"> */ integer lwmin; logical wantp; integer n1, n2; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); logical wantd1, wantd2; integer kk; @@ -999,15 +999,16 @@ f"> */ doublereal dscale; integer ks; doublereal rdscal; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dtgexc_(logical *, logical *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dtgexc_(logical *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *, integer *), dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); integer liwmin; - extern /* Subroutine */ int dtgsyl_(char *, integer *, integer *, integer + extern /* Subroutine */ void dtgsyl_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, @@ -1072,7 +1073,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTGSEN", &i__1, (ftnlen)6); - return 0; + return; } /* Get machine constants */ @@ -1154,9 +1155,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTGSEN", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ @@ -1451,7 +1452,7 @@ L60: work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DTGSEN */ diff --git a/lapack-netlib/SRC/dtgsja.c b/lapack-netlib/SRC/dtgsja.c index 4902e29f8..158ee2805 100644 --- a/lapack-netlib/SRC/dtgsja.c +++ b/lapack-netlib/SRC/dtgsja.c @@ -893,7 +893,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void dtgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *tola, doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u, @@ -906,14 +906,14 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int drot_(integer *, doublereal *, integer *, + extern /* Subroutine */ void drot_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer kcallmycycle, i__, j; doublereal gamma; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); doublereal a1; logical initq; @@ -922,15 +922,15 @@ f"> */ doublereal b2, b3; logical wantu, wantv; doublereal error, ssmin; - extern /* Subroutine */ int dlags2_(logical *, doublereal *, doublereal *, + extern /* Subroutine */ void dlags2_(logical *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlapll_(integer *, doublereal *, integer *, doublereal *, integer *, doublereal *), dlartg_( doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlaset_(char *, integer *, integer *, doublereal *, - doublereal *, doublereal *, integer *), xerbla_(char *, - integer *, ftnlen); + doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); // extern integer myhuge_(doublereal *); doublereal csq, csu, csv, snq, rwk, snu, snv; @@ -1006,7 +1006,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTGSJA", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize U, V and Q, if necessary */ @@ -1245,7 +1245,7 @@ L50: L100: *ncallmycycle = kcallmycycle; - return 0; + return; /* End of DTGSJA */ diff --git a/lapack-netlib/SRC/dtgsna.c b/lapack-netlib/SRC/dtgsna.c index 1470f1f66..010b0a890 100644 --- a/lapack-netlib/SRC/dtgsna.c +++ b/lapack-netlib/SRC/dtgsna.c @@ -897,7 +897,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select, +/* Subroutine */ void dtgsna_(char *job, char *howmny, logical *select, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal * @@ -919,7 +919,7 @@ f"> */ doublereal lnrm; integer ilst; doublereal rnrm; - extern /* Subroutine */ int dlag2_(doublereal *, integer *, doublereal *, + extern /* Subroutine */ void dlag2_(doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); extern doublereal dnrm2_(integer *, doublereal *, integer *); @@ -927,7 +927,7 @@ f"> */ integer i__, k; doublereal scale; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal uhavi, uhbvi, tmpii, c1, c2; @@ -943,15 +943,16 @@ f"> */ doublereal alphai; integer iz; doublereal alphar; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), dtgexc_(logical *, logical *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void dtgexc_(logical *, logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *, integer *); logical wantbh, wantdf, somcon; doublereal alprqt; - extern /* Subroutine */ int dtgsyl_(char *, integer *, integer *, integer + extern /* Subroutine */ void dtgsyl_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, @@ -1071,15 +1072,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTGSNA", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1289,7 +1290,7 @@ L20: ; } work[1] = (doublereal) lwmin; - return 0; + return; /* End of DTGSNA */ diff --git a/lapack-netlib/SRC/dtgsy2.c b/lapack-netlib/SRC/dtgsy2.c index 040e9d1bb..fc2f271aa 100644 --- a/lapack-netlib/SRC/dtgsy2.c +++ b/lapack-netlib/SRC/dtgsy2.c @@ -789,7 +789,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer * +/* Subroutine */ void dtgsy2_(char *trans, integer *ijob, integer *m, integer * n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal * @@ -801,18 +801,18 @@ f"> */ d_offset, e_dim1, e_offset, f_dim1, f_offset, i__1, i__2, i__3; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer ierr, zdim, ipiv[8], jpiv[8], i__, j, k, p, q; doublereal alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal z__[64] /* was [8][8] */; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer @@ -821,13 +821,13 @@ f"> */ integer *, integer *, doublereal *), dgetc2_(integer *, doublereal *, integer *, integer *, integer *, integer *); integer ie, je, mb, nb, ii, jj, is, js; - extern /* Subroutine */ int dlatdf_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dlatdf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *); doublereal scaloc; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; doublereal rhs[8]; integer isp1, jsp1; @@ -900,7 +900,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTGSY2", &i__1, (ftnlen)6); - return 0; + return; } /* Determine block structure of A */ @@ -1704,7 +1704,7 @@ L40: } } - return 0; + return; /* End of DTGSY2 */ diff --git a/lapack-netlib/SRC/dtgsyl.c b/lapack-netlib/SRC/dtgsyl.c index 0b5ce9f76..3493e716f 100644 --- a/lapack-netlib/SRC/dtgsyl.c +++ b/lapack-netlib/SRC/dtgsyl.c @@ -816,7 +816,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer * +/* Subroutine */ void dtgsyl_(char *trans, integer *ijob, integer *m, integer * n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal * @@ -831,14 +831,14 @@ f"> */ /* Local variables */ doublereal dsum; integer ppqq, i__, j, k, p, q; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); integer ifunc, linfo, lwmin; doublereal scale2; - extern /* Subroutine */ int dtgsy2_(char *, integer *, integer *, integer + extern /* Subroutine */ void dtgsy2_(char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, @@ -847,7 +847,7 @@ f"> */ doublereal dscale; integer is, js, pq; doublereal scaloc; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *); @@ -949,9 +949,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTGSYL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -963,7 +963,7 @@ f"> */ *dif = 0.; } } - return 0; + return; } /* Determine optimal block sizes MB and NB */ @@ -1026,7 +1026,7 @@ f"> */ /* L30: */ } - return 0; + return; } /* Determine block structure of A */ @@ -1293,7 +1293,7 @@ L70: work[1] = (doublereal) lwmin; - return 0; + return; /* End of DTGSYL */ diff --git a/lapack-netlib/SRC/dtpcon.c b/lapack-netlib/SRC/dtpcon.c index 3032ece51..7beee5211 100644 --- a/lapack-netlib/SRC/dtpcon.c +++ b/lapack-netlib/SRC/dtpcon.c @@ -642,7 +642,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void dtpcon_(char *norm, char *uplo, char *diag, integer *n, doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork, integer *info) { @@ -655,12 +655,12 @@ f"> */ doublereal scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int drscl_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void drscl_(integer *, doublereal *, doublereal *, integer *); doublereal anorm; logical upper; doublereal xnorm; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -669,7 +669,7 @@ f"> */ extern doublereal dlantp_(char *, char *, char *, integer *, doublereal *, doublereal *); doublereal ainvnm; - extern /* Subroutine */ int dlatps_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatps_(char *, char *, char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *); logical onenrm; @@ -712,14 +712,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.; - return 0; + return; } *rcond = 0.; @@ -782,7 +782,7 @@ L10: } L20: - return 0; + return; /* End of DTPCON */ diff --git a/lapack-netlib/SRC/dtplqt.c b/lapack-netlib/SRC/dtplqt.c index 5b5e0de6a..0c3d1b1c9 100644 --- a/lapack-netlib/SRC/dtplqt.c +++ b/lapack-netlib/SRC/dtplqt.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtplqt_(integer *m, integer *n, integer *l, integer *mb, +/* Subroutine */ void dtplqt_(integer *m, integer *n, integer *l, integer *mb, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * t, integer *ldt, doublereal *work, integer *info) { @@ -707,7 +707,8 @@ f"> */ /* Local variables */ integer i__, iinfo, ib, lb, nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dtprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dtprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, @@ -759,13 +760,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTPLQT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *m; @@ -799,7 +800,7 @@ f"> */ a_dim1], lda, &b[i__ + ib + b_dim1], ldb, &work[1], &i__4); } } - return 0; + return; /* End of DTPLQT */ diff --git a/lapack-netlib/SRC/dtplqt2.c b/lapack-netlib/SRC/dtplqt2.c index 52b7bc45f..cac1311db 100644 --- a/lapack-netlib/SRC/dtplqt2.c +++ b/lapack-netlib/SRC/dtplqt2.c @@ -693,7 +693,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtplqt2_(integer *m, integer *n, integer *l, doublereal * +/* Subroutine */ void dtplqt2_(integer *m, integer *n, integer *l, doublereal * a, integer *lda, doublereal *b, integer *ldb, doublereal *t, integer * ldt, integer *info) { @@ -702,19 +702,20 @@ is composed of a triangular block and a pentagonal block, using the compact WY r i__3; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer i__, j, p; doublereal alpha; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *); integer mp, np; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, - integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, + integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.1) -- */ @@ -757,13 +758,13 @@ is composed of a triangular block and a pentagonal block, using the compact WY r if (*info != 0) { i__1 = -(*info); xerbla_("DTPLQT2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } i__1 = *m; @@ -863,6 +864,6 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* End of DTPLQT2 */ - return 0; + return; } /* dtplqt2_ */ diff --git a/lapack-netlib/SRC/dtpmlqt.c b/lapack-netlib/SRC/dtpmlqt.c index dfa0dad79..52ee6799e 100644 --- a/lapack-netlib/SRC/dtpmlqt.c +++ b/lapack-netlib/SRC/dtpmlqt.c @@ -724,7 +724,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtpmlqt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dtpmlqt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, integer *mb, doublereal *v, integer *ldv, doublereal *t, integer *ldt, doublereal *a, integer *lda, doublereal * b, integer *ldb, doublereal *work, integer *info) @@ -740,7 +740,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, lb, nb, kf; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dtprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dtprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, @@ -812,12 +813,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DTPMLQT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran) { @@ -906,7 +907,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of DTPMLQT */ diff --git a/lapack-netlib/SRC/dtpmqrt.c b/lapack-netlib/SRC/dtpmqrt.c index 1f3a511ae..78b7a4e4f 100644 --- a/lapack-netlib/SRC/dtpmqrt.c +++ b/lapack-netlib/SRC/dtpmqrt.c @@ -724,7 +724,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtpmqrt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void dtpmqrt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, integer *nb, doublereal *v, integer *ldv, doublereal *t, integer *ldt, doublereal *a, integer *lda, doublereal * b, integer *ldb, doublereal *work, integer *info) @@ -740,7 +740,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, lb, mb, kf; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dtprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dtprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, @@ -814,12 +815,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("DTPMQRT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && tran) { @@ -908,7 +909,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of DTPMQRT */ diff --git a/lapack-netlib/SRC/dtpqrt.c b/lapack-netlib/SRC/dtpqrt.c index ab4ea2367..3d44f2b16 100644 --- a/lapack-netlib/SRC/dtpqrt.c +++ b/lapack-netlib/SRC/dtpqrt.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtpqrt_(integer *m, integer *n, integer *l, integer *nb, +/* Subroutine */ void dtpqrt_(integer *m, integer *n, integer *l, integer *nb, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * t, integer *ldt, doublereal *work, integer *info) { @@ -707,7 +707,8 @@ f"> */ /* Local variables */ integer i__, iinfo, ib, lb, mb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dtprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dtprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, @@ -759,13 +760,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTPQRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *n; @@ -799,7 +800,7 @@ f"> */ , &ib); } } - return 0; + return; /* End of DTPQRT */ diff --git a/lapack-netlib/SRC/dtpqrt2.c b/lapack-netlib/SRC/dtpqrt2.c index dbe0488d4..d82e0a7d5 100644 --- a/lapack-netlib/SRC/dtpqrt2.c +++ b/lapack-netlib/SRC/dtpqrt2.c @@ -690,7 +690,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtpqrt2_(integer *m, integer *n, integer *l, doublereal * +/* Subroutine */ void dtpqrt2_(integer *m, integer *n, integer *l, doublereal * a, integer *lda, doublereal *b, integer *ldb, doublereal *t, integer * ldt, integer *info) { @@ -699,19 +699,20 @@ is composed of a triangular block and a pentagonal block, using the compact WY r i__3; /* Local variables */ - extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, + extern /* Subroutine */ void dger_(integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer i__, j, p; doublereal alpha; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *); integer mp, np; - extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, - integer *, doublereal *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlarfg_(integer *, doublereal *, doublereal *, + integer *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -754,13 +755,13 @@ is composed of a triangular block and a pentagonal block, using the compact WY r if (*info != 0) { i__1 = -(*info); xerbla_("DTPQRT2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } i__1 = *n; @@ -854,6 +855,6 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* End of DTPQRT2 */ - return 0; + return; } /* dtpqrt2_ */ diff --git a/lapack-netlib/SRC/dtprfb.c b/lapack-netlib/SRC/dtprfb.c index e28313a27..28c152d9e 100644 --- a/lapack-netlib/SRC/dtprfb.c +++ b/lapack-netlib/SRC/dtprfb.c @@ -766,7 +766,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtprfb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void dtprfb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, integer *l, doublereal *v, integer *ldv, doublereal *t, integer *ldt, doublereal *a, integer * lda, doublereal *b, integer *ldb, doublereal *work, integer *ldwork) @@ -778,12 +778,12 @@ f"> */ /* Local variables */ logical left, backward; integer i__, j; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); logical right; - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer kp, mp, np; @@ -820,7 +820,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0 || *k <= 0 || *l < 0) { - return 0; + return; } if (lsame_(storev, "C")) { @@ -1471,7 +1471,7 @@ f"> */ } - return 0; + return; /* End of DTPRFB */ diff --git a/lapack-netlib/SRC/dtprfs.c b/lapack-netlib/SRC/dtprfs.c index 1cf948729..3d89639f4 100644 --- a/lapack-netlib/SRC/dtprfs.c +++ b/lapack-netlib/SRC/dtprfs.c @@ -688,7 +688,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void dtprfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info) @@ -704,12 +704,12 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dtpmv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dtpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpsv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *), dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -774,7 +774,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -786,7 +786,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1061,7 +1061,7 @@ L210: /* L250: */ } - return 0; + return; /* End of DTPRFS */ diff --git a/lapack-netlib/SRC/dtptri.c b/lapack-netlib/SRC/dtptri.c index 272a3addd..d2bf675f0 100644 --- a/lapack-netlib/SRC/dtptri.c +++ b/lapack-netlib/SRC/dtptri.c @@ -630,7 +630,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal * +/* Subroutine */ void dtptri_(char *uplo, char *diag, integer *n, doublereal * ap, integer *info) { /* System generated locals */ @@ -638,10 +638,10 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpmv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); logical upper; integer jc, jj; @@ -679,7 +679,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Check for singularity if non-unit. */ @@ -691,7 +691,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { jj += *info; if (ap[jj] == 0.) { - return 0; + return; } /* L10: */ } @@ -700,7 +700,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ap[jj] == 0.) { - return 0; + return; } jj = jj + *n - *info + 1; /* L20: */ @@ -762,7 +762,7 @@ f"> */ } } - return 0; + return; /* End of DTPTRI */ diff --git a/lapack-netlib/SRC/dtptrs.c b/lapack-netlib/SRC/dtptrs.c index 06c0eee9d..b9485e533 100644 --- a/lapack-netlib/SRC/dtptrs.c +++ b/lapack-netlib/SRC/dtptrs.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void dtptrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer * info) { @@ -654,7 +654,7 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int dtpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtpsv_(char *, char *, char *, integer *, doublereal *, doublereal *, integer *); integer jc; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -699,13 +699,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -716,7 +716,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ap[jc + *info - 1] == 0.) { - return 0; + return; } jc += *info; /* L10: */ @@ -726,7 +726,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ap[jc] == 0.) { - return 0; + return; } jc = jc + *n - *info + 1; /* L20: */ @@ -743,7 +743,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of DTPTRS */ diff --git a/lapack-netlib/SRC/dtpttf.c b/lapack-netlib/SRC/dtpttf.c index d7d46c404..f58742658 100644 --- a/lapack-netlib/SRC/dtpttf.c +++ b/lapack-netlib/SRC/dtpttf.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtpttf_(char *transr, char *uplo, integer *n, doublereal +/* Subroutine */ void dtpttf_(char *transr, char *uplo, integer *n, doublereal *ap, doublereal *arf, integer *info) { /* System generated locals */ @@ -738,13 +738,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTPTTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -753,7 +753,7 @@ f"> */ } else { arf[0] = ap[0]; } - return 0; + return; } /* Size of array ARF(0:NT-1) */ @@ -1041,7 +1041,7 @@ f"> */ } - return 0; + return; /* End of DTPTTF */ diff --git a/lapack-netlib/SRC/dtpttr.c b/lapack-netlib/SRC/dtpttr.c index 5c9abeee2..e62a648cf 100644 --- a/lapack-netlib/SRC/dtpttr.c +++ b/lapack-netlib/SRC/dtpttr.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtpttr_(char *uplo, integer *n, doublereal *ap, +/* Subroutine */ void dtpttr_(char *uplo, integer *n, doublereal *ap, doublereal *a, integer *lda, integer *info) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTPTTR", &i__1, (ftnlen)6); - return 0; + return; } if (lower) { @@ -683,7 +683,7 @@ f"> */ } - return 0; + return; /* End of DTPTTR */ diff --git a/lapack-netlib/SRC/dtrcon.c b/lapack-netlib/SRC/dtrcon.c index 95742345a..bda4ee17a 100644 --- a/lapack-netlib/SRC/dtrcon.c +++ b/lapack-netlib/SRC/dtrcon.c @@ -649,7 +649,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void dtrcon_(char *norm, char *uplo, char *diag, integer *n, doublereal *a, integer *lda, doublereal *rcond, doublereal *work, integer *iwork, integer *info) { @@ -662,12 +662,12 @@ f"> */ doublereal scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int drscl_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void drscl_(integer *, doublereal *, doublereal *, integer *); doublereal anorm; logical upper; doublereal xnorm; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -676,7 +676,7 @@ f"> */ extern doublereal dlantr_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); doublereal ainvnm; - extern /* Subroutine */ int dlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void dlatrs_(char *, char *, char *, char *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); logical onenrm; @@ -723,14 +723,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.; - return 0; + return; } *rcond = 0.; @@ -793,7 +793,7 @@ L10: } L20: - return 0; + return; /* End of DTRCON */ diff --git a/lapack-netlib/SRC/dtrevc.c b/lapack-netlib/SRC/dtrevc.c index 7a9985393..bbaacf89d 100644 --- a/lapack-netlib/SRC/dtrevc.c +++ b/lapack-netlib/SRC/dtrevc.c @@ -739,7 +739,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select, +/* Subroutine */ void dtrevc_(char *side, char *howmny, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *vl, integer * ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, doublereal *work, integer *info) @@ -760,24 +760,24 @@ f"> */ logical over; doublereal vmax; integer jnxt, i__, j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal scale, x[4] /* was [2][2] */; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal remax; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical leftv, bothv; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal vcrit; logical somev; integer j1, j2, n2; doublereal xnorm; - extern /* Subroutine */ int dlaln2_(logical *, integer *, integer *, + extern /* Subroutine */ void dlaln2_(logical *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal * , doublereal *, integer *, doublereal *, doublereal *, integer *), @@ -886,13 +886,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTREVC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Set the constants to control overflow. */ @@ -1795,7 +1795,7 @@ L250: } - return 0; + return; /* End of DTREVC */ diff --git a/lapack-netlib/SRC/dtrevc3.c b/lapack-netlib/SRC/dtrevc3.c index 8b29732e9..eb7055fa2 100644 --- a/lapack-netlib/SRC/dtrevc3.c +++ b/lapack-netlib/SRC/dtrevc3.c @@ -757,7 +757,7 @@ static logical c_true = TRUE_; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtrevc3_(char *side, char *howmny, logical *select, +/* Subroutine */ void dtrevc3_(char *side, char *howmny, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *vl, integer * ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, doublereal *work, integer *lwork, integer *info) @@ -780,44 +780,44 @@ static logical c_true = TRUE_; logical over; doublereal vmax; integer jnxt, i__, j, k; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal scale, x[4] /* was [2][2] */; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal remax; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical leftv, bothv; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal vcrit; logical somev; integer j1, j2; doublereal xnorm; - extern /* Subroutine */ int dlaln2_(logical *, integer *, integer *, + extern /* Subroutine */ void dlaln2_(logical *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal * , doublereal *, integer *, doublereal *, doublereal *, integer *); integer iscomplex[128]; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer nb, ii, ki; extern doublereal dlamch_(char *); integer ip, is, iv; doublereal wi; extern integer idamax_(integer *, doublereal *, integer *); doublereal wr; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal bignum; logical rightv; @@ -934,15 +934,15 @@ static logical c_true = TRUE_; if (*info != 0) { i__2 = -(*info); xerbla_("DTREVC3", &i__2, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Use blocked version of back-transformation if sufficient workspace. */ @@ -2055,7 +2055,7 @@ L260: } } - return 0; + return; /* End of DTREVC3 */ diff --git a/lapack-netlib/SRC/dtrexc.c b/lapack-netlib/SRC/dtrexc.c index 8077d9468..6dd00b907 100644 --- a/lapack-netlib/SRC/dtrexc.c +++ b/lapack-netlib/SRC/dtrexc.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer * +/* Subroutine */ void dtrexc_(char *compq, integer *n, doublereal *t, integer * ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst, doublereal *work, integer *info) { @@ -672,9 +672,10 @@ f"> */ integer here; extern logical lsame_(char *, char *); logical wantq; - extern /* Subroutine */ int dlaexc_(logical *, integer *, doublereal *, + extern /* Subroutine */ void dlaexc_(logical *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer - *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer nbnext, nbf, nbl; @@ -717,13 +718,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTREXC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } /* Determine the first row of specified block */ @@ -757,7 +758,7 @@ f"> */ } if (*ifst == *ilst) { - return 0; + return; } if (*ifst < *ilst) { @@ -791,7 +792,7 @@ L10: nbf, &nbnext, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } here += nbnext; @@ -819,7 +820,7 @@ L10: c__1, &nbnext, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } if (nbnext == 1) { @@ -843,7 +844,7 @@ L10: here, &c__1, &nbnext, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } here += 2; } else { @@ -885,7 +886,7 @@ L20: nbnext, &nbf, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } here -= nbnext; @@ -913,7 +914,7 @@ L20: nbnext, &c__1, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } if (nbnext == 1) { @@ -938,7 +939,7 @@ L20: i__1, &c__2, &c__1, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } here += -2; } else { @@ -960,7 +961,7 @@ L20: } *ilst = here; - return 0; + return; /* End of DTREXC */ diff --git a/lapack-netlib/SRC/dtrrfs.c b/lapack-netlib/SRC/dtrrfs.c index 92d693e92..a42ee25ff 100644 --- a/lapack-netlib/SRC/dtrrfs.c +++ b/lapack-netlib/SRC/dtrrfs.c @@ -695,7 +695,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void dtrrfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer * ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info) @@ -712,11 +712,11 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dtrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrmv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *), dtrsv_(char *, char *, char *, integer *, doublereal *, integer *, doublereal *, integer *), dlacn2_(integer *, doublereal *, doublereal *, integer *, @@ -785,7 +785,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -797,7 +797,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1062,7 +1062,7 @@ L210: /* L250: */ } - return 0; + return; /* End of DTRRFS */ diff --git a/lapack-netlib/SRC/dtrsen.c b/lapack-netlib/SRC/dtrsen.c index 41bf17be4..17d3915ca 100644 --- a/lapack-netlib/SRC/dtrsen.c +++ b/lapack-netlib/SRC/dtrsen.c @@ -825,7 +825,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer +/* Subroutine */ void dtrsen_(char *job, char *compq, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal *sep, doublereal *work, integer *lwork, integer *iwork, integer * @@ -847,22 +847,22 @@ f"> */ logical wantq, wants; doublereal rnorm; integer n1, n2; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); integer kk; extern doublereal dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); integer nn, ks; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical wantbh; - extern /* Subroutine */ int dtrexc_(char *, integer *, doublereal *, + extern /* Subroutine */ void dtrexc_(char *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *); integer liwmin; logical wantsp, lquery; - extern /* Subroutine */ int dtrsyl_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dtrsyl_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); doublereal est; @@ -974,9 +974,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRSEN", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ @@ -1113,7 +1113,7 @@ L40: work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of DTRSEN */ diff --git a/lapack-netlib/SRC/dtrsna.c b/lapack-netlib/SRC/dtrsna.c index 6be0eb8e4..4bcf3e344 100644 --- a/lapack-netlib/SRC/dtrsna.c +++ b/lapack-netlib/SRC/dtrsna.c @@ -778,7 +778,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select, +/* Subroutine */ void dtrsna_(char *job, char *howmny, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *vl, integer * ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep, integer *mm, integer *m, doublereal *work, integer *ldwork, integer * @@ -810,20 +810,20 @@ f"> */ logical wants; doublereal dummy[1]; integer n2; - extern /* Subroutine */ int dlacn2_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlacn2_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); extern doublereal dlapy2_(doublereal *, doublereal *); - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); doublereal cs; extern doublereal dlamch_(char *); integer nn, ks; doublereal sn, mu; - extern /* Subroutine */ int dlacpy_(char *, integer *, integer *, - doublereal *, integer *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dlacpy_(char *, integer *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; logical wantbh; - extern /* Subroutine */ int dlaqtr_(logical *, logical *, integer *, + extern /* Subroutine */ void dlaqtr_(logical *, logical *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), dtrexc_(char *, integer * , doublereal *, integer *, doublereal *, integer *, integer *, @@ -928,19 +928,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRSNA", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (somcon) { if (! select[1]) { - return 0; + return; } } if (wants) { @@ -949,7 +949,7 @@ f"> */ if (wantsp) { sep[1] = (d__1 = t[t_dim1 + 1], abs(d__1)); } - return 0; + return; } /* Get machine constants */ @@ -1186,7 +1186,7 @@ L50: L60: ; } - return 0; + return; /* End of DTRSNA */ diff --git a/lapack-netlib/SRC/dtrsyl.c b/lapack-netlib/SRC/dtrsyl.c index d8a4b9876..a92834682 100644 --- a/lapack-netlib/SRC/dtrsyl.c +++ b/lapack-netlib/SRC/dtrsyl.c @@ -681,7 +681,7 @@ f"> */ /* > \ingroup doubleSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer +/* Subroutine */ void dtrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer * ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info) { @@ -696,13 +696,13 @@ f"> */ integer ierr; doublereal smin, suml, sumr; integer j, k, l; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal x[4] /* was [2][2] */; extern logical lsame_(char *, char *); integer knext, lnext, k1, k2, l1, l2; doublereal xnorm; - extern /* Subroutine */ int dlaln2_(logical *, integer *, integer *, + extern /* Subroutine */ void dlaln2_(logical *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal * , doublereal *, integer *, doublereal *, doublereal *, integer *), @@ -711,7 +711,7 @@ f"> */ integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); doublereal a11, db; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); doublereal scaloc; @@ -770,14 +770,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRSYL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *scale = 1.; if (*m == 0 || *n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -1879,7 +1879,7 @@ L240: } - return 0; + return; /* End of DTRSYL */ diff --git a/lapack-netlib/SRC/dtrsyl3.c b/lapack-netlib/SRC/dtrsyl3.c index 9cfbe3dab..187226281 100644 --- a/lapack-netlib/SRC/dtrsyl3.c +++ b/lapack-netlib/SRC/dtrsyl3.c @@ -697,7 +697,7 @@ static doublereal c_b32 = 1.; /* Angelika Schwarz, Umea University, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int dtrsyl3_(char *trana, char *tranb, integer *isgn, +/* Subroutine */ void dtrsyl3_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *iwork, integer *liwork, doublereal *swork, integer *ldswork, @@ -714,7 +714,7 @@ static doublereal c_b32 = 1.; logical skip; doublereal *wnrm, xnrm; integer i__, j, k, l; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dgemm_(char *, char *, integer *, integer *, integer * , doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); @@ -724,19 +724,19 @@ static doublereal c_b32 = 1.; integer l2, nb, pc, jj, ll; extern doublereal dlamch_(char *), dlange_(char *, integer *, integer *, doublereal *, integer *, doublereal *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal scaloc, scamin; extern doublereal dlarmm_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen ); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; logical notrna, notrnb; doublereal smlnum; logical lquery; - extern /* Subroutine */ int dtrsyl_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dtrsyl_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer nba, nbb; @@ -814,17 +814,17 @@ static doublereal c_b32 = 1.; } if (*info != 0) { i__1 = -(*info); - xerbla_("DTRSYL3", &i__1); - return 0; + xerbla_("DTRSYL3", &i__1, 7); + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *scale = 1.; if (*m == 0 || *n == 0) { - return 0; + return; } wnrm = (doublereal*)malloc(f2cmax(*m,*n)*sizeof(doublereal)); @@ -834,7 +834,7 @@ static doublereal c_b32 = 1.; if (f2cmin(nba,nbb) == 1 || *ldswork < f2cmax(nba,nbb) || *liwork < iwork[1]) { dtrsyl_(trana, tranb, isgn, m, n, &a[a_offset], lda, &b[b_offset], ldb, &c__[c_offset], ldc, scale, info); - return 0; + return; } /* Set constants to control overflow */ @@ -1976,7 +1976,7 @@ static doublereal c_b32 = 1.; iwork[1] = nba + nbb + 2; swork[swork_dim1 + 1] = (doublereal) f2cmax(nba,nbb); swork[swork_dim1 + 2] = (doublereal) ((nbb << 1) + nba); - return 0; + return; } /* Realize consistent scaling */ @@ -2052,7 +2052,7 @@ static doublereal c_b32 = 1.; swork[swork_dim1 + 1] = (doublereal) f2cmax(nba,nbb); swork[swork_dim1 + 2] = (doublereal) ((nbb << 1) + nba); - return 0; + return; /* End of DTRSYL3 */ diff --git a/lapack-netlib/SRC/dtrti2.c b/lapack-netlib/SRC/dtrti2.c index 0f756a622..47eb0d889 100644 --- a/lapack-netlib/SRC/dtrti2.c +++ b/lapack-netlib/SRC/dtrti2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal * +/* Subroutine */ void dtrti2_(char *uplo, char *diag, integer *n, doublereal * a, integer *lda, integer *info) { /* System generated locals */ @@ -631,12 +631,13 @@ f"> */ /* Local variables */ integer j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int dtrmv_(char *, char *, char *, integer *, - doublereal *, integer *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void dtrmv_(char *, char *, char *, integer *, + doublereal *, integer *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; doublereal ajj; @@ -673,7 +674,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRTI2", &i__1, (ftnlen)6); - return 0; + return; } if (upper) { @@ -723,7 +724,7 @@ f"> */ } } - return 0; + return; /* End of DTRTI2 */ diff --git a/lapack-netlib/SRC/dtrtri.c b/lapack-netlib/SRC/dtrtri.c index e7b353fde..1f7191472 100644 --- a/lapack-netlib/SRC/dtrtri.c +++ b/lapack-netlib/SRC/dtrtri.c @@ -626,7 +626,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal * +/* Subroutine */ void dtrtri_(char *uplo, char *diag, integer *n, doublereal * a, integer *lda, integer *info) { /* System generated locals */ @@ -637,13 +637,13 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrmm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *), dtrsm_( char *, char *, char *, char *, integer *, integer *, doublereal * , doublereal *, integer *, doublereal *, integer *); logical upper; - extern /* Subroutine */ int dtrti2_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dtrti2_(char *, char *, integer *, doublereal *, integer *, integer *); integer jb, nb, nn; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -684,13 +684,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity if non-unit. */ @@ -699,7 +699,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (a[*info + *info * a_dim1] == 0.) { - return 0; + return; } /* L10: */ } @@ -781,7 +781,7 @@ f"> */ } } - return 0; + return; /* End of DTRTRI */ diff --git a/lapack-netlib/SRC/dtrtrs.c b/lapack-netlib/SRC/dtrtrs.c index 41e67499b..804ebe54e 100644 --- a/lapack-netlib/SRC/dtrtrs.c +++ b/lapack-netlib/SRC/dtrtrs.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void dtrtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer * ldb, integer *info) { @@ -661,9 +661,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void dtrsm_(char *, char *, char *, char *, integer *, integer *, doublereal *, doublereal *, integer *, - doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; @@ -708,13 +709,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -723,7 +724,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (a[*info + *info * a_dim1] == 0.) { - return 0; + return; } /* L10: */ } @@ -735,7 +736,7 @@ f"> */ dtrsm_("Left", uplo, trans, diag, n, nrhs, &c_b12, &a[a_offset], lda, &b[ b_offset], ldb); - return 0; + return; /* End of DTRTRS */ diff --git a/lapack-netlib/SRC/dtrttf.c b/lapack-netlib/SRC/dtrttf.c index 79348e9b7..199a8731c 100644 --- a/lapack-netlib/SRC/dtrttf.c +++ b/lapack-netlib/SRC/dtrttf.c @@ -704,7 +704,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int dtrttf_(char *transr, char *uplo, integer *n, doublereal +/* Subroutine */ void dtrttf_(char *transr, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *arf, integer *info) { /* System generated locals */ @@ -753,7 +753,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRTTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -762,7 +762,7 @@ f"> */ if (*n == 1) { arf[0] = a[0]; } - return 0; + return; } /* Size of array ARF(0:nt-1) */ @@ -1032,7 +1032,7 @@ f"> */ } - return 0; + return; /* End of DTRTTF */ diff --git a/lapack-netlib/SRC/dtrttp.c b/lapack-netlib/SRC/dtrttp.c index 6f88cb4f8..fb96db271 100644 --- a/lapack-netlib/SRC/dtrttp.c +++ b/lapack-netlib/SRC/dtrttp.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup doubleOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int dtrttp_(char *uplo, integer *n, doublereal *a, integer * +/* Subroutine */ void dtrttp_(char *uplo, integer *n, doublereal *a, integer * lda, doublereal *ap, integer *info) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTRTTP", &i__1, (ftnlen)6); - return 0; + return; } if (lower) { @@ -683,7 +683,7 @@ f"> */ } - return 0; + return; /* End of DTRTTP */ diff --git a/lapack-netlib/SRC/dtzrzf.c b/lapack-netlib/SRC/dtzrzf.c index c6f5e625c..5836f65fc 100644 --- a/lapack-netlib/SRC/dtzrzf.c +++ b/lapack-netlib/SRC/dtzrzf.c @@ -667,7 +667,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void dtzrzf_(integer *m, integer *n, doublereal *a, integer * lda, doublereal *tau, doublereal *work, integer *lwork, integer *info) { /* System generated locals */ @@ -675,16 +675,17 @@ f"> */ /* Local variables */ integer i__, nbmin, m1, ib, nb, ki, kk, mu, nx; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlarzb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dlarzb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int dlarzt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dlarzt_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer lwkmin, ldwork; - extern /* Subroutine */ int dlatrz_(integer *, integer *, integer *, + extern /* Subroutine */ void dlatrz_(integer *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *); integer lwkopt; logical lquery; @@ -743,22 +744,22 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("DTZRZF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0) { - return 0; + return; } else if (*m == *n) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { tau[i__] = 0.; /* L10: */ } - return 0; + return; } nbmin = 2; @@ -856,7 +857,7 @@ f"> */ work[1] = (doublereal) lwkopt; - return 0; + return; /* End of DTZRZF */ diff --git a/lapack-netlib/SRC/sbbcsd.c b/lapack-netlib/SRC/sbbcsd.c index 017bcb0db..198baa59c 100644 --- a/lapack-netlib/SRC/sbbcsd.c +++ b/lapack-netlib/SRC/sbbcsd.c @@ -844,7 +844,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * +/* Subroutine */ void sbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * jobv2t, char *trans, integer *m, integer *p, integer *q, real *theta, real *phi, real *u1, integer *ldu1, real *u2, integer *ldu2, real * v1t, integer *ldv1t, real *v2t, integer *ldv2t, real *b11d, real * @@ -864,17 +864,17 @@ f"> */ real thetamin, thetamax; logical restart11, restart12, restart21, restart22; integer lworkmin, iu1cs, iu2cs; - extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *) ; integer iu1sn, iu2sn, lworkopt, i__, j; real r__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer maxit; - extern /* Subroutine */ int slasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void slasr_(char *, char *, char *, integer *, integer *, real *, real *, real *, integer *); real dummy; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real x1, x2, y1, y2; integer iv1tcs, iv2tcs; @@ -884,12 +884,12 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real thresh, tolmul; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); logical lquery; real b11bulge; logical wantv1t, wantv2t; real b12bulge, b21bulge, b22bulge, eps, tol; - extern /* Subroutine */ int slartgp_(real *, real *, real *, real *, real + extern /* Subroutine */ void slartgp_(real *, real *, real *, real *, real *), slartgs_(real *, real *, real *, real *, real *); @@ -962,7 +962,7 @@ f"> */ if (*info == 0 && *q == 0) { lworkmin = 1; work[1] = (real) lworkmin; - return 0; + return; } /* Compute workspace */ @@ -987,9 +987,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SBBCSD", &i__1,(ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Get machine constants */ @@ -1082,7 +1082,7 @@ f"> */ ++(*info); } } - return 0; + return; } iter = iter + imax - imin; @@ -1793,7 +1793,7 @@ f"> */ } - return 0; + return; /* End of SBBCSD */ diff --git a/lapack-netlib/SRC/sbdsdc.c b/lapack-netlib/SRC/sbdsdc.c index 833bfb321..ffcf1afda 100644 --- a/lapack-netlib/SRC/sbdsdc.c +++ b/lapack-netlib/SRC/sbdsdc.c @@ -721,7 +721,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__, +/* Subroutine */ void sbdsdc_(char *uplo, char *compq, integer *n, real *d__, real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q, integer *iq, real *work, integer *iwork, integer *info) { @@ -735,10 +735,10 @@ f"> */ integer z__; extern logical lsame_(char *, char *); integer poles; - extern /* Subroutine */ int slasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void slasr_(char *, char *, char *, integer *, integer *, real *, real *, real *, integer *); integer iuplo, nsize, start; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), slasd0_(integer *, integer *, real *, real *, real *, integer * , real *, integer *, integer *, integer *, real *, integer *); @@ -747,21 +747,21 @@ f"> */ integer is, iu; real sn; extern real slamch_(char *); - extern /* Subroutine */ int slasda_(integer *, integer *, integer *, + extern /* Subroutine */ void slasda_(integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, - integer *, real *, real *, real *, real *, integer *, integer *), - xerbla_(char *, integer *, ftnlen); + integer *, real *, real *, real *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer givcol; - extern /* Subroutine */ int slasdq_(char *, integer *, integer *, integer + extern /* Subroutine */ void slasdq_(char *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real * , integer *, real *, integer *, real *, integer *); integer icompq; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *), slartg_(real *, real *, real * , real *, real *); real orgnrm; @@ -833,13 +833,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SBDSDC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } smlsiz = ilaenv_(&c__9, "SBDSDC", " ", &c__0, &c__0, &c__0, &c__0, ( ftnlen)6, (ftnlen)1); @@ -852,7 +852,7 @@ f"> */ vt[vt_dim1 + 1] = 1.f; } d__[1] = abs(d__[1]); - return 0; + return; } nm1 = *n - 1; @@ -931,7 +931,7 @@ f"> */ orgnrm = slanst_("M", n, &d__[1], &e[1]); if (orgnrm == 0.f) { - return 0; + return; } slascl_("G", &c__0, &c__0, &orgnrm, &c_b15, n, &c__1, &d__[1], n, &ierr); slascl_("G", &c__0, &c__0, &orgnrm, &c_b15, &nm1, &c__1, &e[1], &nm1, & @@ -1021,7 +1021,7 @@ f"> */ iwork[1], info); } if (*info != 0) { - return 0; + return; } start = i__ + 1; } @@ -1081,7 +1081,7 @@ L40: slasr_("L", "V", "B", n, n, &work[1], &work[*n], &u[u_offset], ldu); } - return 0; + return; /* End of SBDSDC */ diff --git a/lapack-netlib/SRC/sbdsqr.c b/lapack-netlib/SRC/sbdsqr.c index 495b33a4d..832c43bca 100644 --- a/lapack-netlib/SRC/sbdsqr.c +++ b/lapack-netlib/SRC/sbdsqr.c @@ -755,7 +755,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer * +/* Subroutine */ void sbdsqr_(char *uplo, integer *n, integer *ncvt, integer * nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real * u, integer *ldu, real *c__, integer *ldc, real *work, integer *info) { @@ -773,27 +773,27 @@ f"> */ real cosl; integer isub, iter; real unfl, sinl, cosr, smin, smax, sinr; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer iterdivn; - extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *) ; real f, g, h__; integer i__, j, m; real r__; extern logical lsame_(char *, char *); real oldcs; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer oldll; real shift, sigmn, oldsn, sminl; - extern /* Subroutine */ int slasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void slasr_(char *, char *, char *, integer *, integer *, real *, real *, real *, integer *); real sigmx; logical lower; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer maxitdivn; - extern /* Subroutine */ int slasq1_(integer *, real *, real *, real *, + extern /* Subroutine */ void slasq1_(integer *, real *, real *, real *, integer *), slasv2_(real *, real *, real *, real *, real *, real * , real *, real *, real *); real cs; @@ -802,7 +802,7 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real sminoa; - extern /* Subroutine */ int slartg_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slartg_(real *, real *, real *, real *, real * ); real thresh; logical rotate; @@ -860,10 +860,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SBDSQR", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } if (*n == 1) { goto L160; @@ -881,7 +881,7 @@ f"> */ /* If INFO equals 2, dqds didn't finish, try to finish */ if (*info != 2) { - return 0; + return; } *info = 0; } @@ -1512,7 +1512,7 @@ L200: /* L210: */ } L220: - return 0; + return; /* End of SBDSQR */ diff --git a/lapack-netlib/SRC/sbdsvdx.c b/lapack-netlib/SRC/sbdsvdx.c index 8c1e07a32..bf1b9aa1b 100644 --- a/lapack-netlib/SRC/sbdsvdx.c +++ b/lapack-netlib/SRC/sbdsvdx.c @@ -742,7 +742,7 @@ static integer c__2 = 2; /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sbdsvdx_(char *uplo, char *jobz, char *range, integer *n, +/* Subroutine */ void sbdsvdx_(char *uplo, char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, integer *ns, real *s, real *z__, integer *ldz, real *work, integer * iwork, integer *info) @@ -765,7 +765,7 @@ static integer c__2 = 2; integer idend, isbeg; extern logical lsame_(char *, char *); integer idtgk, ietgk; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer iltgk, itemp, icolz; logical allsv; integer idptr; @@ -777,13 +777,13 @@ static integer c__2 = 2; logical split, valsv; integer isplt; real ortol, vutgk; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; char rngvx[1]; integer irowu, irowv; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); integer irowz, iifail; real mu; @@ -791,11 +791,11 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); real abstol; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real thresh; integer iiwork; - extern /* Subroutine */ int mecago_(), sstevx_(char *, char *, + extern /* Subroutine */ void mecago_(), sstevx_(char *, char *, integer *, real *, real *, real *, real *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *, integer *); @@ -866,14 +866,14 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("SBDSVDX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible (N.LE.1) */ *ns = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -890,7 +890,7 @@ static integer c__2 = 2; z__[z_dim1 + 1] = r_sign(&c_b10, &d__[1]); z__[z_dim1 + 2] = 1.f; } - return 0; + return; } abstol = slamch_("Safe Minimum") * 2; @@ -1006,7 +1006,7 @@ static integer c__2 = 2; iltgk, &iltgk, &abstol, ns, &s[1], &z__[z_offset], ldz, &work[ itemp], &iwork[iiwork], &iwork[iifail], info); if (*ns == 0) { - return 0; + return; } else { if (wantz) { i__1 = *n << 1; @@ -1207,7 +1207,7 @@ static integer c__2 = 2; , &iwork[iifail], info); if (*info != 0) { /* Exit with the error code from SSTEVX. */ - return 0; + return; } emin = (r__1 = s[isbeg], abs(r__1)); i__3 = isbeg + nsl - 1; @@ -1261,7 +1261,7 @@ static integer c__2 = 2; z_dim1], &c__2); if (nrmu == 0.f) { *info = (*n << 1) + 1; - return 0; + return; } r__1 = 1.f / nrmu; sscal_(&nru, &r__1, &z__[irowu + (icolz + i__) * @@ -1292,7 +1292,7 @@ static integer c__2 = 2; z_dim1], &c__2); if (nrmv == 0.f) { *info = (*n << 1) + 1; - return 0; + return; } r__1 = -1.f / nrmv; sscal_(&nrv, &r__1, &z__[irowv + (icolz + i__) * @@ -1464,7 +1464,7 @@ static integer c__2 = 2; } } - return 0; + return; /* End of SBDSVDX */ diff --git a/lapack-netlib/SRC/scombssq.c b/lapack-netlib/SRC/scombssq.c index 964dbe88e..1e207420f 100644 --- a/lapack-netlib/SRC/scombssq.c +++ b/lapack-netlib/SRC/scombssq.c @@ -568,7 +568,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int scombssq_(real *v1, real *v2) +/* Subroutine */ void scombssq_(real *v1, real *v2) { /* System generated locals */ real r__1; @@ -602,7 +602,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ v1[2] = v2[2] + r__1 * r__1 * v1[2]; v1[1] = v2[1]; } - return 0; + return; /* End of SCOMBSSQ */ diff --git a/lapack-netlib/SRC/sdisna.c b/lapack-netlib/SRC/sdisna.c index 2bcd47cc1..bf12638f1 100644 --- a/lapack-netlib/SRC/sdisna.c +++ b/lapack-netlib/SRC/sdisna.c @@ -626,7 +626,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__, +/* Subroutine */ void sdisna_(char *job, integer *m, integer *n, real *d__, real *sep, integer *info) { /* System generated locals */ @@ -707,13 +707,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SDISNA", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } /* Compute reciprocal condition numbers */ @@ -768,7 +768,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of SDISNA */ diff --git a/lapack-netlib/SRC/sgbbrd.c b/lapack-netlib/SRC/sgbbrd.c index aed2baa41..ffa248478 100644 --- a/lapack-netlib/SRC/sgbbrd.c +++ b/lapack-netlib/SRC/sgbbrd.c @@ -701,7 +701,7 @@ f"> */ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc, +/* Subroutine */ void sgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real * e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer *ldc, real *work, integer *info) @@ -712,7 +712,7 @@ f"> */ /* Local variables */ integer inca; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer i__, j, l; extern logical lsame_(char *, char *); @@ -723,13 +723,14 @@ f"> */ real ra, rb, rc; integer kk, ml, mn, nr, mu; real rs; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slaset_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slaset_( char *, integer *, integer *, real *, real *, real *, integer *), slartg_(real *, real *, real *, real *, real *); integer kb1; - extern /* Subroutine */ int slargv_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slargv_(integer *, real *, integer *, real *, integer *, real *, integer *); integer ml0; - extern /* Subroutine */ int slartv_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slartv_(integer *, real *, integer *, real *, integer *, real *, real *, integer *); logical wantpt; integer mu0, klm, kun, nrt, klu1; @@ -794,7 +795,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBBRD", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize Q and P**T to the unit matrix, if needed */ @@ -809,7 +810,7 @@ f"> */ /* Quick return if possible. */ if (*m == 0 || *n == 0) { - return 0; + return; } minmn = f2cmin(*m,*n); @@ -1145,7 +1146,7 @@ f"> */ /* L150: */ } } - return 0; + return; /* End of SGBBRD */ diff --git a/lapack-netlib/SRC/sgbcon.c b/lapack-netlib/SRC/sgbcon.c index bb0a508db..b4dd563ea 100644 --- a/lapack-netlib/SRC/sgbcon.c +++ b/lapack-netlib/SRC/sgbcon.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku, +/* Subroutine */ void sgbcon_(char *norm, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info) { @@ -674,7 +674,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical lnoti; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *), + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); @@ -683,7 +683,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); real ainvnm; - extern /* Subroutine */ int slatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void slatbs_(char *, char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *); logical onenrm; @@ -729,7 +729,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -737,9 +737,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -838,7 +838,7 @@ L10: } L40: - return 0; + return; /* End of SGBCON */ diff --git a/lapack-netlib/SRC/sgbequ.c b/lapack-netlib/SRC/sgbequ.c index 183ad6ceb..41c8f41d9 100644 --- a/lapack-netlib/SRC/sgbequ.c +++ b/lapack-netlib/SRC/sgbequ.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void sgbequ_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real * colcnd, real *amax, integer *info) { @@ -712,7 +712,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -721,7 +721,7 @@ f"> */ *rowcnd = 1.f; *colcnd = 1.f; *amax = 0.f; - return 0; + return; } /* Get machine constants. */ @@ -781,7 +781,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.f) { *info = i__; - return 0; + return; } /* L50: */ } @@ -856,7 +856,7 @@ f"> */ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.f) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -879,7 +879,7 @@ f"> */ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of SGBEQU */ diff --git a/lapack-netlib/SRC/sgbequb.c b/lapack-netlib/SRC/sgbequb.c index f3b59ead7..94dc75c39 100644 --- a/lapack-netlib/SRC/sgbequb.c +++ b/lapack-netlib/SRC/sgbequb.c @@ -668,7 +668,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgbequb_(integer *m, integer *n, integer *kl, integer * +/* Subroutine */ void sgbequb_(integer *m, integer *n, integer *kl, integer * ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info) { @@ -719,7 +719,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGBEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -728,7 +728,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rowcnd = 1.f; *colcnd = 1.f; *amax = 0.f; - return 0; + return; } /* Get machine constants. Assume SMLNUM is a power of the radix. */ @@ -797,7 +797,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.f) { *info = i__; - return 0; + return; } /* L50: */ } @@ -875,7 +875,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.f) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -898,7 +898,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of SGBEQUB */ diff --git a/lapack-netlib/SRC/sgbrfs.c b/lapack-netlib/SRC/sgbrfs.c index a9f5a7fe0..4d970959d 100644 --- a/lapack-netlib/SRC/sgbrfs.c +++ b/lapack-netlib/SRC/sgbrfs.c @@ -718,7 +718,7 @@ f"> */ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer * +/* Subroutine */ void sgbrfs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real * ferr, real *berr, real *work, integer *iwork, integer *info) @@ -735,11 +735,11 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int sgbmv_(char *, integer *, integer *, integer * + extern /* Subroutine */ void sgbmv_(char *, integer *, integer *, integer * , integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer count; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); @@ -750,7 +750,7 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran; - extern /* Subroutine */ int sgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void sgbtrs_(char *, integer *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); char transt[1]; @@ -813,7 +813,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -825,7 +825,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1034,7 +1034,7 @@ L100: /* L140: */ } - return 0; + return; /* End of SGBRFS */ diff --git a/lapack-netlib/SRC/sgbrfsx.c b/lapack-netlib/SRC/sgbrfsx.c index e3df146f1..a957a440d 100644 --- a/lapack-netlib/SRC/sgbrfsx.c +++ b/lapack-netlib/SRC/sgbrfsx.c @@ -848,7 +848,7 @@ static integer c__1 = 1; /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgbrfsx_(char *trans, char *equed, integer *n, integer * +/* Subroutine */ void sgbrfsx_(char *trans, char *equed, integer *n, integer * kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr, integer * @@ -863,7 +863,7 @@ static integer c__1 = 1; /* Local variables */ real illrcond_thresh__; - extern /* Subroutine */ int sla_gbrfsx_extended_(integer *, integer *, + extern /* Subroutine */ void sla_gbrfsx_extended_(integer *, integer *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *, logical *, real *, real *, integer * , real *, integer *, real *, integer *, real *, real *, real *, @@ -880,9 +880,10 @@ static integer c__1 = 1; integer prec_type__; extern real slangb_(char *, integer *, integer *, integer *, real *, integer *, real *), slamch_(char *); - extern /* Subroutine */ int sgbcon_(char *, integer *, integer *, integer + extern /* Subroutine */ void sgbcon_(char *, integer *, integer *, integer *, real *, integer *, integer *, real *, real *, real *, integer * - , integer *), xerbla_(char *, integer *, ftnlen); + , integer *); + extern int xerbla_(char *, integer *, ftnlen); logical colequ, notran, rowequ; integer trans_type__; extern integer ilaprec_(char *); @@ -1007,7 +1008,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SGBRFSX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -1030,7 +1031,7 @@ static integer c__1 = 1; err_bnds_comp__[j + err_bnds_comp_dim1 * 3] = 1.f; } } - return 0; + return; } /* Default to failure. */ @@ -1191,7 +1192,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of SGBRFSX */ diff --git a/lapack-netlib/SRC/sgbsv.c b/lapack-netlib/SRC/sgbsv.c index 4aaac8022..1764eb427 100644 --- a/lapack-netlib/SRC/sgbsv.c +++ b/lapack-netlib/SRC/sgbsv.c @@ -672,7 +672,7 @@ e driver) */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer * +/* Subroutine */ void sgbsv_(integer *n, integer *kl, integer *ku, integer * nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, integer *info) { @@ -680,7 +680,8 @@ e driver) */ integer ab_dim1, ab_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgbtrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgbtrf_( integer *, integer *, integer *, integer *, real *, integer *, integer *, integer *), sgbtrs_(char *, integer *, integer *, integer *, integer *, real *, integer *, integer *, real *, @@ -725,7 +726,7 @@ e driver) */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBSV ", &i__1, (ftnlen)5); - return 0; + return; } /* Compute the LU factorization of the band matrix A. */ @@ -738,7 +739,7 @@ e driver) */ sgbtrs_("No transpose", n, kl, ku, nrhs, &ab[ab_offset], ldab, &ipiv[ 1], &b[b_offset], ldb, info); } - return 0; + return; /* End of SGBSV */ diff --git a/lapack-netlib/SRC/sgbsvx.c b/lapack-netlib/SRC/sgbsvx.c index 44e6a8f3e..80da1a7f4 100644 --- a/lapack-netlib/SRC/sgbsvx.c +++ b/lapack-netlib/SRC/sgbsvx.c @@ -879,7 +879,7 @@ f"> */ /* > \ingroup realGBsolve */ /* ===================================================================== */ -/* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl, +/* Subroutine */ void sgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, @@ -898,27 +898,28 @@ f"> */ real rcmin, rcmax, anorm; logical equil; integer j1, j2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real colcnd; extern real slangb_(char *, integer *, integer *, integer *, real *, integer *, real *), slamch_(char *); - extern /* Subroutine */ int slaqgb_(integer *, integer *, integer *, + extern /* Subroutine */ void slaqgb_(integer *, integer *, integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, char *); logical nofact; - extern /* Subroutine */ int sgbcon_(char *, integer *, integer *, integer + extern /* Subroutine */ void sgbcon_(char *, integer *, integer *, integer *, real *, integer *, integer *, real *, real *, real *, integer * - , integer *), xerbla_(char *, integer *, ftnlen); + , integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; extern real slantb_(char *, char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sgbequ_(integer *, integer *, integer *, + extern /* Subroutine */ void sgbequ_(integer *, integer *, integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *); integer infequ; logical colequ; - extern /* Subroutine */ int sgbrfs_(char *, integer *, integer *, integer + extern /* Subroutine */ void sgbrfs_(char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer *, real *, real *, real *, integer *, integer *), sgbtrf_(integer *, integer *, @@ -927,7 +928,7 @@ f"> */ integer *); real rowcnd; logical notran; - extern /* Subroutine */ int sgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void sgbtrs_(char *, integer *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real smlnum; @@ -1063,7 +1064,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1169,7 +1170,7 @@ f"> */ } work[1] = rpvgrw; *rcond = 0.f; - return 0; + return; } } @@ -1253,7 +1254,7 @@ f"> */ } work[1] = rpvgrw; - return 0; + return; /* End of SGBSVX */ diff --git a/lapack-netlib/SRC/sgbsvxx.c b/lapack-netlib/SRC/sgbsvxx.c index 3c373c431..74f458c06 100644 --- a/lapack-netlib/SRC/sgbsvxx.c +++ b/lapack-netlib/SRC/sgbsvxx.c @@ -1068,7 +1068,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realGBsolve */ /* ===================================================================== */ -/* Subroutine */ int sgbsvxx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void sgbsvxx_(char *fact, char *trans, integer *n, integer * kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real * @@ -1092,7 +1092,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical equil; real colcnd; extern real slamch_(char *); - extern /* Subroutine */ int slaqgb_(integer *, integer *, integer *, + extern /* Subroutine */ void slaqgb_(integer *, integer *, integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, char *); logical nofact; @@ -1100,17 +1100,17 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ real bignum; integer infequ; logical colequ; - extern /* Subroutine */ int sgbtrf_(integer *, integer *, integer *, + extern /* Subroutine */ void sgbtrf_(integer *, integer *, integer *, integer *, real *, integer *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); real rowcnd; logical notran; - extern /* Subroutine */ int sgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void sgbtrs_(char *, integer *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real smlnum; logical rowequ; - extern /* Subroutine */ int slascl2_(integer *, integer *, real *, real *, + extern /* Subroutine */ void slascl2_(integer *, integer *, real *, real *, integer *), sgbequb_(integer *, integer *, integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *), sgbrfsx_(char *, char *, integer *, integer *, @@ -1257,7 +1257,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGBSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1331,7 +1331,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = sla_gbrpvgrw_(n, kl, ku, info, &ab[ab_offset], ldab, & afb[afb_offset], ldafb); - return 0; + return; } } @@ -1364,7 +1364,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ slascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); } - return 0; + return; /* End of SGBSVXX */ diff --git a/lapack-netlib/SRC/sgbtf2.c b/lapack-netlib/SRC/sgbtf2.c index 61b95d383..9324568d3 100644 --- a/lapack-netlib/SRC/sgbtf2.c +++ b/lapack-netlib/SRC/sgbtf2.c @@ -660,7 +660,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, integer *info) { /* System generated locals */ @@ -668,10 +668,10 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); integer i__, j; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer *); integer km, jp, ju, kv; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -716,13 +716,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Gaussian elimination with partial pivoting */ @@ -812,7 +812,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of SGBTF2 */ diff --git a/lapack-netlib/SRC/sgbtrf.c b/lapack-netlib/SRC/sgbtrf.c index 03256e0fb..3f752287c 100644 --- a/lapack-netlib/SRC/sgbtrf.c +++ b/lapack-netlib/SRC/sgbtrf.c @@ -660,7 +660,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, integer *info) { /* System generated locals */ @@ -668,17 +668,17 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); real temp; integer i__, j; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real work13[4160] /* was [65][64] */, work31[4160] /* was [65][ 64] */; integer i2, i3, j2, j3, k2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *), sgbtf2_(integer *, integer *, integer *, integer @@ -730,13 +730,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size for this environment */ @@ -1131,7 +1131,7 @@ f"> */ } } - return 0; + return; /* End of SGBTRF */ diff --git a/lapack-netlib/SRC/sgbtrs.c b/lapack-netlib/SRC/sgbtrs.c index 729e8a1c0..2139fe231 100644 --- a/lapack-netlib/SRC/sgbtrs.c +++ b/lapack-netlib/SRC/sgbtrs.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer * +/* Subroutine */ void sgbtrs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, integer *info) { @@ -660,14 +660,14 @@ f"> */ integer ab_dim1, ab_offset, b_dim1, b_offset, i__1, i__2, i__3; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); integer i__, j, l; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical lnoti; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), stbsv_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *); integer kd, lm; @@ -717,13 +717,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } kd = *ku + *kl + 1; @@ -800,7 +800,7 @@ f"> */ } } } - return 0; + return; /* End of SGBTRS */ diff --git a/lapack-netlib/SRC/sgebak.c b/lapack-netlib/SRC/sgebak.c index d6e30870f..ad320d5d4 100644 --- a/lapack-netlib/SRC/sgebak.c +++ b/lapack-netlib/SRC/sgebak.c @@ -638,7 +638,7 @@ f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo, +/* Subroutine */ void sgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer *info) { @@ -649,9 +649,9 @@ f"> */ integer i__, k; real s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical leftv; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer ii; extern /* Subroutine */ int xerbla_(char *, integer *,ftnlen); @@ -699,19 +699,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEBAK", &i__1,(ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*m == 0) { - return 0; + return; } if (lsame_(job, "N")) { - return 0; + return; } if (*ilo == *ihi) { @@ -790,7 +790,7 @@ L50: } } - return 0; + return; /* End of SGEBAK */ diff --git a/lapack-netlib/SRC/sgebal.c b/lapack-netlib/SRC/sgebal.c index c2bc727fb..07d5a6bf8 100644 --- a/lapack-netlib/SRC/sgebal.c +++ b/lapack-netlib/SRC/sgebal.c @@ -673,7 +673,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda, +/* Subroutine */ void sgebal_(char *job, integer *n, real *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info) { /* System generated locals */ @@ -687,7 +687,7 @@ f"> */ integer i__, j, k, l, m; real r__, s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer *); real sfmin1, sfmin2, sfmax1, sfmax2, ca, ra; extern real slamch_(char *); @@ -728,7 +728,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEBAL", &i__1,(ftnlen)6); - return 0; + return; } k = 1; @@ -908,7 +908,7 @@ L180: *info = -3; i__2 = -(*info); xerbla_("SGEBAL", &i__2, (ftnlen)6); - return 0; + return; } f /= 2.f; c__ /= 2.f; @@ -954,7 +954,7 @@ L210: *ilo = k; *ihi = l; - return 0; + return; /* End of SGEBAL */ diff --git a/lapack-netlib/SRC/sgebd2.c b/lapack-netlib/SRC/sgebd2.c index f491189ba..82fc210e5 100644 --- a/lapack-netlib/SRC/sgebd2.c +++ b/lapack-netlib/SRC/sgebd2.c @@ -702,7 +702,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgebd2_(integer *m, integer *n, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *work, integer *info) { /* System generated locals */ @@ -710,9 +710,10 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, - integer *, real *, real *, integer *, real *), xerbla_( - char *, integer *, ftnlen), slarfg_(integer *, real *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, + integer *, real *, real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); @@ -749,7 +750,7 @@ f"> */ if (*info < 0) { i__1 = -(*info); xerbla_("SGEBD2", &i__1, (ftnlen)6); - return 0; + return; } if (*m >= *n) { @@ -860,7 +861,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of SGEBD2 */ diff --git a/lapack-netlib/SRC/sgebrd.c b/lapack-netlib/SRC/sgebrd.c index f85f3148d..9f1981b79 100644 --- a/lapack-netlib/SRC/sgebrd.c +++ b/lapack-netlib/SRC/sgebrd.c @@ -722,7 +722,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgebrd_(integer *m, integer *n, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *work, integer * lwork, integer *info) { @@ -731,14 +731,14 @@ f"> */ /* Local variables */ integer i__, j, nbmin, iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer minmn; - extern /* Subroutine */ int sgebd2_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgebd2_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *); integer nb, nx; - extern /* Subroutine */ int slabrd_(integer *, integer *, integer *, real + extern /* Subroutine */ void slabrd_(integer *, integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, real *, integer *); integer ws; @@ -795,9 +795,9 @@ f"> */ if (*info < 0) { i__1 = -(*info); xerbla_("SGEBRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -805,7 +805,7 @@ f"> */ minmn = f2cmin(*m,*n); if (minmn == 0) { work[1] = 1.f; - return 0; + return; } ws = f2cmax(*m,*n); @@ -899,7 +899,7 @@ f"> */ sgebd2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &d__[i__], &e[i__], & tauq[i__], &taup[i__], &work[1], &iinfo); work[1] = (real) ws; - return 0; + return; /* End of SGEBRD */ diff --git a/lapack-netlib/SRC/sgecon.c b/lapack-netlib/SRC/sgecon.c index ce2e07823..71224eb01 100644 --- a/lapack-netlib/SRC/sgecon.c +++ b/lapack-netlib/SRC/sgecon.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda, +/* Subroutine */ void sgecon_(char *norm, integer *n, real *a, integer *lda, real *anorm, real *rcond, real *work, integer *iwork, integer *info) { /* System generated locals */ @@ -648,7 +648,7 @@ f"> */ real scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *), + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *), slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); real sl; @@ -660,7 +660,7 @@ f"> */ real ainvnm; logical onenrm; char normin[1]; - extern /* Subroutine */ int slatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void slatrs_(char *, char *, char *, char *, integer *, real *, integer *, real *, real *, real *, integer *); real smlnum; @@ -698,7 +698,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGECON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -706,9 +706,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -772,7 +772,7 @@ L10: } L20: - return 0; + return; /* End of SGECON */ diff --git a/lapack-netlib/SRC/sgeequ.c b/lapack-netlib/SRC/sgeequ.c index 040949a7c..d890f787d 100644 --- a/lapack-netlib/SRC/sgeequ.c +++ b/lapack-netlib/SRC/sgeequ.c @@ -647,7 +647,7 @@ f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeequ_(integer *m, integer *n, real *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info) { @@ -693,7 +693,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -702,7 +702,7 @@ f"> */ *rowcnd = 1.f; *colcnd = 1.f; *amax = 0.f; - return 0; + return; } /* Get machine constants. */ @@ -756,7 +756,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.f) { *info = i__; - return 0; + return; } /* L50: */ } @@ -826,7 +826,7 @@ f"> */ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.f) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -849,7 +849,7 @@ f"> */ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of SGEEQU */ diff --git a/lapack-netlib/SRC/sgeequb.c b/lapack-netlib/SRC/sgeequb.c index a90ad2f1f..9515a5df8 100644 --- a/lapack-netlib/SRC/sgeequb.c +++ b/lapack-netlib/SRC/sgeequb.c @@ -654,7 +654,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgeequb_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeequb_(integer *m, integer *n, real *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info) { @@ -700,7 +700,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGEEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -709,7 +709,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rowcnd = 1.f; *colcnd = 1.f; *amax = 0.f; - return 0; + return; } /* Get machine constants. Assume SMLNUM is a power of the radix. */ @@ -772,7 +772,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.f) { *info = i__; - return 0; + return; } /* L50: */ } @@ -846,7 +846,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.f) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -869,7 +869,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of SGEEQUB */ diff --git a/lapack-netlib/SRC/sgees.c b/lapack-netlib/SRC/sgees.c index 54ede98d6..ecd148f12 100644 --- a/lapack-netlib/SRC/sgees.c +++ b/lapack-netlib/SRC/sgees.c @@ -729,7 +729,7 @@ or GE matrices */ /* > \ingroup realGEeigen */ /* ===================================================================== */ -/* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n, +/* Subroutine */ void sgees_(char *jobvs, char *sort, L_fp select, integer *n, real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs, integer *ldvs, real *work, integer *lwork, logical *bwork, integer * info) @@ -746,37 +746,37 @@ or GE matrices */ extern logical lsame_(char *, char *); logical cursl; integer i1, i2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical lst2sl; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); logical scalea; integer ip; real cscale; - extern /* Subroutine */ int sgebak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgebak_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *), sgebal_(char *, integer *, real *, integer *, integer *, integer *, real *, integer *); extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sgehrd_(integer *, integer *, integer *, real - *, integer *, real *, real *, integer *, integer *), xerbla_(char - *, integer *, ftnlen); + extern /* Subroutine */ void sgehrd_(integer *, integer *, integer *, real + *, integer *, real *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); logical lastsl; - extern /* Subroutine */ int sorghr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorghr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *), shseqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *, integer *); integer minwrk, maxwrk; real smlnum; integer hswork; - extern /* Subroutine */ int strsen_(char *, char *, logical *, integer *, + extern /* Subroutine */ void strsen_(char *, char *, logical *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *, real *, real *, integer *, integer *, integer *, integer * ); @@ -873,16 +873,16 @@ or GE matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEES ", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1117,7 +1117,7 @@ L20: } work[1] = (real) maxwrk; - return 0; + return; /* End of SGEES */ diff --git a/lapack-netlib/SRC/sgeesx.c b/lapack-netlib/SRC/sgeesx.c index 0c9f1832a..6f6a4fb53 100644 --- a/lapack-netlib/SRC/sgeesx.c +++ b/lapack-netlib/SRC/sgeesx.c @@ -793,7 +793,7 @@ f"> */ /* > \ingroup realGEeigen */ /* ===================================================================== */ -/* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char * +/* Subroutine */ void sgeesx_(char *jobvs, char *sort, L_fp select, char * sense, integer *n, real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real * work, integer *lwork, integer *iwork, integer *liwork, logical *bwork, @@ -809,31 +809,31 @@ f"> */ extern logical lsame_(char *, char *); logical cursl; integer liwrk, i1, i2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical lst2sl; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); logical scalea; integer ip; real cscale; - extern /* Subroutine */ int sgebak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgebak_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *), sgebal_(char *, integer *, real *, integer *, integer *, integer *, real *, integer *); extern real slamch_(char *); - extern /* Subroutine */ int sgehrd_(integer *, integer *, integer *, real - *, integer *, real *, real *, integer *, integer *), xerbla_(char - *, integer *, ftnlen); + extern /* Subroutine */ void sgehrd_(integer *, integer *, integer *, real + *, integer *, real *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern real slange_(char *, integer *, integer *, real *, integer *, real *); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); logical wantsb, wantse, lastsl; - extern /* Subroutine */ int sorghr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorghr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *), shseqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *, integer *); @@ -841,7 +841,7 @@ f"> */ logical wantsn; real smlnum; integer hswork; - extern /* Subroutine */ int strsen_(char *, char *, logical *, integer *, + extern /* Subroutine */ void strsen_(char *, char *, logical *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *, real *, real *, integer *, integer *, integer *, integer * ); @@ -964,16 +964,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEESX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1236,7 +1236,7 @@ L20: iwork[1] = 1; } - return 0; + return; /* End of SGEESX */ diff --git a/lapack-netlib/SRC/sgeev.c b/lapack-netlib/SRC/sgeev.c index 608f274cf..891eb8972 100644 --- a/lapack-netlib/SRC/sgeev.c +++ b/lapack-netlib/SRC/sgeev.c @@ -706,7 +706,7 @@ ices */ /* > \ingroup realGEeigen */ /* ===================================================================== */ -/* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a, +/* Subroutine */ void sgeev_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, integer *lwork, integer *info) { @@ -720,35 +720,35 @@ ices */ char side[1]; real anrm; integer ierr, itau, iwrk, nout; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); extern real snrm2_(integer *, real *, integer *); integer i__, k; real r__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); extern real slapy2_(real *, real *); real cs; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); logical scalea; real cscale; - extern /* Subroutine */ int sgebak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgebak_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *), sgebal_(char *, integer *, real *, integer *, integer *, integer *, real *, integer *); real sn; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sgehrd_(integer *, integer *, integer *, real - *, integer *, real *, real *, integer *, integer *), xerbla_(char - *, integer *, ftnlen); + extern /* Subroutine */ void sgehrd_(integer *, integer *, integer *, real + *, integer *, real *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical select[1]; real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slartg_(real *, real *, real *, real *, real *), sorghr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *), shseqr_( @@ -759,7 +759,7 @@ ices */ real smlnum; integer hswork; logical lquery, wantvr; - extern /* Subroutine */ int strevc3_(char *, char *, logical *, integer *, + extern /* Subroutine */ void strevc3_(char *, char *, logical *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *, integer *); integer ihi; @@ -900,15 +900,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEEV ", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1145,7 +1145,7 @@ L50: } work[1] = (real) maxwrk; - return 0; + return; /* End of SGEEV */ diff --git a/lapack-netlib/SRC/sgeevx.c b/lapack-netlib/SRC/sgeevx.c index 8965356a5..2409d7323 100644 --- a/lapack-netlib/SRC/sgeevx.c +++ b/lapack-netlib/SRC/sgeevx.c @@ -819,7 +819,7 @@ f"> */ /* > \ingroup realGEeigen */ /* ===================================================================== */ -/* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char * +/* Subroutine */ void sgeevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, real *a, integer *lda, real *wr, real *wi, real * vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer * ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work, @@ -834,43 +834,43 @@ f"> */ char side[1]; real anrm; integer ierr, itau, iwrk, nout; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); extern real snrm2_(integer *, real *, integer *); integer i__, k; real r__; integer icond; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); extern real slapy2_(real *, real *); real cs; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); logical scalea; real cscale; - extern /* Subroutine */ int sgebak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgebak_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *), sgebal_(char *, integer *, real *, integer *, integer *, integer *, real *, integer *); real sn; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sgehrd_(integer *, integer *, integer *, real - *, integer *, real *, real *, integer *, integer *), xerbla_(char - *, integer *, ftnlen); + extern /* Subroutine */ void sgehrd_(integer *, integer *, integer *, real + *, integer *, real *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical select[1]; real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slartg_(real *, real *, real *, real *, real *), sorghr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *), shseqr_( char *, char *, integer *, integer *, integer *, real *, integer * , real *, real *, real *, integer *, real *, integer *, integer *); integer minwrk, maxwrk; - extern /* Subroutine */ int strsna_(char *, char *, logical *, integer *, + extern /* Subroutine */ void strsna_(char *, char *, logical *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *, integer *); @@ -879,7 +879,7 @@ f"> */ logical wntsne; real smlnum; logical lquery, wantvr, wntsnn, wntsnv; - extern /* Subroutine */ int strevc3_(char *, char *, logical *, integer *, + extern /* Subroutine */ void strevc3_(char *, char *, logical *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *, integer *); char job[1]; @@ -1042,15 +1042,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1313,7 +1313,7 @@ L50: } work[1] = (real) maxwrk; - return 0; + return; /* End of SGEEVX */ diff --git a/lapack-netlib/SRC/sgehd2.c b/lapack-netlib/SRC/sgehd2.c index 465e06ac6..76973e11c 100644 --- a/lapack-netlib/SRC/sgehd2.c +++ b/lapack-netlib/SRC/sgehd2.c @@ -663,7 +663,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, +/* Subroutine */ void sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -671,10 +671,10 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, - integer *, real *, real *, integer *, real *), xerbla_( - char *, integer *, ftnlen), slarfg_(integer *, real *, real *, - integer *, real *); + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, + integer *, real *, real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); real aii; @@ -710,7 +710,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEHD2", &i__1, (ftnlen)6); - return 0; + return; } i__1 = *ihi - 1; @@ -743,7 +743,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of SGEHD2 */ diff --git a/lapack-netlib/SRC/sgehrd.c b/lapack-netlib/SRC/sgehrd.c index 2c990165f..2b0172e32 100644 --- a/lapack-netlib/SRC/sgehrd.c +++ b/lapack-netlib/SRC/sgehrd.c @@ -686,7 +686,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, +/* Subroutine */ void sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -694,7 +694,7 @@ f"> */ /* Local variables */ integer i__, j, nbmin, iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, @@ -706,9 +706,10 @@ f"> */ integer ib; real ei; integer nb, nh, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *,ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *,ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -764,9 +765,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEHRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Set elements 1:ILO-1 and IHI:N-1 of TAU to zero */ @@ -787,7 +788,7 @@ f"> */ nh = *ihi - *ilo + 1; if (nh <= 1) { work[1] = 1.f; - return 0; + return; } /* Determine the block size */ @@ -898,7 +899,7 @@ f"> */ sgehd2_(n, &i__, ihi, &a[a_offset], lda, &tau[1], &work[1], &iinfo); work[1] = (real) lwkopt; - return 0; + return; /* End of SGEHRD */ diff --git a/lapack-netlib/SRC/sgejsv.c b/lapack-netlib/SRC/sgejsv.c index c985f160b..0820b0dfb 100644 --- a/lapack-netlib/SRC/sgejsv.c +++ b/lapack-netlib/SRC/sgejsv.c @@ -991,7 +991,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgejsv_(char *joba, char *jobu, char *jobv, char *jobr, +/* Subroutine */ void sgejsv_(char *joba, char *jobu, char *jobv, char *jobr, char *jobt, char *jobp, integer *m, integer *n, real *a, integer *lda, real *sva, real *u, integer *ldu, real *v, integer *ldv, real *work, integer *lwork, integer *iwork, integer *info) @@ -1011,23 +1011,23 @@ f"> */ integer p, q; logical jracc; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real small, entra, sfmin; logical lsvec; real epsln; logical rsvec; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer n1; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); logical l2aber; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); real condr1, condr2, uscal1, uscal2; logical l2kill, l2rank, l2tran; - extern /* Subroutine */ int sgeqp3_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqp3_(integer *, integer *, real *, integer *, integer *, real *, real *, integer *, integer *); logical l2pert; integer nr; @@ -1038,10 +1038,10 @@ f"> */ real aatmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical noscal; - extern /* Subroutine */ int sgelqf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgelqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, @@ -1049,16 +1049,17 @@ f"> */ real entrat; logical almort; real maxprj; - extern /* Subroutine */ int spocon_(char *, integer *, real *, integer *, + extern /* Subroutine */ void spocon_(char *, integer *, real *, integer *, real *, real *, real *, integer *, integer *); logical errest; - extern /* Subroutine */ int sgesvj_(char *, char *, char *, integer *, + extern /* Subroutine */ void sgesvj_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, integer *), slassq_( integer *, real *, integer *, real *, real *); logical transp; extern /* Subroutine */ int slaswp_(integer *, real *, integer *, integer - *, integer *, integer *, integer *), sorgqr_(integer *, integer *, + *, integer *, integer *, integer *); + extern void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *), sormlq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, @@ -1168,7 +1169,7 @@ f"> */ /* #:( */ i__1 = -(*info); xerbla_("SGEJSV", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return for void matrix (Y3K safe) */ @@ -1184,7 +1185,7 @@ f"> */ work[5] = 0.f; work[6] = 0.f; work[7] = 0.f; - return 0; + return; } /* Determine whether the matrix U should be M x N or M x M */ @@ -1224,7 +1225,7 @@ f"> */ *info = -9; i__2 = -(*info); xerbla_("SGEJSV", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscal) { @@ -1286,7 +1287,7 @@ f"> */ iwork[1] = 0; iwork[2] = 0; iwork[3] = 0; - return 0; + return; } /* Issue warning if denormalized column norms detected. Override the */ @@ -1351,7 +1352,7 @@ f"> */ work[6] = 0.f; work[7] = 0.f; } - return 0; + return; } @@ -2797,6 +2798,6 @@ L3302: iwork[2] = numrank; iwork[3] = warning; - return 0; + return; } /* sgejsv_ */ diff --git a/lapack-netlib/SRC/sgelq.c b/lapack-netlib/SRC/sgelq.c index 282695fd2..55d7079b6 100644 --- a/lapack-netlib/SRC/sgelq.c +++ b/lapack-netlib/SRC/sgelq.c @@ -681,7 +681,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgelq_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgelq_(integer *m, integer *n, real *a, integer *lda, real *t, integer *tsize, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -693,11 +693,11 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sgelqt_(integer *, integer *, integer *, real + extern /* Subroutine */ void sgelqt_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *); logical lminws, lquery; integer mintsz; - extern /* Subroutine */ int slaswlq_(integer *, integer *, integer *, + extern /* Subroutine */ void slaswlq_(integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , integer *); @@ -837,15 +837,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("SGELQ", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The LQ Decomposition */ @@ -858,7 +858,7 @@ static integer c__2 = 2; } work[1] = (real) lwreq; - return 0; + return; /* End of SGELQ */ diff --git a/lapack-netlib/SRC/sgelq2.c b/lapack-netlib/SRC/sgelq2.c index 3a65795fb..0baa8a445 100644 --- a/lapack-netlib/SRC/sgelq2.c +++ b/lapack-netlib/SRC/sgelq2.c @@ -639,7 +639,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgelq2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -647,10 +647,10 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, - integer *, real *, real *, integer *, real *), xerbla_( - char *, integer *, ftnlen), slarfg_(integer *, real *, real *, - integer *, real *); + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, + integer *, real *, real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); real aii; @@ -684,7 +684,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGELQ2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -713,7 +713,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of SGELQ2 */ diff --git a/lapack-netlib/SRC/sgelqf.c b/lapack-netlib/SRC/sgelqf.c index c5dfa9326..f013d4f64 100644 --- a/lapack-netlib/SRC/sgelqf.c +++ b/lapack-netlib/SRC/sgelqf.c @@ -659,7 +659,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgelqf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -667,15 +667,16 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int sgelq2_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgelq2_(integer *, integer *, real *, integer *, real *, real *, integer *); integer ib, nb, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -719,9 +720,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGELQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -729,7 +730,7 @@ f"> */ k = f2cmin(*m,*n); if (k == 0) { work[1] = 1.f; - return 0; + return; } nbmin = 2; @@ -814,7 +815,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SGELQF */ diff --git a/lapack-netlib/SRC/sgelqt.c b/lapack-netlib/SRC/sgelqt.c index d28d4d2a2..5c5efdb6f 100644 --- a/lapack-netlib/SRC/sgelqt.c +++ b/lapack-netlib/SRC/sgelqt.c @@ -630,7 +630,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgelqt_(integer *m, integer *n, integer *mb, real *a, +/* Subroutine */ void sgelqt_(integer *m, integer *n, integer *mb, real *a, integer *lda, real *t, integer *ldt, real *work, integer *info) { /* System generated locals */ @@ -638,9 +638,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ integer i__, k, iinfo, ib; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen), sgelqt3_( + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void sgelqt3_( integer *, integer *, real *, integer *, real *, integer *, integer *); @@ -681,14 +683,14 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGELQT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ k = f2cmin(*m,*n); if (k == 0) { - return 0; + return; } /* Blocked loop of length K */ @@ -717,7 +719,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ i__ * a_dim1], lda, &work[1], &i__5); } } - return 0; + return; /* End of SGELQT */ diff --git a/lapack-netlib/SRC/sgelqt3.c b/lapack-netlib/SRC/sgelqt3.c index 3ea1f3b9a..fdb918647 100644 --- a/lapack-netlib/SRC/sgelqt3.c +++ b/lapack-netlib/SRC/sgelqt3.c @@ -627,7 +627,7 @@ static real c_b19 = -1.f; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgelqt3_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgelqt3_(integer *m, integer *n, real *a, integer *lda, real *t, integer *ldt, integer *info) { /* System generated locals */ @@ -635,13 +635,15 @@ static real c_b19 = -1.f; /* Local variables */ integer i__, j, iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer i1, j1, m1, m2; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * - ), xerbla_(char *, integer *, ftnlen), slarfg_(integer *, real *, real *, integer *, real *); + ); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); /* -- LAPACK computational routine (version 3.8.0) -- */ @@ -675,7 +677,7 @@ static real c_b19 = -1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SGELQT3", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 1) { @@ -773,7 +775,7 @@ static real c_b19 = -1.f; } - return 0; + return; /* End of SGELQT3 */ diff --git a/lapack-netlib/SRC/sgels.c b/lapack-netlib/SRC/sgels.c index a6cdf047a..7817f09a8 100644 --- a/lapack-netlib/SRC/sgels.c +++ b/lapack-netlib/SRC/sgels.c @@ -698,7 +698,7 @@ static integer c__0 = 0; /* > \ingroup realGEsolve */ /* ===================================================================== */ -/* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void sgels_(char *trans, integer *m, integer *n, integer * nrhs, real *a, integer *lda, real *b, integer *ldb, real *work, integer *lwork, integer *info) { @@ -714,7 +714,7 @@ static integer c__0 = 0; integer wsize; real rwork[1]; integer nb; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer mn; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); @@ -723,20 +723,21 @@ static integer c__0 = 0; integer *, integer *, ftnlen, ftnlen); integer scllen; real bignum; - extern /* Subroutine */ int sgelqf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgelqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real smlnum; - extern /* Subroutine */ int sormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormlq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, - integer *, integer *), strtrs_(char *, char *, + integer *, integer *); + extern int strtrs_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer * , integer *); @@ -838,9 +839,9 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("SGELS ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -850,7 +851,7 @@ static integer c__0 = 0; if (f2cmin(i__1,*nrhs) == 0) { i__1 = f2cmax(*m,*n); slaset_("Full", &i__1, nrhs, &c_b33, &c_b33, &b[b_offset], ldb); - return 0; + return; } /* Get machine parameters */ @@ -936,7 +937,7 @@ static integer c__0 = 0; , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; @@ -951,7 +952,7 @@ static integer c__0 = 0; lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* B(N+1:M,1:NRHS) = ZERO */ @@ -998,7 +999,7 @@ static integer c__0 = 0; , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* B(M+1:N,1:NRHS) = 0 */ @@ -1041,7 +1042,7 @@ static integer c__0 = 0; lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1070,7 +1071,7 @@ static integer c__0 = 0; L50: work[1] = (real) wsize; - return 0; + return; /* End of SGELS */ diff --git a/lapack-netlib/SRC/sgelsd.c b/lapack-netlib/SRC/sgelsd.c index 7a195bec7..60e9a6b62 100644 --- a/lapack-netlib/SRC/sgelsd.c +++ b/lapack-netlib/SRC/sgelsd.c @@ -728,7 +728,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a, +/* Subroutine */ void sgelsd_(integer *m, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *s, real *rcond, integer * rank, real *work, integer *lwork, integer *iwork, integer *info) { @@ -740,9 +740,9 @@ f"> */ integer itau, nlvl, iascl, ibscl; real sfmin; integer minmn, maxmn, itaup, itauq, mnthr, nwork, ie, il; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer mm; - extern /* Subroutine */ int sgebrd_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgebrd_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, integer *); extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); @@ -750,30 +750,30 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int sgelqf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgelqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slalsd_(char *, integer *, integer *, integer *, real *, real *, real *, integer *, real * , integer *, real *, integer *, integer *), slascl_(char * , integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer wlalsd; - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); integer ldwork; - extern /* Subroutine */ int sormbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void sormbr_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , real *, integer *, integer *); integer liwork, minwrk, maxwrk; real smlnum; - extern /* Subroutine */ int sormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormlq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); logical lquery; integer smlsiz; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real eps; @@ -975,9 +975,9 @@ fprintf(stdout,"start of SGELSD\n"); if (*info != 0) { i__1 = -(*info); xerbla_("SGELSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ @@ -985,7 +985,7 @@ fprintf(stdout,"start of SGELSD\n"); if (*m == 0 || *n == 0) { fprintf(stdout,"SGELSD quickreturn rank=0\n"); *rank = 0; - return 0; + return; } /* Get machine parameters. */ @@ -1293,7 +1293,7 @@ L10: work[1] = (real) maxwrk; iwork[1] = liwork; fprintf(stdout, "end of SGELSD\n"); - return 0; + return; /* End of SGELSD */ diff --git a/lapack-netlib/SRC/sgelss.c b/lapack-netlib/SRC/sgelss.c index 9e6bec2d1..bf92f6d0c 100644 --- a/lapack-netlib/SRC/sgelss.c +++ b/lapack-netlib/SRC/sgelss.c @@ -689,7 +689,7 @@ f"> */ /* > \ingroup realGEsolve */ /* ===================================================================== */ -/* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a, +/* Subroutine */ void sgelss_(integer *m, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *s, real *rcond, integer * rank, real *work, integer *lwork, integer *info) { @@ -702,22 +702,22 @@ f"> */ integer itau, lwork_sgebrd__, lwork_sgeqrf__, i__, lwork_sorgbr__, lwork_sormbr__, lwork_sormlq__, iascl, ibscl, lwork_sormqr__, chunk; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real sfmin; integer minmn, maxmn; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer itaup, itauq; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *); + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *); integer mnthr, iwork; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer bl, ie, il; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer mm, bdspac; - extern /* Subroutine */ int sgebrd_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgebrd_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, integer *); extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); @@ -725,7 +725,7 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int sgelqf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgelqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sgeqrf_(integer *, integer *, real @@ -737,16 +737,16 @@ f"> */ char *, integer *, integer *, integer *, real *, integer *, real * , real *, integer *, integer *); integer ldwork; - extern /* Subroutine */ int sormbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void sormbr_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , real *, integer *, integer *); integer minwrk, maxwrk; real smlnum; - extern /* Subroutine */ int sormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormlq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real dum[1], eps, thr; @@ -968,16 +968,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGELSS", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters */ @@ -1424,7 +1424,7 @@ f"> */ L70: work[1] = (real) maxwrk; - return 0; + return; /* End of SGELSS */ diff --git a/lapack-netlib/SRC/sgelst.c b/lapack-netlib/SRC/sgelst.c index e0cd84cd9..7e17c542c 100644 --- a/lapack-netlib/SRC/sgelst.c +++ b/lapack-netlib/SRC/sgelst.c @@ -710,7 +710,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int sgelst_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void sgelst_(char *trans, integer *m, integer *n, integer * nrhs, real *a, integer *lda, real *b, integer *ldb, real *work, integer *lwork, integer *info) { @@ -726,26 +726,27 @@ f"> */ integer nbmin; real rwork[1]; integer lwopt, nb; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer mn; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer scllen; real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *), sgelqt_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *); integer mnnrhs; - extern /* Subroutine */ int sgeqrt_(integer *, integer *, integer *, real + extern /* Subroutine */ void sgeqrt_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *); real smlnum; logical lquery; extern /* Subroutine */ int strtrs_(char *, char *, char *, integer *, - integer *, real *, integer *, real *, integer *, integer *), sgemlqt_(char *, char *, integer *, + integer *, real *, integer *, real *, integer *, integer *); + extern void sgemlqt_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *), sgemqrt_(char *, char *, integer *, integer *, integer *, integer @@ -822,10 +823,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("SGELST ", &i__1); - return 0; + xerbla_("SGELST ", &i__1, 6); + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -836,7 +837,7 @@ f"> */ i__1 = f2cmax(*m,*n); slaset_("Full", &i__1, nrhs, &c_b12, &c_b12, &b[b_offset], ldb); work[1] = (real) lwopt; - return 0; + return; } /* *GEQRT and *GELQT routines cannot accept NB larger than f2cmin(M,N) */ @@ -895,7 +896,7 @@ f"> */ i__1 = f2cmax(*m,*n); slaset_("Full", &i__1, nrhs, &c_b12, &c_b12, &b[b_offset], ldb); work[1] = (real) lwopt; - return 0; + return; } brow = *m; @@ -950,7 +951,7 @@ f"> */ , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; @@ -969,7 +970,7 @@ f"> */ lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* Block 2: Zero out all rows below the N-th row in B: */ @@ -1019,7 +1020,7 @@ f"> */ , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* Block 2: Zero out all rows below the M-th row in B: */ @@ -1063,7 +1064,7 @@ f"> */ lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1091,7 +1092,7 @@ f"> */ work[1] = (real) lwopt; - return 0; + return; /* End of SGELST */ diff --git a/lapack-netlib/SRC/sgelsy.c b/lapack-netlib/SRC/sgelsy.c index 81f76c660..25052cb7c 100644 --- a/lapack-netlib/SRC/sgelsy.c +++ b/lapack-netlib/SRC/sgelsy.c @@ -721,7 +721,7 @@ f"> */ /* > G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a, +/* Subroutine */ void sgelsy_(integer *m, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, integer *rank, real *work, integer *lwork, integer *info) { @@ -733,17 +733,17 @@ f"> */ real anrm, bnrm, smin, smax; integer i__, j, iascl, ibscl, ismin, ismax; real c1, c2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real wsize, s1, s2; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), slaic1_(integer *, integer *, real *, real *, real *, real *, real *, real *, real *), sgeqp3_( integer *, integer *, real *, integer *, integer *, real *, real * , integer *, integer *); integer nb; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer mn; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); @@ -751,14 +751,14 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); integer lwkmin, nb1, nb2, nb3, nb4; real sminpr, smaxpr, smlnum; integer lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *), sormrz_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, @@ -847,16 +847,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGELSY", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (mn == 0 || *nrhs == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters */ @@ -1055,7 +1055,7 @@ L10: L70: work[1] = (real) lwkopt; - return 0; + return; /* End of SGELSY */ diff --git a/lapack-netlib/SRC/sgemlq.c b/lapack-netlib/SRC/sgemlq.c index eabe26534..0d17bbfb0 100644 --- a/lapack-netlib/SRC/sgemlq.c +++ b/lapack-netlib/SRC/sgemlq.c @@ -673,7 +673,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgemlq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sgemlq_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *t, integer *tsize, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -682,7 +682,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ logical left, tran; - extern /* Subroutine */ int slamswlq_(char *, char *, integer *, integer * + extern /* Subroutine */ void slamswlq_(char *, char *, integer *, integer * , integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *); extern logical lsame_(char *, char *); @@ -690,7 +690,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer mb, nb, mn, lw, nblcks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; - extern /* Subroutine */ int sgemlqt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemlqt_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *); @@ -771,9 +771,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGEMLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -781,7 +781,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -797,7 +797,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ work[1] = (real) lw; - return 0; + return; /* End of SGEMLQ */ diff --git a/lapack-netlib/SRC/sgemlqt.c b/lapack-netlib/SRC/sgemlqt.c index aee0ead05..f5c9609f1 100644 --- a/lapack-netlib/SRC/sgemlqt.c +++ b/lapack-netlib/SRC/sgemlqt.c @@ -658,7 +658,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgemlqt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sgemlqt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *mb, real *v, integer *ldv, real *t, integer * ldt, real *c__, integer *ldc, real *work, integer *info) { @@ -672,9 +672,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, kf; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork; @@ -736,12 +737,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGEMLQT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran) { @@ -802,7 +803,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of SGEMLQT */ diff --git a/lapack-netlib/SRC/sgemqr.c b/lapack-netlib/SRC/sgemqr.c index 8cb3e2842..3788ab32e 100644 --- a/lapack-netlib/SRC/sgemqr.c +++ b/lapack-netlib/SRC/sgemqr.c @@ -675,7 +675,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgemqr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sgemqr_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *t, integer *tsize, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -684,7 +684,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ logical left, tran; - extern /* Subroutine */ int slamtsqr_(char *, char *, integer *, integer * + extern /* Subroutine */ void slamtsqr_(char *, char *, integer *, integer * , integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *); extern logical lsame_(char *, char *); @@ -692,7 +692,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer mb, nb, mn, lw, nblcks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; - extern /* Subroutine */ int sgemqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemqrt_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *); @@ -773,9 +773,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGEMQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -783,7 +783,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -799,7 +799,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ work[1] = (real) lw; - return 0; + return; /* End of SGEMQR */ diff --git a/lapack-netlib/SRC/sgemqrt.c b/lapack-netlib/SRC/sgemqrt.c index f7adc3fd8..b078373ca 100644 --- a/lapack-netlib/SRC/sgemqrt.c +++ b/lapack-netlib/SRC/sgemqrt.c @@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgemqrt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sgemqrt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *nb, real *v, integer *ldv, real *t, integer * ldt, real *c__, integer *ldc, real *work, integer *info) { @@ -690,9 +690,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, kf; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork; @@ -756,12 +757,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGEMQRT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && tran) { @@ -822,7 +823,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of SGEMQRT */ diff --git a/lapack-netlib/SRC/sgeql2.c b/lapack-netlib/SRC/sgeql2.c index c094058a8..9cc40ab85 100644 --- a/lapack-netlib/SRC/sgeql2.c +++ b/lapack-netlib/SRC/sgeql2.c @@ -637,7 +637,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeql2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -645,10 +645,10 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, - integer *, real *, real *, integer *, real *), xerbla_( - char *, integer *, ftnlen), slarfg_(integer *, real *, real *, - integer *, real *); + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, + integer *, real *, real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); real aii; @@ -682,7 +682,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQL2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -707,7 +707,7 @@ f"> */ a[*m - k + i__ + (*n - k + i__) * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of SGEQL2 */ diff --git a/lapack-netlib/SRC/sgeqlf.c b/lapack-netlib/SRC/sgeqlf.c index eccd5a7e0..9a20d6c1b 100644 --- a/lapack-netlib/SRC/sgeqlf.c +++ b/lapack-netlib/SRC/sgeqlf.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqlf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -662,15 +662,16 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int sgeql2_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeql2_(integer *, integer *, real *, integer *, real *, real *, integer *); integer ib, nb, ki, kk, mu, nu, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -725,15 +726,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQLF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } nbmin = 2; @@ -825,7 +826,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SGEQLF */ diff --git a/lapack-netlib/SRC/sgeqp3.c b/lapack-netlib/SRC/sgeqp3.c index 0c1af7034..49c359171 100644 --- a/lapack-netlib/SRC/sgeqp3.c +++ b/lapack-netlib/SRC/sgeqp3.c @@ -667,7 +667,7 @@ f"> */ /* > X. Sun, Computer Science Dept., Duke University, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqp3_(integer *m, integer *n, real *a, integer *lda, integer *jpvt, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -677,22 +677,22 @@ f"> */ integer nfxd; extern real snrm2_(integer *, real *, integer *); integer j, nbmin, minmn, minws; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), slaqp2_(integer *, integer *, integer *, real *, integer *, integer *, real *, real *, real *, real *); integer jb, na, nb, sm, sn, nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer topbmn, sminmn; - extern /* Subroutine */ int slaqps_(integer *, integer *, integer *, + extern /* Subroutine */ void slaqps_(integer *, integer *, integer *, integer *, integer *, real *, integer *, integer *, real *, real * , real *, real *, real *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); integer fjb, iws; @@ -749,9 +749,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQP3", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Move initial columns up front. */ @@ -905,7 +905,7 @@ L30: } work[1] = (real) iws; - return 0; + return; /* End of SGEQP3 */ diff --git a/lapack-netlib/SRC/sgeqr.c b/lapack-netlib/SRC/sgeqr.c index 14b464135..6cf01efa4 100644 --- a/lapack-netlib/SRC/sgeqr.c +++ b/lapack-netlib/SRC/sgeqr.c @@ -683,7 +683,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqr_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqr_(integer *m, integer *n, real *a, integer *lda, real *t, integer *tsize, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -695,11 +695,11 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sgeqrt_(integer *, integer *, integer *, real + extern /* Subroutine */ void sgeqrt_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *); logical lminws, lquery; integer mintsz; - extern /* Subroutine */ int slatsqr_(integer *, integer *, integer *, + extern /* Subroutine */ void slatsqr_(integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , integer *); @@ -825,15 +825,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("SGEQR", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The QR Decomposition */ @@ -849,7 +849,7 @@ static integer c__2 = 2; i__1 = 1, i__2 = nb * *n; work[1] = (real) f2cmax(i__1,i__2); - return 0; + return; /* End of SGEQR */ diff --git a/lapack-netlib/SRC/sgeqr2.c b/lapack-netlib/SRC/sgeqr2.c index 43408f514..92b20913b 100644 --- a/lapack-netlib/SRC/sgeqr2.c +++ b/lapack-netlib/SRC/sgeqr2.c @@ -644,7 +644,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqr2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -652,10 +652,10 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, - integer *, real *, real *, integer *, real *), xerbla_( - char *, integer *, ftnlen), slarfg_(integer *, real *, real *, - integer *, real *); + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, + integer *, real *, real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); real aii; @@ -689,7 +689,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQR2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -718,7 +718,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of SGEQR2 */ diff --git a/lapack-netlib/SRC/sgeqr2p.c b/lapack-netlib/SRC/sgeqr2p.c index 58accdd84..8f39af9d9 100644 --- a/lapack-netlib/SRC/sgeqr2p.c +++ b/lapack-netlib/SRC/sgeqr2p.c @@ -648,7 +648,7 @@ l elements using an unblocked algorithm. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqr2p_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqr2p_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -656,11 +656,11 @@ l elements using an unblocked algorithm. */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, - integer *, real *, real *, integer *, real *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, + integer *, real *, real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); real aii; - extern /* Subroutine */ int slarfgp_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfgp_(integer *, real *, real *, integer *, real *); @@ -694,7 +694,7 @@ l elements using an unblocked algorithm. */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQR2P", &i__1, (ftnlen)7); - return 0; + return; } k = f2cmin(*m,*n); @@ -723,7 +723,7 @@ l elements using an unblocked algorithm. */ } /* L10: */ } - return 0; + return; /* End of SGEQR2P */ diff --git a/lapack-netlib/SRC/sgeqrf.c b/lapack-netlib/SRC/sgeqrf.c index 5de1edaed..61ed86dd8 100644 --- a/lapack-netlib/SRC/sgeqrf.c +++ b/lapack-netlib/SRC/sgeqrf.c @@ -661,7 +661,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqrf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -669,15 +669,16 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int sgeqr2_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqr2_(integer *, integer *, real *, integer *, real *, real *, integer *); integer ib, nb, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -721,9 +722,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -731,7 +732,7 @@ f"> */ k = f2cmin(*m,*n); if (k == 0) { work[1] = 1.f; - return 0; + return; } nbmin = 2; @@ -816,7 +817,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SGEQRF */ diff --git a/lapack-netlib/SRC/sgeqrfp.c b/lapack-netlib/SRC/sgeqrfp.c index 48f352e4e..e63aa12b5 100644 --- a/lapack-netlib/SRC/sgeqrfp.c +++ b/lapack-netlib/SRC/sgeqrfp.c @@ -665,7 +665,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqrfp_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqrfp_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -673,16 +673,17 @@ static integer c__2 = 2; /* Local variables */ integer i__, k, nbmin, iinfo, ib, nb, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; - extern /* Subroutine */ int sgeqr2p_(integer *, integer *, real *, + extern /* Subroutine */ void sgeqr2p_(integer *, integer *, real *, integer *, real *, real *, integer *); integer iws; @@ -724,9 +725,9 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("SGEQRFP", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -734,7 +735,7 @@ static integer c__2 = 2; k = f2cmin(*m,*n); if (k == 0) { work[1] = 1.f; - return 0; + return; } nbmin = 2; @@ -819,7 +820,7 @@ static integer c__2 = 2; } work[1] = (real) iws; - return 0; + return; /* End of SGEQRFP */ diff --git a/lapack-netlib/SRC/sgeqrt.c b/lapack-netlib/SRC/sgeqrt.c index ba72c0558..44b22b8bb 100644 --- a/lapack-netlib/SRC/sgeqrt.c +++ b/lapack-netlib/SRC/sgeqrt.c @@ -650,7 +650,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqrt_(integer *m, integer *n, integer *nb, real *a, +/* Subroutine */ void sgeqrt_(integer *m, integer *n, integer *nb, real *a, integer *lda, real *t, integer *ldt, real *work, integer *info) { /* System generated locals */ @@ -658,9 +658,11 @@ f"> */ /* Local variables */ integer i__, k, iinfo, ib; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen), sgeqrt2_( + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void sgeqrt2_( integer *, integer *, real *, integer *, real *, integer *, integer *), sgeqrt3_(integer *, integer *, real *, integer *, real *, integer *, integer *); @@ -702,14 +704,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ k = f2cmin(*m,*n); if (k == 0) { - return 0; + return; } /* Blocked loop of length K */ @@ -744,7 +746,7 @@ f"> */ ib) * a_dim1], lda, &work[1], &i__5); } } - return 0; + return; /* End of SGEQRT */ diff --git a/lapack-netlib/SRC/sgeqrt2.c b/lapack-netlib/SRC/sgeqrt2.c index c229ac8d5..027616203 100644 --- a/lapack-netlib/SRC/sgeqrt2.c +++ b/lapack-netlib/SRC/sgeqrt2.c @@ -643,21 +643,22 @@ presentation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqrt2_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqrt2_(integer *m, integer *n, real *a, integer *lda, real *t, integer *ldt, integer *info) { /* System generated locals */ integer a_dim1, a_offset, t_dim1, t_offset, i__1, i__2, i__3; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); integer i__, k; real alpha; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), strmv_(char *, char *, char *, integer *, real *, - integer *, real *, integer *), xerbla_( - char *, integer *, ftnlen), slarfg_(integer *, real *, real *, + integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); real aii; @@ -695,7 +696,7 @@ presentation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQRT2", &i__1, (ftnlen)7); - return 0; + return; } k = f2cmin(*m,*n); @@ -764,6 +765,6 @@ presentation of Q. */ /* End of SGEQRT2 */ - return 0; + return; } /* sgeqrt2_ */ diff --git a/lapack-netlib/SRC/sgeqrt3.c b/lapack-netlib/SRC/sgeqrt3.c index 0dbbe4337..0de1ac3ab 100644 --- a/lapack-netlib/SRC/sgeqrt3.c +++ b/lapack-netlib/SRC/sgeqrt3.c @@ -648,7 +648,7 @@ ompact WY representation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgeqrt3_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgeqrt3_(integer *m, integer *n, real *a, integer *lda, real *t, integer *ldt, integer *info) { /* System generated locals */ @@ -656,13 +656,15 @@ ompact WY representation of Q. */ /* Local variables */ integer i__, j, iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer i1, j1, n1, n2; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * - ), xerbla_(char *, integer *, ftnlen), slarfg_(integer *, real *, real *, integer *, real *); + ); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -696,7 +698,7 @@ ompact WY representation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("SGEQRT3", &i__1, (ftnlen)7); - return 0; + return; } if (*n == 1) { @@ -794,7 +796,7 @@ ompact WY representation of Q. */ } - return 0; + return; /* End of SGEQRT3 */ diff --git a/lapack-netlib/SRC/sgerfs.c b/lapack-netlib/SRC/sgerfs.c index 7ae85ba96..fd0aa0431 100644 --- a/lapack-netlib/SRC/sgerfs.c +++ b/lapack-netlib/SRC/sgerfs.c @@ -699,7 +699,7 @@ f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a, +/* Subroutine */ void sgerfs_(char *trans, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * work, integer *iwork, integer *info) @@ -716,10 +716,10 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer count; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); @@ -787,7 +787,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGERFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -799,7 +799,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -995,7 +995,7 @@ L100: /* L140: */ } - return 0; + return; /* End of SGERFS */ diff --git a/lapack-netlib/SRC/sgerfsx.c b/lapack-netlib/SRC/sgerfsx.c index 6474ba263..3cd1abbc4 100644 --- a/lapack-netlib/SRC/sgerfsx.c +++ b/lapack-netlib/SRC/sgerfsx.c @@ -926,7 +926,7 @@ static integer c__1 = 1; /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgerfsx_(char *trans, char *equed, integer *n, integer * +/* Subroutine */ void sgerfsx_(char *trans, char *equed, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, @@ -941,7 +941,7 @@ static integer c__1 = 1; /* Local variables */ real illrcond_thresh__, unstable_thresh__; - extern /* Subroutine */ int sla_gerfsx_extended_(integer *, integer *, + extern /* Subroutine */ void sla_gerfsx_extended_(integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *, logical *, real *, real *, integer *, real *, integer * , real *, integer *, real *, real *, real *, real *, real *, real @@ -957,7 +957,8 @@ static integer c__1 = 1; integer prec_type__; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgecon_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgecon_( char *, integer *, real *, integer *, real *, real *, real *, integer *, integer *); logical colequ, notran, rowequ; @@ -1080,7 +1081,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SGERFSX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -1103,7 +1104,7 @@ static integer c__1 = 1; err_bnds_comp__[j + err_bnds_comp_dim1 * 3] = 1.f; } } - return 0; + return; } /* Default to failure. */ @@ -1262,7 +1263,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of SGERFSX */ diff --git a/lapack-netlib/SRC/sgerq2.c b/lapack-netlib/SRC/sgerq2.c index e19297748..e3943b54f 100644 --- a/lapack-netlib/SRC/sgerq2.c +++ b/lapack-netlib/SRC/sgerq2.c @@ -633,7 +633,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgerq2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -641,9 +641,10 @@ f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, - integer *, real *, real *, integer *, real *), xerbla_( - char *, integer *, ftnlen), slarfg_(integer *, real *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, + integer *, real *, real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); real aii; @@ -678,7 +679,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGERQ2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -703,7 +704,7 @@ f"> */ a[*m - k + i__ + (*n - k + i__) * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of SGERQ2 */ diff --git a/lapack-netlib/SRC/sgerqf.c b/lapack-netlib/SRC/sgerqf.c index fbc5b12ce..005866269 100644 --- a/lapack-netlib/SRC/sgerqf.c +++ b/lapack-netlib/SRC/sgerqf.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgerqf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -662,15 +662,16 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int sgerq2_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgerq2_(integer *, integer *, real *, integer *, real *, real *, integer *); integer ib, nb, ki, kk, mu, nu, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -728,15 +729,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGERQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } nbmin = 2; @@ -827,7 +828,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SGERQF */ diff --git a/lapack-netlib/SRC/sgesc2.c b/lapack-netlib/SRC/sgesc2.c index 3d5327986..62936e05e 100644 --- a/lapack-netlib/SRC/sgesc2.c +++ b/lapack-netlib/SRC/sgesc2.c @@ -629,7 +629,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs, +/* Subroutine */ void sgesc2_(integer *n, real *a, integer *lda, real *rhs, integer *ipiv, integer *jpiv, real *scale) { /* System generated locals */ @@ -639,7 +639,7 @@ f"> */ /* Local variables */ real temp; integer i__, j; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slabad_(real *, real *); extern real slamch_(char *); real bignum; @@ -720,7 +720,7 @@ f"> */ i__1 = *n - 1; slaswp_(&c__1, &rhs[1], lda, &c__1, &i__1, &jpiv[1], &c_n1); - return 0; + return; /* End of SGESC2 */ diff --git a/lapack-netlib/SRC/sgesdd.c b/lapack-netlib/SRC/sgesdd.c index c92d177c5..9951ca4bd 100644 --- a/lapack-netlib/SRC/sgesdd.c +++ b/lapack-netlib/SRC/sgesdd.c @@ -734,7 +734,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a, +/* Subroutine */ void sgesdd_(char *jobz, integer *m, integer *n, real *a, integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt, real *work, integer *lwork, integer *iwork, integer *info) { @@ -752,7 +752,7 @@ f"> */ lwork_sormbr_prt_mn__, lwork_sormbr_prt_nn__, i__; extern logical lsame_(char *, char *); integer chunk; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer minmn, wrkbl, itaup, itauq, mnthr; @@ -760,17 +760,17 @@ f"> */ integer nwork; logical wntqn, wntqo, wntqs; integer ie, il, ir, bdspac, iu, lwork_sorgbr_p_mm__; - extern /* Subroutine */ int sbdsdc_(char *, char *, integer *, real *, + extern /* Subroutine */ void sbdsdc_(char *, char *, integer *, real *, real *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *); integer lwork_sorgbr_q_nn__; - extern /* Subroutine */ int sgebrd_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgebrd_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, integer *); extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int sgelqf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgelqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sgeqrf_(integer *, integer *, real @@ -778,19 +778,19 @@ f"> */ *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); extern logical sisnan_(real *); - extern /* Subroutine */ int sorgbr_(char *, integer *, integer *, integer + extern /* Subroutine */ void sorgbr_(char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer ldwrkl; - extern /* Subroutine */ int sormbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void sormbr_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , real *, integer *, integer *); integer ldwrkr, minwrk, ldwrku, maxwrk; - extern /* Subroutine */ int sorglq_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorglq_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer ldwkvt; real smlnum; logical wntqas; - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); logical lquery; integer blk; @@ -1236,15 +1236,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGESDD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1258,7 +1258,7 @@ f"> */ anrm = slange_("M", m, n, &a[a_offset], lda, dum); if (sisnan_(&anrm)) { *info = -4; - return 0; + return; } iscl = 0; if (anrm > 0.f && anrm < smlnum) { @@ -2281,7 +2281,7 @@ f"> */ work[1] = (real) maxwrk; - return 0; + return; /* End of SGESDD */ diff --git a/lapack-netlib/SRC/sgesv.c b/lapack-netlib/SRC/sgesv.c index dcb46aa2a..ac0b02e2f 100644 --- a/lapack-netlib/SRC/sgesv.c +++ b/lapack-netlib/SRC/sgesv.c @@ -639,7 +639,8 @@ e driver) */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgetrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgetrf_( integer *, integer *, real *, integer *, integer *, integer *), sgetrs_(char *, integer *, integer *, real *, integer *, integer * , real *, integer *, integer *); diff --git a/lapack-netlib/SRC/sgesvd.c b/lapack-netlib/SRC/sgesvd.c index b4c5a0adb..eee882dde 100644 --- a/lapack-netlib/SRC/sgesvd.c +++ b/lapack-netlib/SRC/sgesvd.c @@ -729,7 +729,7 @@ f"> */ /* > \ingroup realGEsing */ /* ===================================================================== */ -/* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n, +/* Subroutine */ void sgesvd_(char *jobu, char *jobvt, integer *m, integer *n, real *a, integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt, real *work, integer *lwork, integer *info) { @@ -746,13 +746,13 @@ f"> */ lwork_sgeqrf__, i__; extern logical lsame_(char *, char *); integer chunk; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer minmn, wrkbl, itaup, itauq, mnthr, iwork; logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; integer ie, ir, bdspac, iu; - extern /* Subroutine */ int sgebrd_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgebrd_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, integer *); extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); @@ -760,7 +760,7 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int sgelqf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgelqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sgeqrf_(integer *, integer *, real @@ -774,10 +774,10 @@ f"> */ char *, integer *, integer *, integer *, real *, integer *, real * , real *, integer *, real *, integer *, integer *); integer ldwrkr, minwrk, ldwrku, maxwrk; - extern /* Subroutine */ int sorglq_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorglq_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); real smlnum; - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); logical lquery, wntuas, wntvas; integer blk, lwork_sorgbr_p__, lwork_sorgbr_q__, lwork_sorglq_m__, @@ -1378,15 +1378,15 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("SGESVD", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Get machine constants */ @@ -4587,7 +4587,7 @@ f"> */ work[1] = (real) maxwrk; - return 0; + return; /* End of SGESVD */ diff --git a/lapack-netlib/SRC/sgesvdq.c b/lapack-netlib/SRC/sgesvdq.c index d97ad108e..4c6bc8bea 100644 --- a/lapack-netlib/SRC/sgesvdq.c +++ b/lapack-netlib/SRC/sgesvdq.c @@ -932,7 +932,7 @@ static logical c_false = FALSE_; /* > \ingroup realGEsing */ /* ===================================================================== */ -/* Subroutine */ int sgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, +/* Subroutine */ void sgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, char *jobv, integer *m, integer *n, real *a, integer *lda, real *s, real *u, integer *ldu, real *v, integer *ldv, integer *numrank, integer *iwork, integer *liwork, real *work, integer *lwork, real * @@ -954,7 +954,7 @@ static logical c_false = FALSE_; integer p, q; logical conda; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer iwoff; logical lsvec; real sfmin, epsln; @@ -964,18 +964,19 @@ static logical c_false = FALSE_; logical dntwu, dntwv, wntua; integer lworq; logical wntuf, wntva, wntur, wntus, wntvr; - extern /* Subroutine */ int sgeqp3_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqp3_(integer *, integer *, real *, integer *, integer *, real *, real *, integer *, integer *); integer lwsvd2, lworq2, nr; real sconda; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgelqf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgelqf_( integer *, integer *, real *, integer *, real *, real *, integer * , integer *), slascl_(char *, integer *, integer *, real *, real * , integer *, integer *, real *, integer *, integer *); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), sgesvd_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer * , real *, integer *, real *, integer *, integer *) @@ -990,12 +991,12 @@ static logical c_false = FALSE_; extern /* Subroutine */ int slaswp_(integer *, real *, integer *, integer *, integer *, integer *, integer *); real rdummy[1]; - extern /* Subroutine */ int sormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormlq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); logical lquery; integer lwunlq; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); integer optwrk; @@ -1376,7 +1377,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); xerbla_("SGESVDQ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { /* Return optimal workspace */ @@ -1385,13 +1386,13 @@ static logical c_false = FALSE_; work[1] = (real) optwrk; work[2] = (real) minwrk; rwork[1] = (real) rminwrk; - return 0; + return; } /* Quick return if the matrix is void. */ if (*m == 0 || *n == 0) { - return 0; + return; } big = slamch_("O"); @@ -1410,7 +1411,7 @@ static logical c_false = FALSE_; *info = -8; i__2 = -(*info); xerbla_("SGESVDQ", &i__2, (ftnlen)7); - return 0; + return; } /* L1904: */ } @@ -1461,7 +1462,7 @@ static logical c_false = FALSE_; rwork[1] = -1.f; } rwork[2] = -1.f; - return 0; + return; } if (rwork[1] > big / sqrt((real) (*m))) { @@ -1485,7 +1486,7 @@ static logical c_false = FALSE_; *info = -8; i__1 = -(*info); xerbla_("SGESVDQ", &i__1, (ftnlen)7); - return 0; + return; } if (rtmp > big / sqrt((real) (*m))) { /* matrix by 1/sqrt(M) if too large entry detected */ @@ -2240,7 +2241,7 @@ L4002: /* full row rank triangular (trapezoidal) factor of A. */ *numrank = nr; - return 0; + return; /* End of SGESVDQ */ diff --git a/lapack-netlib/SRC/sgesvdx.c b/lapack-netlib/SRC/sgesvdx.c index a90e8ba07..1417b1e80 100644 --- a/lapack-netlib/SRC/sgesvdx.c +++ b/lapack-netlib/SRC/sgesvdx.c @@ -779,7 +779,7 @@ static real c_b109 = 0.f; /* > \ingroup realGEsing */ /* ===================================================================== */ -/* Subroutine */ int sgesvdx_(char *jobu, char *jobvt, char *range, integer * +/* Subroutine */ void sgesvdx_(char *jobu, char *jobvt, char *range, integer * m, integer *n, real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, integer *ns, real *s, real *u, integer *ldu, real *vt, integer *ldvt, real *work, integer *lwork, integer *iwork, integer * @@ -802,11 +802,11 @@ static real c_b109 = 0.f; integer i__, j; extern logical lsame_(char *, char *); integer iltgk, itemp, minmn, itaup, itauq, iutgk, itgkz, mnthr; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantu; integer id, ie; - extern /* Subroutine */ int sgebrd_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgebrd_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, integer *); extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); @@ -814,30 +814,30 @@ static real c_b109 = 0.f; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int sgelqf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgelqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); real abstol; - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); char rngtgk[1]; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *), sormbr_(char *, char *, char * , integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); integer minwrk, maxwrk; real smlnum; - extern /* Subroutine */ int sormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormlq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); logical lquery, wantvt; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real dum[1], eps; - extern /* Subroutine */ int sbdsvdx_(char *, char *, char *, integer *, + extern /* Subroutine */ void sbdsvdx_(char *, char *, char *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -1065,15 +1065,15 @@ static real c_b109 = 0.f; if (*info != 0) { i__2 = -(*info); xerbla_("SGESVDX", &i__2, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Set singular values indices accord to RANGE. */ @@ -1455,7 +1455,7 @@ static real c_b109 = 0.f; work[1] = (real) maxwrk; - return 0; + return; /* End of SGESVDX */ diff --git a/lapack-netlib/SRC/sgesvj.c b/lapack-netlib/SRC/sgesvj.c index 38a14baf3..ab5fa21ca 100644 --- a/lapack-netlib/SRC/sgesvj.c +++ b/lapack-netlib/SRC/sgesvj.c @@ -839,7 +839,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* ===================================================================== */ -/* Subroutine */ int sgesvj_(char *joba, char *jobu, char *jobv, integer *m, +/* Subroutine */ void sgesvj_(char *joba, char *jobu, char *jobv, integer *m, integer *n, real *a, integer *lda, real *sva, integer *mv, real *v, integer *ldv, real *work, integer *lwork, integer *info) { @@ -859,23 +859,23 @@ f"> */ real t, large, apoaq, aqoap; extern logical lsame_(char *, char *); real theta; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real small, sfmin; logical lsvec; real fastr[5], epsln; logical applv, rsvec, uctol, lower, upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical rotok; integer n2; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer n4; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), srotm_(integer *, real *, integer *, real *, integer *, real *); real rootsfmin; - extern /* Subroutine */ int sgsvj0_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgsvj0_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *, integer *), sgsvj1_(char *, integer *, integer *, integer *, real *, integer * @@ -886,15 +886,15 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer isamax_(integer *, real *, integer *); integer blskip; real mxaapq; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real thsign; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real mxsinj; integer ir1, emptsw, notrot, iswrot, jbc; @@ -978,13 +978,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGESVJ", &i__1, (ftnlen)6); - return 0; + return; } /* #:) Quick return for void matrix */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Set numerical parameters */ @@ -1026,7 +1026,7 @@ f"> */ *info = -4; i__1 = -(*info); xerbla_("SGESVJ", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize the right singular vector matrix. */ @@ -1064,7 +1064,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("SGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1094,7 +1094,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("SGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1124,7 +1124,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("SGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1180,7 +1180,7 @@ f"> */ work[4] = 0.f; work[5] = 0.f; work[6] = 0.f; - return 0; + return; } /* #:) Quick return for one-column matrix */ @@ -1200,7 +1200,7 @@ f"> */ work[4] = 0.f; work[5] = 0.f; work[6] = 0.f; - return 0; + return; } /* Protect small singular values from underflow, and try to */ @@ -2329,6 +2329,6 @@ L1995: /* MXSINJ is the largest absolute value of the sines of Jacobi angles */ /* in the last sweep */ - return 0; + return; } /* sgesvj_ */ diff --git a/lapack-netlib/SRC/sgesvx.c b/lapack-netlib/SRC/sgesvx.c index dbeaffe7c..d6f90ee67 100644 --- a/lapack-netlib/SRC/sgesvx.c +++ b/lapack-netlib/SRC/sgesvx.c @@ -856,7 +856,7 @@ f"> */ /* > \ingroup realGEsolve */ /* ===================================================================== */ -/* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void sgesvx_(char *fact, char *trans, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, @@ -878,21 +878,23 @@ f"> */ extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); logical nofact; - extern /* Subroutine */ int slaqge_(integer *, integer *, real *, integer - *, real *, real *, real *, real *, real *, char *), - xerbla_(char *, integer *, ftnlen), sgecon_(char *, integer *, + extern /* Subroutine */ void slaqge_(integer *, integer *, real *, integer + *, real *, real *, real *, real *, real *, char *); + extern int xerbla_(char *, integer *, ftnlen); + extern void sgecon_(char *, integer *, real *, integer *, real *, real *, real *, integer *, integer *); real bignum; integer infequ; logical colequ; - extern /* Subroutine */ int sgeequ_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeequ_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *), sgerfs_( char *, integer *, integer *, real *, integer *, real *, integer * , integer *, real *, integer *, real *, integer *, real *, real *, - real *, integer *, integer *), sgetrf_(integer *, + real *, integer *, integer *); + extern int sgetrf_(integer *, integer *, real *, integer *, integer *, integer *); real rowcnd; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); logical notran; extern real slantr_(char *, char *, char *, integer *, integer *, real *, @@ -1025,7 +1027,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGESVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1096,7 +1098,7 @@ f"> */ } work[1] = rpvgrw; *rcond = 0.f; - return 0; + return; } } @@ -1179,7 +1181,7 @@ f"> */ } work[1] = rpvgrw; - return 0; + return; /* End of SGESVX */ diff --git a/lapack-netlib/SRC/sgesvxx.c b/lapack-netlib/SRC/sgesvxx.c index 2a1b6f21a..424053793 100644 --- a/lapack-netlib/SRC/sgesvxx.c +++ b/lapack-netlib/SRC/sgesvxx.c @@ -1048,7 +1048,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realGEsolve */ /* ===================================================================== */ -/* Subroutine */ int sgesvxx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void sgesvxx_(char *fact, char *trans, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * @@ -1072,23 +1072,23 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ real colcnd; extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int slaqge_(integer *, integer *, real *, integer - *, real *, real *, real *, real *, real *, char *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void slaqge_(integer *, integer *, real *, integer + *, real *, real *, real *, real *, real *, char *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; logical colequ; - extern /* Subroutine */ int sgetrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgetrf_(integer *, integer *, real *, integer *, integer *, integer *); real rowcnd; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); logical notran; - extern /* Subroutine */ int sgetrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgetrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real smlnum; logical rowequ; - extern /* Subroutine */ int slascl2_(integer *, integer *, real *, real *, + extern /* Subroutine */ void slascl2_(integer *, integer *, real *, real *, integer *), sgeequb_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *), sgerfsx_(char *, char *, integer *, integer *, real *, integer *, real *, @@ -1230,7 +1230,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGESVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1296,7 +1296,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = sla_gerpvgrw_(n, info, &a[a_offset], lda, &af[ af_offset], ldaf); - return 0; + return; } } @@ -1327,7 +1327,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ slascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); } - return 0; + return; /* End of SGESVXX */ } /* sgesvxx_ */ diff --git a/lapack-netlib/SRC/sgetc2.c b/lapack-netlib/SRC/sgetc2.c index d0db97c11..1ed5eb4be 100644 --- a/lapack-netlib/SRC/sgetc2.c +++ b/lapack-netlib/SRC/sgetc2.c @@ -625,7 +625,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv, +/* Subroutine */ void sgetc2_(integer *n, real *a, integer *lda, integer *ipiv, integer *jpiv, integer *info) { /* System generated locals */ @@ -633,11 +633,11 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); real smin, xmax; integer i__, j; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), slabad_(real *, real *); integer ip, jp; extern real slamch_(char *); @@ -667,7 +667,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -686,7 +686,7 @@ f"> */ *info = 1; a[a_dim1 + 1] = smlnum; } - return 0; + return; } /* Factorize A using complete pivoting. */ @@ -761,7 +761,7 @@ f"> */ ipiv[*n] = *n; jpiv[*n] = *n; - return 0; + return; /* End of SGETC2 */ diff --git a/lapack-netlib/SRC/sgetf2.c b/lapack-netlib/SRC/sgetf2.c index 556792a77..60604637d 100644 --- a/lapack-netlib/SRC/sgetf2.c +++ b/lapack-netlib/SRC/sgetf2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgetf2_(integer *m, integer *n, real *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -631,12 +631,12 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); integer i__, j; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real sfmin; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer jp; extern real slamch_(char *); @@ -673,13 +673,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGETF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Compute machine safe minimum */ @@ -734,7 +734,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of SGETF2 */ diff --git a/lapack-netlib/SRC/sgetrf.c b/lapack-netlib/SRC/sgetrf.c index be631190d..efe00eb33 100644 --- a/lapack-netlib/SRC/sgetrf.c +++ b/lapack-netlib/SRC/sgetrf.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgetrf_(integer *m, integer *n, real *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -632,7 +632,7 @@ f"> */ /* Local variables */ integer i__, j, iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, @@ -641,7 +641,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slaswp_(integer *, real *, integer *, integer + extern /* Subroutine */ void slaswp_(integer *, real *, integer *, integer *, integer *, integer *, integer *), sgetrf2_(integer *, integer * , real *, integer *, integer *, integer *); @@ -675,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGETRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -759,7 +759,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of SGETRF */ diff --git a/lapack-netlib/SRC/sgetrf2.c b/lapack-netlib/SRC/sgetrf2.c index a5bddfcfb..9d06e41c5 100644 --- a/lapack-netlib/SRC/sgetrf2.c +++ b/lapack-netlib/SRC/sgetrf2.c @@ -625,7 +625,7 @@ static real c_b16 = -1.f; /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgetrf2_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void sgetrf2_(integer *m, integer *n, real *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -635,12 +635,12 @@ static real c_b16 = -1.f; /* Local variables */ real temp; integer i__, iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real sfmin; integer n1, n2; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); extern real slamch_(char *); @@ -679,13 +679,13 @@ static real c_b16 = -1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SGETRF2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (*m == 1) { @@ -797,7 +797,7 @@ static real c_b16 = -1.f; slaswp_(&n1, &a[a_dim1 + 1], lda, &i__1, &i__2, &ipiv[1], &c__1); } - return 0; + return; /* End of SGETRF2 */ diff --git a/lapack-netlib/SRC/sgetri.c b/lapack-netlib/SRC/sgetri.c index 51b62f6bd..04e19e6eb 100644 --- a/lapack-netlib/SRC/sgetri.c +++ b/lapack-netlib/SRC/sgetri.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, +/* Subroutine */ void sgetri_(integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -639,7 +639,7 @@ f"> */ /* Local variables */ integer i__, j, nbmin; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, @@ -693,15 +693,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGETRI", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form inv(U). If INFO > 0 from STRTRI, then U is singular, */ @@ -709,7 +709,7 @@ f"> */ strtri_("Upper", "Non-unit", n, &a[a_offset], lda, info); if (*info > 0) { - return 0; + return; } nbmin = 2; @@ -806,7 +806,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SGETRI */ diff --git a/lapack-netlib/SRC/sgetrs.c b/lapack-netlib/SRC/sgetrs.c index 8df46a39c..6740b3383 100644 --- a/lapack-netlib/SRC/sgetrs.c +++ b/lapack-netlib/SRC/sgetrs.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a, +/* Subroutine */ void sgetrs_(char *trans, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -644,11 +644,12 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); logical notran; - extern /* Subroutine */ int slaswp_(integer *, real *, integer *, integer + extern /* Subroutine */ void slaswp_(integer *, real *, integer *, integer *, integer *, integer *, integer *); @@ -690,13 +691,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGETRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (notran) { @@ -735,7 +736,7 @@ f"> */ slaswp_(nrhs, &b[b_offset], ldb, &c__1, n, &ipiv[1], &c_n1); } - return 0; + return; /* End of SGETRS */ diff --git a/lapack-netlib/SRC/sgetsls.c b/lapack-netlib/SRC/sgetsls.c index a1a2fb344..bd1230bfa 100644 --- a/lapack-netlib/SRC/sgetsls.c +++ b/lapack-netlib/SRC/sgetsls.c @@ -674,7 +674,7 @@ static integer c__0 = 0; /* > \ingroup realGEsolve */ /* ===================================================================== */ -/* Subroutine */ int sgetsls_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void sgetsls_(char *trans, integer *m, integer *n, integer * nrhs, real *a, integer *lda, real *b, integer *ldb, real *work, integer *lwork, integer *info) { @@ -686,20 +686,20 @@ static integer c__0 = 0; logical tran; integer brow, tszm, tszo, info2, i__, j, iascl, ibscl; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgelq_(integer *, integer *, real *, integer * + extern /* Subroutine */ void sgelq_(integer *, integer *, real *, integer * , real *, integer *, real *, integer *, integer *); integer minmn, maxmn; - extern /* Subroutine */ int sgeqr_(integer *, integer *, real *, integer * + extern /* Subroutine */ void sgeqr_(integer *, integer *, real *, integer * , real *, integer *, real *, integer *, integer *); real workq[1]; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); real tq[5]; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer scllen; real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sgemlq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *), slaset_(char *, integer *, @@ -817,7 +817,7 @@ static integer c__0 = 0; i__1 = -(*info); xerbla_("SGETSLS", &i__1, (ftnlen)7); work[1] = (real) wsizeo; - return 0; + return; } if (lquery) { if (*lwork == -1) { @@ -826,7 +826,7 @@ static integer c__0 = 0; if (*lwork == -2) { work[1] = (real) wsizem; } - return 0; + return; } if (*lwork < wsizeo) { lw1 = tszm; @@ -843,7 +843,7 @@ static integer c__0 = 0; if (f2cmin(i__1,*nrhs) == 0) { i__1 = f2cmax(*m,*n); slaset_("FULL", &i__1, nrhs, &c_b23, &c_b23, &b[b_offset], ldb); - return 0; + return; } /* Get machine parameters */ @@ -920,7 +920,7 @@ static integer c__0 = 0; strtrs_("U", "N", "N", n, nrhs, &a[a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; } else { @@ -933,7 +933,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } /* B(N+1:M,1:NRHS) = ZERO */ @@ -976,7 +976,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } /* B(M+1:N,1:NRHS) = 0 */ @@ -1017,7 +1017,7 @@ static integer c__0 = 0; lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1045,7 +1045,7 @@ static integer c__0 = 0; L50: work[1] = (real) (tszo + lwo); - return 0; + return; /* End of SGETSLS */ diff --git a/lapack-netlib/SRC/sgetsqrhrt.c b/lapack-netlib/SRC/sgetsqrhrt.c index dee18c134..5f0a94229 100644 --- a/lapack-netlib/SRC/sgetsqrhrt.c +++ b/lapack-netlib/SRC/sgetsqrhrt.c @@ -689,7 +689,7 @@ hrt.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgetsqrhrt_(integer *m, integer *n, integer *mb1, +/* Subroutine */ void sgetsqrhrt_(integer *m, integer *n, integer *mb1, integer *nb1, integer *nb2, real *a, integer *lda, real *t, integer * ldt, real *work, integer *lwork, integer *info) { @@ -699,15 +699,15 @@ hrt.f"> */ /* Local variables */ integer ldwt, lworkopt, i__, j, iinfo; - extern /* Subroutine */ int sorgtsqr_row_(integer *, integer *, integer * + extern /* Subroutine */ void sorgtsqr_row_(integer *, integer *, integer * , integer *, real *, integer *, real *, integer *, real *, integer *, integer *), scopy_(integer *, real *, integer *, real * , integer *), sorhr_col_(integer *, integer *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, - integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical lquery; integer lw1, lw2, num_all_row_blocks__, lwt; - extern /* Subroutine */ int slatsqr_(integer *, integer *, integer *, + extern /* Subroutine */ void slatsqr_(integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , integer *); integer nb1local, nb2local; @@ -809,17 +809,17 @@ hrt.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGETSQRHRT", &i__1, (ftnlen)10); - return 0; + return; } else if (lquery) { work[1] = (real) lworkopt; - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { work[1] = (real) lworkopt; - return 0; + return; } nb2local = f2cmin(*nb2,*n); @@ -881,7 +881,7 @@ hrt.f"> */ } work[1] = (real) lworkopt; - return 0; + return; /* End of SGETSQRHRT */ diff --git a/lapack-netlib/SRC/sggbak.c b/lapack-netlib/SRC/sggbak.c index 508f5d912..2fb93ae73 100644 --- a/lapack-netlib/SRC/sggbak.c +++ b/lapack-netlib/SRC/sggbak.c @@ -655,7 +655,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo, +/* Subroutine */ void sggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *lscale, real *rscale, integer *m, real *v, integer *ldv, integer *info) { @@ -665,10 +665,11 @@ f"> */ /* Local variables */ integer i__, k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical leftv; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, - integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, + integer *); + extern int xerbla_(char *, integer *, ftnlen); logical rightv; @@ -718,19 +719,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGBAK", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*m == 0) { - return 0; + return; } if (lsame_(job, "N")) { - return 0; + return; } if (*ilo == *ihi) { @@ -836,7 +837,7 @@ L100: L110: - return 0; + return; /* End of SGGBAK */ diff --git a/lapack-netlib/SRC/sggbal.c b/lapack-netlib/SRC/sggbal.c index fff51160e..b572dd0df 100644 --- a/lapack-netlib/SRC/sggbal.c +++ b/lapack-netlib/SRC/sggbal.c @@ -691,7 +691,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda, +/* Subroutine */ void sggbal_(char *job, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real *rscale, real *work, integer *info) { @@ -709,13 +709,13 @@ f"> */ integer i__, j, k, l, m; real gamma, t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real sfmin, sfmax; integer iflow; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer kount; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); integer jc; real ta, tb, tc; @@ -768,7 +768,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGBAL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -776,7 +776,7 @@ f"> */ if (*n == 0) { *ilo = 1; *ihi = *n; - return 0; + return; } if (*n == 1) { @@ -784,7 +784,7 @@ f"> */ *ihi = *n; lscale[1] = 1.f; rscale[1] = 1.f; - return 0; + return; } if (lsame_(job, "N")) { @@ -796,7 +796,7 @@ f"> */ rscale[i__] = 1.f; /* L10: */ } - return 0; + return; } k = 1; @@ -929,11 +929,11 @@ L190: rscale[i__] = 1.f; /* L195: */ } - return 0; + return; } if (*ilo == *ihi) { - return 0; + return; } /* Balance the submatrix in rows ILO to IHI. */ @@ -1185,7 +1185,7 @@ L350: /* L380: */ } - return 0; + return; /* End of SGGBAL */ diff --git a/lapack-netlib/SRC/sgges.c b/lapack-netlib/SRC/sgges.c index 616716a7a..e0ae7acc5 100644 --- a/lapack-netlib/SRC/sgges.c +++ b/lapack-netlib/SRC/sgges.c @@ -798,7 +798,7 @@ or GE matrices */ /* > \ingroup realGEeigen */ /* ===================================================================== */ -/* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork, @@ -819,9 +819,9 @@ or GE matrices */ logical cursl, ilvsl, ilvsr; integer irows; logical lst2sl; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer ip; - extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, integer * ), sggbal_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, real *, real *, @@ -830,26 +830,26 @@ or GE matrices */ extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); real safmin; - extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgghrd_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, integer *); real safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ijobvl, iright; - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real anrmto, bnrmto; logical lastsl; - extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , real *, real *, real *, integer *, real *, integer *, real *, integer *, integer *), stgsen_(integer *, @@ -859,10 +859,10 @@ or GE matrices */ integer *, integer *, integer *, integer *); integer minwrk, maxwrk; real smlnum; - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); logical wantst, lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real dif[2]; @@ -985,16 +985,16 @@ or GE matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGES ", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1278,7 +1278,7 @@ L40: work[1] = (real) maxwrk; - return 0; + return; /* End of SGGES */ diff --git a/lapack-netlib/SRC/sgges3.c b/lapack-netlib/SRC/sgges3.c index 5d5a5128c..bfc7dedcd 100644 --- a/lapack-netlib/SRC/sgges3.c +++ b/lapack-netlib/SRC/sgges3.c @@ -796,7 +796,7 @@ f"> */ /* > \ingroup realGEeigen */ /* ===================================================================== */ -/* Subroutine */ int sgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void sgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork, @@ -816,14 +816,14 @@ f"> */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irows; - extern /* Subroutine */ int sgghd3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgghd3_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, real *, integer *, integer *) ; logical lst2sl; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer ip; - extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, integer * ), sggbal_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, real *, real *, @@ -834,18 +834,18 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real safmax, bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer ijobvl, iright; - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real anrmto, bnrmto; logical lastsl; - extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , real *, real *, real *, integer *, real *, integer *, real *, integer *, integer *), stgsen_(integer *, @@ -854,11 +854,11 @@ f"> */ real *, integer *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, integer *); real smlnum; - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); logical wantst, lquery; integer lwkopt; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real dif[2]; @@ -992,16 +992,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGES3 ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1279,7 +1279,7 @@ L40: work[1] = (real) lwkopt; - return 0; + return; /* End of SGGES3 */ diff --git a/lapack-netlib/SRC/sggesx.c b/lapack-netlib/SRC/sggesx.c index c8f85759d..1023a1cc4 100644 --- a/lapack-netlib/SRC/sggesx.c +++ b/lapack-netlib/SRC/sggesx.c @@ -878,7 +878,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, char *sense, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde, @@ -899,10 +899,10 @@ f"> */ logical cursl, ilvsl, ilvsr; integer irows; logical lst2sl; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer ip; real pl; - extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, integer * ), sggbal_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, real *, real *, @@ -912,21 +912,21 @@ f"> */ extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); real safmin; - extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgghrd_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, integer *); real safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ijobvl, iright; - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); logical wantsb, wantse, lastsl; integer liwmin; @@ -934,7 +934,7 @@ f"> */ integer minwrk, maxwrk; logical wantsn; real smlnum; - extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , real *, real *, real *, integer *, real *, integer *, real *, integer *, integer *), slaset_(char *, @@ -946,7 +946,7 @@ f"> */ integer *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, integer *); logical wantst, lquery, wantsv; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real dif[2]; @@ -1103,16 +1103,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGESX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1424,7 +1424,7 @@ L50: work[1] = (real) maxwrk; iwork[1] = liwmin; - return 0; + return; /* End of SGGESX */ diff --git a/lapack-netlib/SRC/sggev.c b/lapack-netlib/SRC/sggev.c index 2303f127b..658736c6b 100644 --- a/lapack-netlib/SRC/sggev.c +++ b/lapack-netlib/SRC/sggev.c @@ -743,7 +743,7 @@ ices */ /* > \ingroup realGEeigen */ /* ===================================================================== */ -/* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a, +/* Subroutine */ void sggev_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, integer *lwork, integer *info) @@ -761,9 +761,9 @@ ices */ integer iwrk; extern logical lsame_(char *, char *); integer ileft, icols, irows, jc; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer in, jr; - extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, integer * ), sggbal_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, real *, real *, @@ -771,38 +771,39 @@ ices */ logical ilascl, ilbscl; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgghrd_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgghrd_( char *, char *, integer *, integer *, integer *, real *, integer * , real *, integer *, real *, integer *, real *, integer *, integer *); logical ldumma[1]; char chtemp[1]; real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ijobvl, iright; - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *), stgevc_( char *, char *, logical *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *); real anrmto, bnrmto; - extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , real *, real *, real *, integer *, real *, integer *, real *, integer *, integer *); integer minwrk, maxwrk; real smlnum; - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); integer ihi, ilo; @@ -919,15 +920,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1215,7 +1216,7 @@ L110: } work[1] = (real) maxwrk; - return 0; + return; /* End of SGGEV */ diff --git a/lapack-netlib/SRC/sggev3.c b/lapack-netlib/SRC/sggev3.c index f27742f33..013b22b2c 100644 --- a/lapack-netlib/SRC/sggev3.c +++ b/lapack-netlib/SRC/sggev3.c @@ -742,7 +742,7 @@ f"> */ /* > \ingroup realGEeigen */ /* ===================================================================== */ -/* Subroutine */ int sggev3_(char *jobvl, char *jobvr, integer *n, real *a, +/* Subroutine */ void sggev3_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, integer *lwork, integer *info) @@ -760,14 +760,14 @@ f"> */ integer iwrk; extern logical lsame_(char *, char *); integer ileft, icols, irows; - extern /* Subroutine */ int sgghd3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgghd3_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, real *, integer *, integer *) ; integer jc; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer in, jr; - extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, integer * ), sggbal_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, real *, real *, @@ -779,29 +779,29 @@ f"> */ logical ldumma[1]; char chtemp[1]; real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer ijobvl, iright; - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *), stgevc_( char *, char *, logical *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *); real anrmto, bnrmto; - extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , real *, real *, real *, integer *, real *, integer *, real *, integer *, integer *); real smlnum; - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); integer ihi, ilo; @@ -936,15 +936,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGEV3 ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1227,7 +1227,7 @@ L110: } work[1] = (real) lwkopt; - return 0; + return; /* End of SGGEV3 */ diff --git a/lapack-netlib/SRC/sggevx.c b/lapack-netlib/SRC/sggevx.c index 21ebc26ba..b87e2c562 100644 --- a/lapack-netlib/SRC/sggevx.c +++ b/lapack-netlib/SRC/sggevx.c @@ -905,7 +905,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char * +/* Subroutine */ void sggevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale, @@ -928,22 +928,23 @@ f"> */ integer icols; logical noscl; integer irows, jc; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer in, mm, jr; - extern /* Subroutine */ int sggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sggbak_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, integer * ), sggbal_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, real *, real *, integer *); logical ilascl, ilbscl; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgghrd_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgghrd_( char *, char *, integer *, integer *, integer *, real *, integer * , real *, integer *, real *, integer *, real *, integer *, integer *); logical ldumma[1]; char chtemp[1]; real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); @@ -951,18 +952,18 @@ f"> */ integer ijobvl; extern real slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); logical wantsb; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real anrmto; logical wantse; real bnrmto; - extern /* Subroutine */ int shgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void shgeqz_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , real *, real *, real *, integer *, real *, integer *, real *, integer *, integer *), stgevc_(char *, @@ -975,10 +976,10 @@ f"> */ integer minwrk, maxwrk; logical wantsn; real smlnum; - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); logical lquery, wantsv; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real eps; @@ -1124,15 +1125,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } @@ -1501,7 +1502,7 @@ L130: } work[1] = (real) maxwrk; - return 0; + return; /* End of SGGEVX */ diff --git a/lapack-netlib/SRC/sggglm.c b/lapack-netlib/SRC/sggglm.c index 3b42e777d..21a18ea13 100644 --- a/lapack-netlib/SRC/sggglm.c +++ b/lapack-netlib/SRC/sggglm.c @@ -700,7 +700,7 @@ f"> */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a, +/* Subroutine */ void sggglm_(integer *n, integer *m, integer *p, real *a, integer *lda, real *b, integer *ldb, real *d__, real *x, real *y, real *work, integer *lwork, integer *info) { @@ -709,23 +709,23 @@ f"> */ /* Local variables */ integer lopt, i__; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *); integer nb, np; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sggqrf_(integer *, integer *, integer *, real + extern /* Subroutine */ void sggqrf_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, real *, integer * , integer *); integer lwkmin, nb1, nb2, nb3, nb4, lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *), sormrq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real * - , integer *, real *, integer *, integer *), - strtrs_(char *, char *, char *, integer *, integer *, real *, + , integer *, real *, integer *, integer *); + extern int strtrs_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *, integer *); @@ -799,9 +799,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGGLM", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -815,7 +815,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { y[i__] = 0.f; } - return 0; + return; } /* Compute the GQR factorization of matrices A and B: */ @@ -854,7 +854,7 @@ f"> */ if (*info > 0) { *info = 1; - return 0; + return; } i__1 = *n - *m; @@ -883,7 +883,7 @@ f"> */ if (*info > 0) { *info = 2; - return 0; + return; } /* Copy D to X */ @@ -903,7 +903,7 @@ f"> */ i__1 = lopt, i__2 = (integer) work[*m + np + 1]; work[1] = (real) (*m + np + f2cmax(i__1,i__2)); - return 0; + return; /* End of SGGGLM */ diff --git a/lapack-netlib/SRC/sgghd3.c b/lapack-netlib/SRC/sgghd3.c index 412c8c6ea..fe6c92791 100644 --- a/lapack-netlib/SRC/sgghd3.c +++ b/lapack-netlib/SRC/sgghd3.c @@ -748,7 +748,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgghd3_(char *compq, char *compz, integer *n, integer * +/* Subroutine */ void sgghd3_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *z__, integer *ldz, real *work, integer *lwork, integer *info) @@ -763,14 +763,14 @@ f"> */ integer cola, jcol, ierr; real temp; integer jrow, topq, ppwo; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); real temp1, temp2, temp3, c__; integer kacc22, i__, j, k; real s; extern logical lsame_(char *, char *); integer nbmin; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, @@ -778,21 +778,21 @@ f"> */ integer nblst; logical initq; real c1, c2; - extern /* Subroutine */ int sorm22_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sorm22_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , integer *, integer *); logical wantq; integer j0; logical initz, wantz; real s1, s2; - extern /* Subroutine */ int strmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void strmv_(char *, char *, char *, integer *, real *, integer *, real *, integer *); char compq2[1], compz2[1]; integer nb, jj, nh, nx, pw; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgghrd_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *), @@ -868,9 +868,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGHD3", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Initialize Q and Z if desired. */ @@ -895,7 +895,7 @@ f"> */ nh = *ihi - *ilo + 1; if (nh <= 1) { work[1] = 1.f; - return 0; + return; } /* Determine the blocksize. */ @@ -1568,7 +1568,7 @@ f"> */ } work[1] = (real) lwkopt; - return 0; + return; /* End of SGGHD3 */ diff --git a/lapack-netlib/SRC/sgghrd.c b/lapack-netlib/SRC/sgghrd.c index bc8721c4c..b0aa20f97 100644 --- a/lapack-netlib/SRC/sgghrd.c +++ b/lapack-netlib/SRC/sgghrd.c @@ -721,7 +721,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer * +/* Subroutine */ void sgghrd_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *z__, integer *ldz, integer *info) { @@ -733,13 +733,13 @@ f"> */ integer jcol; real temp; integer jrow; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); real c__, s; extern logical lsame_(char *, char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer icompq; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *), slartg_(real *, real *, real * , real *, real *); integer icompz; @@ -825,7 +825,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGHRD", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize Q and Z if desired. */ @@ -840,7 +840,7 @@ f"> */ /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } /* Zero out lower triangle of B */ @@ -900,7 +900,7 @@ f"> */ /* L40: */ } - return 0; + return; /* End of SGGHRD */ diff --git a/lapack-netlib/SRC/sgglse.c b/lapack-netlib/SRC/sgglse.c index 1602836a3..6b21f3bfa 100644 --- a/lapack-netlib/SRC/sgglse.c +++ b/lapack-netlib/SRC/sgglse.c @@ -695,7 +695,7 @@ f"> */ /* > \ingroup realOTHERsolve */ /* ===================================================================== */ -/* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a, +/* Subroutine */ void sgglse_(integer *m, integer *n, integer *p, real *a, integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x, real *work, integer *lwork, integer *info) { @@ -704,7 +704,7 @@ f"> */ /* Local variables */ integer lopt; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), strmv_(char *, char *, char *, integer *, real *, integer *, real @@ -713,17 +713,17 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sggrqf_(integer *, integer *, integer *, real + extern /* Subroutine */ void sggrqf_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, real *, integer * , integer *); integer lwkmin, nb1, nb2, nb3, nb4, lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *), sormrq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real * - , integer *, real *, integer *, integer *), - strtrs_(char *, char *, char *, integer *, integer *, real *, + , integer *, real *, integer *, integer *); + extern int strtrs_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *, integer *); @@ -797,15 +797,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGLSE", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Compute the GRQ factorization of matrices B and A: */ @@ -841,7 +841,7 @@ f"> */ if (*info > 0) { *info = 1; - return 0; + return; } /* Put the solution in X */ @@ -865,7 +865,7 @@ f"> */ if (*info > 0) { *info = 2; - return 0; + return; } /* Put the solutions in X */ @@ -902,7 +902,7 @@ f"> */ i__1 = lopt, i__2 = (integer) work[*p + mn + 1]; work[1] = (real) (*p + mn + f2cmax(i__1,i__2)); - return 0; + return; /* End of SGGLSE */ diff --git a/lapack-netlib/SRC/sggqrf.c b/lapack-netlib/SRC/sggqrf.c index 2c683ad0f..34f91595e 100644 --- a/lapack-netlib/SRC/sggqrf.c +++ b/lapack-netlib/SRC/sggqrf.c @@ -728,7 +728,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a, +/* Subroutine */ void sggqrf_(integer *n, integer *m, integer *p, real *a, integer *lda, real *taua, real *b, integer *ldb, real *taub, real * work, integer *lwork, integer *info) { @@ -740,13 +740,13 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), sgerqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer * ); integer nb1, nb2, nb3, lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -808,9 +808,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGQRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* QR factorization of N-by-M matrix A: A = Q*R */ @@ -834,7 +834,7 @@ f"> */ i__1 = lopt, i__2 = (integer) work[1]; work[1] = (real) f2cmax(i__1,i__2); - return 0; + return; /* End of SGGQRF */ diff --git a/lapack-netlib/SRC/sggrqf.c b/lapack-netlib/SRC/sggrqf.c index b4a32dda2..02fd8dacc 100644 --- a/lapack-netlib/SRC/sggrqf.c +++ b/lapack-netlib/SRC/sggrqf.c @@ -727,7 +727,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a, +/* Subroutine */ void sggrqf_(integer *m, integer *p, integer *n, real *a, integer *lda, real *taua, real *b, integer *ldb, real *taub, real * work, integer *lwork, integer *info) { @@ -739,13 +739,13 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sgeqrf_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), sgerqf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer * ); integer nb1, nb2, nb3, lwkopt; logical lquery; - extern /* Subroutine */ int sormrq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormrq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -807,9 +807,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGGRQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* RQ factorization of M-by-N matrix A: A = R*Q */ @@ -835,7 +835,7 @@ f"> */ i__1 = lopt, i__2 = (integer) work[1]; work[1] = (real) f2cmax(i__1,i__2); - return 0; + return; /* End of SGGRQF */ diff --git a/lapack-netlib/SRC/sggsvd3.c b/lapack-netlib/SRC/sggsvd3.c index a8c458ef3..d17bf8e86 100644 --- a/lapack-netlib/SRC/sggsvd3.c +++ b/lapack-netlib/SRC/sggsvd3.c @@ -861,7 +861,7 @@ static integer c__1 = 1; /* > SGGSVD3 replaces the deprecated subroutine SGGSVD. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sggsvd3_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void sggsvd3_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, real *a, integer *lda, real *b, integer *ldb, real *alpha, real *beta, real *u, integer * ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, @@ -880,19 +880,20 @@ static integer c__1 = 1; extern logical lsame_(char *, char *); real anorm, bnorm; logical wantq; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical wantu, wantv; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), stgsja_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void stgsja_( char *, char *, char *, integer *, integer *, integer *, integer * , integer *, real *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int sggsvp3_(char *, char *, char *, integer *, + extern /* Subroutine */ void sggsvp3_(char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , real *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *, real *, real *, integer * @@ -986,10 +987,10 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SGGSVD3", &i__1, (ftnlen)7); - return 0; + return; } if (lquery) { - return 0; + return; } /* Compute the Frobenius norm of matrices A and B */ @@ -1052,7 +1053,7 @@ static integer c__1 = 1; } work[1] = (real) lwkopt; - return 0; + return; /* End of SGGSVD3 */ diff --git a/lapack-netlib/SRC/sggsvp3.c b/lapack-netlib/SRC/sggsvp3.c index c18609af1..b01d80f7e 100644 --- a/lapack-netlib/SRC/sggsvp3.c +++ b/lapack-netlib/SRC/sggsvp3.c @@ -785,7 +785,7 @@ static real c_b24 = 1.f; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sggsvp3_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void sggsvp3_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb, real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real * @@ -800,7 +800,7 @@ static real c_b24 = 1.f; integer i__, j; extern logical lsame_(char *, char *); logical wantq, wantu, wantv; - extern /* Subroutine */ int sgeqp3_(integer *, integer *, real *, integer + extern /* Subroutine */ void sgeqp3_(integer *, integer *, real *, integer *, integer *, real *, real *, integer *, integer *), sgeqr2_( integer *, integer *, real *, integer *, real *, real *, integer * ), sgerq2_(integer *, integer *, real *, integer *, real *, real * @@ -809,8 +809,9 @@ static real c_b24 = 1.f; integer *, integer *, integer *, real *, integer *, real *, real * , integer *, real *, integer *), sormr2_(char *, char *, integer *, integer *, integer *, real *, integer *, real * - , real *, integer *, real *, integer *), xerbla_( - char *, integer *, ftnlen), slacpy_(char *, integer *, integer *, + , real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *), slapmt_(logical *, integer *, integer *, real *, integer *, @@ -917,10 +918,10 @@ static real c_b24 = 1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SGGSVP3", &i__1, (ftnlen)7); - return 0; + return; } if (lquery) { - return 0; + return; } /* QR with column pivoting of B: B*P = V*( S11 S12 ) */ @@ -1172,7 +1173,7 @@ static real c_b24 = 1.f; } work[1] = (real) lwkopt; - return 0; + return; /* End of SGGSVP3 */ diff --git a/lapack-netlib/SRC/sgsvj0.c b/lapack-netlib/SRC/sgsvj0.c index feae7303f..e969997da 100644 --- a/lapack-netlib/SRC/sgsvj0.c +++ b/lapack-netlib/SRC/sgsvj0.c @@ -732,7 +732,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* ===================================================================== */ -/* Subroutine */ int sgsvj0_(char *jobv, integer *m, integer *n, real *a, +/* Subroutine */ void sgsvj0_(char *jobv, integer *m, integer *n, real *a, integer *lda, real *d__, real *sva, integer *mv, real *v, integer * ldv, real *eps, real *sfmin, real *tol, integer *nsweep, real *work, integer *lwork, integer *info) @@ -755,22 +755,22 @@ f"> */ extern logical lsame_(char *, char *); real theta, small, fastr[5]; logical applv, rsvec; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical rotok; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), srotm_(integer *, real *, integer *, real *, integer * , real *); real rootsfmin, cs, sn; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer isamax_(integer *, real *, integer *); integer blskip; real mxaapq, thsign; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real mxsinj; integer ir1, emptsw, notrot, iswrot, jbc; @@ -832,7 +832,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGSVJ0", &i__1, (ftnlen)6); - return 0; + return; } if (rsvec) { @@ -1711,6 +1711,6 @@ L1995: /* L5991: */ } - return 0; + return; } /* sgsvj0_ */ diff --git a/lapack-netlib/SRC/sgsvj1.c b/lapack-netlib/SRC/sgsvj1.c index 10bc94324..804a2ec29 100644 --- a/lapack-netlib/SRC/sgsvj1.c +++ b/lapack-netlib/SRC/sgsvj1.c @@ -751,7 +751,7 @@ f"> */ /* > Zlatko Drmac (Zagreb, Croatia) and Kresimir Veselic (Hagen, Germany) */ /* ===================================================================== */ -/* Subroutine */ int sgsvj1_(char *jobv, integer *m, integer *n, integer *n1, +/* Subroutine */ void sgsvj1_(char *jobv, integer *m, integer *n, integer *n1, real *a, integer *lda, real *d__, real *sva, integer *mv, real *v, integer *ldv, real *eps, real *sfmin, real *tol, integer *nsweep, real *work, integer *lwork, integer *info) @@ -775,22 +775,22 @@ f"> */ extern logical lsame_(char *, char *); real theta, small, fastr[5]; logical applv, rsvec; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); logical rotok; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), srotm_(integer *, real *, integer *, real *, integer * , real *); real rootsfmin, cs, sn; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern integer isamax_(integer *, real *, integer *); integer blskip; real mxaapq, thsign; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real mxsinj; integer emptsw, notrot, iswrot, jbc; @@ -854,7 +854,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGSVJ1", &i__1, (ftnlen)6); - return 0; + return; } if (rsvec) { @@ -1353,6 +1353,6 @@ L1995: /* L5991: */ } - return 0; + return; } /* sgsvj1_ */ diff --git a/lapack-netlib/SRC/sgtcon.c b/lapack-netlib/SRC/sgtcon.c index 9f4e5cbdf..93bcb4e90 100644 --- a/lapack-netlib/SRC/sgtcon.c +++ b/lapack-netlib/SRC/sgtcon.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup realGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__, +/* Subroutine */ void sgtcon_(char *norm, integer *n, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real * work, integer *iwork, integer *info) { @@ -669,11 +669,12 @@ f"> */ integer kase, kase1, i__; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, - real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, + real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; logical onenrm; - extern /* Subroutine */ int sgttrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgttrs_(char *, integer *, integer *, real *, real *, real *, real *, integer *, real *, integer *, integer *); @@ -710,7 +711,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGTCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -718,9 +719,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } /* Check that D(1:N) is non-zero. */ @@ -728,7 +729,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (d__[i__] == 0.f) { - return 0; + return; } /* L10: */ } @@ -765,7 +766,7 @@ L20: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of SGTCON */ diff --git a/lapack-netlib/SRC/sgtrfs.c b/lapack-netlib/SRC/sgtrfs.c index 277b3f826..0b1a60c4a 100644 --- a/lapack-netlib/SRC/sgtrfs.c +++ b/lapack-netlib/SRC/sgtrfs.c @@ -722,7 +722,7 @@ f"> */ /* > \ingroup realGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl, +/* Subroutine */ void sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf, real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real * ferr, real *berr, real *work, integer *iwork, integer *info) @@ -738,20 +738,21 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3], count; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slagtm_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slagtm_( char *, integer *, integer *, real *, real *, real *, real *, real *, integer *, real *, real *, integer *); logical notran; char transn[1], transt[1]; real lstres; - extern /* Subroutine */ int sgttrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgttrs_(char *, integer *, integer *, real *, real *, real *, real *, integer *, real *, integer *, integer *); real eps; @@ -805,7 +806,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGTRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -817,7 +818,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1029,7 +1030,7 @@ L70: /* L110: */ } - return 0; + return; /* End of SGTRFS */ diff --git a/lapack-netlib/SRC/sgtsv.c b/lapack-netlib/SRC/sgtsv.c index 7e2f4487e..3dfa4eead 100644 --- a/lapack-netlib/SRC/sgtsv.c +++ b/lapack-netlib/SRC/sgtsv.c @@ -636,7 +636,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realGTsolve */ /* ===================================================================== */ -/* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, +/* Subroutine */ void sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, real *du, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -678,11 +678,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SGTSV ", &i__1, (ftnlen)5); - return 0; + return; } if (*n == 0) { - return 0; + return; } if (*nrhs == 1) { @@ -698,7 +698,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ b[i__ + 1 + b_dim1] -= fact * b[i__ + b_dim1]; } else { *info = i__; - return 0; + return; } dl[i__] = 0.f; } else { @@ -727,7 +727,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ b[i__ + 1 + b_dim1] -= fact * b[i__ + b_dim1]; } else { *info = i__; - return 0; + return; } } else { fact = d__[i__] / dl[i__]; @@ -742,7 +742,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (d__[*n] == 0.f) { *info = *n; - return 0; + return; } } else { i__1 = *n - 2; @@ -761,7 +761,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } else { *info = i__; - return 0; + return; } dl[i__] = 0.f; } else { @@ -799,7 +799,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } else { *info = i__; - return 0; + return; } } else { fact = d__[i__] / dl[i__]; @@ -819,7 +819,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (d__[*n] == 0.f) { *info = *n; - return 0; + return; } } @@ -861,7 +861,7 @@ L70: } } - return 0; + return; /* End of SGTSV */ diff --git a/lapack-netlib/SRC/sgtsvx.c b/lapack-netlib/SRC/sgtsvx.c index cea42826b..f2466262b 100644 --- a/lapack-netlib/SRC/sgtsvx.c +++ b/lapack-netlib/SRC/sgtsvx.c @@ -804,7 +804,7 @@ f"> */ /* > \ingroup realGTsolve */ /* ===================================================================== */ -/* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void sgtsvx_(char *fact, char *trans, integer *n, integer * nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf, real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer * ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, @@ -817,18 +817,18 @@ f"> */ char norm[1]; extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern real slamch_(char *); logical nofact; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern real slangt_(char *, integer *, real *, real *, real *); - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), sgtcon_(char *, integer *, real *, real *, real *, real *, integer *, real *, real *, real *, integer *, integer *); logical notran; - extern /* Subroutine */ int sgtrfs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgtrfs_(char *, integer *, integer *, real *, real *, real *, real *, real *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, real *, integer *, integer *), sgttrf_(integer *, real *, real *, real *, @@ -887,7 +887,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGTSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -907,7 +907,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -944,7 +944,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of SGTSVX */ diff --git a/lapack-netlib/SRC/sgttrf.c b/lapack-netlib/SRC/sgttrf.c index b8580a646..e2b981e2b 100644 --- a/lapack-netlib/SRC/sgttrf.c +++ b/lapack-netlib/SRC/sgttrf.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup realGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real * +/* Subroutine */ void sgttrf_(integer *n, real *dl, real *d__, real *du, real * du2, integer *ipiv, integer *info) { /* System generated locals */ @@ -668,13 +668,13 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("SGTTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize IPIV(i) = i and DU2(I) = 0 */ @@ -748,7 +748,7 @@ f"> */ } L50: - return 0; + return; /* End of SGTTRF */ diff --git a/lapack-netlib/SRC/sgttrs.c b/lapack-netlib/SRC/sgttrs.c index b8ca4cc57..07d58f48a 100644 --- a/lapack-netlib/SRC/sgttrs.c +++ b/lapack-netlib/SRC/sgttrs.c @@ -651,7 +651,7 @@ f"> */ /* > \ingroup realGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl, +/* Subroutine */ void sgttrs_(char *trans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb, integer *info) { @@ -660,9 +660,9 @@ f"> */ /* Local variables */ integer j, jb, nb; - extern /* Subroutine */ int sgtts2_(integer *, integer *, integer *, real - *, real *, real *, real *, integer *, real *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void sgtts2_(integer *, integer *, integer *, real + *, real *, real *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer itrans; @@ -705,13 +705,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SGTTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Decode TRANS */ @@ -751,6 +751,6 @@ f"> */ /* End of SGTTRS */ - return 0; + return; } /* sgttrs_ */ diff --git a/lapack-netlib/SRC/sgtts2.c b/lapack-netlib/SRC/sgtts2.c index d0c675d29..685e50790 100644 --- a/lapack-netlib/SRC/sgtts2.c +++ b/lapack-netlib/SRC/sgtts2.c @@ -638,7 +638,7 @@ f"> */ /* > \ingroup realGTcomputational */ /* ===================================================================== */ -/* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real +/* Subroutine */ void sgtts2_(integer *itrans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer * ldb) { @@ -673,7 +673,7 @@ f"> */ /* Function Body */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (*itrans == 0) { @@ -825,6 +825,6 @@ L70: /* End of SGTTS2 */ - return 0; + return; } /* sgtts2_ */ diff --git a/lapack-netlib/SRC/shgeqz.c b/lapack-netlib/SRC/shgeqz.c index e1ff56254..bd21f3963 100644 --- a/lapack-netlib/SRC/shgeqz.c +++ b/lapack-netlib/SRC/shgeqz.c @@ -818,7 +818,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n, +/* Subroutine */ void shgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *t, integer *ldt, real *alphar, real *alphai, real *beta, real *q, integer *ldq, real *z__, integer *ldz, real *work, integer *lwork, integer *info) @@ -830,7 +830,7 @@ f"> */ /* Local variables */ real ad11l, ad12l, ad21l, ad22l, ad32l, wabs, atol, btol, temp; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *), slag2_(real *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *); real temp2, s1inv, c__; @@ -847,7 +847,7 @@ f"> */ integer jc; extern real slapy3_(real *, real *, real *); real an, bn, cl; - extern /* Subroutine */ int slasv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slasv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *); real cq, cr; integer in; @@ -856,7 +856,7 @@ f"> */ real cz, sl, w12, w21, w22, wi, sr; extern real slamch_(char *); real vs, wr, safmin; - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *); real safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -874,7 +874,7 @@ f"> */ integer istart; logical ilpivt; real a2r, b1r, b2i, b2r; - extern /* Subroutine */ int slartg_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slartg_(real *, real *, real *, real *, real * ), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); logical lquery; @@ -985,16 +985,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SHGEQZ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { work[1] = 1.f; - return 0; + return; } /* Initialize Q and Z */ @@ -2092,7 +2092,7 @@ L380: L420: work[1] = (real) (*n); - return 0; + return; /* End of SHGEQZ */ diff --git a/lapack-netlib/SRC/shsein.c b/lapack-netlib/SRC/shsein.c index 2d1dd81ee..ad906df84 100644 --- a/lapack-netlib/SRC/shsein.c +++ b/lapack-netlib/SRC/shsein.c @@ -775,7 +775,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical * +/* Subroutine */ void shsein_(char *side, char *eigsrc, char *initv, logical * select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real *work, integer *ifaill, integer *ifailr, integer *info) @@ -795,10 +795,10 @@ f"> */ real hnorm; integer kl, kr; extern real slamch_(char *); - extern /* Subroutine */ int slaein_(logical *, logical *, integer *, real + extern /* Subroutine */ void slaein_(logical *, logical *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, - real *, real *, real *, real *, integer *), xerbla_(char *, - integer *, ftnlen); + real *, real *, real *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real bignum; extern real slanhs_(char *, integer *, real *, integer *, real *); extern logical sisnan_(real *); @@ -896,13 +896,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SHSEIN", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Set machine-dependent constants. */ @@ -975,7 +975,7 @@ L50: work[1]); if (sisnan_(&hnorm)) { *info = -6; - return 0; + return; } else if (hnorm > 0.f) { eps3 = hnorm * ulp; } else { @@ -1084,7 +1084,7 @@ L60: /* L120: */ } - return 0; + return; /* End of SHSEIN */ diff --git a/lapack-netlib/SRC/shseqr.c b/lapack-netlib/SRC/shseqr.c index c970be98b..4ab1e4d25 100644 --- a/lapack-netlib/SRC/shseqr.c +++ b/lapack-netlib/SRC/shseqr.c @@ -832,7 +832,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* ===================================================================== */ -/* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo, +/* Subroutine */ void shseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__, integer *ldz, real *work, integer *lwork, integer *info) { @@ -848,14 +848,14 @@ f"> */ logical initz; real workl[49]; logical wantt, wantz; - extern /* Subroutine */ int slaqr0_(logical *, logical *, integer *, + extern /* Subroutine */ void slaqr0_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , integer *, real *, integer *, real *, integer *, integer *); real hl[2401] /* was [49][49] */; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void slahqr_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , integer *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, @@ -928,13 +928,13 @@ f"> */ i__1 = -(*info); xerbla_("SHSEQR", &i__1, (ftnlen)6); - return 0; + return; } else if (*n == 0) { /* ==== Quick return in case N = 0; nothing to do. ==== */ - return 0; + return; } else if (lquery) { @@ -947,7 +947,7 @@ f"> */ /* Computing MAX */ r__1 = (real) f2cmax(1,*n); work[1] = f2cmax(r__1,work[1]); - return 0; + return; } else { @@ -978,7 +978,7 @@ f"> */ if (*ilo == *ihi) { wr[*ilo] = h__[*ilo + *ilo * h_dim1]; wi[*ilo] = 0.f; - return 0; + return; } /* ==== SLAHQR/SLAQR0 crossover point ==== */ @@ -1060,6 +1060,6 @@ f"> */ /* ==== End of SHSEQR ==== */ - return 0; + return; } /* shseqr_ */ diff --git a/lapack-netlib/SRC/sla_gbamv.c b/lapack-netlib/SRC/sla_gbamv.c index 97c990aeb..6b59f704d 100644 --- a/lapack-netlib/SRC/sla_gbamv.c +++ b/lapack-netlib/SRC/sla_gbamv.c @@ -693,7 +693,7 @@ mv.f"> */ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sla_gbamv_(integer *trans, integer *m, integer *n, +/* Subroutine */ void sla_gbamv_(integer *trans, integer *m, integer *n, integer *kl, integer *ku, real *alpha, real *ab, integer *ldab, real * x, integer *incx, real *beta, real *y, integer *incy) { @@ -752,13 +752,13 @@ mv.f"> */ } if (info != 0) { xerbla_("SLA_GBAMV ", &info, (ftnlen)10); - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0 || *alpha == 0.f && *beta == 1.f) { - return 0; + return; } /* Set LENX and LENY, the lengths of the vectors x and y, and set */ @@ -931,7 +931,7 @@ mv.f"> */ } } - return 0; + return; /* End of SLA_GBAMV */ diff --git a/lapack-netlib/SRC/sla_gbrcond.c b/lapack-netlib/SRC/sla_gbrcond.c index fd94ad409..1f18bee25 100644 --- a/lapack-netlib/SRC/sla_gbrcond.c +++ b/lapack-netlib/SRC/sla_gbrcond.c @@ -692,12 +692,12 @@ real sla_gbrcond_(char *trans, integer *n, integer *kl, integer *ku, real * integer kase, i__, j; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer kd, ke; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int sgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void sgbtrs_(char *, integer *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/sla_gbrfsx_extended.c b/lapack-netlib/SRC/sla_gbrfsx_extended.c index e001795c2..e84e3b2e9 100644 --- a/lapack-netlib/SRC/sla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/sla_gbrfsx_extended.c @@ -921,7 +921,7 @@ fsx_extended.f"> */ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sla_gbrfsx_extended_(integer *prec_type__, integer * +/* Subroutine */ void sla_gbrfsx_extended_(integer *prec_type__, integer * trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, logical *colequ, real *c__, real *b, integer *ldb, real *y, integer * @@ -939,13 +939,13 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__, ymin; - extern /* Subroutine */ int sla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void sla_lin_berr_(integer *, integer *, integer * , real *, real *, real *), blas_sgbmv_x__(integer *, integer *, integer *, integer *, integer *, real *, real *, integer *, real * , integer *, real *, real *, integer *, integer *); real dxratmax, dzratmax; integer y_prec_state__, i__, j, m; - extern /* Subroutine */ int blas_sgbmv2_x_(integer *, integer *, integer + extern /* Subroutine */ void blas_sgbmv2_x_(integer *, integer *, integer *, integer *, integer *, real *, real *, integer *, real *, real * , integer *, real *, real *, integer *, integer *), sla_gbamv__( integer *, integer *, integer *, integer *, integer *, real *, @@ -956,19 +956,19 @@ fsx_extended.f"> */ logical incr_prec__; real dzrat; char trans[1]; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real normx, normy; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); real myhugeval, prev_dz_z__, yk; extern real slamch_(char *); real final_dx_x__, final_dz_z__; - extern /* Subroutine */ int sgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void sgbtrs_(char *, integer *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real normdx; - extern /* Subroutine */ int sla_wwaddw_(integer *, real *, real *, real * + extern /* Subroutine */ void sla_wwaddw_(integer *, real *, real *, real * ); extern /* Character */ VOID chla_transtype_(char *, integer *); real prevnormdx; @@ -1016,7 +1016,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } chla_transtype_(ch__1, trans_type__); *(unsigned char *)trans = *(unsigned char *)&ch__1[0]; @@ -1254,6 +1254,6 @@ L666: } - return 0; + return; } /* sla_gbrfsx_extended__ */ diff --git a/lapack-netlib/SRC/sla_geamv.c b/lapack-netlib/SRC/sla_geamv.c index a30abd28a..338f6070e 100644 --- a/lapack-netlib/SRC/sla_geamv.c +++ b/lapack-netlib/SRC/sla_geamv.c @@ -682,7 +682,7 @@ mv.f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sla_geamv_(integer *trans, integer *m, integer *n, real +/* Subroutine */ void sla_geamv_(integer *trans, integer *m, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy) { @@ -738,13 +738,13 @@ mv.f"> */ } if (info != 0) { xerbla_("SLA_GEAMV ", &info, (ftnlen)10); - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0 || *alpha == 0.f && *beta == 1.f) { - return 0; + return; } /* Set LENX and LENY, the lengths of the vectors x and y, and set */ @@ -895,7 +895,7 @@ mv.f"> */ } } - return 0; + return; /* End of SLA_GEAMV */ diff --git a/lapack-netlib/SRC/sla_gercond.c b/lapack-netlib/SRC/sla_gercond.c index 448604d24..72198dc49 100644 --- a/lapack-netlib/SRC/sla_gercond.c +++ b/lapack-netlib/SRC/sla_gercond.c @@ -674,10 +674,11 @@ real sla_gercond_(char *trans, integer *n, real *a, integer *lda, real *af, integer kase, i__, j; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, - real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, + real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int sgetrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgetrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real tmp; logical notrans; diff --git a/lapack-netlib/SRC/sla_gerfsx_extended.c b/lapack-netlib/SRC/sla_gerfsx_extended.c index 13cba47c0..ca801473a 100644 --- a/lapack-netlib/SRC/sla_gerfsx_extended.c +++ b/lapack-netlib/SRC/sla_gerfsx_extended.c @@ -909,7 +909,7 @@ fsx_extended.f"> */ /* > \ingroup realGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int sla_gerfsx_extended_(integer *prec_type__, integer * +/* Subroutine */ void sla_gerfsx_extended_(integer *prec_type__, integer * trans_type__, integer *n, integer *nrhs, real *a, integer *lda, real * af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, real *b, integer *ldb, real *y, integer *ldy, real *berr_out__, integer * @@ -926,15 +926,15 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__, ymin; - extern /* Subroutine */ int sla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void sla_lin_berr_(integer *, integer *, integer * , real *, real *, real *); real dxratmax; - extern /* Subroutine */ int blas_sgemv_x_(integer *, integer *, integer * + extern /* Subroutine */ void blas_sgemv_x_(integer *, integer *, integer * , real *, real *, integer *, real *, integer *, real *, real *, integer *, integer *); real dzratmax; integer y_prec_state__, i__, j; - extern /* Subroutine */ int blas_sgemv2_x_(integer *, integer *, integer + extern /* Subroutine */ void blas_sgemv2_x_(integer *, integer *, integer *, real *, real *, integer *, real *, real *, integer *, real *, real *, integer *, integer *), sla_geamv_(integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, @@ -944,15 +944,15 @@ fsx_extended.f"> */ logical incr_prec__; real dzrat; char trans[1]; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real normx, normy; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); real myhugeval, prev_dz_z__, yk; extern real slamch_(char *); real final_dx_x__, final_dz_z__, normdx; - extern /* Subroutine */ int sgetrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgetrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), sla_wwaddw_(integer *, real *, real *, real *); extern /* Character */ VOID chla_transtype_(char *, integer *); @@ -1001,7 +1001,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } chla_transtype_(ch__1, trans_type__); *(unsigned char *)trans = *(unsigned char *)&ch__1[0]; @@ -1238,6 +1238,6 @@ L666: } - return 0; + return; } /* sla_gerfsx_extended__ */ diff --git a/lapack-netlib/SRC/sla_lin_berr.c b/lapack-netlib/SRC/sla_lin_berr.c index 0fdda2d8e..199c8c2c2 100644 --- a/lapack-netlib/SRC/sla_lin_berr.c +++ b/lapack-netlib/SRC/sla_lin_berr.c @@ -610,7 +610,7 @@ _berr.f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sla_lin_berr_(integer *n, integer *nz, integer *nrhs, +/* Subroutine */ void sla_lin_berr_(integer *n, integer *nz, integer *nrhs, real *res, real *ayb, real *berr) { /* System generated locals */ @@ -667,6 +667,6 @@ _berr.f"> */ } } - return 0; + return; } /* sla_lin_berr__ */ diff --git a/lapack-netlib/SRC/sla_porcond.c b/lapack-netlib/SRC/sla_porcond.c index 7fe74c57e..7fde8818a 100644 --- a/lapack-netlib/SRC/sla_porcond.c +++ b/lapack-netlib/SRC/sla_porcond.c @@ -664,12 +664,12 @@ real sla_porcond_(char *uplo, integer *n, real *a, integer *lda, real *af, integer kase, i__, j; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int spotrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void spotrs_(char *, integer *, integer *, real *, integer *, real *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/sla_porfsx_extended.c b/lapack-netlib/SRC/sla_porfsx_extended.c index 04eae3caa..1f0f09e24 100644 --- a/lapack-netlib/SRC/sla_porfsx_extended.c +++ b/lapack-netlib/SRC/sla_porfsx_extended.c @@ -899,7 +899,7 @@ fsx_extended.f"> */ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int sla_porfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void sla_porfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer * ldaf, logical *colequ, real *c__, real *b, integer *ldb, real *y, integer *ldy, real *berr_out__, integer *n_norms__, real * @@ -915,11 +915,11 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__, ymin; - extern /* Subroutine */ int sla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void sla_lin_berr_(integer *, integer *, integer * , real *, real *, real *); real dxratmax, dzratmax; integer y_prec_state__, uplo2; - extern /* Subroutine */ int blas_ssymv_x_(integer *, integer *, real *, + extern /* Subroutine */ void blas_ssymv_x_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *, integer *); integer i__, j; @@ -927,21 +927,21 @@ fsx_extended.f"> */ real dxrat; logical incr_prec__; real dzrat; - extern /* Subroutine */ int blas_ssymv2_x_(integer *, integer *, real *, + extern /* Subroutine */ void blas_ssymv2_x_(integer *, integer *, real *, real *, integer *, real *, real *, integer *, real *, real *, integer *, integer *), scopy_(integer *, real *, integer *, real * , integer *); real normx, normy; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), sla_syamv_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real myhugeval, prev_dz_z__; - extern /* Subroutine */ int ssymv_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssymv_(char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real yk; extern real slamch_(char *); real final_dx_x__, final_dz_z__, normdx; - extern /* Subroutine */ int sla_wwaddw_(integer *, real *, real *, real * + extern /* Subroutine */ void sla_wwaddw_(integer *, real *, real *, real * ), spotrs_(char *, integer *, integer *, real *, integer *, real * , integer *, integer *); real prevnormdx; @@ -989,7 +989,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } eps = slamch_("Epsilon"); myhugeval = slamch_("Overflow"); @@ -1214,6 +1214,6 @@ L666: } - return 0; + return; } /* sla_porfsx_extended__ */ diff --git a/lapack-netlib/SRC/sla_syamv.c b/lapack-netlib/SRC/sla_syamv.c index d90b83cdd..5222376b6 100644 --- a/lapack-netlib/SRC/sla_syamv.c +++ b/lapack-netlib/SRC/sla_syamv.c @@ -686,7 +686,7 @@ mv.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sla_syamv_(integer *uplo, integer *n, real *alpha, real +/* Subroutine */ void sla_syamv_(integer *uplo, integer *n, real *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, real *y, integer *incy) { @@ -739,13 +739,13 @@ mv.f"> */ } if (info != 0) { xerbla_("SLA_SYAMV", &info, (ftnlen)9); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || *alpha == 0.f && *beta == 1.f) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -918,7 +918,7 @@ mv.f"> */ } } - return 0; + return; /* End of SLA_SYAMV */ diff --git a/lapack-netlib/SRC/sla_syrcond.c b/lapack-netlib/SRC/sla_syrcond.c index 4a4efba4f..a61e0450e 100644 --- a/lapack-netlib/SRC/sla_syrcond.c +++ b/lapack-netlib/SRC/sla_syrcond.c @@ -670,7 +670,7 @@ real sla_syrcond_(char *uplo, integer *n, real *a, integer *lda, real *af, integer kase, i__, j; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); logical up; extern real slamch_(char *); @@ -678,7 +678,7 @@ real sla_syrcond_(char *uplo, integer *n, real *a, integer *lda, real *af, real ainvnm; char normin[1]; real smlnum; - extern /* Subroutine */ int ssytrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void ssytrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real tmp; diff --git a/lapack-netlib/SRC/sla_syrfsx_extended.c b/lapack-netlib/SRC/sla_syrfsx_extended.c index 898575d24..936d9a36b 100644 --- a/lapack-netlib/SRC/sla_syrfsx_extended.c +++ b/lapack-netlib/SRC/sla_syrfsx_extended.c @@ -907,7 +907,7 @@ fsx_extended.f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int sla_syrfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void sla_syrfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer * ldaf, integer *ipiv, logical *colequ, real *c__, real *b, integer * ldb, real *y, integer *ldy, real *berr_out__, integer *n_norms__, @@ -923,11 +923,11 @@ fsx_extended.f"> */ /* Local variables */ real dx_x__, dz_z__, ymin; - extern /* Subroutine */ int sla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void sla_lin_berr_(integer *, integer *, integer * , real *, real *, real *); real dxratmax, dzratmax; integer y_prec_state__, uplo2; - extern /* Subroutine */ int blas_ssymv_x_(integer *, integer *, real *, + extern /* Subroutine */ void blas_ssymv_x_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *, integer *); integer i__, j; @@ -935,24 +935,24 @@ fsx_extended.f"> */ real dxrat; logical incr_prec__; real dzrat; - extern /* Subroutine */ int blas_ssymv2_x_(integer *, integer *, real *, + extern /* Subroutine */ void blas_ssymv2_x_(integer *, integer *, real *, real *, integer *, real *, real *, integer *, real *, real *, integer *, integer *); logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real normx, normy; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), sla_syamv_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real myhugeval, prev_dz_z__; - extern /* Subroutine */ int ssymv_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssymv_(char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real yk; extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real final_dx_x__, final_dz_z__, normdx; - extern /* Subroutine */ int sla_wwaddw_(integer *, real *, real *, real * + extern /* Subroutine */ void sla_wwaddw_(integer *, real *, real *, real * ), ssytrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real prevnormdx; @@ -1020,7 +1020,7 @@ fsx_extended.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLA_SYRFSX_EXTENDED", &i__1, (ftnlen)19); - return 0; + return; } eps = slamch_("Epsilon"); myhugeval = slamch_("Overflow"); @@ -1245,6 +1245,6 @@ L666: } - return 0; + return; } /* sla_syrfsx_extended__ */ diff --git a/lapack-netlib/SRC/sla_wwaddw.c b/lapack-netlib/SRC/sla_wwaddw.c index 4b9b3d5cd..c14f5676f 100644 --- a/lapack-netlib/SRC/sla_wwaddw.c +++ b/lapack-netlib/SRC/sla_wwaddw.c @@ -590,7 +590,7 @@ ddw.f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sla_wwaddw_(integer *n, real *x, real *y, real *w) +/* Subroutine */ void sla_wwaddw_(integer *n, real *x, real *y, real *w) { /* System generated locals */ integer i__1; @@ -623,6 +623,6 @@ ddw.f"> */ x[i__] = s; /* L10: */ } - return 0; + return; } /* sla_wwaddw__ */ diff --git a/lapack-netlib/SRC/slabad.c b/lapack-netlib/SRC/slabad.c index 3cdfd0bd9..0c7fbe0a3 100644 --- a/lapack-netlib/SRC/slabad.c +++ b/lapack-netlib/SRC/slabad.c @@ -585,7 +585,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slabad_(real *small, real *large) +/* Subroutine */ void slabad_(real *small, real *large) { /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -605,7 +605,7 @@ f"> */ *large = sqrt(*large); } - return 0; + return; /* End of SLABAD */ diff --git a/lapack-netlib/SRC/slabrd.c b/lapack-netlib/SRC/slabrd.c index 38a1af196..5224ba7b8 100644 --- a/lapack-netlib/SRC/slabrd.c +++ b/lapack-netlib/SRC/slabrd.c @@ -725,7 +725,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a, +/* Subroutine */ void slabrd_(integer *m, integer *n, integer *nb, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *x, integer *ldx, real *y, integer *ldy) { @@ -735,7 +735,7 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), slarfg_( integer *, real *, real *, integer *, real *); @@ -769,7 +769,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } if (*m >= *n) { @@ -999,7 +999,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of SLABRD */ diff --git a/lapack-netlib/SRC/slacn2.c b/lapack-netlib/SRC/slacn2.c index a6f3aed6a..a0d7bb426 100644 --- a/lapack-netlib/SRC/slacn2.c +++ b/lapack-netlib/SRC/slacn2.c @@ -651,7 +651,7 @@ f"> */ /* > ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slacn2_(integer *n, real *v, real *x, integer *isgn, +/* Subroutine */ void slacn2_(integer *n, real *v, real *x, integer *isgn, real *est, integer *kase, integer *isave) { /* System generated locals */ @@ -662,7 +662,7 @@ f"> */ real temp; integer i__, jlast; extern real sasum_(integer *, real *, integer *); - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *); real altsgn, estold; @@ -692,7 +692,7 @@ f"> */ } *kase = 1; isave[1] = 1; - return 0; + return; } switch (isave[1]) { @@ -723,7 +723,7 @@ L20: } *kase = 2; isave[1] = 2; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 2) */ /* FIRST ITERATION. X HAS BEEN OVERWRITTEN BY TRANSPOSE(A)*X. */ @@ -743,7 +743,7 @@ L50: x[isave[2]] = 1.f; *kase = 1; isave[1] = 3; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 3) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -777,7 +777,7 @@ L90: } *kase = 2; isave[1] = 4; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 4) */ /* X HAS BEEN OVERWRITTEN BY TRANSPOSE(A)*X. */ @@ -802,7 +802,7 @@ L120: } *kase = 1; isave[1] = 5; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 5) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -816,7 +816,7 @@ L140: L150: *kase = 0; - return 0; + return; /* End of SLACN2 */ diff --git a/lapack-netlib/SRC/slacon.c b/lapack-netlib/SRC/slacon.c index b0a20accc..ec92e00a0 100644 --- a/lapack-netlib/SRC/slacon.c +++ b/lapack-netlib/SRC/slacon.c @@ -630,7 +630,7 @@ f"> */ /* > ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn, +/* Subroutine */ void slacon_(integer *n, real *v, real *x, integer *isgn, real *est, integer *kase) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ static real temp; static integer jump, i__, j, jlast; extern real sasum_(integer *, real *, integer *); - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *); static real altsgn, estold; @@ -671,7 +671,7 @@ f"> */ } *kase = 1; jump = 1; - return 0; + return; } switch (jump) { @@ -702,7 +702,7 @@ L20: } *kase = 2; jump = 2; - return 0; + return; /* ................ ENTRY (JUMP = 2) */ /* FIRST ITERATION. X HAS BEEN OVERWRITTEN BY TRANSPOSE(A)*X. */ @@ -722,7 +722,7 @@ L50: x[j] = 1.f; *kase = 1; jump = 3; - return 0; + return; /* ................ ENTRY (JUMP = 3) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -756,7 +756,7 @@ L90: } *kase = 2; jump = 4; - return 0; + return; /* ................ ENTRY (JUMP = 4) */ /* X HAS BEEN OVERWRITTEN BY TRANSPOSE(A)*X. */ @@ -781,7 +781,7 @@ L120: } *kase = 1; jump = 5; - return 0; + return; /* ................ ENTRY (JUMP = 5) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -795,7 +795,7 @@ L140: L150: *kase = 0; - return 0; + return; /* End of SLACON */ diff --git a/lapack-netlib/SRC/slacpy.c b/lapack-netlib/SRC/slacpy.c index 61cf0f7b9..eeb42dfa1 100644 --- a/lapack-netlib/SRC/slacpy.c +++ b/lapack-netlib/SRC/slacpy.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a, +/* Subroutine */ void slacpy_(char *uplo, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb) { /* System generated locals */ @@ -672,7 +672,7 @@ f"> */ /* L60: */ } } - return 0; + return; /* End of SLACPY */ diff --git a/lapack-netlib/SRC/sladiv.c b/lapack-netlib/SRC/sladiv.c index 0703a90d3..5005ee1b2 100644 --- a/lapack-netlib/SRC/sladiv.c +++ b/lapack-netlib/SRC/sladiv.c @@ -602,7 +602,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p, +/* Subroutine */ void sladiv_(real *a, real *b, real *c__, real *d__, real *p, real *q) { /* System generated locals */ @@ -611,7 +611,7 @@ f"> */ /* Local variables */ real s, aa, ab, bb, cc, cd, dd, be, un, ov; extern real slamch_(char *); - extern /* Subroutine */ int sladiv1_(real *, real *, real *, real *, real + extern /* Subroutine */ void sladiv1_(real *, real *, real *, real *, real *, real *); real eps; @@ -670,14 +670,14 @@ f"> */ *p *= s; *q *= s; - return 0; + return; /* End of SLADIV */ } /* sladiv_ */ /* > \ingroup realOTHERauxiliary */ -/* Subroutine */ int sladiv1_(real *a, real *b, real *c__, real *d__, real *p, +/* Subroutine */ void sladiv1_(real *a, real *b, real *c__, real *d__, real *p, real *q) { real r__, t; @@ -700,7 +700,7 @@ f"> */ *a = -(*a); *q = sladiv2_(b, a, c__, d__, &r__, &t); - return 0; + return; /* End of SLADIV1 */ diff --git a/lapack-netlib/SRC/slae2.c b/lapack-netlib/SRC/slae2.c index 6e4fdb6fa..b97fe5582 100644 --- a/lapack-netlib/SRC/slae2.c +++ b/lapack-netlib/SRC/slae2.c @@ -613,7 +613,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2) +/* Subroutine */ void slae2_(real *a, real *b, real *c__, real *rt1, real *rt2) { /* System generated locals */ real r__1; @@ -682,7 +682,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rt1 = rt * .5f; *rt2 = rt * -.5f; } - return 0; + return; /* End of SLAE2 */ diff --git a/lapack-netlib/SRC/slaebz.c b/lapack-netlib/SRC/slaebz.c index 386a185a6..24264032c 100644 --- a/lapack-netlib/SRC/slaebz.c +++ b/lapack-netlib/SRC/slaebz.c @@ -827,7 +827,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n, +/* Subroutine */ void slaebz_(integer *ijob, integer *nitmax, integer *n, integer *mmax, integer *minp, integer *nbmin, real *abstol, real * reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval, real *ab, real *c__, integer *mout, integer *nab, real *work, integer @@ -873,7 +873,7 @@ f"> */ *info = 0; if (*ijob < 1 || *ijob > 3) { *info = -1; - return 0; + return; } /* Initialize NAB */ @@ -911,7 +911,7 @@ f"> */ *mout = *mout + nab[ji + (nab_dim1 << 1)] - nab[ji + nab_dim1]; /* L30: */ } - return 0; + return; } /* Initialize for loop */ @@ -1027,7 +1027,7 @@ f"> */ /* L70: */ } if (*info != 0) { - return 0; + return; } kl = klnew; } else { @@ -1125,7 +1125,7 @@ f"> */ nab[ji + (nab_dim1 << 1)] = itmp1; } else { *info = *mmax + 1; - return 0; + return; } } else { @@ -1215,7 +1215,7 @@ L140: *info = f2cmax(i__1,0); *mout = kl; - return 0; + return; /* End of SLAEBZ */ diff --git a/lapack-netlib/SRC/slaed0.c b/lapack-netlib/SRC/slaed0.c index 4c5230907..930102b9f 100644 --- a/lapack-netlib/SRC/slaed0.c +++ b/lapack-netlib/SRC/slaed0.c @@ -690,7 +690,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real +/* Subroutine */ void slaed0_(integer *icompq, integer *qsiz, integer *n, real *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs, real *work, integer *iwork, integer *info) { @@ -701,14 +701,14 @@ f"> */ /* Local variables */ real temp; integer curr, i__, j, k; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer iperm, indxq, iwrem; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer iqptr, tlvls; - extern /* Subroutine */ int slaed1_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slaed1_(integer *, real *, real *, integer *, integer *, real *, integer *, real *, integer *, integer *), slaed7_(integer *, integer *, integer *, integer *, integer *, integer *, real *, real *, integer *, integer *, real *, integer * @@ -719,10 +719,10 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer igivnm, submat; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer curprb, subpbs, igivpt, curlvl, matsiz, iprmpt, smlsiz; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); integer lgn, msd2, smm1, spm1, spm2; @@ -767,13 +767,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAED0", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } smlsiz = ilaenv_(&c__9, "SLAED0", " ", &c__0, &c__0, &c__0, &c__0, ( @@ -992,7 +992,7 @@ L130: *info = submat * (*n + 1) + submat + matsiz - 1; L140: - return 0; + return; /* End of SLAED0 */ diff --git a/lapack-netlib/SRC/slaed1.c b/lapack-netlib/SRC/slaed1.c index 693e82ec8..d03d2425f 100644 --- a/lapack-netlib/SRC/slaed1.c +++ b/lapack-netlib/SRC/slaed1.c @@ -677,7 +677,7 @@ f"> */ /* > Modified by Francoise Tisseur, University of Tennessee */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq, +/* Subroutine */ void slaed1_(integer *n, real *d__, real *q, integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *work, integer * iwork, integer *info) { @@ -686,17 +686,18 @@ f"> */ /* Local variables */ integer indx, i__, k, indxc, indxp; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer n1, n2; - extern /* Subroutine */ int slaed2_(integer *, integer *, integer *, real + extern /* Subroutine */ void slaed2_(integer *, integer *, integer *, real *, real *, integer *, integer *, real *, real *, real *, real *, real *, integer *, integer *, integer *, integer *, integer *), slaed3_(integer *, integer *, integer *, real *, real *, integer * , real *, real *, real *, integer *, integer *, real *, real *, integer *); integer idlmda, is, iw, iz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slamrg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slamrg_( integer *, integer *, real *, integer *, integer *, integer *); integer coltyp, iq2, cpp1; @@ -738,13 +739,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAED1", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* The following values are integer pointers which indicate */ @@ -806,7 +807,7 @@ f"> */ } L20: - return 0; + return; /* End of SLAED1 */ diff --git a/lapack-netlib/SRC/slaed2.c b/lapack-netlib/SRC/slaed2.c index f4b9f61d0..0093a7053 100644 --- a/lapack-netlib/SRC/slaed2.c +++ b/lapack-netlib/SRC/slaed2.c @@ -726,7 +726,7 @@ f"> */ /* > Modified by Francoise Tisseur, University of Tennessee */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__, +/* Subroutine */ void slaed2_(integer *k, integer *n, integer *n1, real *d__, real *q, integer *ldq, integer *indxq, real *rho, real *z__, real * dlamda, real *w, real *q2, integer *indx, integer *indxc, integer * indxp, integer *coltyp, integer *info) @@ -737,14 +737,14 @@ f"> */ /* Local variables */ integer imax, jmax, ctot[4]; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); real c__; integer i__, j; real s, t; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer k2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer n2; extern real slapy2_(real *, real *); @@ -752,7 +752,7 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slamrg_(integer *, integer *, real *, integer + extern /* Subroutine */ void slamrg_(integer *, integer *, real *, integer *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer iq1, iq2, n1p1; @@ -803,13 +803,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAED2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } n2 = *n - *n1; @@ -1110,7 +1110,7 @@ L100: } L190: - return 0; + return; /* End of SLAED2 */ diff --git a/lapack-netlib/SRC/slaed3.c b/lapack-netlib/SRC/slaed3.c index 2acd3ba19..f3fb1aaf7 100644 --- a/lapack-netlib/SRC/slaed3.c +++ b/lapack-netlib/SRC/slaed3.c @@ -700,7 +700,7 @@ f"> */ /* > Modified by Francoise Tisseur, University of Tennessee */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__, +/* Subroutine */ void slaed3_(integer *k, integer *n, integer *n1, real *d__, real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer * indx, integer *ctot, real *w, real *s, integer *info) { @@ -712,16 +712,17 @@ f"> */ real temp; extern real snrm2_(integer *, real *, integer *); integer i__, j; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *); integer n2; - extern /* Subroutine */ int slaed4_(integer *, integer *, real *, real *, + extern /* Subroutine */ void slaed4_(integer *, integer *, real *, real *, real *, real *, real *, integer *); extern real slamc3_(real *, real *); integer n12, ii, n23; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slacpy_( char *, integer *, integer *, real *, integer *, real *, integer * ), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); @@ -764,13 +765,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAED3", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*k == 0) { - return 0; + return; } /* Modify values DLAMDA(i) to make sure all DLAMDA(i)-DLAMDA(j) can */ @@ -901,7 +902,7 @@ L110: L120: - return 0; + return; /* End of SLAED3 */ diff --git a/lapack-netlib/SRC/slaed4.c b/lapack-netlib/SRC/slaed4.c index c6179d513..009b5095f 100644 --- a/lapack-netlib/SRC/slaed4.c +++ b/lapack-netlib/SRC/slaed4.c @@ -654,7 +654,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__, +/* Subroutine */ void slaed4_(integer *n, integer *i__, real *d__, real *z__, real *delta, real *rho, real *dlam, integer *info) { /* System generated locals */ @@ -669,7 +669,7 @@ f"> */ real w, dltlb, dltub, midpt; integer niter; logical swtch; - extern /* Subroutine */ int slaed5_(integer *, real *, real *, real *, + extern /* Subroutine */ void slaed5_(integer *, real *, real *, real *, real *, real *), slaed6_(integer *, logical *, real *, real *, real *, real *, real *, integer *); logical swtch3; @@ -711,11 +711,11 @@ f"> */ *dlam = d__[1] + *rho * z__[1] * z__[1]; delta[1] = 1.f; - return 0; + return; } if (*n == 2) { slaed5_(i__, &d__[1], &z__[1], &delta[1], rho, dlam); - return 0; + return; } /* Compute machine epsilon */ @@ -1494,7 +1494,7 @@ f"> */ L250: - return 0; + return; /* End of SLAED4 */ diff --git a/lapack-netlib/SRC/slaed5.c b/lapack-netlib/SRC/slaed5.c index cf6b0b1e1..dc8417ef3 100644 --- a/lapack-netlib/SRC/slaed5.c +++ b/lapack-netlib/SRC/slaed5.c @@ -617,7 +617,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta, +/* Subroutine */ void slaed5_(integer *i__, real *d__, real *z__, real *delta, real *rho, real *dlam) { /* System generated locals */ @@ -689,7 +689,7 @@ f"> */ delta[1] /= temp; delta[2] /= temp; } - return 0; + return; /* End OF SLAED5 */ diff --git a/lapack-netlib/SRC/slaed6.c b/lapack-netlib/SRC/slaed6.c index 96ede1af0..ceeaad0b7 100644 --- a/lapack-netlib/SRC/slaed6.c +++ b/lapack-netlib/SRC/slaed6.c @@ -649,7 +649,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho, +/* Subroutine */ void slaed6_(integer *kniter, logical *orgati, real *rho, real *d__, real *z__, real *finit, real *tau, integer *info) { /* System generated locals */ @@ -926,7 +926,7 @@ L60: if (scale) { *tau *= sclinv; } - return 0; + return; /* End of SLAED6 */ diff --git a/lapack-netlib/SRC/slaed7.c b/lapack-netlib/SRC/slaed7.c index 22fcaf76d..b1fb60a0a 100644 --- a/lapack-netlib/SRC/slaed7.c +++ b/lapack-netlib/SRC/slaed7.c @@ -775,7 +775,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz, +/* Subroutine */ void slaed7_(integer *icompq, integer *n, integer *qsiz, integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q, integer *ldq, integer *indxq, real *rho, integer *cutpnt, real * qstore, integer *qptr, integer *prmptr, integer *perm, integer * @@ -787,11 +787,11 @@ f"> */ /* Local variables */ integer indx, curr, i__, k, indxc; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer indxp, n1, n2; - extern /* Subroutine */ int slaed8_(integer *, integer *, integer *, + extern /* Subroutine */ void slaed8_(integer *, integer *, integer *, integer *, real *, real *, integer *, integer *, real *, integer * , real *, real *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *, integer *, integer *), slaed9_( @@ -801,7 +801,8 @@ f"> */ integer *, integer *, integer *, real *, real *, integer *, real * , real *, integer *); integer idlmda, is, iw, iz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slamrg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slamrg_( integer *, integer *, real *, integer *, integer *, integer *); integer coltyp, iq2, ptr, ldq2; @@ -850,13 +851,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAED7", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* The following values are for bookkeeping purposes only. They are */ @@ -946,7 +947,7 @@ f"> */ } L30: - return 0; + return; /* End of SLAED7 */ diff --git a/lapack-netlib/SRC/slaed8.c b/lapack-netlib/SRC/slaed8.c index 9b23e6993..d060c9755 100644 --- a/lapack-netlib/SRC/slaed8.c +++ b/lapack-netlib/SRC/slaed8.c @@ -756,7 +756,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer +/* Subroutine */ void slaed8_(integer *icompq, integer *k, integer *n, integer *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2, real *w, integer *perm, integer *givptr, integer *givcol, real * @@ -768,14 +768,14 @@ f"> */ /* Local variables */ integer jlam, imax, jmax; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); real c__; integer i__, j; real s, t; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer k2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer n1, n2; extern real slapy2_(real *, real *); @@ -783,7 +783,7 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slamrg_(integer *, integer *, real *, integer + extern /* Subroutine */ void slamrg_(integer *, integer *, real *, integer *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer n1p1; @@ -839,7 +839,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAED8", &i__1, (ftnlen)6); - return 0; + return; } /* Need to initialize GIVPTR to O here in case of quick exit */ @@ -852,7 +852,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } n1 = *cutpnt; @@ -926,7 +926,7 @@ f"> */ } slacpy_("A", qsiz, n, &q2[q2_dim1 + 1], ldq2, &q[q_dim1 + 1], ldq); } - return 0; + return; } /* If there are multiple eigenvalues then the problem deflates. Here */ @@ -1077,7 +1077,7 @@ L110: } } - return 0; + return; /* End of SLAED8 */ diff --git a/lapack-netlib/SRC/slaed9.c b/lapack-netlib/SRC/slaed9.c index c6c6d89c4..6de1a9db6 100644 --- a/lapack-netlib/SRC/slaed9.c +++ b/lapack-netlib/SRC/slaed9.c @@ -669,7 +669,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop, +/* Subroutine */ void slaed9_(integer *k, integer *kstart, integer *kstop, integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda, real *w, real *s, integer *lds, integer *info) { @@ -681,7 +681,7 @@ f"> */ real temp; extern real snrm2_(integer *, real *, integer *); integer i__, j; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), slaed4_(integer *, integer *, real *, real *, real *, real *, real *, integer *); extern real slamc3_(real *, real *); @@ -729,13 +729,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAED9", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*k == 0) { - return 0; + return; } /* Modify values DLAMDA(i) to make sure all DLAMDA(i)-DLAMDA(j) can */ @@ -835,7 +835,7 @@ f"> */ } L120: - return 0; + return; /* End of SLAED9 */ diff --git a/lapack-netlib/SRC/slaeda.c b/lapack-netlib/SRC/slaeda.c index 3806427c2..fdf2036db 100644 --- a/lapack-netlib/SRC/slaeda.c +++ b/lapack-netlib/SRC/slaeda.c @@ -682,7 +682,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl, +/* Subroutine */ void slaeda_(integer *n, integer *tlvls, integer *curlvl, integer *curpbm, integer *prmptr, integer *perm, integer *givptr, integer *givcol, real *givnum, real *q, integer *qptr, real *z__, real *ztemp, integer *info) @@ -692,12 +692,12 @@ f"> */ /* Local variables */ integer curr; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer bsiz1, bsiz2, psiz1, psiz2, i__, k, zptr1; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, - real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, + real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer mid, ptr; @@ -732,13 +732,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAEDA", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine location of first number in second half. */ @@ -848,7 +848,7 @@ f"> */ /* L70: */ } - return 0; + return; /* End of SLAEDA */ diff --git a/lapack-netlib/SRC/slaein.c b/lapack-netlib/SRC/slaein.c index 86fc52736..e05629ee7 100644 --- a/lapack-netlib/SRC/slaein.c +++ b/lapack-netlib/SRC/slaein.c @@ -685,7 +685,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n, +/* Subroutine */ void slaein_(logical *rightv, logical *noinit, integer *n, real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum, integer *info) @@ -700,7 +700,7 @@ f"> */ extern real snrm2_(integer *, real *, integer *); integer i__, j; real scale, w, x, y; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char trans[1]; real vcrit; extern real sasum_(integer *, real *, integer *); @@ -709,11 +709,11 @@ f"> */ extern real slapy2_(real *, real *); real ei, ej, absbii, absbjj, xi, xr; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int sladiv_(real *, real *, real *, real *, real * + extern /* Subroutine */ void sladiv_(real *, real *, real *, real *, real * , real *); char normin[1]; real nrmsml; - extern /* Subroutine */ int slatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void slatrs_(char *, char *, char *, char *, integer *, real *, integer *, real *, real *, real *, integer *); real growto, rec; integer its; @@ -1250,7 +1250,7 @@ L280: } - return 0; + return; /* End of SLAEIN */ diff --git a/lapack-netlib/SRC/slaev2.c b/lapack-netlib/SRC/slaev2.c index 26155dd87..7500e82af 100644 --- a/lapack-netlib/SRC/slaev2.c +++ b/lapack-netlib/SRC/slaev2.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real * +/* Subroutine */ void slaev2_(real *a, real *b, real *c__, real *rt1, real * rt2, real *cs1, real *sn1) { /* System generated locals */ @@ -735,7 +735,7 @@ f"> */ *cs1 = -(*sn1); *sn1 = tn; } - return 0; + return; /* End of SLAEV2 */ diff --git a/lapack-netlib/SRC/slaexc.c b/lapack-netlib/SRC/slaexc.c index 21402599f..553c4957b 100644 --- a/lapack-netlib/SRC/slaexc.c +++ b/lapack-netlib/SRC/slaexc.c @@ -656,7 +656,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer * +/* Subroutine */ void slaexc_(logical *wantq, integer *n, real *t, integer * ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, real *work, integer *info) { @@ -667,14 +667,14 @@ f"> */ /* Local variables */ integer ierr; real temp; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); real d__[16] /* was [4][4] */; integer k; real u[3], scale, x[4] /* was [2][2] */, dnorm; integer j2, j3, j4; real xnorm, u1[3], u2[3]; - extern /* Subroutine */ int slanv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slanv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *, real *), slasy2_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, @@ -683,12 +683,12 @@ f"> */ real cs, t11, t22, t33, sn; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slartg_(real *, real *, real *, real * , real *); real thresh; - extern /* Subroutine */ int slarfx_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarfx_(char *, integer *, integer *, real *, real *, real *, integer *, real *); real smlnum, wi1, wi2, wr1, wr2, eps, tau, tau1, tau2; @@ -717,10 +717,10 @@ f"> */ /* Quick return if possible */ if (*n == 0 || *n1 == 0 || *n2 == 0) { - return 0; + return; } if (*j1 + *n1 > *n) { - return 0; + return; } j2 = *j1 + 1; @@ -1006,13 +1006,13 @@ L40: } } - return 0; + return; /* Exit with INFO = 1 if swap was rejected. */ L50: *info = 1; - return 0; + return; /* End of SLAEXC */ diff --git a/lapack-netlib/SRC/slag2.c b/lapack-netlib/SRC/slag2.c index c052cf760..c012c0be2 100644 --- a/lapack-netlib/SRC/slag2.c +++ b/lapack-netlib/SRC/slag2.c @@ -665,7 +665,7 @@ ssary to avoid over-/underflow. */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb, +/* Subroutine */ void slag2_(real *a, integer *lda, real *b, integer *ldb, real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real * wi) { @@ -914,6 +914,6 @@ ssary to avoid over-/underflow. */ /* End of SLAG2 */ - return 0; + return; } /* slag2_ */ diff --git a/lapack-netlib/SRC/slag2d.c b/lapack-netlib/SRC/slag2d.c index 4976f5b6d..9d4753598 100644 --- a/lapack-netlib/SRC/slag2d.c +++ b/lapack-netlib/SRC/slag2d.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slag2d_(integer *m, integer *n, real *sa, integer *ldsa, +/* Subroutine */ void slag2d_(integer *m, integer *n, real *sa, integer *ldsa, doublereal *a, integer *lda, integer *info) { /* System generated locals */ @@ -651,7 +651,7 @@ f"> */ } /* L20: */ } - return 0; + return; /* End of SLAG2D */ diff --git a/lapack-netlib/SRC/slags2.c b/lapack-netlib/SRC/slags2.c index 785ba50fe..1d18f4f57 100644 --- a/lapack-netlib/SRC/slags2.c +++ b/lapack-netlib/SRC/slags2.c @@ -663,7 +663,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3, +/* Subroutine */ void slags2_(logical *upper, real *a1, real *a2, real *a3, real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real * snv, real *csq, real *snq) { @@ -673,7 +673,7 @@ f"> */ /* Local variables */ real aua11, aua12, aua21, aua22, avb11, avb12, avb21, avb22, ua11r, ua22r, vb11r, vb22r, a, b, c__, d__, r__, s1, s2; - extern /* Subroutine */ int slasv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slasv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *), slartg_(real *, real *, real *, real *, real *); real ua11, ua12, ua21, ua22, vb11, vb12, vb21, vb22, csl, csr, snl, snr; @@ -864,7 +864,7 @@ f"> */ } - return 0; + return; /* End of SLAGS2 */ diff --git a/lapack-netlib/SRC/slagtf.c b/lapack-netlib/SRC/slagtf.c index a162e7251..993b6e4f0 100644 --- a/lapack-netlib/SRC/slagtf.c +++ b/lapack-netlib/SRC/slagtf.c @@ -666,7 +666,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real +/* Subroutine */ void slagtf_(integer *n, real *a, real *lambda, real *b, real *c__, real *tol, real *d__, integer *in, integer *info) { /* System generated locals */ @@ -704,11 +704,11 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("SLAGTF", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } a[1] -= *lambda; @@ -717,7 +717,7 @@ f"> */ if (a[1] == 0.f) { in[1] = 1; } - return 0; + return; } eps = slamch_("Epsilon"); @@ -776,7 +776,7 @@ f"> */ in[*n] = *n; } - return 0; + return; /* End of SLAGTF */ diff --git a/lapack-netlib/SRC/slagtm.c b/lapack-netlib/SRC/slagtm.c index 45d637113..589f0723b 100644 --- a/lapack-netlib/SRC/slagtm.c +++ b/lapack-netlib/SRC/slagtm.c @@ -654,7 +654,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real * +/* Subroutine */ void slagtm_(char *trans, integer *n, integer *nrhs, real * alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real * beta, real *b, integer *ldb) { @@ -688,7 +688,7 @@ f"> */ /* Function Body */ if (*n == 0) { - return 0; + return; } /* Multiply B by BETA if BETA.NE.1. */ @@ -820,7 +820,7 @@ f"> */ } } } - return 0; + return; /* End of SLAGTM */ diff --git a/lapack-netlib/SRC/slagts.c b/lapack-netlib/SRC/slagts.c index 1fe08865d..f16f31862 100644 --- a/lapack-netlib/SRC/slagts.c +++ b/lapack-netlib/SRC/slagts.c @@ -671,7 +671,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real +/* Subroutine */ void slagts_(integer *job, integer *n, real *a, real *b, real *c__, real *d__, integer *in, real *y, real *tol, integer *info) { /* System generated locals */ @@ -714,11 +714,11 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAGTS", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } eps = slamch_("Epsilon"); @@ -777,14 +777,14 @@ f"> */ if (absak < sfmin) { if (absak == 0.f || abs(temp) * sfmin > absak) { *info = k; - return 0; + return; } else { temp *= bignum; ak *= bignum; } } else if (abs(temp) > absak * bignum) { *info = k; - return 0; + return; } } y[k] = temp / ak; @@ -843,14 +843,14 @@ L40: if (absak < sfmin) { if (absak == 0.f || abs(temp) * sfmin > absak) { *info = k; - return 0; + return; } else { temp *= bignum; ak *= bignum; } } else if (abs(temp) > absak * bignum) { *info = k; - return 0; + return; } } y[k] = temp / ak; @@ -905,6 +905,6 @@ L70: /* End of SLAGTS */ - return 0; + return; } /* slagts_ */ diff --git a/lapack-netlib/SRC/slagv2.c b/lapack-netlib/SRC/slagv2.c index 3ebcdd476..9eed34978 100644 --- a/lapack-netlib/SRC/slagv2.c +++ b/lapack-netlib/SRC/slagv2.c @@ -671,7 +671,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb, +/* Subroutine */ void slagv2_(real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *csl, real *snl, real * csr, real *snr) { @@ -680,17 +680,17 @@ f"> */ real r__1, r__2, r__3, r__4, r__5, r__6; /* Local variables */ - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *), slag2_(real *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *); real r__, t, anorm, bnorm, h1, h2, h3, scale1, scale2; - extern /* Subroutine */ int slasv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slasv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *); extern real slapy2_(real *, real *); real ascale, bscale, wi, qq, rr; extern real slamch_(char *); real safmin; - extern /* Subroutine */ int slartg_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slartg_(real *, real *, real *, real *, real * ); real wr1, wr2, ulp; @@ -909,7 +909,7 @@ f"> */ beta[2] = 1.f; } - return 0; + return; /* End of SLAGV2 */ diff --git a/lapack-netlib/SRC/slahqr.c b/lapack-netlib/SRC/slahqr.c index a2aa97858..99cdc2580 100644 --- a/lapack-netlib/SRC/slahqr.c +++ b/lapack-netlib/SRC/slahqr.c @@ -720,7 +720,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void slahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer * info) @@ -730,26 +730,26 @@ f"> */ real r__1, r__2, r__3, r__4; /* Local variables */ - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer i__, j, k, l, m; real s, v[3]; integer itmax, i1, i2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real t1, t2, t3, v2, v3, aa, ab, ba, bb; - extern /* Subroutine */ int slanv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slanv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *, real *); real h11, h12, h21, h22, cs; integer nh; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); real sn; integer nr; real tr; extern real slamch_(char *); integer nz; real safmin; - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *); real safmax, rtdisc, smlnum, det, h21s; integer its; @@ -781,12 +781,12 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*ilo == *ihi) { wr[*ilo] = h__[*ilo + *ilo * h_dim1]; wi[*ilo] = 0.f; - return 0; + return; } /* ==== clear out the trash ==== */ @@ -1155,7 +1155,7 @@ L60: /* Failure to converge in remaining number of iterations */ *info = i__; - return 0; + return; L150: @@ -1205,7 +1205,7 @@ L150: goto L20; L160: - return 0; + return; /* End of SLAHQR */ diff --git a/lapack-netlib/SRC/slahr2.c b/lapack-netlib/SRC/slahr2.c index 90247fbe4..ed697ff09 100644 --- a/lapack-netlib/SRC/slahr2.c +++ b/lapack-netlib/SRC/slahr2.c @@ -700,7 +700,7 @@ f"> */ /* > Mathematical Software, 32(2):180-194, June 2006. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slahr2_(integer *n, integer *k, integer *nb, real *a, +/* Subroutine */ void slahr2_(integer *n, integer *k, integer *nb, real *a, integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy) { /* System generated locals */ @@ -710,7 +710,7 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), @@ -719,7 +719,7 @@ f"> */ integer *), strmv_(char *, char *, char *, integer *, real *, integer *, real *, integer *); real ei; - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); @@ -749,7 +749,7 @@ f"> */ /* Function Body */ if (*n <= 1) { - return 0; + return; } i__1 = *nb; @@ -877,7 +877,7 @@ f"> */ strmm_("RIGHT", "Upper", "NO TRANSPOSE", "NON-UNIT", k, nb, &c_b5, &t[ t_offset], ldt, &y[y_offset], ldy); - return 0; + return; /* End of SLAHR2 */ diff --git a/lapack-netlib/SRC/slaic1.c b/lapack-netlib/SRC/slaic1.c index c6534c0b7..6307e19e9 100644 --- a/lapack-netlib/SRC/slaic1.c +++ b/lapack-netlib/SRC/slaic1.c @@ -648,7 +648,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest, +/* Subroutine */ void slaic1_(integer *job, integer *j, real *x, real *sest, real *w, real *gamma, real *sestpr, real *s, real *c__) { /* System generated locals */ @@ -703,7 +703,7 @@ f"> */ *c__ /= tmp; *sestpr = s1 * tmp; } - return 0; + return; } else if (absgam <= eps * absest) { *s = 1.f; *c__ = 0.f; @@ -711,7 +711,7 @@ f"> */ s1 = absest / tmp; s2 = absalp / tmp; *sestpr = tmp * sqrt(s1 * s1 + s2 * s2); - return 0; + return; } else if (absalp <= eps * absest) { s1 = absgam; s2 = absest; @@ -724,7 +724,7 @@ f"> */ *c__ = 1.f; *sestpr = s1; } - return 0; + return; } else if (absest <= eps * absalp || absest <= eps * absgam) { s1 = absgam; s2 = absalp; @@ -741,7 +741,7 @@ f"> */ *s = alpha / s1 / *c__; *c__ = r_sign(&c_b5, gamma) / *c__; } - return 0; + return; } else { /* normal case */ @@ -763,7 +763,7 @@ f"> */ *s = sine / tmp; *c__ = cosine / tmp; *sestpr = sqrt(t + 1.f) * absest; - return 0; + return; } } else if (*job == 2) { @@ -789,12 +789,12 @@ f"> */ tmp = sqrt(*s * *s + *c__ * *c__); *s /= tmp; *c__ /= tmp; - return 0; + return; } else if (absgam <= eps * absest) { *s = 0.f; *c__ = 1.f; *sestpr = absgam; - return 0; + return; } else if (absalp <= eps * absest) { s1 = absgam; s2 = absest; @@ -807,7 +807,7 @@ f"> */ *c__ = 0.f; *sestpr = s2; } - return 0; + return; } else if (absest <= eps * absalp || absest <= eps * absgam) { s1 = absgam; s2 = absalp; @@ -824,7 +824,7 @@ f"> */ *c__ = alpha / s1 / *s; *s = -r_sign(&c_b5, gamma) / *s; } - return 0; + return; } else { /* normal case */ @@ -868,11 +868,11 @@ f"> */ tmp = sqrt(sine * sine + cosine * cosine); *s = sine / tmp; *c__ = cosine / tmp; - return 0; + return; } } - return 0; + return; /* End of SLAIC1 */ diff --git a/lapack-netlib/SRC/slaln2.c b/lapack-netlib/SRC/slaln2.c index a4e9db6fe..68465aced 100644 --- a/lapack-netlib/SRC/slaln2.c +++ b/lapack-netlib/SRC/slaln2.c @@ -726,7 +726,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real * +/* Subroutine */ void slaln2_(logical *ltrans, integer *na, integer *nw, real * smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b, integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale, real *xnorm, integer *info) @@ -753,7 +753,7 @@ f"> */ #define cr (equiv_1) extern real slamch_(char *); real bignum; - extern /* Subroutine */ int sladiv_(real *, real *, real *, real *, real * + extern /* Subroutine */ void sladiv_(real *, real *, real *, real *, real * , real *); real bi1, bi2, br1, br2, smlnum, xi1, xi2, xr1, xr2, ci21, ci22, cr21, cr22, li21, csi, ui11, lr21, ui12, ui22; @@ -920,7 +920,7 @@ f"> */ x[x_dim1 + 2] = temp * b[b_dim1 + 2]; *xnorm = temp * bnorm; *info = 1; - return 0; + return; } /* Gaussian elimination with complete pivoting. */ @@ -1023,7 +1023,7 @@ f"> */ x[(x_dim1 << 1) + 2] = temp * b[(b_dim1 << 1) + 2]; *xnorm = temp * bnorm; *info = 1; - return 0; + return; } /* Gaussian elimination with complete pivoting. */ @@ -1142,7 +1142,7 @@ f"> */ } } - return 0; + return; /* End of SLALN2 */ diff --git a/lapack-netlib/SRC/slals0.c b/lapack-netlib/SRC/slals0.c index 068681c28..0fa849983 100644 --- a/lapack-netlib/SRC/slals0.c +++ b/lapack-netlib/SRC/slals0.c @@ -784,7 +784,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr, +/* Subroutine */ void slals0_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * @@ -799,12 +799,12 @@ f"> */ /* Local variables */ real temp; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); extern real snrm2_(integer *, real *, integer *); integer i__, j, m, n; real diflj, difrj, dsigj; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_( integer *, real *, integer *, real *, integer *); @@ -812,7 +812,7 @@ f"> */ real dj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real dsigjp; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer nlp1; @@ -884,7 +884,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLALS0", &i__1, (ftnlen)6); - return 0; + return; } m = n + *sqre; @@ -1068,7 +1068,7 @@ f"> */ } } - return 0; + return; /* End of SLALS0 */ diff --git a/lapack-netlib/SRC/slalsa.c b/lapack-netlib/SRC/slalsa.c index 77a79b80c..2eba239f4 100644 --- a/lapack-netlib/SRC/slalsa.c +++ b/lapack-netlib/SRC/slalsa.c @@ -779,7 +779,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n, +/* Subroutine */ void slalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real * u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real * z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol, @@ -795,17 +795,18 @@ f"> */ /* Local variables */ integer nlvl, sqre, i__, j, inode, ndiml; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer ndimr, i1; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), slals0_(integer *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *, integer *, integer *, integer *, real *, integer *, real *, real * , real *, real *, integer *, real *, real *, real *, integer *); integer ic, lf, nd, ll, nl, nr; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slasdt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slasdt_( integer *, integer *, integer *, integer *, integer *, integer *, integer *); integer im1, nlf, nrf, lvl, ndb1, nlp1, lvl2, nrp1; @@ -886,7 +887,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLALSA", &i__1, (ftnlen)6); - return 0; + return; } /* Book-keeping and setting up the computation tree. */ @@ -1062,7 +1063,7 @@ L50: L90: - return 0; + return; /* End of SLALSA */ diff --git a/lapack-netlib/SRC/slalsd.c b/lapack-netlib/SRC/slalsd.c index da25bf51c..de6066e58 100644 --- a/lapack-netlib/SRC/slalsd.c +++ b/lapack-netlib/SRC/slalsd.c @@ -694,7 +694,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer +/* Subroutine */ void slalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond, integer *rank, real *work, integer *iwork, integer *info) { @@ -706,16 +706,16 @@ f"> */ integer difl, difr; real rcnd; integer perm, nsub, nlvl, sqre, bxst; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer c__, i__, j, k; real r__; integer s, u, z__; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer poles, sizei, nsize; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer nwork, icmpq1, icmpq2; real cs; @@ -723,12 +723,13 @@ f"> */ real sn; integer st; extern real slamch_(char *); - extern /* Subroutine */ int slasda_(integer *, integer *, integer *, + extern /* Subroutine */ void slasda_(integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, integer *, integer *); integer vt; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slalsa_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slalsa_( integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, integer * @@ -737,7 +738,7 @@ f"> */ , real *, integer *, integer *); integer givcol; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slasdq_(char *, integer *, integer *, integer + extern /* Subroutine */ void slasdq_(char *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real * , integer *, real *, integer *, real *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, @@ -747,7 +748,7 @@ f"> */ real orgnrm; integer givnum; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); + extern /* Subroutine */ void slasrt_(char *, integer *, real *, integer *); integer givptr, nm1, smlszp, st1; real eps; integer iwk; @@ -787,7 +788,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLALSD", &i__1, (ftnlen)6); - return 0; + return; } eps = slamch_("Epsilon"); @@ -805,7 +806,7 @@ f"> */ /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } else if (*n == 1) { if (d__[1] == 0.f) { slaset_("A", &c__1, nrhs, &c_b6, &c_b6, &b[b_offset], ldb); @@ -815,7 +816,7 @@ f"> */ b_offset], ldb, info); d__[1] = abs(d__[1]); } - return 0; + return; } /* Rotate the matrix if it is lower bidiagonal. */ @@ -858,7 +859,7 @@ f"> */ orgnrm = slanst_("M", n, &d__[1], &e[1]); if (orgnrm == 0.f) { slaset_("A", n, nrhs, &c_b6, &c_b6, &b[b_offset], ldb); - return 0; + return; } slascl_("G", &c__0, &c__0, &orgnrm, &c_b11, n, &c__1, &d__[1], n, info); @@ -874,7 +875,7 @@ f"> */ slasdq_("U", &c__0, n, n, &c__0, nrhs, &d__[1], &e[1], &work[1], n, & work[1], n, &b[b_offset], ldb, &work[nwork], info); if (*info != 0) { - return 0; + return; } tol = rcnd * (r__1 = d__[isamax_(n, &d__[1], &c__1)], abs(r__1)); i__1 = *n; @@ -900,7 +901,7 @@ f"> */ slascl_("G", &c__0, &c__0, &orgnrm, &c_b11, n, nrhs, &b[b_offset], ldb, info); - return 0; + return; } /* Book-keeping and setting up some constants. */ @@ -993,7 +994,7 @@ f"> */ st], &work[vt + st1], n, &work[nwork], n, &b[st + b_dim1], ldb, &work[nwork], info); if (*info != 0) { - return 0; + return; } slacpy_("A", &nsize, nrhs, &b[st + b_dim1], ldb, &work[bx + st1], n); @@ -1009,7 +1010,7 @@ f"> */ st1], &work[c__ + st1], &work[s + st1], &work[nwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } bxst = bx + st1; slalsa_(&icmpq2, smlsiz, &nsize, nrhs, &b[st + b_dim1], ldb, & @@ -1020,7 +1021,7 @@ f"> */ work[givnum + st1], &work[c__ + st1], &work[s + st1], &work[nwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } } st = i__ + 1; @@ -1072,7 +1073,7 @@ f"> */ &work[c__ + st1], &work[s + st1], &work[nwork], &iwork[ iwk], info); if (*info != 0) { - return 0; + return; } } /* L80: */ @@ -1085,7 +1086,7 @@ f"> */ slascl_("G", &c__0, &c__0, &orgnrm, &c_b11, n, nrhs, &b[b_offset], ldb, info); - return 0; + return; /* End of SLALSD */ diff --git a/lapack-netlib/SRC/slamrg.c b/lapack-netlib/SRC/slamrg.c index fd2d04ae9..75d51e4c4 100644 --- a/lapack-netlib/SRC/slamrg.c +++ b/lapack-netlib/SRC/slamrg.c @@ -609,7 +609,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer * +/* Subroutine */ void slamrg_(integer *n1, integer *n2, real *a, integer * strd1, integer *strd2, integer *index) { /* System generated locals */ @@ -682,7 +682,7 @@ L10: } } - return 0; + return; /* End of SLAMRG */ diff --git a/lapack-netlib/SRC/slamswlq.c b/lapack-netlib/SRC/slamswlq.c index d03ca872b..9a7591fcb 100644 --- a/lapack-netlib/SRC/slamswlq.c +++ b/lapack-netlib/SRC/slamswlq.c @@ -713,7 +713,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slamswlq_(char *side, char *trans, integer *m, integer * +/* Subroutine */ void slamswlq_(char *side, char *trans, integer *m, integer * n, integer *k, integer *mb, integer *nb, real *a, integer *lda, real * t, integer *ldt, real *c__, integer *ldc, real *work, integer *lwork, integer *info) @@ -731,7 +731,7 @@ static integer c__0 = 0; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; integer ctr; - extern /* Subroutine */ int sgemlqt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemlqt_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *), stpmlqt_(char *, char *, integer *, integer *, integer *, integer *, integer *, @@ -799,10 +799,10 @@ static integer c__0 = 0; i__1 = -(*info); xerbla_("SLAMSWLQ", &i__1, (ftnlen)8); work[1] = (real) lw; - return 0; + return; } else if (lquery) { work[1] = (real) lw; - return 0; + return; } /* Quick return if possible */ @@ -810,7 +810,7 @@ static integer c__0 = 0; /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -818,7 +818,7 @@ static integer c__0 = 0; if (*nb <= *k || *nb >= f2cmax(i__1,*k)) { sgemlqt_(side, trans, m, n, k, mb, &a[a_offset], lda, &t[t_offset], ldt, &c__[c_offset], ldc, &work[1], info); - return 0; + return; } if (left && tran) { @@ -961,7 +961,7 @@ static integer c__0 = 0; } work[1] = (real) lw; - return 0; + return; /* End of SLAMSWLQ */ diff --git a/lapack-netlib/SRC/slamtsqr.c b/lapack-netlib/SRC/slamtsqr.c index 319d00ff7..99b4acb93 100644 --- a/lapack-netlib/SRC/slamtsqr.c +++ b/lapack-netlib/SRC/slamtsqr.c @@ -706,7 +706,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slamtsqr_(char *side, char *trans, integer *m, integer * +/* Subroutine */ void slamtsqr_(char *side, char *trans, integer *m, integer * n, integer *k, integer *mb, integer *nb, real *a, integer *lda, real * t, integer *ldt, real *c__, integer *ldc, real *work, integer *lwork, integer *info) @@ -724,7 +724,7 @@ static integer c__0 = 0; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; integer ctr; - extern /* Subroutine */ int sgemqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemqrt_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *), stpmqrt_(char *, char *, integer *, integer *, integer *, integer *, integer *, @@ -797,9 +797,9 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("SLAMTSQR", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -807,7 +807,7 @@ static integer c__0 = 0; /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -815,7 +815,7 @@ static integer c__0 = 0; if (*mb <= *k || *mb >= f2cmax(i__1,*k)) { sgemqrt_(side, trans, m, n, k, nb, &a[a_offset], lda, &t[t_offset], ldt, &c__[c_offset], ldc, &work[1], info); - return 0; + return; } if (left && notran) { @@ -959,7 +959,7 @@ static integer c__0 = 0; } work[1] = (real) lw; - return 0; + return; /* End of SLAMTSQR */ diff --git a/lapack-netlib/SRC/slangb.c b/lapack-netlib/SRC/slangb.c index 25629c9d5..d2b1fb86f 100644 --- a/lapack-netlib/SRC/slangb.c +++ b/lapack-netlib/SRC/slangb.c @@ -646,13 +646,13 @@ real slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab, /* Local variables */ real temp; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, k, l; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slange.c b/lapack-netlib/SRC/slange.c index 077683ec6..5090e6fc6 100644 --- a/lapack-netlib/SRC/slange.c +++ b/lapack-netlib/SRC/slange.c @@ -637,13 +637,13 @@ real slange_(char *norm, integer *m, integer *n, real *a, integer *lda, real * /* Local variables */ real temp; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slangt.c b/lapack-netlib/SRC/slangt.c index 67bc4d221..27a3f0b08 100644 --- a/lapack-netlib/SRC/slangt.c +++ b/lapack-netlib/SRC/slangt.c @@ -633,7 +633,7 @@ real slangt_(char *norm, integer *n, real *dl, real *d__, real *du) extern logical lsame_(char *, char *); real anorm; extern logical sisnan_(real *); - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum; diff --git a/lapack-netlib/SRC/slanhs.c b/lapack-netlib/SRC/slanhs.c index 57296075b..75142b255 100644 --- a/lapack-netlib/SRC/slanhs.c +++ b/lapack-netlib/SRC/slanhs.c @@ -629,13 +629,13 @@ real slanhs_(char *norm, integer *n, real *a, integer *lda, real *work) real ret_val, r__1; /* Local variables */ - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slansb.c b/lapack-netlib/SRC/slansb.c index 6546b3651..1c2fbb508 100644 --- a/lapack-netlib/SRC/slansb.c +++ b/lapack-netlib/SRC/slansb.c @@ -651,13 +651,13 @@ real slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab, /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, l; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slansf.c b/lapack-netlib/SRC/slansf.c index 9176b704d..014aaefdb 100644 --- a/lapack-netlib/SRC/slansf.c +++ b/lapack-netlib/SRC/slansf.c @@ -738,7 +738,7 @@ real slansf_(char *norm, char *transr, char *uplo, integer *n, real *a, real * integer n1; real aa; extern logical sisnan_(real *); - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); integer lda, ifm, noe, ilu; diff --git a/lapack-netlib/SRC/slansp.c b/lapack-netlib/SRC/slansp.c index a7397ac0e..b75278114 100644 --- a/lapack-netlib/SRC/slansp.c +++ b/lapack-netlib/SRC/slansp.c @@ -636,13 +636,13 @@ real slansp_(char *norm, char *uplo, integer *n, real *ap, real *work) /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, k; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slanst.c b/lapack-netlib/SRC/slanst.c index d5126ce4d..8e7a24bd3 100644 --- a/lapack-netlib/SRC/slanst.c +++ b/lapack-netlib/SRC/slanst.c @@ -626,7 +626,7 @@ real slanst_(char *norm, integer *n, real *d__, real *e) extern logical lsame_(char *, char *); real anorm; extern logical sisnan_(real *); - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum; diff --git a/lapack-netlib/SRC/slansy.c b/lapack-netlib/SRC/slansy.c index 7f57d0fc9..d5cbbf21b 100644 --- a/lapack-netlib/SRC/slansy.c +++ b/lapack-netlib/SRC/slansy.c @@ -645,13 +645,13 @@ real slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda, real * /* Local variables */ real absa; - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slantb.c b/lapack-netlib/SRC/slantb.c index d4034a8ba..0b488ce05 100644 --- a/lapack-netlib/SRC/slantb.c +++ b/lapack-netlib/SRC/slantb.c @@ -661,14 +661,14 @@ real slantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, real real ret_val, r__1; /* Local variables */ - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, l; logical udiag; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slantp.c b/lapack-netlib/SRC/slantp.c index f1290db1a..6d6187eca 100644 --- a/lapack-netlib/SRC/slantp.c +++ b/lapack-netlib/SRC/slantp.c @@ -646,14 +646,14 @@ real slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap, real * real ret_val, r__1; /* Local variables */ - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j, k; logical udiag; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slantr.c b/lapack-netlib/SRC/slantr.c index 734c44763..4d74a5274 100644 --- a/lapack-netlib/SRC/slantr.c +++ b/lapack-netlib/SRC/slantr.c @@ -662,14 +662,14 @@ real slantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, real real ret_val, r__1; /* Local variables */ - extern /* Subroutine */ int scombssq_(real *, real *); + extern /* Subroutine */ void scombssq_(real *, real *); integer i__, j; logical udiag; extern logical lsame_(char *, char *); real value; extern logical sisnan_(real *); real colssq[2]; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real sum, ssq[2]; diff --git a/lapack-netlib/SRC/slanv2.c b/lapack-netlib/SRC/slanv2.c index 60578fa2c..b26f84fcb 100644 --- a/lapack-netlib/SRC/slanv2.c +++ b/lapack-netlib/SRC/slanv2.c @@ -643,7 +643,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real * +/* Subroutine */ void slanv2_(real *a, real *b, real *c__, real *d__, real * rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn) { /* System generated locals */ @@ -823,7 +823,7 @@ L10: *rt1i = sqrt((abs(*b))) * sqrt((abs(*c__))); *rt2i = -(*rt1i); } - return 0; + return; /* End of SLANV2 */ diff --git a/lapack-netlib/SRC/slaorhr_col_getrfnp.c b/lapack-netlib/SRC/slaorhr_col_getrfnp.c index 32f434a4f..13bb84654 100644 --- a/lapack-netlib/SRC/slaorhr_col_getrfnp.c +++ b/lapack-netlib/SRC/slaorhr_col_getrfnp.c @@ -662,17 +662,17 @@ _col_getrfnp.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int slaorhr_col_getrfnp_(integer *m, integer *n, real *a, +/* Subroutine */ void slaorhr_col_getrfnp_(integer *m, integer *n, real *a, integer *lda, real *d__, integer *info) { /* System generated locals */ integer a_dim1, a_offset, i__1, i__2, i__3, i__4; /* Local variables */ - extern /* Subroutine */ int slaorhr_col_getrfnp2_(integer *, integer *, + extern /* Subroutine */ void slaorhr_col_getrfnp2_(integer *, integer *, real *, integer *, real *, integer *); integer j, iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, @@ -712,13 +712,13 @@ _col_getrfnp.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAORHR_COL_GETRFNP", &i__1, (ftnlen)19); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -769,7 +769,7 @@ _col_getrfnp.f"> */ } } } - return 0; + return; /* End of SLAORHR_COL_GETRFNP */ diff --git a/lapack-netlib/SRC/slaorhr_col_getrfnp2.c b/lapack-netlib/SRC/slaorhr_col_getrfnp2.c index 8b8dd7392..5569c9d92 100644 --- a/lapack-netlib/SRC/slaorhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/slaorhr_col_getrfnp2.c @@ -682,7 +682,7 @@ _col_getrfnp2.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int slaorhr_col_getrfnp2_(integer *m, integer *n, real *a, +/* Subroutine */ void slaorhr_col_getrfnp2_(integer *m, integer *n, real *a, integer *lda, real *d__, integer *info) { /* System generated locals */ @@ -691,12 +691,12 @@ _col_getrfnp2.f"> */ /* Local variables */ integer i__, iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real sfmin; integer n1, n2; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); extern real slamch_(char *); @@ -732,13 +732,13 @@ _col_getrfnp2.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAORHR_COL_GETRFNP2", &i__1, (ftnlen)20); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } if (*m == 1) { @@ -822,7 +822,7 @@ _col_getrfnp2.f"> */ lda, &d__[n1 + 1], &iinfo); } - return 0; + return; /* End of SLAORHR_COL_GETRFNP2 */ diff --git a/lapack-netlib/SRC/slapll.c b/lapack-netlib/SRC/slapll.c index 8a3386f46..aa284a954 100644 --- a/lapack-netlib/SRC/slapll.c +++ b/lapack-netlib/SRC/slapll.c @@ -611,7 +611,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y, +/* Subroutine */ void slapll_(integer *n, real *x, integer *incx, real *y, integer *incy, real *ssmin) { /* System generated locals */ @@ -619,13 +619,13 @@ f"> */ /* Local variables */ extern real sdot_(integer *, real *, integer *, real *, integer *); - extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *) ; real c__, ssmax; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); real a11, a12, a22; - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *); real tau; @@ -648,7 +648,7 @@ f"> */ /* Function Body */ if (*n <= 1) { *ssmin = 0.f; - return 0; + return; } /* Compute the QR factorization of the N-by-2 matrix ( X Y ) */ @@ -670,7 +670,7 @@ f"> */ slas2_(&a11, &a12, &a22, ssmin, &ssmax); - return 0; + return; /* End of SLAPLL */ diff --git a/lapack-netlib/SRC/slapmr.c b/lapack-netlib/SRC/slapmr.c index a26bde8ff..da542a823 100644 --- a/lapack-netlib/SRC/slapmr.c +++ b/lapack-netlib/SRC/slapmr.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slapmr_(logical *forwrd, integer *m, integer *n, real *x, +/* Subroutine */ void slapmr_(logical *forwrd, integer *m, integer *n, real *x, integer *ldx, integer *k) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ /* Function Body */ if (*m <= 1) { - return 0; + return; } i__1 = *m; @@ -727,7 +727,7 @@ L80: } - return 0; + return; /* End of ZLAPMT */ diff --git a/lapack-netlib/SRC/slapmt.c b/lapack-netlib/SRC/slapmt.c index c1fe84d6d..cdbbd9dad 100644 --- a/lapack-netlib/SRC/slapmt.c +++ b/lapack-netlib/SRC/slapmt.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x, +/* Subroutine */ void slapmt_(logical *forwrd, integer *m, integer *n, real *x, integer *ldx, integer *k) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ /* Function Body */ if (*n <= 1) { - return 0; + return; } i__1 = *n; @@ -726,7 +726,7 @@ L100: } - return 0; + return; /* End of SLAPMT */ diff --git a/lapack-netlib/SRC/slaqgb.c b/lapack-netlib/SRC/slaqgb.c index e8ae4a8c2..f01adbe31 100644 --- a/lapack-netlib/SRC/slaqgb.c +++ b/lapack-netlib/SRC/slaqgb.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup realGBauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void slaqgb_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real * colcnd, real *amax, char *equed) { @@ -702,7 +702,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -781,7 +781,7 @@ f"> */ *(unsigned char *)equed = 'B'; } - return 0; + return; /* End of SLAQGB */ diff --git a/lapack-netlib/SRC/slaqge.c b/lapack-netlib/SRC/slaqge.c index ed6807ae1..4af7d4c8f 100644 --- a/lapack-netlib/SRC/slaqge.c +++ b/lapack-netlib/SRC/slaqge.c @@ -651,7 +651,7 @@ f"> */ /* > \ingroup realGEauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void slaqge_(integer *m, integer *n, real *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char * equed) { @@ -685,7 +685,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -749,7 +749,7 @@ f"> */ *(unsigned char *)equed = 'B'; } - return 0; + return; /* End of SLAQGE */ diff --git a/lapack-netlib/SRC/slaqp2.c b/lapack-netlib/SRC/slaqp2.c index c51a6863f..3547e505d 100644 --- a/lapack-netlib/SRC/slaqp2.c +++ b/lapack-netlib/SRC/slaqp2.c @@ -661,7 +661,7 @@ f"> */ /* > \endhtmlonly */ /* ===================================================================== */ -/* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a, +/* Subroutine */ void slaqp2_(integer *m, integer *n, integer *offset, real *a, integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real * work) { @@ -675,14 +675,14 @@ f"> */ integer i__, j; real tol3z; integer offpi; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer itemp; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer mn; extern real slamch_(char *); - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *); extern integer isamax_(integer *, real *, integer *); real aii; @@ -796,7 +796,7 @@ f"> */ /* L20: */ } - return 0; + return; /* End of SLAQP2 */ diff --git a/lapack-netlib/SRC/slaqps.c b/lapack-netlib/SRC/slaqps.c index 3fdc4929d..b9093db39 100644 --- a/lapack-netlib/SRC/slaqps.c +++ b/lapack-netlib/SRC/slaqps.c @@ -694,7 +694,7 @@ f"> */ /* > \endhtmlonly */ /* ===================================================================== */ -/* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer +/* Subroutine */ void slaqps_(integer *m, integer *n, integer *offset, integer *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *auxv, real *f, integer *ldf) { @@ -707,15 +707,15 @@ f"> */ extern real snrm2_(integer *, real *, integer *); integer j, k; real tol3z; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer itemp; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer *); integer rk; extern real slamch_(char *); - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *); integer lsticc; extern integer isamax_(integer *, real *, integer *); @@ -914,7 +914,7 @@ L40: goto L40; } - return 0; + return; /* End of SLAQPS */ diff --git a/lapack-netlib/SRC/slaqr0.c b/lapack-netlib/SRC/slaqr0.c index 98f000c77..419e6ae71 100644 --- a/lapack-netlib/SRC/slaqr0.c +++ b/lapack-netlib/SRC/slaqr0.c @@ -777,7 +777,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaqr0_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void slaqr0_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work, integer *lwork, integer *info) @@ -793,16 +793,16 @@ f"> */ real zdum[1] /* was [1][1] */; integer kacc22, i__, k, itmax, nsmax, nwmax, kwtop; real aa, bb; - extern /* Subroutine */ int slanv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slanv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *, real *); real cc; - extern /* Subroutine */ int slaqr3_(logical *, logical *, integer *, + extern /* Subroutine */ void slaqr3_(logical *, logical *, integer *, integer *, integer *, integer *, real *, integer *, integer *, integer *, real *, integer *, integer *, integer *, real *, real * , real *, integer *, integer *, real *, integer *, integer *, real *, integer *, real *, integer *); real dd; - extern /* Subroutine */ int slaqr4_(logical *, logical *, integer *, + extern /* Subroutine */ void slaqr4_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , integer *, real *, integer *, real *, integer *, integer *), slaqr5_(logical *, logical *, integer *, integer *, integer *, @@ -820,7 +820,7 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); char jbcmpz[2]; - extern /* Subroutine */ int slahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void slahqr_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , integer *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); @@ -869,7 +869,7 @@ f"> */ if (*n == 0) { work[1] = 1.f; - return 0; + return; } if (*n <= 15) { @@ -951,7 +951,7 @@ f"> */ if (*lwork == -1) { work[1] = (real) lwkopt; - return 0; + return; } /* ==== SLAHQR/SLAQR0 crossover point ==== */ @@ -1338,6 +1338,6 @@ L90: /* ==== End of SLAQR0 ==== */ - return 0; + return; } /* slaqr0_ */ diff --git a/lapack-netlib/SRC/slaqr1.c b/lapack-netlib/SRC/slaqr1.c index ee8a9ca0a..56f487c00 100644 --- a/lapack-netlib/SRC/slaqr1.c +++ b/lapack-netlib/SRC/slaqr1.c @@ -631,7 +631,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaqr1_(integer *n, real *h__, integer *ldh, real *sr1, +/* Subroutine */ void slaqr1_(integer *n, real *h__, integer *ldh, real *sr1, real *si1, real *sr2, real *si2, real *v) { /* System generated locals */ @@ -661,7 +661,7 @@ f"> */ /* Function Body */ if (*n != 2 && *n != 3) { - return 0; + return; } if (*n == 2) { @@ -697,6 +697,6 @@ f"> */ sr2) + h21s * h__[(h_dim1 << 1) + 3]; } } - return 0; + return; } /* slaqr1_ */ diff --git a/lapack-netlib/SRC/slaqr2.c b/lapack-netlib/SRC/slaqr2.c index 55731cbd7..93ab490d8 100644 --- a/lapack-netlib/SRC/slaqr2.c +++ b/lapack-netlib/SRC/slaqr2.c @@ -795,7 +795,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaqr2_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void slaqr2_(logical *wantt, logical *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns, integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh, @@ -812,33 +812,33 @@ f"> */ integer kend, kcol, info, ifst, ilst, ltop, krow, i__, j, k; real s; logical bulge; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *), sgemm_( char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer infqr; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer kwtop; real aa, bb, cc; - extern /* Subroutine */ int slanv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slanv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *, real *); real dd, cs; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); real sn; integer jw; extern real slamch_(char *); - extern /* Subroutine */ int sgehrd_(integer *, integer *, integer *, real + extern /* Subroutine */ void sgehrd_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); real safmin, safmax; - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *), slahqr_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer * , real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_( char *, integer *, integer *, real *, real *, real *, integer *); logical sorted; - extern /* Subroutine */ int strexc_(char *, integer *, real *, integer *, + extern /* Subroutine */ void strexc_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *), sormhr_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -911,7 +911,7 @@ f"> */ if (*lwork == -1) { work[1] = (real) lwkopt; - return 0; + return; } /* ==== Nothing to do ... */ @@ -920,11 +920,11 @@ f"> */ *nd = 0; work[1] = 1.f; if (*ktop > *kbot) { - return 0; + return; } /* ... nor for an empty deflation window. ==== */ if (*nw < 1) { - return 0; + return; } /* ==== Machine constants ==== */ @@ -966,7 +966,7 @@ f"> */ } } work[1] = 1.f; - return 0; + return; } /* ==== Convert to spike-triangular form. (In case of a */ @@ -1307,6 +1307,6 @@ L60: /* ==== End of SLAQR2 ==== */ - return 0; + return; } /* slaqr2_ */ diff --git a/lapack-netlib/SRC/slaqr3.c b/lapack-netlib/SRC/slaqr3.c index ca495c9c6..80fb05bcc 100644 --- a/lapack-netlib/SRC/slaqr3.c +++ b/lapack-netlib/SRC/slaqr3.c @@ -793,7 +793,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaqr3_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void slaqr3_(logical *wantt, logical *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns, integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh, @@ -810,39 +810,39 @@ f"> */ integer kend, kcol, info, nmin, ifst, ilst, ltop, krow, i__, j, k; real s; logical bulge; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *), sgemm_( char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer infqr; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer kwtop; real aa, bb, cc; - extern /* Subroutine */ int slanv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slanv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *, real *); real dd; - extern /* Subroutine */ int slaqr4_(logical *, logical *, integer *, + extern /* Subroutine */ void slaqr4_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , integer *, real *, integer *, real *, integer *, integer *); real cs; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); real sn; integer jw; extern real slamch_(char *); - extern /* Subroutine */ int sgehrd_(integer *, integer *, integer *, real + extern /* Subroutine */ void sgehrd_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); real safmin, safmax; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *), slahqr_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer * , real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_( char *, integer *, integer *, real *, real *, real *, integer *); logical sorted; - extern /* Subroutine */ int strexc_(char *, integer *, real *, integer *, + extern /* Subroutine */ void strexc_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *), sormhr_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -924,7 +924,7 @@ f"> */ if (*lwork == -1) { work[1] = (real) lwkopt; - return 0; + return; } /* ==== Nothing to do ... */ @@ -933,11 +933,11 @@ f"> */ *nd = 0; work[1] = 1.f; if (*ktop > *kbot) { - return 0; + return; } /* ... nor for an empty deflation window. ==== */ if (*nw < 1) { - return 0; + return; } /* ==== Machine constants ==== */ @@ -979,7 +979,7 @@ f"> */ } } work[1] = 1.f; - return 0; + return; } /* ==== Convert to spike-triangular form. (In case of a */ @@ -1328,6 +1328,6 @@ L60: /* ==== End of SLAQR3 ==== */ - return 0; + return; } /* slaqr3_ */ diff --git a/lapack-netlib/SRC/slaqr4.c b/lapack-netlib/SRC/slaqr4.c index 3a0843185..8b54e58de 100644 --- a/lapack-netlib/SRC/slaqr4.c +++ b/lapack-netlib/SRC/slaqr4.c @@ -786,7 +786,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaqr4_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void slaqr4_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work, integer *lwork, integer *info) @@ -802,10 +802,10 @@ f"> */ real zdum[1] /* was [1][1] */; integer kacc22, i__, k, itmax, nsmax, nwmax, kwtop; real aa, bb; - extern /* Subroutine */ int slanv2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slanv2_(real *, real *, real *, real *, real * , real *, real *, real *, real *, real *); real cc, dd; - extern /* Subroutine */ int slaqr2_(logical *, logical *, integer *, + extern /* Subroutine */ void slaqr2_(logical *, logical *, integer *, integer *, integer *, integer *, real *, integer *, integer *, integer *, real *, integer *, integer *, integer *, real *, real * , real *, integer *, integer *, real *, integer *, integer *, @@ -824,7 +824,7 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); char jbcmpz[2]; - extern /* Subroutine */ int slahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void slahqr_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , integer *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); @@ -874,7 +874,7 @@ f"> */ if (*n == 0) { work[1] = 1.f; - return 0; + return; } if (*n <= 15) { @@ -956,7 +956,7 @@ f"> */ if (*lwork == -1) { work[1] = (real) lwkopt; - return 0; + return; } /* ==== SLAHQR/SLAQR0 crossover point ==== */ @@ -1336,6 +1336,6 @@ L90: /* ==== End of SLAQR4 ==== */ - return 0; + return; } /* slaqr4_ */ diff --git a/lapack-netlib/SRC/slaqr5.c b/lapack-netlib/SRC/slaqr5.c index bba9f571c..ceaf406ca 100644 --- a/lapack-netlib/SRC/slaqr5.c +++ b/lapack-netlib/SRC/slaqr5.c @@ -780,7 +780,7 @@ f"> */ /* > ACM Trans. Math. Softw. 40, 2, Article 12 (February 2014). */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaqr5_(logical *wantt, logical *wantz, integer *kacc22, +/* Subroutine */ void slaqr5_(logical *wantt, logical *wantz, integer *kacc22, integer *n, integer *ktop, integer *kbot, integer *nshfts, real *sr, real *si, real *h__, integer *ldh, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *v, integer *ldv, real *u, integer *ldu, @@ -802,19 +802,19 @@ f"> */ real alpha; logical accum; integer ndcol, incol; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer krcol, nbmps, i2, k1, i4; - extern /* Subroutine */ int slaqr1_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slaqr1_(integer *, real *, integer *, real *, real *, real *, real *, real *); real h11, h12, h21, h22; integer m22; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer ns, nu; extern real slamch_(char *); real vt[3], safmin, safmax; - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); @@ -858,14 +858,14 @@ f"> */ /* Function Body */ if (*nshfts < 2) { - return 0; + return; } /* ==== If the active block is empty or 1-by-1, then there */ /* . is nothing to do. ==== */ if (*ktop >= *kbot) { - return 0; + return; } /* ==== Shuffle shifts into pairs of real shifts and pairs */ @@ -1526,6 +1526,6 @@ L880: /* ==== End of SLAQR5 ==== */ - return 0; + return; } /* slaqr5_ */ diff --git a/lapack-netlib/SRC/slaqsb.c b/lapack-netlib/SRC/slaqsb.c index 3943f0894..d6aa050dd 100644 --- a/lapack-netlib/SRC/slaqsb.c +++ b/lapack-netlib/SRC/slaqsb.c @@ -649,7 +649,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab, +/* Subroutine */ void slaqsb_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *s, real *scond, real *amax, char *equed) { /* System generated locals */ @@ -683,7 +683,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -738,7 +738,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of SLAQSB */ diff --git a/lapack-netlib/SRC/slaqsp.c b/lapack-netlib/SRC/slaqsp.c index db1b81599..b49337226 100644 --- a/lapack-netlib/SRC/slaqsp.c +++ b/lapack-netlib/SRC/slaqsp.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real * +/* Subroutine */ void slaqsp_(char *uplo, integer *n, real *ap, real *s, real * scond, real *amax, char *equed) { /* System generated locals */ @@ -669,7 +669,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -722,7 +722,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of SLAQSP */ diff --git a/lapack-netlib/SRC/slaqsy.c b/lapack-netlib/SRC/slaqsy.c index 5028c317b..e81c12778 100644 --- a/lapack-netlib/SRC/slaqsy.c +++ b/lapack-netlib/SRC/slaqsy.c @@ -642,7 +642,7 @@ f"> */ /* > \ingroup realSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void slaqsy_(char *uplo, integer *n, real *a, integer *lda, real *s, real *scond, real *amax, char *equed) { /* System generated locals */ @@ -676,7 +676,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -725,7 +725,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of SLAQSY */ diff --git a/lapack-netlib/SRC/slaqtr.c b/lapack-netlib/SRC/slaqtr.c index 4030ba4a5..86c83abfd 100644 --- a/lapack-netlib/SRC/slaqtr.c +++ b/lapack-netlib/SRC/slaqtr.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real +/* Subroutine */ void slaqtr_(logical *ltran, logical *lreal, integer *n, real *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work, integer *info) { @@ -698,14 +698,14 @@ f"> */ real xmax, d__[4] /* was [2][2] */; integer i__, j, k; real v[4] /* was [2][2] */, z__; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer jnext; extern real sasum_(integer *, real *, integer *); integer j1, j2; real sminw; integer n1, n2; real xnorm; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), slaln2_(logical *, integer *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, integer *); @@ -714,7 +714,7 @@ f"> */ real *, integer *, real *); real bignum; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int sladiv_(real *, real *, real *, real *, real * + extern /* Subroutine */ void sladiv_(real *, real *, real *, real *, real * , real *); logical notran; real smlnum, rec, eps, tjj, tmp; @@ -746,7 +746,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -1385,7 +1385,7 @@ L80: } - return 0; + return; /* End of SLAQTR */ diff --git a/lapack-netlib/SRC/slar1v.c b/lapack-netlib/SRC/slar1v.c index e88999ee7..32073a50f 100644 --- a/lapack-netlib/SRC/slar1v.c +++ b/lapack-netlib/SRC/slar1v.c @@ -738,7 +738,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real * +/* Subroutine */ void slar1v_(integer *n, integer *b1, integer *bn, real * lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real * gaptol, real *z__, logical *wantnc, integer *negcnt, real *ztz, real * mingma, integer *r__, integer *isuppz, real *nrminv, real *resid, @@ -1030,7 +1030,7 @@ L280: *rqcorr = *mingma * tmp; - return 0; + return; /* End of SLAR1V */ diff --git a/lapack-netlib/SRC/slar2v.c b/lapack-netlib/SRC/slar2v.c index 6fea0cfeb..a44249474 100644 --- a/lapack-netlib/SRC/slar2v.c +++ b/lapack-netlib/SRC/slar2v.c @@ -620,7 +620,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer +/* Subroutine */ void slar2v_(integer *n, real *x, real *y, real *z__, integer *incx, real *c__, real *s, integer *incc) { /* System generated locals */ @@ -677,6 +677,6 @@ f"> */ /* End of SLAR2V */ - return 0; + return; } /* slar2v_ */ diff --git a/lapack-netlib/SRC/slarf.c b/lapack-netlib/SRC/slarf.c index 3eaab3c52..344c7b18f 100644 --- a/lapack-netlib/SRC/slarf.c +++ b/lapack-netlib/SRC/slarf.c @@ -639,7 +639,7 @@ static integer c__1 = 1; /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v, +/* Subroutine */ void slarf_(char *side, integer *m, integer *n, real *v, integer *incv, real *tau, real *c__, integer *ldc, real *work) { /* System generated locals */ @@ -647,12 +647,12 @@ static integer c__1 = 1; real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); integer i__; extern logical lsame_(char *, char *); integer lastc; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lastv; logical applyleft; @@ -743,7 +743,7 @@ static integer c__1 = 1; c_offset], ldc); } } - return 0; + return; /* End of SLARF */ diff --git a/lapack-netlib/SRC/slarfb.c b/lapack-netlib/SRC/slarfb.c index dd528878b..c6af56139 100644 --- a/lapack-netlib/SRC/slarfb.c +++ b/lapack-netlib/SRC/slarfb.c @@ -711,7 +711,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void slarfb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, real *v, integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *work, integer * ldwork) @@ -723,7 +723,7 @@ f"> */ /* Local variables */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), strmm_(char *, char *, char *, @@ -759,7 +759,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } if (lsame_(trans, "N")) { @@ -1329,7 +1329,7 @@ f"> */ } } - return 0; + return; /* End of SLARFB */ diff --git a/lapack-netlib/SRC/slarfb_gett.c b/lapack-netlib/SRC/slarfb_gett.c index 2a245a32a..f42da13ca 100644 --- a/lapack-netlib/SRC/slarfb_gett.c +++ b/lapack-netlib/SRC/slarfb_gett.c @@ -904,7 +904,7 @@ gett.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slarfb_gett_(char *ident, integer *m, integer *n, +/* Subroutine */ void slarfb_gett_(char *ident, integer *m, integer *n, integer *k, real *t, integer *ldt, real *a, integer *lda, real *b, integer *ldb, real *work, integer *ldwork) { @@ -915,7 +915,7 @@ gett.f"> */ /* Local variables */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), strmm_(char *, char *, char *, @@ -950,7 +950,7 @@ gett.f"> */ /* Function Body */ if (*m < 0 || *n <= 0 || *k == 0 || *k > *n) { - return 0; + return; } lnotident = ! lsame_(ident, "I"); @@ -1131,7 +1131,7 @@ gett.f"> */ } } - return 0; + return; /* End of SLARFB_GETT */ diff --git a/lapack-netlib/SRC/slarfg.c b/lapack-netlib/SRC/slarfg.c index e7784fe8a..ed3c80fa0 100644 --- a/lapack-netlib/SRC/slarfg.c +++ b/lapack-netlib/SRC/slarfg.c @@ -615,7 +615,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx, +/* Subroutine */ void slarfg_(integer *n, real *alpha, real *x, integer *incx, real *tau) { /* System generated locals */ @@ -626,7 +626,7 @@ f"> */ real beta; extern real snrm2_(integer *, real *, integer *); integer j; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real xnorm; extern real slapy2_(real *, real *), slamch_(char *); real safmin, rsafmn; @@ -648,7 +648,7 @@ f"> */ /* Function Body */ if (*n <= 1) { *tau = 0.f; - return 0; + return; } i__1 = *n - 1; @@ -704,7 +704,7 @@ L10: *alpha = beta; } - return 0; + return; /* End of SLARFG */ diff --git a/lapack-netlib/SRC/slarfgp.c b/lapack-netlib/SRC/slarfgp.c index 08ea906cc..7baef7999 100644 --- a/lapack-netlib/SRC/slarfgp.c +++ b/lapack-netlib/SRC/slarfgp.c @@ -613,7 +613,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slarfgp_(integer *n, real *alpha, real *x, integer *incx, +/* Subroutine */ void slarfgp_(integer *n, real *alpha, real *x, integer *incx, real *tau) { /* System generated locals */ @@ -624,7 +624,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ real beta; extern real snrm2_(integer *, real *, integer *); integer j; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real savealpha, xnorm; extern real slapy2_(real *, real *), slamch_(char *); real bignum, smlnum; @@ -646,7 +646,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Function Body */ if (*n <= 0) { *tau = 0.f; - return 0; + return; } i__1 = *n - 1; @@ -752,7 +752,7 @@ L10: *alpha = beta; } - return 0; + return; /* End of SLARFGP */ diff --git a/lapack-netlib/SRC/slarft.c b/lapack-netlib/SRC/slarft.c index 498594340..c498d809f 100644 --- a/lapack-netlib/SRC/slarft.c +++ b/lapack-netlib/SRC/slarft.c @@ -677,7 +677,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer * +/* Subroutine */ void slarft_(char *direct, char *storev, integer *n, integer * k, real *v, integer *ldv, real *tau, real *t, integer *ldt) { /* System generated locals */ @@ -687,13 +687,13 @@ f"> */ /* Local variables */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lastv; - extern /* Subroutine */ int strmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void strmv_(char *, char *, char *, integer *, real *, integer *, real *, integer *); integer prevlastv; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -718,7 +718,7 @@ f"> */ /* Function Body */ if (*n == 0) { - return 0; + return; } if (lsame_(direct, "F")) { @@ -879,7 +879,7 @@ f"> */ } } } - return 0; + return; /* End of SLARFT */ diff --git a/lapack-netlib/SRC/slarfx.c b/lapack-netlib/SRC/slarfx.c index 785f3951a..681c939a3 100644 --- a/lapack-netlib/SRC/slarfx.c +++ b/lapack-netlib/SRC/slarfx.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v, +/* Subroutine */ void slarfx_(char *side, integer *m, integer *n, real *v, real *tau, real *c__, integer *ldc, real *work) { /* System generated locals */ @@ -643,7 +643,7 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); real t1, t2, t3, t4, t5, t6, t7, t8, t9, v1, v2, v3, v4, v5, v6, v7, v8, v9, t10, v10, sum; @@ -667,7 +667,7 @@ f"> */ /* Function Body */ if (*tau == 0.f) { - return 0; + return; } if (lsame_(side, "L")) { @@ -1279,7 +1279,7 @@ L390: goto L410; } L410: - return 0; + return; /* End of SLARFX */ diff --git a/lapack-netlib/SRC/slarfy.c b/lapack-netlib/SRC/slarfy.c index cc5da7a24..c1eb37349 100644 --- a/lapack-netlib/SRC/slarfy.c +++ b/lapack-netlib/SRC/slarfy.c @@ -620,7 +620,7 @@ static integer c__1 = 1; /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slarfy_(char *uplo, integer *n, real *v, integer *incv, +/* Subroutine */ void slarfy_(char *uplo, integer *n, real *v, integer *incv, real *tau, real *c__, integer *ldc, real *work) { /* System generated locals */ @@ -629,10 +629,10 @@ static integer c__1 = 1; /* Local variables */ extern real sdot_(integer *, real *, integer *, real *, integer *); - extern /* Subroutine */ int ssyr2_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssyr2_(char *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); real alpha; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), ssymv_(char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); @@ -655,7 +655,7 @@ static integer c__1 = 1; /* Function Body */ if (*tau == 0.f) { - return 0; + return; } /* Form w:= C * v */ @@ -671,7 +671,7 @@ static integer c__1 = 1; r__1 = -(*tau); ssyr2_(uplo, n, &r__1, &v[1], incv, &work[1], &c__1, &c__[c_offset], ldc); - return 0; + return; /* End of SLARFY */ diff --git a/lapack-netlib/SRC/slargv.c b/lapack-netlib/SRC/slargv.c index 07a203af2..9c24fb24a 100644 --- a/lapack-netlib/SRC/slargv.c +++ b/lapack-netlib/SRC/slargv.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y, +/* Subroutine */ void slargv_(integer *n, real *x, integer *incx, real *y, integer *incy, real *c__, integer *incc) { /* System generated locals */ @@ -673,7 +673,7 @@ f"> */ ix += *incx; /* L10: */ } - return 0; + return; /* End of SLARGV */ diff --git a/lapack-netlib/SRC/slarnv.c b/lapack-netlib/SRC/slarnv.c index cb29a357a..38e6d01dc 100644 --- a/lapack-netlib/SRC/slarnv.c +++ b/lapack-netlib/SRC/slarnv.c @@ -606,7 +606,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real +/* Subroutine */ void slarnv_(integer *idist, integer *iseed, integer *n, real *x) { /* System generated locals */ @@ -616,7 +616,7 @@ f"> */ integer i__; real u[128]; integer il, iv, il2; - extern /* Subroutine */ int slaruv_(integer *, integer *, real *); + extern /* Subroutine */ void slaruv_(integer *, integer *, real *); /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -680,7 +680,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of SLARNV */ diff --git a/lapack-netlib/SRC/slarra.c b/lapack-netlib/SRC/slarra.c index f1e4fb051..22699f073 100644 --- a/lapack-netlib/SRC/slarra.c +++ b/lapack-netlib/SRC/slarra.c @@ -644,7 +644,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slarra_(integer *n, real *d__, real *e, real *e2, real * +/* Subroutine */ void slarra_(integer *n, real *d__, real *e, real *e2, real * spltol, real *tnrm, integer *nsplit, integer *isplit, integer *info) { /* System generated locals */ @@ -678,7 +678,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Compute splitting points */ @@ -713,7 +713,7 @@ f"> */ } } isplit[*nsplit] = *n; - return 0; + return; /* End of SLARRA */ diff --git a/lapack-netlib/SRC/slarrb.c b/lapack-netlib/SRC/slarrb.c index b8139fda6..b9f080a20 100644 --- a/lapack-netlib/SRC/slarrb.c +++ b/lapack-netlib/SRC/slarrb.c @@ -703,7 +703,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slarrb_(integer *n, real *d__, real *lld, integer * +/* Subroutine */ void slarrb_(integer *n, real *d__, real *lld, integer * ifirst, integer *ilast, real *rtol1, real *rtol2, integer *offset, real *w, real *wgap, real *werr, real *work, integer *iwork, real * pivmin, real *spdiam, integer *twist, integer *info) @@ -750,7 +750,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } maxitr = (integer) ((log(*spdiam + *pivmin) - log(*pivmin)) / log(2.f)) + @@ -932,7 +932,7 @@ L100: wgap[ii - 1] = f2cmax(r__1,r__2); /* L111: */ } - return 0; + return; /* End of SLARRB */ diff --git a/lapack-netlib/SRC/slarrc.c b/lapack-netlib/SRC/slarrc.c index f774dc431..a3bd9fbe1 100644 --- a/lapack-netlib/SRC/slarrc.c +++ b/lapack-netlib/SRC/slarrc.c @@ -645,7 +645,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slarrc_(char *jobt, integer *n, real *vl, real *vu, real +/* Subroutine */ void slarrc_(char *jobt, integer *n, real *vl, real *vu, real *d__, real *e, real *pivmin, integer *eigcnt, integer *lcnt, integer * rcnt, integer *info) { @@ -679,7 +679,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } *lcnt = 0; @@ -752,7 +752,7 @@ f"> */ } } *eigcnt = *rcnt - *lcnt; - return 0; + return; /* end of SLARRC */ diff --git a/lapack-netlib/SRC/slarrd.c b/lapack-netlib/SRC/slarrd.c index 672091d4d..c5e703439 100644 --- a/lapack-netlib/SRC/slarrd.c +++ b/lapack-netlib/SRC/slarrd.c @@ -844,7 +844,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slarrd_(char *range, char *order, integer *n, real *vl, +/* Subroutine */ void slarrd_(char *range, char *order, integer *n, real *vl, real *vu, integer *il, integer *iu, real *gers, real *reltol, real * d__, real *e, real *e2, real *pivmin, integer *nsplit, integer * isplit, integer *m, real *w, real *werr, real *wl, real *wu, integer * @@ -871,7 +871,7 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer idiscu; - extern /* Subroutine */ int slaebz_(integer *, integer *, integer *, + extern /* Subroutine */ void slaebz_(integer *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); @@ -912,7 +912,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Decode RANGE */ @@ -947,7 +947,7 @@ f"> */ } if (*info != 0) { - return 0; + return; } /* Initialize error flags */ *info = 0; @@ -956,7 +956,7 @@ f"> */ /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Simplification: */ if (irange == 3 && *il == 1 && *iu == *n) { @@ -977,7 +977,7 @@ f"> */ iblock[1] = 1; indexw[1] = 1; } - return 0; + return; } /* NB is the minimum vector length for vector bisection, or 0 */ /* if only scalar is to be done. */ @@ -1042,7 +1042,7 @@ f"> */ , &iout, &iwork[1], &w[1], &iblock[1], &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } /* On exit, output intervals may not be ordered by ascending negcount */ if (iwork[6] == *iu) { @@ -1064,7 +1064,7 @@ f"> */ /* and [WUL, WU] contains a value with negcount NWU. */ if (nwl < 0 || nwl >= *n || nwu < 1 || nwu > *n) { *info = 4; - return 0; + return; } } else if (irange == 2) { *wl = *vl; @@ -1202,7 +1202,7 @@ f"> */ w[*m + 1], &iblock[*m + 1], &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } nwl += iwork[1]; @@ -1217,7 +1217,7 @@ f"> */ &w[*m + 1], &iblock[*m + 1], &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } /* Copy eigenvalues into W and IBLOCK */ @@ -1410,7 +1410,7 @@ L70: if (toofew) { *info += 2; } - return 0; + return; /* End of SLARRD */ diff --git a/lapack-netlib/SRC/slarre.c b/lapack-netlib/SRC/slarre.c index 57a91249d..ae44ff4d2 100644 --- a/lapack-netlib/SRC/slarre.c +++ b/lapack-netlib/SRC/slarre.c @@ -817,7 +817,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slarre_(char *range, integer *n, real *vl, real *vu, +/* Subroutine */ void slarre_(char *range, integer *n, real *vl, real *vu, integer *il, integer *iu, real *d__, real *e, real *e2, real *rtol1, real *rtol2, real *spltol, integer *nsplit, integer *isplit, integer * m, real *w, real *werr, real *wgap, integer *iblock, integer *indexw, @@ -840,10 +840,10 @@ f"> */ extern logical lsame_(char *, char *); integer iinfo; logical norep; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real s1, s2; - extern /* Subroutine */ int slasq2_(integer *, real *, integer *); + extern /* Subroutine */ void slasq2_(integer *, real *, integer *); integer mb; real gl; integer in, mm; @@ -855,11 +855,11 @@ f"> */ extern real slamch_(char *); integer wbegin; real safmin, spdiam; - extern /* Subroutine */ int slarra_(integer *, real *, real *, real *, + extern /* Subroutine */ void slarra_(integer *, real *, real *, real *, real *, real *, integer *, integer *, integer *); logical usedqd; real clwdth, isleft; - extern /* Subroutine */ int slarrb_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarrb_(integer *, real *, real *, integer *, integer *, real *, real *, integer *, real *, real *, real *, real *, integer *, real *, real *, integer *, integer *), slarrc_( char *, integer *, real *, real *, real *, real *, real *, @@ -871,7 +871,7 @@ f"> */ integer *, real *, real *, real *, real *, real *, real *, real *, real *, integer *); real isrght, bsrtol, dpivot; - extern /* Subroutine */ int slarnv_(integer *, integer *, integer *, real + extern /* Subroutine */ void slarnv_(integer *, integer *, integer *, real *); integer cnt; real eps, tau, tmp, rtl; @@ -908,7 +908,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Decode RANGE */ @@ -947,7 +947,7 @@ f"> */ } /* store the shift for the initial RRR, which is zero in this case */ e[1] = 0.f; - return 0; + return; } /* General case: tridiagonal matrix of order > 1 */ @@ -1012,7 +1012,7 @@ f"> */ vl, vu, &iblock[1], &indexw[1], &work[1], &iwork[1], &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* Make sure that the entries M+1 to N in W, WERR, IBLOCK, INDEXW are 0 */ i__1 = *n; @@ -1121,7 +1121,7 @@ L21: rtl, &tmp, &tmp1, &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* Computing MAX */ r__2 = gl, r__3 = tmp - tmp1 - eps * 100.f * (r__1 = tmp - tmp1, @@ -1131,7 +1131,7 @@ L21: rtl, &tmp, &tmp1, &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* Computing MIN */ r__2 = gu, r__3 = tmp + tmp1 + eps * 100.f * (r__1 = tmp + tmp1, @@ -1318,7 +1318,7 @@ L21: /* if the program reaches this point, no base representation could be */ /* found in MAXTRY iterations. */ *info = 2; - return 0; + return; L83: /* At this point, we have found an initial base representation */ /* T - SIGMA I = L D L^T with not too much element growth. */ @@ -1384,7 +1384,7 @@ L83: iinfo); if (iinfo != 0) { *info = -4; - return 0; + return; } /* SLARRB computes all gaps correctly except for the last one */ /* Record distance to VU/GU */ @@ -1427,14 +1427,14 @@ L83: /* and should be changed. The index is in IWORK(1) and the */ /* gap is in WORK(N+1) */ *info = -5; - return 0; + return; } else { /* Test that all eigenvalues are positive as expected */ i__2 = in; for (i__ = 1; i__ <= i__2; ++i__) { if (work[i__] < 0.f) { *info = -6; - return 0; + return; } /* L149: */ } @@ -1484,7 +1484,7 @@ L170: ; } - return 0; + return; /* end of SLARRE */ diff --git a/lapack-netlib/SRC/slarrf.c b/lapack-netlib/SRC/slarrf.c index 12411b920..a169b50e6 100644 --- a/lapack-netlib/SRC/slarrf.c +++ b/lapack-netlib/SRC/slarrf.c @@ -704,7 +704,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld, +/* Subroutine */ void slarrf_(integer *n, real *d__, real *l, real *ld, integer *clstrt, integer *clend, real *w, real *wgap, real *werr, real *spdiam, real *clgapl, real *clgapr, real *pivmin, real *sigma, real *dplus, real *lplus, real *work, integer *info) @@ -722,7 +722,7 @@ f"> */ integer i__; real s, avgap, ldmax, rdmax; integer shift; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real bestshift, smlgrowth; logical dorrr1; @@ -765,7 +765,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } fact = 2.f; @@ -1010,7 +1010,7 @@ L50: goto L5; } else { *info = 1; - return 0; + return; } } L100: @@ -1021,7 +1021,7 @@ L100: i__1 = *n - 1; scopy_(&i__1, &work[*n + 1], &c__1, &lplus[1], &c__1); } - return 0; + return; /* End of SLARRF */ diff --git a/lapack-netlib/SRC/slarrj.c b/lapack-netlib/SRC/slarrj.c index ad2896a10..18bfc4b4a 100644 --- a/lapack-netlib/SRC/slarrj.c +++ b/lapack-netlib/SRC/slarrj.c @@ -675,7 +675,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slarrj_(integer *n, real *d__, real *e2, integer *ifirst, +/* Subroutine */ void slarrj_(integer *n, real *d__, real *e2, integer *ifirst, integer *ilast, real *rtol, integer *offset, real *w, real *werr, real *work, integer *iwork, real *pivmin, real *spdiam, integer *info) { @@ -717,7 +717,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } maxitr = (integer) ((log(*spdiam + *pivmin) - log(*pivmin)) / log(2.f)) + @@ -909,7 +909,7 @@ L100: /* L110: */ } - return 0; + return; /* End of SLARRJ */ diff --git a/lapack-netlib/SRC/slarrk.c b/lapack-netlib/SRC/slarrk.c index 67794ca2f..1dbbcb405 100644 --- a/lapack-netlib/SRC/slarrk.c +++ b/lapack-netlib/SRC/slarrk.c @@ -654,7 +654,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slarrk_(integer *n, integer *iw, real *gl, real *gu, +/* Subroutine */ void slarrk_(integer *n, integer *iw, real *gl, real *gu, real *d__, real *e2, real *pivmin, real *reltol, real *w, real *werr, integer *info) { @@ -692,7 +692,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *info = 0; - return 0; + return; } /* Get machine constants */ @@ -761,7 +761,7 @@ L30: *w = (left + right) * .5f; *werr = (r__1 = right - left, abs(r__1)) * .5f; - return 0; + return; /* End of SLARRK */ diff --git a/lapack-netlib/SRC/slarrr.c b/lapack-netlib/SRC/slarrr.c index 1bd03571c..e77ee1d8b 100644 --- a/lapack-netlib/SRC/slarrr.c +++ b/lapack-netlib/SRC/slarrr.c @@ -604,7 +604,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slarrr_(integer *n, real *d__, real *e, integer *info) +/* Subroutine */ void slarrr_(integer *n, real *d__, real *e, integer *info) { /* System generated locals */ integer i__1; @@ -639,7 +639,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *info = 0; - return 0; + return; } /* As a default, do NOT go for relative-accuracy preserving computations. */ @@ -697,7 +697,7 @@ f"> */ L11: if (yesrel) { *info = 0; - return 0; + return; } else { } @@ -716,7 +716,7 @@ L11: /* to the computed eigenvectors (and the support) */ - return 0; + return; /* END OF SLARRR */ diff --git a/lapack-netlib/SRC/slarrv.c b/lapack-netlib/SRC/slarrv.c index 9f4cecb1f..e922e882b 100644 --- a/lapack-netlib/SRC/slarrv.c +++ b/lapack-netlib/SRC/slarrv.c @@ -804,7 +804,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int slarrv_(integer *n, real *vl, real *vu, real *d__, real * +/* Subroutine */ void slarrv_(integer *n, real *vl, real *vu, real *d__, real * l, real *pivmin, integer *isplit, integer *m, integer *dol, integer * dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr, real *wgap, integer *iblock, integer *indexw, real *gers, real *z__, @@ -829,15 +829,15 @@ f"> */ real sigma; integer iinfo, iindr; real resid; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical eskip; real right; integer nclus, zfrom; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real rqtol; integer iindc1, iindc2, miniwsize; - extern /* Subroutine */ int slar1v_(integer *, integer *, integer *, real + extern /* Subroutine */ void slar1v_(integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, real *, real *, logical *, integer *, real *, real *, integer *, integer *, real * , real *, real *, real *); @@ -861,7 +861,7 @@ f"> */ logical usedbs; integer iindwk, offset; real gaptol; - extern /* Subroutine */ int slarrb_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarrb_(integer *, real *, real *, integer *, integer *, real *, real *, integer *, real *, real *, real *, real *, integer *, real *, real *, integer *, integer *), slarrf_( integer *, real *, real *, real *, integer *, integer *, real *, @@ -875,7 +875,7 @@ f"> */ logical tryrqc; integer isupmx; real rqcorr; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real gap, eps, tau, tol, tmp; integer zto; @@ -913,7 +913,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0 || *m <= 0) { - return 0; + return; } /* The first N entries of WORK are reserved for the eigenvalues */ @@ -1063,7 +1063,7 @@ L40: /* This is a crude protection against infinitely deep trees */ if (ndepth > *m) { *info = -2; - return 0; + return; } /* breadth first processing of the current level of the representation */ /* tree: OLDNCL = number of clusters on current level */ @@ -1143,7 +1143,7 @@ L40: iindwk], pivmin, &spdiam, &in, &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* We also recompute the extremal gaps. W holds all eigenvalues */ /* of the unshifted matrix and must be used for computation */ @@ -1310,7 +1310,7 @@ L40: iwork[k] = newlst; } else { *info = -2; - return 0; + return; } } else { @@ -1414,7 +1414,7 @@ L120: iindwk], pivmin, &spdiam, &itmp1, &iinfo); if (iinfo != 0) { *info = -3; - return 0; + return; } lambda = work[windex]; /* Reset twist index from inaccurate LAMBDA to */ @@ -1509,7 +1509,7 @@ L120: goto L120; } else { *info = 5; - return 0; + return; } } else { stp2ii = FALSE_; @@ -1602,7 +1602,7 @@ L170: ; } - return 0; + return; /* End of SLARRV */ diff --git a/lapack-netlib/SRC/slarscl2.c b/lapack-netlib/SRC/slarscl2.c index 0d61685a6..1403ea61d 100644 --- a/lapack-netlib/SRC/slarscl2.c +++ b/lapack-netlib/SRC/slarscl2.c @@ -599,7 +599,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slarscl2_(integer *m, integer *n, real *d__, real *x, +/* Subroutine */ void slarscl2_(integer *m, integer *n, real *d__, real *x, integer *ldx) { /* System generated locals */ @@ -632,6 +632,6 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ x[i__ + j * x_dim1] /= d__[i__]; } } - return 0; + return; } /* slarscl2_ */ diff --git a/lapack-netlib/SRC/slartg.c b/lapack-netlib/SRC/slartg.c index 94d9b506b..d3ba18ab7 100644 --- a/lapack-netlib/SRC/slartg.c +++ b/lapack-netlib/SRC/slartg.c @@ -608,7 +608,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__) +/* Subroutine */ void slartg_(real *f, real *g, real *cs, real *sn, real *r__) { /* System generated locals */ integer i__1; @@ -721,7 +721,7 @@ L30: *r__ = -(*r__); } } - return 0; + return; /* End of SLARTG */ diff --git a/lapack-netlib/SRC/slartgp.c b/lapack-netlib/SRC/slartgp.c index e0753cfc3..51995ea7f 100644 --- a/lapack-netlib/SRC/slartgp.c +++ b/lapack-netlib/SRC/slartgp.c @@ -610,7 +610,7 @@ static real c_b6 = 1.f; /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slartgp_(real *f, real *g, real *cs, real *sn, real *r__) +/* Subroutine */ void slartgp_(real *f, real *g, real *cs, real *sn, real *r__) { /* System generated locals */ integer i__1; @@ -723,7 +723,7 @@ L30: *r__ = -(*r__); } } - return 0; + return; /* End of SLARTG */ diff --git a/lapack-netlib/SRC/slartgs.c b/lapack-netlib/SRC/slartgs.c index 482b2ccd1..a7517ec1f 100644 --- a/lapack-netlib/SRC/slartgs.c +++ b/lapack-netlib/SRC/slartgs.c @@ -602,13 +602,13 @@ he bidiagonal SVD problem. */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slartgs_(real *x, real *y, real *sigma, real *cs, real * +/* Subroutine */ void slartgs_(real *x, real *y, real *sigma, real *cs, real * sn) { real r__, s, w, z__; extern real slamch_(char *); real thresh; - extern /* Subroutine */ int slartgp_(real *, real *, real *, real *, real + extern /* Subroutine */ void slartgp_(real *, real *, real *, real *, real *); @@ -657,7 +657,7 @@ he bidiagonal SVD problem. */ slartgp_(&w, &z__, sn, cs, &r__); - return 0; + return; /* End SLARTGS */ diff --git a/lapack-netlib/SRC/slartv.c b/lapack-netlib/SRC/slartv.c index f5c707c1f..75306c888 100644 --- a/lapack-netlib/SRC/slartv.c +++ b/lapack-netlib/SRC/slartv.c @@ -618,7 +618,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y, +/* Subroutine */ void slartv_(integer *n, real *x, integer *incx, real *y, integer *incy, real *c__, real *s, integer *incc) { /* System generated locals */ @@ -659,7 +659,7 @@ f"> */ ic += *incc; /* L10: */ } - return 0; + return; /* End of SLARTV */ diff --git a/lapack-netlib/SRC/slaruv.c b/lapack-netlib/SRC/slaruv.c index 80b1d8556..b7101f0fd 100644 --- a/lapack-netlib/SRC/slaruv.c +++ b/lapack-netlib/SRC/slaruv.c @@ -604,7 +604,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x) +/* Subroutine */ void slaruv_(integer *iseed, integer *n, real *x) { /* Initialized data */ @@ -727,7 +727,7 @@ L20: iseed[2] = it2; iseed[3] = it3; iseed[4] = it4; - return 0; + return; /* End of SLARUV */ diff --git a/lapack-netlib/SRC/slarz.c b/lapack-netlib/SRC/slarz.c index 4ea8f907c..d089fdb3e 100644 --- a/lapack-netlib/SRC/slarz.c +++ b/lapack-netlib/SRC/slarz.c @@ -659,7 +659,7 @@ static real c_b5 = 1.f; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l, +/* Subroutine */ void slarz_(char *side, integer *m, integer *n, integer *l, real *v, integer *incv, real *tau, real *c__, integer *ldc, real * work) { @@ -668,10 +668,10 @@ static real c_b5 = 1.f; real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *); @@ -752,7 +752,7 @@ static real c_b5 = 1.f; } - return 0; + return; /* End of SLARZ */ diff --git a/lapack-netlib/SRC/slarzb.c b/lapack-netlib/SRC/slarzb.c index 02ff0bbe5..b0e29fd26 100644 --- a/lapack-netlib/SRC/slarzb.c +++ b/lapack-netlib/SRC/slarzb.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void slarzb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, integer *l, real *v, integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real * work, integer *ldwork) @@ -709,12 +709,13 @@ f"> */ /* Local variables */ integer info, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); char transt[1]; @@ -745,7 +746,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } /* Check for currently supported options */ @@ -759,7 +760,7 @@ f"> */ if (info != 0) { i__1 = -info; xerbla_("SLARZB", &i__1, (ftnlen)6); - return 0; + return; } if (lsame_(trans, "N")) { @@ -865,7 +866,7 @@ f"> */ } - return 0; + return; /* End of SLARZB */ diff --git a/lapack-netlib/SRC/slarzt.c b/lapack-netlib/SRC/slarzt.c index 5459dc8a2..3c4ba98e5 100644 --- a/lapack-netlib/SRC/slarzt.c +++ b/lapack-netlib/SRC/slarzt.c @@ -699,7 +699,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer * +/* Subroutine */ void slarzt_(char *direct, char *storev, integer *n, integer * k, real *v, integer *ldv, real *tau, real *t, integer *ldt) { /* System generated locals */ @@ -709,9 +709,10 @@ f"> */ /* Local variables */ integer info, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), strmv_(char *, char *, char *, integer *, real *, - integer *, real *, integer *), xerbla_( char *, integer *, ftnlen); + integer *, real *, integer *); + extern int xerbla_( char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -744,7 +745,7 @@ f"> */ if (info != 0) { i__1 = -info; xerbla_("SLARZT", &i__1, (ftnlen)6); - return 0; + return; } for (i__ = *k; i__ >= 1; --i__) { @@ -782,7 +783,7 @@ f"> */ } /* L20: */ } - return 0; + return; /* End of SLARZT */ diff --git a/lapack-netlib/SRC/slas2.c b/lapack-netlib/SRC/slas2.c index 1d750d26b..d43738d6d 100644 --- a/lapack-netlib/SRC/slas2.c +++ b/lapack-netlib/SRC/slas2.c @@ -618,7 +618,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real * +/* Subroutine */ void slas2_(real *f, real *g, real *h__, real *ssmin, real * ssmax) { /* System generated locals */ @@ -686,7 +686,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } } - return 0; + return; /* End of SLAS2 */ diff --git a/lapack-netlib/SRC/slascl.c b/lapack-netlib/SRC/slascl.c index aecbca67f..82c46209a 100644 --- a/lapack-netlib/SRC/slascl.c +++ b/lapack-netlib/SRC/slascl.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real * +/* Subroutine */ void slascl_(char *type__, integer *kl, integer *ku, real * cfrom, real *cto, integer *m, integer *n, real *a, integer *lda, integer *info) { @@ -744,13 +744,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASCL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } /* Get machine parameters */ @@ -913,7 +913,7 @@ L10: goto L10; } - return 0; + return; /* End of SLASCL */ diff --git a/lapack-netlib/SRC/slascl2.c b/lapack-netlib/SRC/slascl2.c index 98f34e13c..9e17b200c 100644 --- a/lapack-netlib/SRC/slascl2.c +++ b/lapack-netlib/SRC/slascl2.c @@ -599,7 +599,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slascl2_(integer *m, integer *n, real *d__, real *x, +/* Subroutine */ void slascl2_(integer *m, integer *n, real *d__, real *x, integer *ldx) { /* System generated locals */ @@ -632,6 +632,6 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ x[i__ + j * x_dim1] *= d__[i__]; } } - return 0; + return; } /* slascl2_ */ diff --git a/lapack-netlib/SRC/slasd0.c b/lapack-netlib/SRC/slasd0.c index be1a74191..a4e9c8748 100644 --- a/lapack-netlib/SRC/slasd0.c +++ b/lapack-netlib/SRC/slasd0.c @@ -664,7 +664,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e, +/* Subroutine */ void slasd0_(integer *n, integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz, integer *iwork, real *work, integer *info) { @@ -676,11 +676,12 @@ f"> */ integer idxq, nlvl, i__, j, m; real alpha; integer inode, ndiml, idxqc, ndimr, itemp, sqrei, i1; - extern /* Subroutine */ int slasd1_(integer *, integer *, integer *, real + extern /* Subroutine */ void slasd1_(integer *, integer *, integer *, real *, real *, real *, real *, integer *, real *, integer *, integer * , integer *, real *, integer *); integer ic, lf, nd, ll, nl, nr; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slasdq_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slasdq_( char *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, integer *, real *, integer *), slasdt_(integer *, integer @@ -732,7 +733,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASD0", &i__1, (ftnlen)6); - return 0; + return; } /* If the input matrix is too small, call SLASDQ to find the SVD. */ @@ -740,7 +741,7 @@ f"> */ if (*n <= *smlsiz) { slasdq_("U", sqre, n, &m, n, &c__0, &d__[1], &e[1], &vt[vt_offset], ldvt, &u[u_offset], ldu, &u[u_offset], ldu, &work[1], info); - return 0; + return; } /* Set up the computation tree. */ @@ -780,7 +781,7 @@ f"> */ nlf + nlf * vt_dim1], ldvt, &u[nlf + nlf * u_dim1], ldu, &u[ nlf + nlf * u_dim1], ldu, &work[1], info); if (*info != 0) { - return 0; + return; } itemp = idxq + nlf - 2; i__2 = nl; @@ -798,7 +799,7 @@ f"> */ nrf + nrf * vt_dim1], ldvt, &u[nrf + nrf * u_dim1], ldu, &u[ nrf + nrf * u_dim1], ldu, &work[1], info); if (*info != 0) { - return 0; + return; } itemp = idxq + ic; i__2 = nr; @@ -846,14 +847,14 @@ f"> */ /* Report the possible convergence failure. */ if (*info != 0) { - return 0; + return; } /* L40: */ } /* L50: */ } - return 0; + return; /* End of SLASD0 */ diff --git a/lapack-netlib/SRC/slasd1.c b/lapack-netlib/SRC/slasd1.c index 4ff9516be..a781d7aeb 100644 --- a/lapack-netlib/SRC/slasd1.c +++ b/lapack-netlib/SRC/slasd1.c @@ -720,7 +720,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real * +/* Subroutine */ void slasd1_(integer *nl, integer *nr, integer *sqre, real * d__, real *alpha, real *beta, real *u, integer *ldu, real *vt, integer *ldvt, integer *idxq, integer *iwork, real *work, integer * info) @@ -731,7 +731,7 @@ f"> */ /* Local variables */ integer idxc, idxp, ldvt2, i__, k, m, n, n1, n2; - extern /* Subroutine */ int slasd2_(integer *, integer *, integer *, + extern /* Subroutine */ void slasd2_(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *, integer *, integer *, integer *), @@ -740,7 +740,8 @@ f"> */ , integer *, real *, integer *, integer *, integer *, real *, integer *); integer iq, iz, isigma; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slascl_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slascl_( char *, integer *, integer *, real *, real *, integer *, integer * , real *, integer *, integer *), slamrg_(integer *, integer *, real *, integer *, integer *, integer *); @@ -785,7 +786,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASD1", &i__1, (ftnlen)6); - return 0; + return; } n = *nl + *nr + 1; @@ -843,7 +844,7 @@ f"> */ /* Report the possible convergence failure. */ if (*info != 0) { - return 0; + return; } /* Unscale. */ @@ -856,7 +857,7 @@ f"> */ n2 = n - k; slamrg_(&n1, &n2, &d__[1], &c__1, &c_n1, &idxq[1]); - return 0; + return; /* End of SLASD1 */ diff --git a/lapack-netlib/SRC/slasd2.c b/lapack-netlib/SRC/slasd2.c index 0a5ee19d9..4263b3bd7 100644 --- a/lapack-netlib/SRC/slasd2.c +++ b/lapack-netlib/SRC/slasd2.c @@ -782,7 +782,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer +/* Subroutine */ void slasd2_(integer *nl, integer *nr, integer *sqre, integer *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer * ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2, real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc, @@ -795,22 +795,23 @@ f"> */ /* Local variables */ integer idxi, idxj, ctot[4]; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); real c__; integer i__, j, m, n; real s; integer idxjp, jprev, k2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real z1; extern real slapy2_(real *, real *); integer ct, jp; extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slamrg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slamrg_( integer *, integer *, real *, integer *, integer *, integer *); real hlftol; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real eps, tau, tol; @@ -876,7 +877,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASD2", &i__1, (ftnlen)6); - return 0; + return; } nlp1 = *nl + 1; @@ -1203,7 +1204,7 @@ L120: /* L190: */ } - return 0; + return; /* End of SLASD2 */ diff --git a/lapack-netlib/SRC/slasd3.c b/lapack-netlib/SRC/slasd3.c index a465e2cf6..000b7198e 100644 --- a/lapack-netlib/SRC/slasd3.c +++ b/lapack-netlib/SRC/slasd3.c @@ -739,7 +739,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer +/* Subroutine */ void slasd3_(integer *nl, integer *nr, integer *sqre, integer *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer * ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2, integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer * @@ -754,17 +754,18 @@ f"> */ real temp; extern real snrm2_(integer *, real *, integer *); integer i__, j, m, n, ctemp; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer ktemp; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern real slamc3_(real *, real *); - extern /* Subroutine */ int slasd4_(integer *, integer *, real *, real *, + extern /* Subroutine */ void slasd4_(integer *, integer *, real *, real *, real *, real *, real *, real *, integer *); integer jc; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slascl_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slascl_( char *, integer *, integer *, real *, real *, integer *, integer * , real *, integer *, integer *), slacpy_(char *, integer * , integer *, real *, integer *, real *, integer *); @@ -837,7 +838,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASD3", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -854,7 +855,7 @@ f"> */ /* L10: */ } } - return 0; + return; } /* Modify values DSIGMA(i) to make sure all DSIGMA(i)-DSIGMA(j) can */ @@ -900,7 +901,7 @@ f"> */ /* If the zero finder fails, report the convergence failure. */ if (*info != 0) { - return 0; + return; } /* L30: */ } @@ -1003,7 +1004,7 @@ L100: if (*k == 2) { sgemm_("N", "N", k, &m, k, &c_b13, &q[q_offset], ldq, &vt2[vt2_offset] , ldvt2, &c_b26, &vt[vt_offset], ldvt); - return 0; + return; } ktemp = ctot[1] + 1; sgemm_("N", "N", k, &nlp1, &ktemp, &c_b13, &q[q_dim1 + 1], ldq, &vt2[ @@ -1034,7 +1035,7 @@ L100: vt2[ktemp + nlp2 * vt2_dim1], ldvt2, &c_b26, &vt[nlp2 * vt_dim1 + 1], ldvt); - return 0; + return; /* End of SLASD3 */ diff --git a/lapack-netlib/SRC/slasd4.c b/lapack-netlib/SRC/slasd4.c index 3c4df7de5..265a16f13 100644 --- a/lapack-netlib/SRC/slasd4.c +++ b/lapack-netlib/SRC/slasd4.c @@ -663,7 +663,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__, +/* Subroutine */ void slasd4_(integer *n, integer *i__, real *d__, real *z__, real *delta, real *rho, real *sigma, real *work, integer *info) { /* System generated locals */ @@ -680,10 +680,10 @@ f"> */ real dtisq; logical swtch; real dtnsq; - extern /* Subroutine */ int slaed6_(integer *, logical *, real *, real *, + extern /* Subroutine */ void slaed6_(integer *, logical *, real *, real *, real *, real *, real *, integer *); real delsq2; - extern /* Subroutine */ int slasd5_(integer *, real *, real *, real *, + extern /* Subroutine */ void slasd5_(integer *, real *, real *, real *, real *, real *, real *); real dd[3], dtnsq1; logical swtch3; @@ -729,11 +729,11 @@ f"> */ *sigma = sqrt(d__[1] * d__[1] + *rho * z__[1] * z__[1]); delta[1] = 1.f; work[1] = 1.f; - return 0; + return; } if (*n == 2) { slasd5_(i__, &d__[1], &z__[1], &delta[1], rho, sigma, &work[1]); - return 0; + return; } /* Compute machine epsilon */ @@ -1663,7 +1663,7 @@ f"> */ } L240: - return 0; + return; /* End of SLASD4 */ diff --git a/lapack-netlib/SRC/slasd5.c b/lapack-netlib/SRC/slasd5.c index 39bc44eb5..aabfdc73f 100644 --- a/lapack-netlib/SRC/slasd5.c +++ b/lapack-netlib/SRC/slasd5.c @@ -626,7 +626,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta, +/* Subroutine */ void slasd5_(integer *i__, real *d__, real *z__, real *delta, real *rho, real *dsigma, real *work) { /* System generated locals */ @@ -733,7 +733,7 @@ f"> */ /* DELTA( 1 ) = DELTA( 1 ) / TEMP */ /* DELTA( 2 ) = DELTA( 2 ) / TEMP */ } - return 0; + return; /* End of SLASD5 */ diff --git a/lapack-netlib/SRC/slasd6.c b/lapack-netlib/SRC/slasd6.c index cdbdda314..3877d7204 100644 --- a/lapack-netlib/SRC/slasd6.c +++ b/lapack-netlib/SRC/slasd6.c @@ -827,7 +827,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr, +/* Subroutine */ void slasd6_(integer *icompq, integer *nl, integer *nr, integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta, integer *idxq, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * @@ -841,10 +841,10 @@ f"> */ /* Local variables */ integer idxc, idxp, ivfw, ivlw, i__, m, n; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer n1, n2; - extern /* Subroutine */ int slasd7_(integer *, integer *, integer *, + extern /* Subroutine */ void slasd7_(integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, real *, real *, real *, real *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, real *, @@ -852,7 +852,8 @@ f"> */ *, real *, real *, real *, real *, real *, real *, integer *, real *, real *, integer *); integer iw, isigma; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slascl_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slascl_( char *, integer *, integer *, real *, real *, integer *, integer * , real *, integer *, integer *), slamrg_(integer *, integer *, real *, integer *, integer *, integer *); @@ -913,7 +914,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASD6", &i__1, (ftnlen)6); - return 0; + return; } /* The following values are for bookkeeping purposes only. They are */ @@ -962,7 +963,7 @@ f"> */ /* Report the possible convergence failure. */ if (*info != 0) { - return 0; + return; } /* Save the poles if ICOMPQ = 1. */ @@ -982,7 +983,7 @@ f"> */ n2 = n - *k; slamrg_(&n1, &n2, &d__[1], &c__1, &c_n1, &idxq[1]); - return 0; + return; /* End of SLASD6 */ diff --git a/lapack-netlib/SRC/slasd7.c b/lapack-netlib/SRC/slasd7.c index 243f98925..073ef3438 100644 --- a/lapack-netlib/SRC/slasd7.c +++ b/lapack-netlib/SRC/slasd7.c @@ -791,7 +791,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr, +/* Subroutine */ void slasd7_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf, real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, integer * @@ -804,16 +804,17 @@ f"> */ /* Local variables */ integer idxi, idxj; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer i__, j, m, n, idxjp, jprev, k2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real z1; extern real slapy2_(real *, real *); integer jp; extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slamrg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slamrg_( integer *, integer *, real *, integer *, integer *, integer *); real hlftol, eps, tau, tol; integer nlp1, nlp2; @@ -872,7 +873,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASD7", &i__1, (ftnlen)6); - return 0; + return; } nlp1 = *nl + 1; @@ -1127,7 +1128,7 @@ L100: i__1 = n - 1; scopy_(&i__1, &vlw[2], &c__1, &vl[2], &c__1); - return 0; + return; /* End of SLASD7 */ diff --git a/lapack-netlib/SRC/slasd8.c b/lapack-netlib/SRC/slasd8.c index 4f556a8f9..630d5a1dd 100644 --- a/lapack-netlib/SRC/slasd8.c +++ b/lapack-netlib/SRC/slasd8.c @@ -681,7 +681,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real * +/* Subroutine */ void slasd8_(integer *icompq, integer *k, real *d__, real * z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr, real *dsigma, real *work, integer *info) { @@ -696,15 +696,15 @@ f"> */ extern real snrm2_(integer *, real *, integer *); integer i__, j; real diflj, difrj, dsigj; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern real slamc3_(real *, real *); - extern /* Subroutine */ int slasd4_(integer *, integer *, real *, real *, + extern /* Subroutine */ void slasd4_(integer *, integer *, real *, real *, real *, real *, real *, real *, integer *); real dj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real dsigjp; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real rho; @@ -747,7 +747,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASD8", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -759,7 +759,7 @@ f"> */ difl[2] = 1.f; difr[(difr_dim1 << 1) + 1] = 1.f; } - return 0; + return; } /* Modify values DSIGMA(i) to make sure all DSIGMA(i)-DSIGMA(j) can */ @@ -814,7 +814,7 @@ f"> */ /* If the root finder fails, report the convergence failure. */ if (*info != 0) { - return 0; + return; } work[iwk3i + j] = work[iwk3i + j] * work[j] * work[iwk2i + j]; difl[j] = -work[j]; @@ -881,7 +881,7 @@ f"> */ scopy_(k, &work[iwk2], &c__1, &vf[1], &c__1); scopy_(k, &work[iwk3], &c__1, &vl[1], &c__1); - return 0; + return; /* End of SLASD8 */ diff --git a/lapack-netlib/SRC/slasda.c b/lapack-netlib/SRC/slasda.c index 1d336d1ce..01924a748 100644 --- a/lapack-netlib/SRC/slasda.c +++ b/lapack-netlib/SRC/slasda.c @@ -789,7 +789,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n, +/* Subroutine */ void slasda_(integer *icompq, integer *smlsiz, integer *n, integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *z__, real *poles, integer * givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum, @@ -806,14 +806,15 @@ f"> */ integer idxq, nlvl, i__, j, m; real alpha; integer inode, ndiml, ndimr, idxqi, itemp, sqrei, i1; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), slasd6_(integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, integer *, integer *, integer *, integer *, integer *, real *, integer *, real *, real * , real *, real *, integer *, real *, real *, real *, integer *, integer *); integer ic, nwork1, lf, nd, nwork2, ll, nl, vf, nr, vl; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slasdq_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slasdq_( char *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, integer *, real *, integer *), slasdt_(integer *, integer @@ -891,7 +892,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASDA", &i__1, (ftnlen)6); - return 0; + return; } m = *n + *sqre; @@ -908,7 +909,7 @@ f"> */ , ldu, &u[u_offset], ldu, &u[u_offset], ldu, &work[1], info); } - return 0; + return; } /* Book-keeping and set up the computation tree. */ @@ -975,7 +976,7 @@ f"> */ ; } if (*info != 0) { - return 0; + return; } i__2 = nl; for (j = 1; j <= i__2; ++j) { @@ -1011,7 +1012,7 @@ f"> */ ; } if (*info != 0) { - return 0; + return; } i__2 = nr; for (j = 1; j <= i__2; ++j) { @@ -1076,14 +1077,14 @@ f"> */ &s[j], &work[nwork1], &iwork[iwk], info); } if (*info != 0) { - return 0; + return; } /* L40: */ } /* L50: */ } - return 0; + return; /* End of SLASDA */ diff --git a/lapack-netlib/SRC/slasdq.c b/lapack-netlib/SRC/slasdq.c index bbc278fdd..61cd7d763 100644 --- a/lapack-netlib/SRC/slasdq.c +++ b/lapack-netlib/SRC/slasdq.c @@ -724,7 +724,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer * +/* Subroutine */ void slasdq_(char *uplo, integer *sqre, integer *n, integer * ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real * work, integer *info) @@ -739,16 +739,17 @@ f"> */ integer sqre1, i__, j; real r__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int slasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void slasr_(char *, char *, char *, integer *, integer *, real *, real *, real *, integer *); integer iuplo; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real cs, sn; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slartg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slartg_( real *, real *, real *, real *, real *); logical rotate; - extern /* Subroutine */ int sbdsqr_(char *, integer *, integer *, integer + extern /* Subroutine */ void sbdsqr_(char *, integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer * , real *, integer *, real *, integer *); integer np1; @@ -810,10 +811,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASDQ", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* ROTATE is true if any singular vectors desired, false otherwise */ @@ -953,7 +954,7 @@ f"> */ /* L40: */ } - return 0; + return; /* End of SLASDQ */ diff --git a/lapack-netlib/SRC/slasdt.c b/lapack-netlib/SRC/slasdt.c index 6f3ba7e87..b486206b6 100644 --- a/lapack-netlib/SRC/slasdt.c +++ b/lapack-netlib/SRC/slasdt.c @@ -614,7 +614,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer * +/* Subroutine */ void slasdt_(integer *n, integer *lvl, integer *nd, integer * inode, integer *ndiml, integer *ndimr, integer *msub) { /* System generated locals */ @@ -678,7 +678,7 @@ f"> */ } *nd = (llst << 1) - 1; - return 0; + return; /* End of SLASDT */ diff --git a/lapack-netlib/SRC/slaset.c b/lapack-netlib/SRC/slaset.c index 573fa85f8..7eb9c9939 100644 --- a/lapack-netlib/SRC/slaset.c +++ b/lapack-netlib/SRC/slaset.c @@ -620,7 +620,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha, +/* Subroutine */ void slaset_(char *uplo, integer *m, integer *n, real *alpha, real *beta, real *a, integer *lda) { /* System generated locals */ @@ -701,7 +701,7 @@ f"> */ /* L70: */ } - return 0; + return; /* End of SLASET */ diff --git a/lapack-netlib/SRC/slasq1.c b/lapack-netlib/SRC/slasq1.c index 66ca78f8b..4489c3f96 100644 --- a/lapack-netlib/SRC/slasq1.c +++ b/lapack-netlib/SRC/slasq1.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work, +/* Subroutine */ void slasq1_(integer *n, real *d__, real *e, real *work, integer *info) { /* System generated locals */ @@ -631,17 +631,18 @@ f"> */ real r__1, r__2, r__3; /* Local variables */ - extern /* Subroutine */ int slas2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slas2_(real *, real *, real *, real *, real *) ; integer i__; real scale; integer iinfo; real sigmn, sigmx; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), slasq2_(integer *, real *, integer *); extern real slamch_(char *); real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slascl_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slascl_( char *, integer *, integer *, real *, real *, integer *, integer * , real *, integer *, integer *), slasrt_(char *, integer * , real *, integer *); @@ -668,17 +669,17 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("SLASQ1", &i__1, (ftnlen)6); - return 0; + return; } else if (*n == 0) { - return 0; + return; } else if (*n == 1) { d__[1] = abs(d__[1]); - return 0; + return; } else if (*n == 2) { slas2_(&d__[1], &e[1], &d__[2], &sigmn, &sigmx); d__[1] = sigmx; d__[2] = sigmn; - return 0; + return; } /* Estimate the largest singular value. */ @@ -698,7 +699,7 @@ f"> */ if (sigmx == 0.f) { slasrt_("D", n, &d__[1], &iinfo); - return 0; + return; } i__1 = *n; @@ -759,7 +760,7 @@ f"> */ slascl_("G", &c__0, &c__0, &scale, &sigmx, n, &c__1, &e[1], n, &iinfo); } - return 0; + return; /* End of SLASQ1 */ diff --git a/lapack-netlib/SRC/slasq2.c b/lapack-netlib/SRC/slasq2.c index d3949a694..98c53d685 100644 --- a/lapack-netlib/SRC/slasq2.c +++ b/lapack-netlib/SRC/slasq2.c @@ -627,7 +627,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasq2_(integer *n, real *z__, integer *info) +/* Subroutine */ void slasq2_(integer *n, real *z__, integer *info) { /* System generated locals */ integer i__1, i__2, i__3; @@ -648,7 +648,7 @@ f"> */ integer iinfo; real tempe, tempq; integer i0, i1, i4, n0, n1, ttype; - extern /* Subroutine */ int slasq3_(integer *, integer *, real *, integer + extern /* Subroutine */ void slasq3_(integer *, integer *, real *, integer *, real *, real *, real *, real *, integer *, integer *, integer * , logical *, integer *, real *, real *, real *, real *, real *, real *, real *); @@ -660,7 +660,7 @@ f"> */ real oldemn, safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real dn1, dn2; - extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); + extern /* Subroutine */ void slasrt_(char *, integer *, real *, integer *); real dee, eps, tau, tol; integer ipn4; real tol2; @@ -693,9 +693,9 @@ f"> */ if (*n < 0) { *info = -1; xerbla_("SLASQ2", &c__1, (ftnlen)6); - return 0; + return; } else if (*n == 0) { - return 0; + return; } else if (*n == 1) { /* 1-by-1 case. */ @@ -704,7 +704,7 @@ f"> */ *info = -201; xerbla_("SLASQ2", &c__2, (ftnlen)6); } - return 0; + return; } else if (*n == 2) { /* 2-by-2 case. */ @@ -712,15 +712,15 @@ f"> */ if (z__[1] < 0.f) { *info = -201; xerbla_("SLASQ2", &c__2, (ftnlen)6); - return 0; + return; } else if (z__[2] < 0.f) { *info = -202; xerbla_("SLASQ2", &c__2, (ftnlen)6); - return 0; + return; } else if (z__[3] < 0.f) { *info = -203; xerbla_("SLASQ2", &c__2, (ftnlen)6); - return 0; + return; } else if (z__[3] > z__[1]) { d__ = z__[3]; z__[3] = z__[1]; @@ -741,7 +741,7 @@ f"> */ } z__[2] = z__[3]; z__[6] = z__[2] + z__[1]; - return 0; + return; } /* Check for negative data and compute sums of q's and e's. */ @@ -758,11 +758,11 @@ f"> */ if (z__[k] < 0.f) { *info = -(k + 200); xerbla_("SLASQ2", &c__2, (ftnlen)6); - return 0; + return; } else if (z__[k + 1] < 0.f) { *info = -(k + 201); xerbla_("SLASQ2", &c__2, (ftnlen)6); - return 0; + return; } d__ += z__[k]; e += z__[k + 1]; @@ -780,7 +780,7 @@ f"> */ if (z__[(*n << 1) - 1] < 0.f) { *info = -((*n << 1) + 199); xerbla_("SLASQ2", &c__2, (ftnlen)6); - return 0; + return; } d__ += z__[(*n << 1) - 1]; /* Computing MAX */ @@ -798,7 +798,7 @@ f"> */ } slasrt_("D", n, &z__[1], &iinfo); z__[(*n << 1) - 1] = d__; - return 0; + return; } trace = d__ + e; @@ -807,7 +807,7 @@ f"> */ if (trace == 0.f) { z__[(*n << 1) - 1] = 0.f; - return 0; + return; } /* Check whether the machine is IEEE conformable. */ @@ -947,7 +947,7 @@ f"> */ } if (sigma < 0.f) { *info = 1; - return 0; + return; } /* Find last unreduced submatrix's top index I0, find QMAX and */ @@ -1136,7 +1136,7 @@ L145: z__[k * 2] = 0.f; } } - return 0; + return; /* end IWHILB */ @@ -1147,7 +1147,7 @@ L150: } *info = 3; - return 0; + return; /* end IWHILA */ @@ -1180,7 +1180,7 @@ L170: i__1 = *n; z__[(*n << 1) + 4] = (real) ndiv / (real) (i__1 * i__1); z__[(*n << 1) + 5] = nfail * 100.f / (real) iter; - return 0; + return; /* End of SLASQ2 */ diff --git a/lapack-netlib/SRC/slasq3.c b/lapack-netlib/SRC/slasq3.c index 38f186f3d..12688de07 100644 --- a/lapack-netlib/SRC/slasq3.c +++ b/lapack-netlib/SRC/slasq3.c @@ -689,7 +689,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp, +/* Subroutine */ void slasq3_(integer *i0, integer *n0, real *z__, integer *pp, real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail, integer *iter, integer *ndiv, logical *ieee, integer *ttype, real * dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *g, real * @@ -702,7 +702,7 @@ f"> */ /* Local variables */ real temp, s, t; integer j4; - extern /* Subroutine */ int slasq4_(integer *, integer *, real *, integer + extern /* Subroutine */ void slasq4_(integer *, integer *, real *, integer *, integer *, real *, real *, real *, real *, real *, real *, real *, integer *, real *), slasq5_(integer *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *, real *, @@ -741,7 +741,7 @@ f"> */ L10: if (*n0 < *i0) { - return 0; + return; } if (*n0 == *i0) { goto L20; @@ -937,7 +937,7 @@ L90: } *sigma = t; - return 0; + return; /* End of SLASQ3 */ diff --git a/lapack-netlib/SRC/slasq4.c b/lapack-netlib/SRC/slasq4.c index 8c3722fc2..73f5ca011 100644 --- a/lapack-netlib/SRC/slasq4.c +++ b/lapack-netlib/SRC/slasq4.c @@ -660,7 +660,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp, +/* Subroutine */ void slasq4_(integer *i0, integer *n0, real *z__, integer *pp, integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *tau, integer *ttype, real *g) { @@ -693,7 +693,7 @@ f"> */ if (*dmin__ <= 0.f) { *tau = -(*dmin__); *ttype = -1; - return 0; + return; } nn = (*n0 << 2) + *pp; @@ -746,7 +746,7 @@ f"> */ gam = *dn; a2 = 0.f; if (z__[nn - 5] > z__[nn - 7]) { - return 0; + return; } b2 = z__[nn - 5] / z__[nn - 7]; np = nn - 9; @@ -754,11 +754,11 @@ f"> */ np = nn - (*pp << 1); gam = *dn1; if (z__[np - 4] > z__[np - 2]) { - return 0; + return; } a2 = z__[np - 4] / z__[np - 2]; if (z__[nn - 9] > z__[nn - 11]) { - return 0; + return; } b2 = z__[nn - 9] / z__[nn - 11]; np = nn - 13; @@ -774,7 +774,7 @@ f"> */ } b1 = b2; if (z__[i4] > z__[i4 - 2]) { - return 0; + return; } b2 *= z__[i4] / z__[i4 - 2]; a2 += b2; @@ -806,7 +806,7 @@ L20: b2 = z__[np - 6]; gam = *dn2; if (z__[np - 8] > b2 || z__[np - 4] > b1) { - return 0; + return; } a2 = z__[np - 8] / b2 * (z__[np - 4] / b1 + 1.f); @@ -822,7 +822,7 @@ L20: } b1 = b2; if (z__[i4] > z__[i4 - 2]) { - return 0; + return; } b2 *= z__[i4] / z__[i4 - 2]; a2 += b2; @@ -864,7 +864,7 @@ L40: *ttype = -7; s = *dmin1 * .333f; if (z__[nn - 5] > z__[nn - 7]) { - return 0; + return; } b1 = z__[nn - 5] / z__[nn - 7]; b2 = b1; @@ -875,7 +875,7 @@ L40: for (i4 = (*n0 << 2) - 9 + *pp; i4 >= i__1; i4 += -4) { a2 = b1; if (z__[i4] > z__[i4 - 2]) { - return 0; + return; } b1 *= z__[i4] / z__[i4 - 2]; b2 += b1; @@ -921,7 +921,7 @@ L60: *ttype = -10; s = *dmin2 * .333f; if (z__[nn - 5] > z__[nn - 7]) { - return 0; + return; } b1 = z__[nn - 5] / z__[nn - 7]; b2 = b1; @@ -931,7 +931,7 @@ L60: i__1 = (*i0 << 2) - 1 + *pp; for (i4 = (*n0 << 2) - 9 + *pp; i4 >= i__1; i4 += -4) { if (z__[i4] > z__[i4 - 2]) { - return 0; + return; } b1 *= z__[i4] / z__[i4 - 2]; b2 += b1; @@ -969,7 +969,7 @@ L80: } *tau = s; - return 0; + return; /* End of SLASQ4 */ diff --git a/lapack-netlib/SRC/slasq5.c b/lapack-netlib/SRC/slasq5.c index cd9645ac5..1a65859c5 100644 --- a/lapack-netlib/SRC/slasq5.c +++ b/lapack-netlib/SRC/slasq5.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp, +/* Subroutine */ void slasq5_(integer *i0, integer *n0, real *z__, integer *pp, real *tau, real *sigma, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *dnm2, logical *ieee, real *eps) { @@ -680,7 +680,7 @@ f"> */ /* Function Body */ if (*n0 - *i0 - 1 <= 0) { - return 0; + return; } dthresh = *eps * (*sigma + *tau); @@ -754,7 +754,7 @@ f"> */ for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { z__[j4 - 2] = d__ + z__[j4 - 1]; if (d__ < 0.f) { - return 0; + return; } else { z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); d__ = z__[j4 + 1] * (d__ / z__[j4 - 2]) - *tau; @@ -770,7 +770,7 @@ f"> */ for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { z__[j4 - 3] = d__ + z__[j4]; if (d__ < 0.f) { - return 0; + return; } else { z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); d__ = z__[j4 + 2] * (d__ / z__[j4 - 3]) - *tau; @@ -791,7 +791,7 @@ f"> */ j4p2 = j4 + (*pp << 1) - 1; z__[j4 - 2] = *dnm2 + z__[j4p2]; if (*dnm2 < 0.f) { - return 0; + return; } else { z__[j4] = z__[j4p2 + 2] * (z__[j4p2] / z__[j4 - 2]); *dnm1 = z__[j4p2 + 2] * (*dnm2 / z__[j4 - 2]) - *tau; @@ -803,7 +803,7 @@ f"> */ j4p2 = j4 + (*pp << 1) - 1; z__[j4 - 2] = *dnm1 + z__[j4p2]; if (*dnm1 < 0.f) { - return 0; + return; } else { z__[j4] = z__[j4p2 + 2] * (z__[j4p2] / z__[j4 - 2]); *dn = z__[j4p2 + 2] * (*dnm1 / z__[j4 - 2]) - *tau; @@ -885,7 +885,7 @@ f"> */ for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { z__[j4 - 2] = d__ + z__[j4 - 1]; if (d__ < 0.f) { - return 0; + return; } else { z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); d__ = z__[j4 + 1] * (d__ / z__[j4 - 2]) - *tau; @@ -904,7 +904,7 @@ f"> */ for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { z__[j4 - 3] = d__ + z__[j4]; if (d__ < 0.f) { - return 0; + return; } else { z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); d__ = z__[j4 + 2] * (d__ / z__[j4 - 3]) - *tau; @@ -928,7 +928,7 @@ f"> */ j4p2 = j4 + (*pp << 1) - 1; z__[j4 - 2] = *dnm2 + z__[j4p2]; if (*dnm2 < 0.f) { - return 0; + return; } else { z__[j4] = z__[j4p2 + 2] * (z__[j4p2] / z__[j4 - 2]); *dnm1 = z__[j4p2 + 2] * (*dnm2 / z__[j4 - 2]) - *tau; @@ -940,7 +940,7 @@ f"> */ j4p2 = j4 + (*pp << 1) - 1; z__[j4 - 2] = *dnm1 + z__[j4p2]; if (*dnm1 < 0.f) { - return 0; + return; } else { z__[j4] = z__[j4p2 + 2] * (z__[j4p2] / z__[j4 - 2]); *dn = z__[j4p2 + 2] * (*dnm1 / z__[j4 - 2]) - *tau; @@ -952,7 +952,7 @@ f"> */ } z__[j4 + 2] = *dn; z__[(*n0 << 2) - *pp] = emin; - return 0; + return; /* End of SLASQ5 */ diff --git a/lapack-netlib/SRC/slasq6.c b/lapack-netlib/SRC/slasq6.c index d6dd702dd..824ad31c8 100644 --- a/lapack-netlib/SRC/slasq6.c +++ b/lapack-netlib/SRC/slasq6.c @@ -627,7 +627,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp, +/* Subroutine */ void slasq6_(integer *i0, integer *n0, real *z__, integer *pp, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real * dnm2) { @@ -657,7 +657,7 @@ f"> */ /* Function Body */ if (*n0 - *i0 - 1 <= 0) { - return 0; + return; } safmin = slamch_("Safe minimum"); @@ -761,7 +761,7 @@ f"> */ z__[j4 + 2] = *dn; z__[(*n0 << 2) - *pp] = emin; - return 0; + return; /* End of SLASQ6 */ diff --git a/lapack-netlib/SRC/slasr.c b/lapack-netlib/SRC/slasr.c index 0c6b871dd..df1b43403 100644 --- a/lapack-netlib/SRC/slasr.c +++ b/lapack-netlib/SRC/slasr.c @@ -708,7 +708,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m, +/* Subroutine */ void slasr_(char *side, char *pivot, char *direct, integer *m, integer *n, real *c__, real *s, real *a, integer *lda) { /* System generated locals */ @@ -760,13 +760,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("SLASR ", &info, (ftnlen)5); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (lsame_(side, "L")) { @@ -1002,7 +1002,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of SLASR */ diff --git a/lapack-netlib/SRC/slasrt.c b/lapack-netlib/SRC/slasrt.c index 881f140b0..8a97c26bc 100644 --- a/lapack-netlib/SRC/slasrt.c +++ b/lapack-netlib/SRC/slasrt.c @@ -597,7 +597,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info) +/* Subroutine */ void slasrt_(char *id, integer *n, real *d__, integer *info) { /* System generated locals */ integer i__1, i__2; @@ -643,13 +643,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLASRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } stkpnt = 1; @@ -816,7 +816,7 @@ L110: if (stkpnt > 0) { goto L10; } - return 0; + return; /* End of SLASRT */ diff --git a/lapack-netlib/SRC/slassq.c b/lapack-netlib/SRC/slassq.c index d6e5ee7a5..f4a800c75 100644 --- a/lapack-netlib/SRC/slassq.c +++ b/lapack-netlib/SRC/slassq.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale, +/* Subroutine */ void slassq_(integer *n, real *x, integer *incx, real *scale, real *sumsq) { /* System generated locals */ @@ -658,7 +658,7 @@ f"> */ /* L10: */ } } - return 0; + return; /* End of SLASSQ */ diff --git a/lapack-netlib/SRC/slasv2.c b/lapack-netlib/SRC/slasv2.c index 5b6addbe5..4fee79d71 100644 --- a/lapack-netlib/SRC/slasv2.c +++ b/lapack-netlib/SRC/slasv2.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real * +/* Subroutine */ void slasv2_(real *f, real *g, real *h__, real *ssmin, real * ssmax, real *snr, real *csr, real *snl, real *csl) { /* System generated locals */ @@ -825,7 +825,7 @@ f"> */ *ssmax = r_sign(ssmax, &tsign); r__1 = tsign * r_sign(&c_b4, f) * r_sign(&c_b4, h__); *ssmin = r_sign(ssmin, &r__1); - return 0; + return; /* End of SLASV2 */ diff --git a/lapack-netlib/SRC/slaswlq.c b/lapack-netlib/SRC/slaswlq.c index ee6bad401..bc0d13cb1 100644 --- a/lapack-netlib/SRC/slaswlq.c +++ b/lapack-netlib/SRC/slaswlq.c @@ -671,7 +671,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaswlq_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void slaswlq_(integer *m, integer *n, integer *mb, integer * nb, real *a, integer *lda, real *t, integer *ldt, real *work, integer *lwork, integer *info) { @@ -680,11 +680,12 @@ static integer c__0 = 0; /* Local variables */ integer i__, ii, kk; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgelqt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgelqt_( integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *); logical lquery; - extern /* Subroutine */ int stplqt_(integer *, integer *, integer *, + extern /* Subroutine */ void stplqt_(integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *); integer ctr; @@ -737,15 +738,15 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("SLASWLQ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The LQ Decomposition */ @@ -753,7 +754,7 @@ static integer c__0 = 0; if (*m >= *n || *nb <= *m || *nb >= *n) { sgelqt_(m, n, mb, &a[a_offset], lda, &t[t_offset], ldt, &work[1], info); - return 0; + return; } kk = (*n - *m) % (*nb - *m); @@ -785,7 +786,7 @@ static integer c__0 = 0; } work[1] = (real) (*m * *mb); - return 0; + return; /* End of SLASWLQ */ diff --git a/lapack-netlib/SRC/slaswp.c b/lapack-netlib/SRC/slaswp.c index 67180608a..d84e6616f 100644 --- a/lapack-netlib/SRC/slaswp.c +++ b/lapack-netlib/SRC/slaswp.c @@ -624,7 +624,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1, +/* Subroutine */ void slaswp_(integer *n, real *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx) { /* System generated locals */ @@ -665,7 +665,7 @@ f"> */ i2 = *k1; inc = -1; } else { - return 0; + return; } n32 = *n / 32 << 5; @@ -714,7 +714,7 @@ f"> */ } } - return 0; + return; /* End of SLASWP */ diff --git a/lapack-netlib/SRC/slasy2.c b/lapack-netlib/SRC/slasy2.c index 72ce3954d..e227137fa 100644 --- a/lapack-netlib/SRC/slasy2.c +++ b/lapack-netlib/SRC/slasy2.c @@ -689,7 +689,7 @@ f"> */ /* > \ingroup realSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn, +/* Subroutine */ void slasy2_(logical *ltranl, logical *ltranr, integer *isgn, integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer * ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real *xnorm, integer *info) @@ -715,7 +715,7 @@ f"> */ real xmax; integer ipsv, jpsv, i__, j, k; logical bswap; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical xswap; @@ -758,7 +758,7 @@ f"> */ /* Quick return if possible */ if (*n1 == 0 || *n2 == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -794,7 +794,7 @@ L10: x[x_dim1 + 1] = b[b_dim1 + 1] * *scale / tau1; *xnorm = (r__1 = x[x_dim1 + 1], abs(r__1)); - return 0; + return; /* 1 by 2: */ /* TL11*[X11 X12] + ISGN*[X11 X12]*op[TR11 TR12] = [B11 B12] */ @@ -904,7 +904,7 @@ L40: , abs(r__2)); *xnorm = f2cmax(r__3,r__4); } - return 0; + return; /* 2 by 2: */ /* op[TL11 TL12]*[X11 X12] +ISGN* [X11 X12]*op[TR11 TR12] = [B11 B12] */ @@ -1047,7 +1047,7 @@ L50: /* Computing MAX */ r__1 = abs(tmp[0]) + abs(tmp[2]), r__2 = abs(tmp[1]) + abs(tmp[3]); *xnorm = f2cmax(r__1,r__2); - return 0; + return; /* End of SLASY2 */ diff --git a/lapack-netlib/SRC/slasyf.c b/lapack-netlib/SRC/slasyf.c index c687a3fc7..6de8fd8f4 100644 --- a/lapack-netlib/SRC/slasyf.c +++ b/lapack-netlib/SRC/slasyf.c @@ -692,7 +692,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb, +/* Subroutine */ void slasyf_(char *uplo, integer *n, integer *nb, integer *kb, real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer *info) { @@ -704,12 +704,12 @@ f"> */ integer imax, jmax, j, k; real t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer kstep; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); real r1, d11, d21, d22; @@ -1432,7 +1432,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of SLASYF */ diff --git a/lapack-netlib/SRC/slasyf_aa.c b/lapack-netlib/SRC/slasyf_aa.c index 317e549b3..22ec7510a 100644 --- a/lapack-netlib/SRC/slasyf_aa.c +++ b/lapack-netlib/SRC/slasyf_aa.c @@ -659,7 +659,7 @@ aa.f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int slasyf_aa_(char *uplo, integer *j1, integer *m, integer +/* Subroutine */ void slasyf_aa_(char *uplo, integer *j1, integer *m, integer *nb, real *a, integer *lda, integer *ipiv, real *h__, integer *ldh, real *work) { @@ -670,17 +670,17 @@ aa.f"> */ integer j, k; real alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer i1, k1, i2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), saxpy_(integer *, real *, real *, integer *, real *, integer *) ; integer mj; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real piv; @@ -1044,7 +1044,7 @@ L30: L40: ; } - return 0; + return; /* End of SLASYF_AA */ diff --git a/lapack-netlib/SRC/slasyf_rk.c b/lapack-netlib/SRC/slasyf_rk.c index 11a779905..3fa967b54 100644 --- a/lapack-netlib/SRC/slasyf_rk.c +++ b/lapack-netlib/SRC/slasyf_rk.c @@ -777,7 +777,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int slasyf_rk_(char *uplo, integer *n, integer *nb, integer +/* Subroutine */ void slasyf_rk_(char *uplo, integer *n, integer *nb, integer *kb, real *a, integer *lda, real *e, integer *ipiv, real *w, integer * ldw, integer *info) { @@ -790,16 +790,16 @@ rk.f"> */ integer imax, jmax, j, k, p; real t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real sfmin; integer itemp; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer kstep; real stemp; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); real r1, d11, d12, d21, d22; @@ -1583,7 +1583,7 @@ L90: } - return 0; + return; /* End of SLASYF_RK */ diff --git a/lapack-netlib/SRC/slasyf_rook.c b/lapack-netlib/SRC/slasyf_rook.c index a5562f2f4..96715c565 100644 --- a/lapack-netlib/SRC/slasyf_rook.c +++ b/lapack-netlib/SRC/slasyf_rook.c @@ -699,7 +699,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int slasyf_rook_(char *uplo, integer *n, integer *nb, +/* Subroutine */ void slasyf_rook_(char *uplo, integer *n, integer *nb, integer *kb, real *a, integer *lda, integer *ipiv, real *w, integer * ldw, integer *info) { @@ -712,16 +712,16 @@ rook.f"> */ integer imax, jmax, j, k, p; real t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real sfmin; integer itemp; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer kstep; real stemp; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); real r1, d11, d12, d21, d22; @@ -1518,7 +1518,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of SLASYF_ROOK */ diff --git a/lapack-netlib/SRC/slatbs.c b/lapack-netlib/SRC/slatbs.c index c19f2c9b5..d3cfdeac4 100644 --- a/lapack-netlib/SRC/slatbs.c +++ b/lapack-netlib/SRC/slatbs.c @@ -755,7 +755,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void slatbs_(char *uplo, char *trans, char *diag, char * normin, integer *n, integer *kd, real *ab, integer *ldab, real *x, real *scale, real *cnorm, integer *info) { @@ -772,12 +772,12 @@ f"> */ real xmax, grow, sumj; integer i__, j, maind; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real tscal, uscal; integer jlast; extern real sasum_(integer *, real *, integer *); logical upper; - extern /* Subroutine */ int stbsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void stbsv_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *); real xj; @@ -836,13 +836,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLATBS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1412,7 +1412,7 @@ L135: sscal_(n, &r__1, &cnorm[1], &c__1); } - return 0; + return; /* End of SLATBS */ diff --git a/lapack-netlib/SRC/slatdf.c b/lapack-netlib/SRC/slatdf.c index 40efd802b..0a3f04fbe 100644 --- a/lapack-netlib/SRC/slatdf.c +++ b/lapack-netlib/SRC/slatdf.c @@ -687,7 +687,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer * +/* Subroutine */ void slatdf_(integer *ijob, integer *n, real *z__, integer * ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer * jpiv) { @@ -701,21 +701,22 @@ f"> */ extern real sdot_(integer *, real *, integer *, real *, integer *); real work[32]; integer i__, j, k; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real pmone; extern real sasum_(integer *, real *, integer *); real sminu; integer iwork[8]; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *); real splus; - extern /* Subroutine */ int sgesc2_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sgesc2_(integer *, real *, integer *, real *, integer *, integer *, real *); real bm, bp, xm[8], xp[8]; - extern /* Subroutine */ int sgecon_(char *, integer *, real *, integer *, + extern /* Subroutine */ void sgecon_(char *, integer *, real *, integer *, real *, real *, real *, integer *, integer *), slassq_( - integer *, real *, integer *, real *, real *), slaswp_(integer *, + integer *, real *, integer *, real *, real *); + extern int slaswp_(integer *, real *, integer *, integer *, integer *, integer *, integer *); @@ -857,7 +858,7 @@ f"> */ } - return 0; + return; /* End of SLATDF */ diff --git a/lapack-netlib/SRC/slatps.c b/lapack-netlib/SRC/slatps.c index 5756a4626..c3493a99f 100644 --- a/lapack-netlib/SRC/slatps.c +++ b/lapack-netlib/SRC/slatps.c @@ -742,7 +742,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void slatps_(char *uplo, char *trans, char *diag, char * normin, integer *n, real *ap, real *x, real *scale, real *cnorm, integer *info) { @@ -759,12 +759,12 @@ f"> */ real xmax, grow, sumj; integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real tscal, uscal; integer jlast; extern real sasum_(integer *, real *, integer *); logical upper; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), stpsv_(char *, char *, char *, integer *, real *, real *, integer *); integer ip; @@ -818,13 +818,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLATPS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1381,7 +1381,7 @@ L135: sscal_(n, &r__1, &cnorm[1], &c__1); } - return 0; + return; /* End of SLATPS */ diff --git a/lapack-netlib/SRC/slatrd.c b/lapack-netlib/SRC/slatrd.c index d6f13fe50..a4f86a954 100644 --- a/lapack-netlib/SRC/slatrd.c +++ b/lapack-netlib/SRC/slatrd.c @@ -715,7 +715,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a, +/* Subroutine */ void slatrd_(char *uplo, integer *n, integer *nb, real *a, integer *lda, real *e, real *tau, real *w, integer *ldw) { /* System generated locals */ @@ -726,14 +726,14 @@ f"> */ integer i__; real alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), saxpy_( integer *, real *, real *, integer *, real *, integer *), ssymv_( char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer iw; - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *); @@ -760,7 +760,7 @@ f"> */ /* Function Body */ if (*n <= 0) { - return 0; + return; } if (lsame_(uplo, "U")) { @@ -906,7 +906,7 @@ f"> */ } } - return 0; + return; /* End of SLATRD */ diff --git a/lapack-netlib/SRC/slatrs.c b/lapack-netlib/SRC/slatrs.c index 44d469bf4..c8463866e 100644 --- a/lapack-netlib/SRC/slatrs.c +++ b/lapack-netlib/SRC/slatrs.c @@ -752,7 +752,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void slatrs_(char *uplo, char *trans, char *diag, char * normin, integer *n, real *a, integer *lda, real *x, real *scale, real *cnorm, integer *info) { @@ -769,12 +769,12 @@ f"> */ real xmax, grow, sumj; integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real tscal, uscal; integer jlast; extern real sasum_(integer *, real *, integer *); logical upper; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), strsv_(char *, char *, char *, integer *, real *, integer *, real *, integer *); real xj; @@ -831,13 +831,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLATRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1375,7 +1375,7 @@ L135: sscal_(n, &r__1, &cnorm[1], &c__1); } - return 0; + return; /* End of SLATRS */ diff --git a/lapack-netlib/SRC/slatrs3.c b/lapack-netlib/SRC/slatrs3.c index e5c48a55b..e6fc722b1 100644 --- a/lapack-netlib/SRC/slatrs3.c +++ b/lapack-netlib/SRC/slatrs3.c @@ -743,7 +743,7 @@ static real c_b36 = 1.f; /* Angelika Schwarz, Umea University, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int slatrs3_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void slatrs3_(char *uplo, char *trans, char *diag, char * normin, integer *n, integer *nrhs, real *a, integer *lda, real *x, integer *ldx, real *scale, real *cnorm, real *work, integer *lwork, integer *info) @@ -762,7 +762,7 @@ static real c_b36 = 1.f; real w[64]; extern logical lsame_(char *, char *); real rscal; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lanrm, ilast, jlast, i1; @@ -772,7 +772,7 @@ static real c_b36 = 1.f; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); real scamin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen ); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; @@ -780,7 +780,7 @@ static real c_b36 = 1.f; integer ifirst; logical notran; integer jfirst; - extern /* Subroutine */ int slatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void slatrs_(char *, char *, char *, char *, integer *, real *, integer *, real *, real *, real *, integer *); real smlnum; logical nounit, lquery; @@ -868,10 +868,10 @@ static real c_b36 = 1.f; } if (*info != 0) { i__1 = -(*info); - xerbla_("SLATRS3", &i__1); - return 0; + xerbla_("SLATRS3", &i__1, 7); + return; } else if (lquery) { - return 0; + return; } /* Initialize scaling factors */ @@ -884,7 +884,7 @@ static real c_b36 = 1.f; /* Quick return if possible */ if (f2cmin(*n,*nrhs) == 0) { - return 0; + return; } /* Determine machine dependent constant to control overflow. */ @@ -902,7 +902,7 @@ static real c_b36 = 1.f; slatrs_(uplo, trans, diag, "Y", n, &a[a_offset], lda, &x[k * x_dim1 + 1], &scale[k], &cnorm[1], info); } - return 0; + return; } /* Compute norms of blocks of A excluding diagonal blocks and find */ @@ -962,7 +962,7 @@ static real c_b36 = 1.f; slatrs_(uplo, trans, diag, "N", n, &a[a_offset], lda, &x[k * x_dim1 + 1], &scale[k], &cnorm[1], info); } - return 0; + return; } /* Every right-hand side requires workspace to store NBA local scale */ @@ -1254,7 +1254,7 @@ static real c_b36 = 1.f; } } } - return 0; + return; /* End of SLATRS3 */ diff --git a/lapack-netlib/SRC/slatrz.c b/lapack-netlib/SRC/slatrz.c index a36c9d56d..1f8467fe7 100644 --- a/lapack-netlib/SRC/slatrz.c +++ b/lapack-netlib/SRC/slatrz.c @@ -649,7 +649,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a, +/* Subroutine */ void slatrz_(integer *m, integer *n, integer *l, real *a, integer *lda, real *tau, real *work) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int slarz_(char *, integer *, integer *, integer * + extern /* Subroutine */ void slarz_(char *, integer *, integer *, integer * , real *, integer *, real *, real *, integer *, real *), slarfg_(integer *, real *, real *, integer *, real *); @@ -684,14 +684,14 @@ f"> */ /* Function Body */ if (*m == 0) { - return 0; + return; } else if (*m == *n) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { tau[i__] = 0.f; /* L10: */ } - return 0; + return; } for (i__ = *m; i__ >= 1; --i__) { @@ -713,7 +713,7 @@ f"> */ /* L20: */ } - return 0; + return; /* End of SLATRZ */ diff --git a/lapack-netlib/SRC/slatsqr.c b/lapack-netlib/SRC/slatsqr.c index 34b0d4330..d756560e0 100644 --- a/lapack-netlib/SRC/slatsqr.c +++ b/lapack-netlib/SRC/slatsqr.c @@ -673,7 +673,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int slatsqr_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void slatsqr_(integer *m, integer *n, integer *mb, integer * nb, real *a, integer *lda, real *t, integer *ldt, real *work, integer *lwork, integer *info) { @@ -682,11 +682,12 @@ static integer c__0 = 0; /* Local variables */ integer i__, ii, kk; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgeqrt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgeqrt_( integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *); logical lquery; - extern /* Subroutine */ int stpqrt_(integer *, integer *, integer *, + extern /* Subroutine */ void stpqrt_(integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *); integer ctr; @@ -738,15 +739,15 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("SLATSQR", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The QR Decomposition */ @@ -754,7 +755,7 @@ static integer c__0 = 0; if (*mb <= *n || *mb >= *m) { sgeqrt_(m, n, nb, &a[a_offset], lda, &t[t_offset], ldt, &work[1], info); - return 0; + return; } kk = (*m - *n) % (*mb - *n); ii = *m - kk + 1; @@ -785,7 +786,7 @@ static integer c__0 = 0; } work[1] = (real) (*n * *nb); - return 0; + return; /* End of SLATSQR */ diff --git a/lapack-netlib/SRC/slauu2.c b/lapack-netlib/SRC/slauu2.c index 35fd95069..67ba252af 100644 --- a/lapack-netlib/SRC/slauu2.c +++ b/lapack-netlib/SRC/slauu2.c @@ -617,7 +617,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void slauu2_(char *uplo, integer *n, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -627,7 +627,7 @@ f"> */ extern real sdot_(integer *, real *, integer *, real *, integer *); integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; @@ -664,13 +664,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAUU2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -718,7 +718,7 @@ f"> */ } } - return 0; + return; /* End of SLAUU2 */ diff --git a/lapack-netlib/SRC/slauum.c b/lapack-netlib/SRC/slauum.c index da7d7eefe..5b33e2c51 100644 --- a/lapack-netlib/SRC/slauum.c +++ b/lapack-netlib/SRC/slauum.c @@ -618,7 +618,7 @@ f"> */ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void slauum_(char *uplo, integer *n, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -627,17 +627,17 @@ f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), ssyrk_(char *, char *, integer *, integer *, real *, real *, integer *, real *, real *, integer * ); integer ib; - extern /* Subroutine */ int slauu2_(char *, integer *, real *, integer *, + extern /* Subroutine */ void slauu2_(char *, integer *, real *, integer *, integer *); integer nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -674,13 +674,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SLAUUM", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -758,7 +758,7 @@ f"> */ } } - return 0; + return; /* End of SLAUUM */ diff --git a/lapack-netlib/SRC/sopgtr.c b/lapack-netlib/SRC/sopgtr.c index 970f0910f..a9f7625d4 100644 --- a/lapack-netlib/SRC/sopgtr.c +++ b/lapack-netlib/SRC/sopgtr.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau, +/* Subroutine */ void sopgtr_(char *uplo, integer *n, real *ap, real *tau, real *q, integer *ldq, real *work, integer *info) { /* System generated locals */ @@ -634,7 +634,7 @@ f"> */ extern logical lsame_(char *, char *); integer iinfo; logical upper; - extern /* Subroutine */ int sorg2l_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorg2l_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *), sorg2r_(integer *, integer *, integer *, real *, integer *, real *, real *, integer * ); @@ -674,13 +674,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SOPGTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -757,7 +757,7 @@ f"> */ &work[1], &iinfo); } } - return 0; + return; /* End of SOPGTR */ diff --git a/lapack-netlib/SRC/sopmtr.c b/lapack-netlib/SRC/sopmtr.c index 8d95afe72..5ab428a2e 100644 --- a/lapack-netlib/SRC/sopmtr.c +++ b/lapack-netlib/SRC/sopmtr.c @@ -662,7 +662,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m, +/* Subroutine */ void sopmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work, integer *info) { @@ -673,7 +673,7 @@ f"> */ logical left; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer i1; logical upper; @@ -731,13 +731,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SOPMTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (upper) { @@ -853,7 +853,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of SOPMTR */ diff --git a/lapack-netlib/SRC/sorbdb.c b/lapack-netlib/SRC/sorbdb.c index 53a5fb1ea..deba21c6c 100644 --- a/lapack-netlib/SRC/sorbdb.c +++ b/lapack-netlib/SRC/sorbdb.c @@ -798,7 +798,7 @@ f"> */ /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sorbdb_(char *trans, char *signs, integer *m, integer *p, +/* Subroutine */ void sorbdb_(char *trans, char *signs, integer *m, integer *p, integer *q, real *x11, integer *ldx11, real *x12, integer *ldx12, real *x21, integer *ldx21, real *x22, integer *ldx22, real *theta, real *phi, real *taup1, real *taup2, real *tauq1, real *tauq2, real * @@ -815,14 +815,14 @@ f"> */ extern real snrm2_(integer *, real *, integer *); integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *), saxpy_(integer *, real *, real *, integer *, real *, integer *); real z1, z2, z3, z4; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; - extern /* Subroutine */ int slarfgp_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfgp_(integer *, real *, real *, integer *, real *); @@ -927,9 +927,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("xORBDB", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Handle column-major and row-major separately */ @@ -1386,7 +1386,7 @@ f"> */ } - return 0; + return; /* End of SORBDB */ diff --git a/lapack-netlib/SRC/sorbdb1.c b/lapack-netlib/SRC/sorbdb1.c index 0151bcae7..170f60bf6 100644 --- a/lapack-netlib/SRC/sorbdb1.c +++ b/lapack-netlib/SRC/sorbdb1.c @@ -715,7 +715,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sorbdb1_(integer *m, integer *p, integer *q, real *x11, +/* Subroutine */ void sorbdb1_(integer *m, integer *p, integer *q, real *x11, integer *ldx11, real *x21, integer *ldx21, real *theta, real *phi, real *taup1, real *taup2, real *tauq1, real *work, integer *lwork, integer *info) @@ -726,7 +726,7 @@ static integer c__1 = 1; real r__1, r__2; /* Local variables */ - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer lworkmin, lworkopt; extern real snrm2_(integer *, real *, integer *); @@ -734,13 +734,13 @@ static integer c__1 = 1; integer i__; real s; integer ilarf, llarf; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer childinfo; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; integer iorbdb5, lorbdb5; - extern /* Subroutine */ int sorbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void sorbdb5_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *), slarfgp_(integer *, real *, real *, integer *, real *); @@ -813,9 +813,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SORBDB1", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce columns 1, ..., Q of X11 and X21 */ @@ -883,7 +883,7 @@ static integer c__1 = 1; } - return 0; + return; /* End of SORBDB1 */ diff --git a/lapack-netlib/SRC/sorbdb2.c b/lapack-netlib/SRC/sorbdb2.c index 50e9feedc..24095a68a 100644 --- a/lapack-netlib/SRC/sorbdb2.c +++ b/lapack-netlib/SRC/sorbdb2.c @@ -714,7 +714,7 @@ static real c_b9 = -1.f; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sorbdb2_(integer *m, integer *p, integer *q, real *x11, +/* Subroutine */ void sorbdb2_(integer *m, integer *p, integer *q, real *x11, integer *ldx11, real *x21, integer *ldx21, real *theta, real *phi, real *taup1, real *taup2, real *tauq1, real *work, integer *lwork, integer *info) @@ -725,7 +725,7 @@ static real c_b9 = -1.f; real r__1, r__2; /* Local variables */ - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer lworkmin, lworkopt; extern real snrm2_(integer *, real *, integer *); @@ -733,14 +733,14 @@ static real c_b9 = -1.f; integer i__; real s; integer ilarf, llarf; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer childinfo; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; integer iorbdb5, lorbdb5; - extern /* Subroutine */ int sorbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void sorbdb5_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *), slarfgp_(integer *, real *, real *, integer *, real *); @@ -812,9 +812,9 @@ static real c_b9 = -1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SORBDB2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce rows 1, ..., P of X11 and X21 */ @@ -898,7 +898,7 @@ static real c_b9 = -1.f; i__], &x21[i__ + (i__ + 1) * x21_dim1], ldx21, &work[ilarf]); } - return 0; + return; /* End of SORBDB2 */ diff --git a/lapack-netlib/SRC/sorbdb3.c b/lapack-netlib/SRC/sorbdb3.c index a3acf4e8a..0ac80f40e 100644 --- a/lapack-netlib/SRC/sorbdb3.c +++ b/lapack-netlib/SRC/sorbdb3.c @@ -714,7 +714,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sorbdb3_(integer *m, integer *p, integer *q, real *x11, +/* Subroutine */ void sorbdb3_(integer *m, integer *p, integer *q, real *x11, integer *ldx11, real *x21, integer *ldx21, real *theta, real *phi, real *taup1, real *taup2, real *tauq1, real *work, integer *lwork, integer *info) @@ -725,7 +725,7 @@ static integer c__1 = 1; real r__1, r__2; /* Local variables */ - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer lworkmin, lworkopt; extern real snrm2_(integer *, real *, integer *); @@ -733,13 +733,13 @@ static integer c__1 = 1; integer i__; real s; integer ilarf, llarf; - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer childinfo; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; integer iorbdb5, lorbdb5; - extern /* Subroutine */ int sorbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void sorbdb5_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *), slarfgp_(integer *, real *, real *, integer *, real *); @@ -811,9 +811,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SORBDB3", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce rows 1, ..., M-P of X11 and X21 */ @@ -896,7 +896,7 @@ static integer c__1 = 1; i__], &x11[i__ + (i__ + 1) * x11_dim1], ldx11, &work[ilarf]); } - return 0; + return; /* End of SORBDB3 */ diff --git a/lapack-netlib/SRC/sorbdb4.c b/lapack-netlib/SRC/sorbdb4.c index dee93d532..02328c253 100644 --- a/lapack-netlib/SRC/sorbdb4.c +++ b/lapack-netlib/SRC/sorbdb4.c @@ -726,7 +726,7 @@ static real c_b5 = -1.f; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sorbdb4_(integer *m, integer *p, integer *q, real *x11, +/* Subroutine */ void sorbdb4_(integer *m, integer *p, integer *q, real *x11, integer *ldx11, real *x21, integer *ldx21, real *theta, real *phi, real *taup1, real *taup2, real *tauq1, real *phantom, real *work, integer *lwork, integer *info) @@ -737,7 +737,7 @@ static real c_b5 = -1.f; real r__1, r__2; /* Local variables */ - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer lworkmin, lworkopt; extern real snrm2_(integer *, real *, integer *); @@ -745,14 +745,14 @@ static real c_b5 = -1.f; integer i__, j; real s; integer ilarf, llarf; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer childinfo; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical lquery; integer iorbdb5, lorbdb5; - extern /* Subroutine */ int sorbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void sorbdb5_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *), slarfgp_(integer *, real *, real *, integer *, real *); @@ -827,9 +827,9 @@ static real c_b5 = -1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SORBDB4", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce columns 1, ..., M-Q of X11 and X21 */ @@ -958,7 +958,7 @@ static real c_b5 = -1.f; x21_dim1], ldx21, &work[ilarf]); } - return 0; + return; /* End of SORBDB4 */ diff --git a/lapack-netlib/SRC/sorbdb5.c b/lapack-netlib/SRC/sorbdb5.c index 71a684469..26cfc7591 100644 --- a/lapack-netlib/SRC/sorbdb5.c +++ b/lapack-netlib/SRC/sorbdb5.c @@ -664,7 +664,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorbdb5_(integer *m1, integer *m2, integer *n, real *x1, +/* Subroutine */ void sorbdb5_(integer *m1, integer *m2, integer *n, real *x1, integer *incx1, real *x2, integer *incx2, real *q1, integer *ldq1, real *q2, integer *ldq2, real *work, integer *lwork, integer *info) { @@ -674,7 +674,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern real snrm2_(integer *, real *, integer *); integer i__, j, childinfo; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sorbdb6_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sorbdb6_( integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer * , integer *); @@ -725,7 +726,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SORBDB5", &i__1, (ftnlen)7); - return 0; + return; } /* Project X onto the orthogonal complement of Q */ @@ -737,7 +738,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (snrm2_(m1, &x1[1], incx1) != 0.f || snrm2_(m2, &x2[1], incx2) != 0.f) { - return 0; + return; } /* Project each standard basis vector e_1,...,e_M1 in turn, stopping */ @@ -758,7 +759,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ ldq1, &q2[q2_offset], ldq2, &work[1], lwork, &childinfo); if (snrm2_(m1, &x1[1], incx1) != 0.f || snrm2_(m2, &x2[1], incx2) != 0.f) { - return 0; + return; } } @@ -780,11 +781,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ ldq1, &q2[q2_offset], ldq2, &work[1], lwork, &childinfo); if (snrm2_(m1, &x1[1], incx1) != 0.f || snrm2_(m2, &x2[1], incx2) != 0.f) { - return 0; + return; } } - return 0; + return; /* End of SORBDB5 */ diff --git a/lapack-netlib/SRC/sorbdb6.c b/lapack-netlib/SRC/sorbdb6.c index c22606bd3..2f61c3834 100644 --- a/lapack-netlib/SRC/sorbdb6.c +++ b/lapack-netlib/SRC/sorbdb6.c @@ -669,7 +669,7 @@ static real c_b12 = -1.f; /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorbdb6_(integer *m1, integer *m2, integer *n, real *x1, +/* Subroutine */ void sorbdb6_(integer *m1, integer *m2, integer *n, real *x1, integer *incx1, real *x2, integer *incx2, real *q1, integer *ldq1, real *q2, integer *ldq2, real *work, integer *lwork, integer *info) { @@ -679,8 +679,10 @@ static real c_b12 = -1.f; /* Local variables */ integer i__; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, - real *, integer *, real *, integer *, real *, real *, integer *), xerbla_(char *, integer *, ftnlen), slassq_(integer *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, + real *, integer *, real *, integer *, real *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slassq_(integer *, real *, integer *, real *, real *); real normsq1, normsq2, scl1, scl2, ssq1, ssq2; @@ -730,7 +732,7 @@ static real c_b12 = -1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SORBDB6", &i__1, (ftnlen)7); - return 0; + return; } /* First, project X onto the orthogonal complement of Q's column */ @@ -783,11 +785,11 @@ static real c_b12 = -1.f; /* Otherwise, project again. */ if (normsq2 >= normsq1 * .01f) { - return 0; + return; } if (normsq2 == 0.f) { - return 0; + return; } normsq1 = normsq2; @@ -842,7 +844,7 @@ static real c_b12 = -1.f; } } - return 0; + return; /* End of SORBDB6 */ diff --git a/lapack-netlib/SRC/sorcsd.c b/lapack-netlib/SRC/sorcsd.c index 609fa835b..108173ba2 100644 --- a/lapack-netlib/SRC/sorcsd.c +++ b/lapack-netlib/SRC/sorcsd.c @@ -810,7 +810,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorcsd_(char *jobu1, char *jobu2, char *jobv1t, char * +/* Subroutine */ void sorcsd_(char *jobu1, char *jobu2, char *jobv1t, char * jobv2t, char *trans, char *signs, integer *m, integer *p, integer *q, real *x11, integer *ldx11, real *x12, integer *ldx12, real *x21, integer *ldx21, real *x22, integer *ldx22, real *theta, real *u1, @@ -837,30 +837,31 @@ f"> */ lbbcsdworkopt; logical wantu1, wantu2; integer ibbcsd, lorbdbworkopt; - extern /* Subroutine */ int sbbcsd_(char *, char *, char *, char *, char * + extern /* Subroutine */ void sbbcsd_(char *, char *, char *, char *, char * , integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, real *, real *, real *, real *, real *, real *, real *, real *, integer *, integer *); integer iorbdb, lorglqworkmin, lorgqrworkmin; - extern /* Subroutine */ int sorbdb_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sorbdb_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, real *, real *, real *, real *, real *, real - *, real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lorglqworkopt, lorgqrworkopt; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer iorglq; - extern /* Subroutine */ int slapmr_(logical *, integer *, integer *, real + extern /* Subroutine */ void slapmr_(logical *, integer *, integer *, real *, integer *, integer *), slapmt_(logical *, integer *, integer *, real *, integer *, integer *); integer iorgqr; char signst[1]; - extern /* Subroutine */ int sorglq_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorglq_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); char transt[1]; integer lbbcsdwork; - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); logical lquery; integer lorbdbwork, lorglqwork, lorgqrwork; @@ -986,7 +987,7 @@ f"> */ ldx12, &x22[x22_offset], ldx22, &theta[1], &v1t[v1t_offset], ldv1t, &v2t[v2t_offset], ldv2t, &u1[u1_offset], ldu1, &u2[ u2_offset], ldu2, &work[1], lwork, &iwork[1], info); - return 0; + return; } /* Work with permutation [ 0 I; I 0 ] * X * [ 0 I; I 0 ] if */ @@ -1006,7 +1007,7 @@ f"> */ u2_offset], ldu2, &u1[u1_offset], ldu1, &v2t[v2t_offset], ldv2t, &v1t[v1t_offset], ldv1t, &work[1], lwork, &iwork[1], info); - return 0; + return; } /* Compute workspace */ @@ -1113,9 +1114,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORCSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Transform to bidiagonal block form */ @@ -1275,7 +1276,7 @@ f"> */ } } - return 0; + return; /* End SORCSD */ diff --git a/lapack-netlib/SRC/sorcsd2by1.c b/lapack-netlib/SRC/sorcsd2by1.c index 7e0186a3d..7dfb5db12 100644 --- a/lapack-netlib/SRC/sorcsd2by1.c +++ b/lapack-netlib/SRC/sorcsd2by1.c @@ -746,7 +746,7 @@ by1.f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorcsd2by1_(char *jobu1, char *jobu2, char *jobv1t, +/* Subroutine */ void sorcsd2by1_(char *jobu1, char *jobu2, char *jobv1t, integer *m, integer *p, integer *q, real *x11, integer *ldx11, real * x21, integer *ldx21, real *theta, real *u1, integer *ldu1, real *u2, integer *ldu2, real *v1t, integer *ldv1t, real *work, integer *lwork, @@ -761,34 +761,35 @@ by1.f"> */ lworkmin, lworkopt, i__, j, r__; extern logical lsame_(char *, char *); integer childinfo; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer lorglqmin, lorgqrmin, lorglqopt, itaup1, itaup2, itauq1, lorgqropt; logical wantu1, wantu2; integer ibbcsd, lbbcsd; - extern /* Subroutine */ int sbbcsd_(char *, char *, char *, char *, char * + extern /* Subroutine */ void sbbcsd_(char *, char *, char *, char *, char * , integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, real *, real *, real *, real *, real *, real *, real *, real *, integer *, integer *); integer iorbdb, lorbdb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slacpy_( char *, integer *, integer *, real *, integer *, real *, integer * ); integer iorglq; - extern /* Subroutine */ int slapmr_(logical *, integer *, integer *, real + extern /* Subroutine */ void slapmr_(logical *, integer *, integer *, real *, integer *, integer *); integer lorglq; - extern /* Subroutine */ int slapmt_(logical *, integer *, integer *, real + extern /* Subroutine */ void slapmt_(logical *, integer *, integer *, real *, integer *, integer *); integer iorgqr, lorgqr; - extern /* Subroutine */ int sorglq_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorglq_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *), sorgqr_( integer *, integer *, integer *, real *, integer *, real *, real * , integer *, integer *); logical lquery; - extern /* Subroutine */ int sorbdb1_(integer *, integer *, integer *, + extern /* Subroutine */ void sorbdb1_(integer *, integer *, integer *, real *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *, integer *, integer *), sorbdb2_(integer *, integer *, integer *, real *, integer *, real *, integer *, real @@ -1113,9 +1114,9 @@ by1.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORCSD2BY1", &i__1, (ftnlen)10); - return 0; + return; } else if (lquery) { - return 0; + return; } lorgqr = *lwork - iorgqr + 1; lorglq = *lwork - iorglq + 1; @@ -1425,7 +1426,7 @@ by1.f"> */ } } - return 0; + return; /* End of SORCSD2BY1 */ diff --git a/lapack-netlib/SRC/sorg2l.c b/lapack-netlib/SRC/sorg2l.c index a62c42deb..f5816ef82 100644 --- a/lapack-netlib/SRC/sorg2l.c +++ b/lapack-netlib/SRC/sorg2l.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a, +/* Subroutine */ void sorg2l_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -637,7 +637,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer ii; @@ -676,13 +676,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORG2L", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Initialise columns 1:n-k to columns of the unit matrix */ @@ -723,7 +723,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of SORG2L */ diff --git a/lapack-netlib/SRC/sorg2r.c b/lapack-netlib/SRC/sorg2r.c index 144d89e1e..425657cc1 100644 --- a/lapack-netlib/SRC/sorg2r.c +++ b/lapack-netlib/SRC/sorg2r.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a, +/* Subroutine */ void sorg2r_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -637,9 +637,10 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slarf_(char *, integer *, integer *, real *, integer *, real *, - real *, integer *, real *), xerbla_(char *, integer *, ftnlen); + real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -674,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORG2R", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Initialise columns k+1:n to columns of the unit matrix */ @@ -723,7 +724,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of SORG2R */ diff --git a/lapack-netlib/SRC/sorgbr.c b/lapack-netlib/SRC/sorgbr.c index a10e71b2e..59f5b289f 100644 --- a/lapack-netlib/SRC/sorgbr.c +++ b/lapack-netlib/SRC/sorgbr.c @@ -670,7 +670,7 @@ f"> */ /* > \ingroup realGBcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k, +/* Subroutine */ void sorgbr_(char *vect, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { @@ -683,7 +683,8 @@ f"> */ integer iinfo; logical wantq; integer mn; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sorglq_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sorglq_( integer *, integer *, integer *, real *, integer *, real *, real * , integer *, integer *), sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); @@ -765,17 +766,17 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGBR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { work[1] = (real) lwkopt; - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1] = 1.f; - return 0; + return; } if (wantq) { @@ -872,7 +873,7 @@ f"> */ } } work[1] = (real) lwkopt; - return 0; + return; /* End of SORGBR */ diff --git a/lapack-netlib/SRC/sorghr.c b/lapack-netlib/SRC/sorghr.c index c4fbb26ca..ea21f32a2 100644 --- a/lapack-netlib/SRC/sorghr.c +++ b/lapack-netlib/SRC/sorghr.c @@ -640,7 +640,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a, +/* Subroutine */ void sorghr_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -651,7 +651,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sorgqr_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgqr_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *); integer lwkopt; logical lquery; @@ -701,16 +701,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGHR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1] = 1.f; - return 0; + return; } /* Shift the vectors which define the elementary reflectors one */ @@ -765,7 +765,7 @@ f"> */ ilo], &work[1], lwork, &iinfo); } work[1] = (real) lwkopt; - return 0; + return; /* End of SORGHR */ diff --git a/lapack-netlib/SRC/sorgl2.c b/lapack-netlib/SRC/sorgl2.c index d5dfcc95e..1fb907dfc 100644 --- a/lapack-netlib/SRC/sorgl2.c +++ b/lapack-netlib/SRC/sorgl2.c @@ -622,7 +622,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a, +/* Subroutine */ void sorgl2_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -631,9 +631,10 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slarf_(char *, integer *, integer *, real *, integer *, real *, - real *, integer *, real *), xerbla_(char *, integer *, ftnlen); + real *, integer *, real *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -668,13 +669,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGL2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } if (*k < *m) { @@ -722,7 +723,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of SORGL2 */ diff --git a/lapack-netlib/SRC/sorglq.c b/lapack-netlib/SRC/sorglq.c index 7897879d3..ff865dcfa 100644 --- a/lapack-netlib/SRC/sorglq.c +++ b/lapack-netlib/SRC/sorglq.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a, +/* Subroutine */ void sorglq_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -651,15 +651,16 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int sorgl2_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgl2_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ib, nb, ki, kk, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -704,16 +705,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { work[1] = 1.f; - return 0; + return; } nbmin = 2; @@ -832,7 +833,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SORGLQ */ diff --git a/lapack-netlib/SRC/sorgql.c b/lapack-netlib/SRC/sorgql.c index 31b454e21..81ee726b1 100644 --- a/lapack-netlib/SRC/sorgql.c +++ b/lapack-netlib/SRC/sorgql.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a, +/* Subroutine */ void sorgql_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -652,15 +652,16 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo; - extern /* Subroutine */ int sorg2l_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorg2l_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ib, nb, kk, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -716,15 +717,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGQL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } nbmin = 2; @@ -842,7 +843,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SORGQL */ diff --git a/lapack-netlib/SRC/sorgqr.c b/lapack-netlib/SRC/sorgqr.c index c7ced9482..208038f53 100644 --- a/lapack-netlib/SRC/sorgqr.c +++ b/lapack-netlib/SRC/sorgqr.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a, +/* Subroutine */ void sorgqr_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -652,15 +652,16 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo, ib; - extern /* Subroutine */ int sorg2r_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorg2r_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *); integer nb, ki, kk, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -705,16 +706,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { work[1] = 1.f; - return 0; + return; } nbmin = 2; @@ -833,7 +834,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SORGQR */ diff --git a/lapack-netlib/SRC/sorgr2.c b/lapack-netlib/SRC/sorgr2.c index fd44b2bcb..04b830eac 100644 --- a/lapack-netlib/SRC/sorgr2.c +++ b/lapack-netlib/SRC/sorgr2.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a, +/* Subroutine */ void sorgr2_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info) { /* System generated locals */ @@ -633,7 +633,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer ii; @@ -672,13 +672,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGR2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } if (*k < *m) { @@ -724,7 +724,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of SORGR2 */ diff --git a/lapack-netlib/SRC/sorgrq.c b/lapack-netlib/SRC/sorgrq.c index 66d243391..b32dd4606 100644 --- a/lapack-netlib/SRC/sorgrq.c +++ b/lapack-netlib/SRC/sorgrq.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a, +/* Subroutine */ void sorgrq_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -652,15 +652,16 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo, ib; - extern /* Subroutine */ int sorgr2_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgr2_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *); integer nb, ii, kk, nx; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -716,15 +717,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGRQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } nbmin = 2; @@ -842,7 +843,7 @@ f"> */ } work[1] = (real) iws; - return 0; + return; /* End of SORGRQ */ diff --git a/lapack-netlib/SRC/sorgtr.c b/lapack-netlib/SRC/sorgtr.c index e7ff6daaa..1cc106671 100644 --- a/lapack-netlib/SRC/sorgtr.c +++ b/lapack-netlib/SRC/sorgtr.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void sorgtr_(char *uplo, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -652,7 +652,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sorgql_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorgql_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *, integer *), sorgqr_( integer *, integer *, integer *, real *, integer *, real *, real * , integer *, integer *); @@ -719,16 +719,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGTR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1] = 1.f; - return 0; + return; } if (upper) { @@ -799,7 +799,7 @@ f"> */ } } work[1] = (real) lwkopt; - return 0; + return; /* End of SORGTR */ diff --git a/lapack-netlib/SRC/sorgtsqr.c b/lapack-netlib/SRC/sorgtsqr.c index 5b63e99d7..a9f8a30d6 100644 --- a/lapack-netlib/SRC/sorgtsqr.c +++ b/lapack-netlib/SRC/sorgtsqr.c @@ -688,7 +688,7 @@ r.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int sorgtsqr_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void sorgtsqr_(integer *m, integer *n, integer *mb, integer * nb, real *a, integer *lda, real *t, integer *ldt, real *work, integer *lwork, integer *info) { @@ -696,14 +696,15 @@ r.f"> */ integer a_dim1, a_offset, t_dim1, t_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int slamtsqr_(char *, char *, integer *, integer * + extern /* Subroutine */ void slamtsqr_(char *, char *, integer *, integer * , integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *); integer lworkopt, j, iinfo; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer lc, lw; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slaset_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slaset_( char *, integer *, integer *, real *, real *, real *, integer *); logical lquery; integer ldc, nblocal; @@ -784,17 +785,17 @@ r.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGTSQR", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { work[1] = (real) lworkopt; - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { work[1] = (real) lworkopt; - return 0; + return; } /* (1) Form explicitly the tall-skinny M-by-N left submatrix Q1_in */ @@ -828,7 +829,7 @@ r.f"> */ } work[1] = (real) lworkopt; - return 0; + return; /* End of SORGTSQR */ diff --git a/lapack-netlib/SRC/sorgtsqr_row.c b/lapack-netlib/SRC/sorgtsqr_row.c index 3875372e2..cd966e9e5 100644 --- a/lapack-netlib/SRC/sorgtsqr_row.c +++ b/lapack-netlib/SRC/sorgtsqr_row.c @@ -701,7 +701,7 @@ r_row.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sorgtsqr_row_(integer *m, integer *n, integer *mb, +/* Subroutine */ void sorgtsqr_row_(integer *m, integer *n, integer *mb, integer *nb, real *a, integer *lda, real *t, integer *ldt, real *work, integer *lwork, integer *info) { @@ -712,12 +712,13 @@ r_row.f"> */ integer jb_t__, itmp, lworkopt; real dummy[1] /* was [1][1] */; integer ib_bottom__, ib, kb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slaset_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slaset_( char *, integer *, integer *, real *, real *, real *, integer *); integer mb1, mb2, m_plus_one__; logical lquery; integer num_all_row_blocks__, imb, knb, nblocal, kb_last__; - extern /* Subroutine */ int slarfb_gett_(char *, integer *, integer *, + extern /* Subroutine */ void slarfb_gett_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *); @@ -779,17 +780,17 @@ r_row.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORGTSQR_ROW", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { work[1] = (real) lworkopt; - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { work[1] = (real) lworkopt; - return 0; + return; } /* (0) Set the upper-triangular part of the matrix A to zero and */ @@ -911,7 +912,7 @@ r_row.f"> */ } work[1] = (real) lworkopt; - return 0; + return; /* End of SORGTSQR_ROW */ diff --git a/lapack-netlib/SRC/sorhr_col.c b/lapack-netlib/SRC/sorhr_col.c index 706200dd0..d2110548e 100644 --- a/lapack-netlib/SRC/sorhr_col.c +++ b/lapack-netlib/SRC/sorhr_col.c @@ -773,17 +773,17 @@ ol.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int sorhr_col_(integer *m, integer *n, integer *nb, real *a, +/* Subroutine */ void sorhr_col_(integer *m, integer *n, integer *nb, real *a, integer *lda, real *t, integer *ldt, real *d__, integer *info) { /* System generated locals */ integer a_dim1, a_offset, t_dim1, t_offset, i__1, i__2, i__3, i__4; /* Local variables */ - extern /* Subroutine */ int slaorhr_col_getrfnp_(integer *, integer *, + extern /* Subroutine */ void slaorhr_col_getrfnp_(integer *, integer *, real *, integer *, real *, integer *); integer nplusone, i__, j, iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), strsm_( char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *); @@ -835,13 +835,13 @@ ol.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORHR_COL", &i__1, (ftnlen)9); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* On input, the M-by-N matrix A contains the orthogonal */ @@ -970,7 +970,7 @@ ol.f"> */ } - return 0; + return; /* End of SORHR_COL */ diff --git a/lapack-netlib/SRC/sorm22.c b/lapack-netlib/SRC/sorm22.c index 2cbc237af..5f1d05cda 100644 --- a/lapack-netlib/SRC/sorm22.c +++ b/lapack-netlib/SRC/sorm22.c @@ -675,7 +675,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorm22_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sorm22_(char *side, char *trans, integer *m, integer *n, integer *n1, integer *n2, real *q, integer *ldq, real *c__, integer * ldc, real *work, integer *lwork, integer *info) { @@ -686,13 +686,14 @@ f"> */ logical left; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *); integer nb, nq, nw; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slacpy_( char *, integer *, integer *, real *, integer *, real *, integer * ); logical notran; @@ -770,16 +771,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORM22", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1] = 1.f; - return 0; + return; } /* Degenerate cases (N1 = 0 or N2 = 0) are handled using STRMM. */ @@ -788,12 +789,12 @@ f"> */ strmm_(side, "Upper", trans, "Non-Unit", m, n, &c_b10, &q[q_offset], ldq, &c__[c_offset], ldc); work[1] = 1.f; - return 0; + return; } else if (*n2 == 0) { strmm_(side, "Lower", trans, "Non-Unit", m, n, &c_b10, &q[q_offset], ldq, &c__[c_offset], ldc); work[1] = 1.f; - return 0; + return; } /* Compute the largest chunk size available from the workspace. */ @@ -978,7 +979,7 @@ f"> */ } work[1] = (real) lwkopt; - return 0; + return; /* End of SORM22 */ diff --git a/lapack-netlib/SRC/sorm2l.c b/lapack-netlib/SRC/sorm2l.c index b0ded3367..97b682708 100644 --- a/lapack-netlib/SRC/sorm2l.c +++ b/lapack-netlib/SRC/sorm2l.c @@ -672,7 +672,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sorm2l_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info) { @@ -683,7 +683,7 @@ f"> */ logical left; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer i1, i2, i3, mi, ni, nq; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -742,13 +742,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORM2L", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran || ! left && ! notran) { @@ -791,7 +791,7 @@ f"> */ a[nq - *k + i__ + i__ * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of SORM2L */ diff --git a/lapack-netlib/SRC/sorm2r.c b/lapack-netlib/SRC/sorm2r.c index 98136ee80..4d8e075bf 100644 --- a/lapack-netlib/SRC/sorm2r.c +++ b/lapack-netlib/SRC/sorm2r.c @@ -672,7 +672,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sorm2r_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info) { @@ -683,7 +683,7 @@ f"> */ logical left; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer i1, i2, i3, ic, jc, mi, ni, nq; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -742,13 +742,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORM2R", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -795,7 +795,7 @@ f"> */ a[i__ + i__ * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of SORM2R */ diff --git a/lapack-netlib/SRC/sormbr.c b/lapack-netlib/SRC/sormbr.c index fc324c883..701bf10d7 100644 --- a/lapack-netlib/SRC/sormbr.c +++ b/lapack-netlib/SRC/sormbr.c @@ -710,7 +710,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m, +/* Subroutine */ void sormbr_(char *vect, char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -728,12 +728,12 @@ f"> */ integer *, integer *, ftnlen, ftnlen); logical notran, applyq; char transt[1]; - extern /* Subroutine */ int sormlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormlq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -848,16 +848,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORMBR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ work[1] = 1.f; if (*m == 0 || *n == 0) { - return 0; + return; } if (applyq) { @@ -926,7 +926,7 @@ f"> */ } } work[1] = (real) lwkopt; - return 0; + return; /* End of SORMBR */ diff --git a/lapack-netlib/SRC/sormhr.c b/lapack-netlib/SRC/sormhr.c index 6893d310b..c9eb97444 100644 --- a/lapack-netlib/SRC/sormhr.c +++ b/lapack-netlib/SRC/sormhr.c @@ -693,7 +693,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sormhr_(char *side, char *trans, integer *m, integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real * c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -711,7 +711,7 @@ f"> */ integer *, integer *, ftnlen, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -796,16 +796,16 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("SORMHR", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || nh == 0) { work[1] = 1.f; - return 0; + return; } if (left) { @@ -824,7 +824,7 @@ f"> */ tau[*ilo], &c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo); work[1] = (real) lwkopt; - return 0; + return; /* End of SORMHR */ diff --git a/lapack-netlib/SRC/sorml2.c b/lapack-netlib/SRC/sorml2.c index 47b6ce840..122fe4ed6 100644 --- a/lapack-netlib/SRC/sorml2.c +++ b/lapack-netlib/SRC/sorml2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sorml2_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info) { @@ -679,7 +679,7 @@ f"> */ logical left; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer i1, i2, i3, ic, jc, mi, ni, nq; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -738,13 +738,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORML2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran || ! left && ! notran) { @@ -791,7 +791,7 @@ f"> */ a[i__ + i__ * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of SORML2 */ diff --git a/lapack-netlib/SRC/sormlq.c b/lapack-netlib/SRC/sormlq.c index ea469602a..5b37bed56 100644 --- a/lapack-netlib/SRC/sormlq.c +++ b/lapack-netlib/SRC/sormlq.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sormlq_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -698,16 +698,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, ic, jc; - extern /* Subroutine */ int sorml2_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sorml2_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *); integer nb, mi, ni, nq, nw; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); logical notran; integer ldwork; @@ -790,16 +791,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORMLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { work[1] = 1.f; - return 0; + return; } nbmin = 2; @@ -889,7 +890,7 @@ f"> */ } } work[1] = (real) lwkopt; - return 0; + return; /* End of SORMLQ */ diff --git a/lapack-netlib/SRC/sormql.c b/lapack-netlib/SRC/sormql.c index 3932e56c9..e729d49cd 100644 --- a/lapack-netlib/SRC/sormql.c +++ b/lapack-netlib/SRC/sormql.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sormql_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -698,16 +698,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib; - extern /* Subroutine */ int sorm2l_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sorm2l_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *); integer nb, mi, ni, nq, nw; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); logical notran; integer ldwork, lwkopt; @@ -792,15 +793,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORMQL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } nbmin = 2; @@ -880,7 +881,7 @@ f"> */ } } work[1] = (real) lwkopt; - return 0; + return; /* End of SORMQL */ diff --git a/lapack-netlib/SRC/sormqr.c b/lapack-netlib/SRC/sormqr.c index 1531b3186..b621e1c7a 100644 --- a/lapack-netlib/SRC/sormqr.c +++ b/lapack-netlib/SRC/sormqr.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sormqr_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -698,16 +698,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, ic, jc, nb; - extern /* Subroutine */ int sorm2r_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sorm2r_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *); integer mi, ni, nq, nw; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); logical notran; integer ldwork, lwkopt; @@ -788,16 +789,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORMQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { work[1] = 1.f; - return 0; + return; } nbmin = 2; @@ -881,7 +882,7 @@ f"> */ } } work[1] = (real) lwkopt; - return 0; + return; /* End of SORMQR */ diff --git a/lapack-netlib/SRC/sormr2.c b/lapack-netlib/SRC/sormr2.c index 7cd260bd6..2b6d81978 100644 --- a/lapack-netlib/SRC/sormr2.c +++ b/lapack-netlib/SRC/sormr2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sormr2_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info) { @@ -679,7 +679,7 @@ f"> */ logical left; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int slarf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarf_(char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer i1, i2, i3, mi, ni, nq; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -738,13 +738,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORMR2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -787,7 +787,7 @@ f"> */ a[i__ + (nq - *k + i__) * a_dim1] = aii; /* L10: */ } - return 0; + return; /* End of SORMR2 */ diff --git a/lapack-netlib/SRC/sormr3.c b/lapack-netlib/SRC/sormr3.c index 93b6b758f..8c806a145 100644 --- a/lapack-netlib/SRC/sormr3.c +++ b/lapack-netlib/SRC/sormr3.c @@ -687,7 +687,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sormr3_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info) { @@ -699,7 +699,7 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer i1, i2, i3; - extern /* Subroutine */ int slarz_(char *, integer *, integer *, integer * + extern /* Subroutine */ void slarz_(char *, integer *, integer *, integer * , real *, integer *, real *, real *, integer *, real *); integer ja, ic, jc, mi, ni, nq; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -759,13 +759,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORMR3", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -813,7 +813,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of SORMR3 */ diff --git a/lapack-netlib/SRC/sormrq.c b/lapack-netlib/SRC/sormrq.c index 2c2d7084e..a516c57ea 100644 --- a/lapack-netlib/SRC/sormrq.c +++ b/lapack-netlib/SRC/sormrq.c @@ -683,7 +683,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sormrq_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -698,16 +698,17 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, nb; - extern /* Subroutine */ int sormr2_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormr2_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *); integer mi, ni, nq, nw; - extern /* Subroutine */ int slarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarfb_(char *, char *, char *, char *, integer *, integer *, integer *, real *, integer *, real *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarft_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); logical notran; integer ldwork; @@ -794,15 +795,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORMRQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } nbmin = 2; @@ -888,7 +889,7 @@ f"> */ } } work[1] = (real) lwkopt; - return 0; + return; /* End of SORMRQ */ diff --git a/lapack-netlib/SRC/sormrz.c b/lapack-netlib/SRC/sormrz.c index af254f9af..e5614ac38 100644 --- a/lapack-netlib/SRC/sormrz.c +++ b/lapack-netlib/SRC/sormrz.c @@ -702,7 +702,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void sormrz_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -717,20 +717,20 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, ic, ja, jc, nb; - extern /* Subroutine */ int sormr3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormr3_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , real *, integer *); integer mi, ni, nq, nw; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarzb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarzb_(char *, char *, char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *); logical notran; integer ldwork; char transt[1]; - extern /* Subroutine */ int slarzt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarzt_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *); integer lwkopt; logical lquery; @@ -816,15 +816,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SORMRZ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } nbmin = 2; @@ -919,7 +919,7 @@ f"> */ work[1] = (real) lwkopt; - return 0; + return; /* End of SORMRZ */ diff --git a/lapack-netlib/SRC/sormtr.c b/lapack-netlib/SRC/sormtr.c index 1ae186e51..d1a19ffa2 100644 --- a/lapack-netlib/SRC/sormtr.c +++ b/lapack-netlib/SRC/sormtr.c @@ -686,7 +686,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m, +/* Subroutine */ void sormtr_(char *side, char *uplo, char *trans, integer *m, integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info) { @@ -704,12 +704,12 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sormql_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormql_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int sormqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -818,16 +818,16 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("SORMTR", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || nq == 1) { work[1] = 1.f; - return 0; + return; } if (left) { @@ -861,7 +861,7 @@ f"> */ c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo); } work[1] = (real) lwkopt; - return 0; + return; /* End of SORMTR */ diff --git a/lapack-netlib/SRC/spbcon.c b/lapack-netlib/SRC/spbcon.c index df9f52693..3725448a3 100644 --- a/lapack-netlib/SRC/spbcon.c +++ b/lapack-netlib/SRC/spbcon.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab, +/* Subroutine */ void spbcon_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *anorm, real *rcond, real *work, integer *iwork, integer *info) { @@ -657,9 +657,9 @@ f"> */ real scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *); + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer ix; real scalel; @@ -668,7 +668,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); real ainvnm; - extern /* Subroutine */ int slatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void slatbs_(char *, char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *); char normin[1]; @@ -710,7 +710,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -718,9 +718,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -784,7 +784,7 @@ L10: L20: - return 0; + return; /* End of SPBCON */ diff --git a/lapack-netlib/SRC/spbequ.c b/lapack-netlib/SRC/spbequ.c index 9bd16a484..80458825e 100644 --- a/lapack-netlib/SRC/spbequ.c +++ b/lapack-netlib/SRC/spbequ.c @@ -638,7 +638,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab, +/* Subroutine */ void spbequ_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *s, real *scond, real *amax, integer *info) { /* System generated locals */ @@ -685,7 +685,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPBEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -693,7 +693,7 @@ f"> */ if (*n == 0) { *scond = 1.f; *amax = 0.f; - return 0; + return; } if (upper) { @@ -730,7 +730,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.f) { *info = i__; - return 0; + return; } /* L20: */ } @@ -749,7 +749,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of SPBEQU */ diff --git a/lapack-netlib/SRC/spbrfs.c b/lapack-netlib/SRC/spbrfs.c index b878f2fa6..fce4df080 100644 --- a/lapack-netlib/SRC/spbrfs.c +++ b/lapack-netlib/SRC/spbrfs.c @@ -703,7 +703,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void spbrfs_(char *uplo, integer *n, integer *kd, integer * nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * work, integer *iwork, integer *info) @@ -720,10 +720,10 @@ f"> */ real s; extern logical lsame_(char *, char *); integer isave[3], count; - extern /* Subroutine */ int ssbmv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void ssbmv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); @@ -733,7 +733,7 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real lstres; - extern /* Subroutine */ int spbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void spbtrs_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *); real eps; @@ -790,7 +790,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -802,7 +802,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1009,7 +1009,7 @@ L100: /* L140: */ } - return 0; + return; /* End of SPBRFS */ diff --git a/lapack-netlib/SRC/spbstf.c b/lapack-netlib/SRC/spbstf.c index 089c68814..f4636978b 100644 --- a/lapack-netlib/SRC/spbstf.c +++ b/lapack-netlib/SRC/spbstf.c @@ -666,7 +666,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab, +/* Subroutine */ void spbstf_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -674,11 +674,11 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int ssyr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssyr_(char *, integer *, real *, real *, integer *, real *, integer *); integer j, m; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; integer km; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -717,13 +717,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPBSTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Computing MAX */ @@ -849,11 +849,11 @@ f"> */ /* L40: */ } } - return 0; + return; L50: *info = j; - return 0; + return; /* End of SPBSTF */ diff --git a/lapack-netlib/SRC/spbsv.c b/lapack-netlib/SRC/spbsv.c index 88dba3b75..1d76f9fe0 100644 --- a/lapack-netlib/SRC/spbsv.c +++ b/lapack-netlib/SRC/spbsv.c @@ -673,7 +673,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void spbsv_(char *uplo, integer *n, integer *kd, integer * nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -681,7 +681,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), spbtrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void spbtrf_( char *, integer *, integer *, real *, integer *, integer *), spbtrs_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *); @@ -723,7 +724,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SPBSV ", &i__1, (ftnlen)5); - return 0; + return; } /* Compute the Cholesky factorization A = U**T*U or A = L*L**T. */ @@ -737,7 +738,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ info); } - return 0; + return; /* End of SPBSV */ diff --git a/lapack-netlib/SRC/spbsvx.c b/lapack-netlib/SRC/spbsvx.c index 179565cac..1574cd6ba 100644 --- a/lapack-netlib/SRC/spbsvx.c +++ b/lapack-netlib/SRC/spbsvx.c @@ -854,7 +854,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd, +/* Subroutine */ void spbsvx_(char *fact, char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, @@ -872,7 +872,7 @@ f"> */ real scond, anorm; logical equil, rcequ, upper; integer j1, j2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern real slamch_(char *); logical nofact; @@ -880,19 +880,19 @@ f"> */ real bignum; extern real slansb_(char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int spbcon_(char *, integer *, integer *, real *, + extern /* Subroutine */ void spbcon_(char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, integer *), slaqsb_(char *, integer *, integer *, real *, integer *, real *, real *, real *, char *); integer infequ; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), spbequ_(char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *), spbrfs_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, real *, real *, integer *, integer *), spbtrf_( char *, integer *, integer *, real *, integer *, integer *); real smlnum; - extern /* Subroutine */ int spbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void spbtrs_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, integer *); @@ -991,7 +991,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPBSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1058,7 +1058,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -1110,7 +1110,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of SPBSVX */ diff --git a/lapack-netlib/SRC/spbtf2.c b/lapack-netlib/SRC/spbtf2.c index 778eec4d2..011fd91d0 100644 --- a/lapack-netlib/SRC/spbtf2.c +++ b/lapack-netlib/SRC/spbtf2.c @@ -657,7 +657,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab, +/* Subroutine */ void spbtf2_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -665,11 +665,11 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int ssyr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssyr_(char *, integer *, real *, real *, integer *, real *, integer *); integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; integer kn; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -708,13 +708,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPBTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Computing MAX */ @@ -782,11 +782,11 @@ f"> */ /* L20: */ } } - return 0; + return; L30: *info = j; - return 0; + return; /* End of SPBTF2 */ diff --git a/lapack-netlib/SRC/spbtrf.c b/lapack-netlib/SRC/spbtrf.c index b6ee3b345..cd4b61522 100644 --- a/lapack-netlib/SRC/spbtrf.c +++ b/lapack-netlib/SRC/spbtrf.c @@ -659,7 +659,7 @@ f"> */ /* > Peter Mayes and Giuseppe Radicati, IBM ECSEC, Rome, March 23, 1989 */ /* ===================================================================== */ -/* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab, +/* Subroutine */ void spbtrf_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -669,11 +669,11 @@ f"> */ real work[1056] /* was [33][32] */; integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer i2, i3; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), ssyrk_(char *, char *, integer *, integer *, real *, real *, integer *, real *, real *, integer * @@ -718,13 +718,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPBTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment */ @@ -1016,10 +1016,10 @@ f"> */ } } } - return 0; + return; L150: - return 0; + return; /* End of SPBTRF */ diff --git a/lapack-netlib/SRC/spbtrs.c b/lapack-netlib/SRC/spbtrs.c index dc6e51f99..1dda79314 100644 --- a/lapack-netlib/SRC/spbtrs.c +++ b/lapack-netlib/SRC/spbtrs.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void spbtrs_(char *uplo, integer *n, integer *kd, integer * nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -644,8 +644,9 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int stbsv_(char *, char *, char *, integer *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void stbsv_(char *, char *, char *, integer *, + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -686,13 +687,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -733,7 +734,7 @@ f"> */ } } - return 0; + return; /* End of SPBTRS */ diff --git a/lapack-netlib/SRC/spftrf.c b/lapack-netlib/SRC/spftrf.c index c82254f07..464d48083 100644 --- a/lapack-netlib/SRC/spftrf.c +++ b/lapack-netlib/SRC/spftrf.c @@ -713,7 +713,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int spftrf_(char *transr, char *uplo, integer *n, real *a, +/* Subroutine */ void spftrf_(char *transr, char *uplo, integer *n, real *a, integer *info) { /* System generated locals */ @@ -725,11 +725,12 @@ f"> */ extern logical lsame_(char *, char *); logical lower; integer n1, n2; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), ssyrk_(char *, char *, integer *, integer *, real *, real *, integer *, real *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); logical nisodd; extern /* Subroutine */ int spotrf_(char *, integer *, real *, integer *, integer *); @@ -759,13 +760,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPFTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -806,7 +807,7 @@ f"> */ spotrf_("L", &n1, a, n, info); if (*info > 0) { - return 0; + return; } strsm_("R", "L", "T", "N", &n2, &n1, &c_b12, a, n, &a[n1], n); ssyrk_("U", "N", &n2, &n1, &c_b15, &a[n1], n, &c_b12, &a[*n], @@ -824,7 +825,7 @@ f"> */ spotrf_("L", &n1, &a[n2], n, info); if (*info > 0) { - return 0; + return; } strsm_("L", "L", "N", "N", &n1, &n2, &c_b12, &a[n2], n, a, n); ssyrk_("U", "T", &n2, &n1, &c_b15, a, n, &c_b12, &a[n1], n); @@ -847,7 +848,7 @@ f"> */ spotrf_("U", &n1, a, &n1, info); if (*info > 0) { - return 0; + return; } strsm_("L", "U", "T", "N", &n1, &n2, &c_b12, a, &n1, &a[n1 * n1], &n1); @@ -866,7 +867,7 @@ f"> */ spotrf_("U", &n1, &a[n2 * n2], &n2, info); if (*info > 0) { - return 0; + return; } strsm_("R", "U", "N", "N", &n2, &n1, &c_b12, &a[n2 * n2], &n2, a, &n2); @@ -898,7 +899,7 @@ f"> */ i__1 = *n + 1; spotrf_("L", &k, &a[1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -923,7 +924,7 @@ f"> */ i__1 = *n + 1; spotrf_("L", &k, &a[k + 1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -953,7 +954,7 @@ f"> */ spotrf_("U", &k, &a[k], &k, info); if (*info > 0) { - return 0; + return; } strsm_("L", "U", "T", "N", &k, &k, &c_b12, &a[k], &n1, &a[k * (k + 1)], &k); @@ -972,7 +973,7 @@ f"> */ spotrf_("U", &k, &a[k * (k + 1)], &k, info); if (*info > 0) { - return 0; + return; } strsm_("R", "U", "N", "N", &k, &k, &c_b12, &a[k * (k + 1)], & k, a, &k); @@ -988,7 +989,7 @@ f"> */ } - return 0; + return; /* End of SPFTRF */ diff --git a/lapack-netlib/SRC/spftri.c b/lapack-netlib/SRC/spftri.c index daf9f2834..44a295333 100644 --- a/lapack-netlib/SRC/spftri.c +++ b/lapack-netlib/SRC/spftri.c @@ -705,7 +705,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int spftri_(char *transr, char *uplo, integer *n, real *a, +/* Subroutine */ void spftri_(char *transr, char *uplo, integer *n, real *a, integer *info) { /* System generated locals */ @@ -717,14 +717,16 @@ f"> */ extern logical lsame_(char *, char *); logical lower; integer n1, n2; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), ssyrk_(char *, char *, integer *, integer *, real *, real *, integer *, real *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); logical nisodd; extern /* Subroutine */ int slauum_(char *, integer *, real *, integer *, - integer *), stftri_(char *, char *, char *, integer *, + integer *); + extern void stftri_(char *, char *, char *, integer *, real *, integer *); @@ -752,20 +754,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPFTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ stftri_(transr, uplo, "N", n, a, info); if (*info > 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -940,7 +942,7 @@ f"> */ } - return 0; + return; /* End of SPFTRI */ diff --git a/lapack-netlib/SRC/spftrs.c b/lapack-netlib/SRC/spftrs.c index 47b690b05..b7cbf6c32 100644 --- a/lapack-netlib/SRC/spftrs.c +++ b/lapack-netlib/SRC/spftrs.c @@ -712,7 +712,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int spftrs_(char *transr, char *uplo, integer *n, integer * +/* Subroutine */ void spftrs_(char *transr, char *uplo, integer *n, integer * nrhs, real *a, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -722,8 +722,9 @@ f"> */ logical normaltransr; extern logical lsame_(char *, char *); logical lower; - extern /* Subroutine */ int stfsm_(char *, char *, char *, char *, char *, - integer *, integer *, real *, real *, real *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void stfsm_(char *, char *, char *, char *, char *, + integer *, integer *, real *, real *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -760,13 +761,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPFTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* start execution: there are two triangular solves */ @@ -783,7 +784,7 @@ f"> */ ldb); } - return 0; + return; /* End of SPFTRS */ diff --git a/lapack-netlib/SRC/spocon.c b/lapack-netlib/SRC/spocon.c index aa5812581..4f4fc12cd 100644 --- a/lapack-netlib/SRC/spocon.c +++ b/lapack-netlib/SRC/spocon.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void spocon_(char *uplo, integer *n, real *a, integer *lda, real *anorm, real *rcond, real *work, integer *iwork, integer *info) { /* System generated locals */ @@ -645,9 +645,9 @@ f"> */ real scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *); + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer ix; real scalel; @@ -657,7 +657,7 @@ f"> */ extern integer isamax_(integer *, real *, integer *); real ainvnm; char normin[1]; - extern /* Subroutine */ int slatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void slatrs_(char *, char *, char *, char *, integer *, real *, integer *, real *, real *, real *, integer *); real smlnum; @@ -695,7 +695,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPOCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -703,9 +703,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -766,7 +766,7 @@ L10: } L20: - return 0; + return; /* End of SPOCON */ diff --git a/lapack-netlib/SRC/spoequ.c b/lapack-netlib/SRC/spoequ.c index 7c93dacf0..bb80ce848 100644 --- a/lapack-netlib/SRC/spoequ.c +++ b/lapack-netlib/SRC/spoequ.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real +/* Subroutine */ void spoequ_(integer *n, real *a, integer *lda, real *s, real *scond, real *amax, integer *info) { /* System generated locals */ @@ -661,7 +661,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPOEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -669,7 +669,7 @@ f"> */ if (*n == 0) { *scond = 1.f; *amax = 0.f; - return 0; + return; } /* Find the minimum and maximum diagonal elements. */ @@ -697,7 +697,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.f) { *info = i__; - return 0; + return; } /* L20: */ } @@ -716,7 +716,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of SPOEQU */ diff --git a/lapack-netlib/SRC/spoequb.c b/lapack-netlib/SRC/spoequb.c index aabb0e938..3e616fa4a 100644 --- a/lapack-netlib/SRC/spoequb.c +++ b/lapack-netlib/SRC/spoequb.c @@ -627,7 +627,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int spoequb_(integer *n, real *a, integer *lda, real *s, +/* Subroutine */ void spoequb_(integer *n, real *a, integer *lda, real *s, real *scond, real *amax, integer *info) { /* System generated locals */ @@ -671,7 +671,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SPOEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -679,7 +679,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*n == 0) { *scond = 1.f; *amax = 0.f; - return 0; + return; } base = slamch_("B"); tmp = -.5f / log(base); @@ -709,7 +709,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.f) { *info = i__; - return 0; + return; } /* L20: */ } @@ -730,7 +730,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of SPOEQUB */ diff --git a/lapack-netlib/SRC/sporfs.c b/lapack-netlib/SRC/sporfs.c index 76b7697dc..671976291 100644 --- a/lapack-netlib/SRC/sporfs.c +++ b/lapack-netlib/SRC/sporfs.c @@ -697,7 +697,7 @@ f"> */ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a, +/* Subroutine */ void sporfs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info) @@ -715,7 +715,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3], count; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), ssymv_(char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), slacn2_( @@ -727,7 +727,7 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real lstres; - extern /* Subroutine */ int spotrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void spotrs_(char *, integer *, integer *, real *, integer *, real *, integer *, integer *); real eps; @@ -782,7 +782,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPORFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -794,7 +794,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -991,7 +991,7 @@ L100: /* L140: */ } - return 0; + return; /* End of SPORFS */ diff --git a/lapack-netlib/SRC/sporfsx.c b/lapack-netlib/SRC/sporfsx.c index 95dc57e84..adc3a90c5 100644 --- a/lapack-netlib/SRC/sporfsx.c +++ b/lapack-netlib/SRC/sporfsx.c @@ -803,7 +803,7 @@ static integer c__1 = 1; /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int sporfsx_(char *uplo, char *equed, integer *n, integer * +/* Subroutine */ void sporfsx_(char *uplo, char *equed, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, real *s, real * b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, @@ -818,7 +818,7 @@ static integer c__1 = 1; /* Local variables */ real illrcond_thresh__, unstable_thresh__; - extern /* Subroutine */ int sla_porfsx_extended_(integer *, char *, + extern /* Subroutine */ void sla_porfsx_extended_(integer *, char *, integer *, integer *, real *, integer *, real *, integer *, logical *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *, real *, @@ -834,7 +834,8 @@ static integer c__1 = 1; real rcond_tmp__; integer prec_type__; extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), spocon_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void spocon_( char *, integer *, real *, integer *, real *, real *, real *, integer *, integer *); extern real slansy_(char *, char *, integer *, real *, integer *, real *); @@ -951,7 +952,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SPORFSX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -974,7 +975,7 @@ static integer c__1 = 1; err_bnds_comp__[j + err_bnds_comp_dim1 * 3] = 1.f; } } - return 0; + return; } /* Default to failure. */ @@ -1113,7 +1114,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of SPORFSX */ diff --git a/lapack-netlib/SRC/sposv.c b/lapack-netlib/SRC/sposv.c index b5f80d5a9..5feebe736 100644 --- a/lapack-netlib/SRC/sposv.c +++ b/lapack-netlib/SRC/sposv.c @@ -639,7 +639,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realPOsolve */ /* ===================================================================== */ -/* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a, +/* Subroutine */ void sposv_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -647,8 +647,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), spotrf_( - char *, integer *, real *, integer *, integer *), spotrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int spotrf_( + char *, integer *, real *, integer *, integer *); + extern void spotrs_( char *, integer *, integer *, real *, integer *, real *, integer * , integer *); @@ -688,7 +690,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SPOSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**T*U or A = L*L**T. */ @@ -701,7 +703,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ spotrs_(uplo, n, nrhs, &a[a_offset], lda, &b[b_offset], ldb, info); } - return 0; + return; /* End of SPOSV */ diff --git a/lapack-netlib/SRC/sposvx.c b/lapack-netlib/SRC/sposvx.c index 18ce544de..5e845528b 100644 --- a/lapack-netlib/SRC/sposvx.c +++ b/lapack-netlib/SRC/sposvx.c @@ -814,7 +814,7 @@ f"> */ /* > \ingroup realPOsolve */ /* ===================================================================== */ -/* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void sposvx_(char *fact, char *uplo, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info) @@ -835,18 +835,20 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), spocon_(char *, integer *, real *, integer *, real *, real *, real *, integer *, integer *); extern real slansy_(char *, char *, integer *, real *, integer *, real *); real smlnum; - extern /* Subroutine */ int slaqsy_(char *, integer *, real *, integer *, + extern /* Subroutine */ void slaqsy_(char *, integer *, real *, integer *, real *, real *, real *, char *), spoequ_(integer * , real *, integer *, real *, real *, real *, integer *), sporfs_( char *, integer *, integer *, real *, integer *, real *, integer * , real *, integer *, real *, integer *, real *, real *, real *, - integer *, integer *), spotrf_(char *, integer *, real *, - integer *, integer *), spotrs_(char *, integer *, integer + integer *, integer *); + extern int spotrf_(char *, integer *, real *, + integer *, integer *); + extern void spotrs_(char *, integer *, integer *, real *, integer *, real *, integer *, integer *); @@ -943,7 +945,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPOSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -985,7 +987,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -1036,7 +1038,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of SPOSVX */ diff --git a/lapack-netlib/SRC/sposvxx.c b/lapack-netlib/SRC/sposvxx.c index 4955b41ad..cea6dd307 100644 --- a/lapack-netlib/SRC/sposvxx.c +++ b/lapack-netlib/SRC/sposvxx.c @@ -1003,7 +1003,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realPOsolve */ /* ===================================================================== */ -/* Subroutine */ int sposvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void sposvxx_(char *fact, char *uplo, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real * @@ -1029,10 +1029,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); real smlnum; - extern /* Subroutine */ int slaqsy_(char *, integer *, real *, integer *, + extern /* Subroutine */ void slaqsy_(char *, integer *, real *, integer *, real *, real *, real *, char *), spotrf_(char *, integer *, real *, integer *, integer *), spotrs_(char *, integer *, integer *, real *, integer *, real *, integer *, @@ -1149,7 +1149,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SPOSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1189,7 +1189,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = sla_porpvgrw_(uplo, info, &a[a_offset], lda, &af[ af_offset], ldaf, &work[1]); - return 0; + return; } } @@ -1218,7 +1218,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ slascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of SPOSVXX */ diff --git a/lapack-netlib/SRC/spotf2.c b/lapack-netlib/SRC/spotf2.c index 420af52aa..f0f1f12f9 100644 --- a/lapack-netlib/SRC/spotf2.c +++ b/lapack-netlib/SRC/spotf2.c @@ -625,7 +625,7 @@ f"> */ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void spotf2_(char *uplo, integer *n, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -636,7 +636,7 @@ f"> */ extern real sdot_(integer *, real *, integer *, real *, integer *); integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; @@ -674,13 +674,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPOTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -756,7 +756,7 @@ L30: *info = j; L40: - return 0; + return; /* End of SPOTF2 */ diff --git a/lapack-netlib/SRC/spotrf.c b/lapack-netlib/SRC/spotrf.c index 6253877e1..3b4933918 100644 --- a/lapack-netlib/SRC/spotrf.c +++ b/lapack-netlib/SRC/spotrf.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void spotrf_(char *uplo, integer *n, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -632,11 +632,11 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), ssyrk_(char *, char *, integer *, integer *, real *, real *, integer *, real *, real *, integer * @@ -645,7 +645,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int spotrf2_(char *, integer *, real *, integer *, + extern /* Subroutine */ void spotrf2_(char *, integer *, real *, integer *, integer *); @@ -678,13 +678,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPOTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -784,7 +784,7 @@ L30: *info = *info + j - 1; L40: - return 0; + return; /* End of SPOTRF */ diff --git a/lapack-netlib/SRC/spotrf2.c b/lapack-netlib/SRC/spotrf2.c index c32dcd7be..b81ff9971 100644 --- a/lapack-netlib/SRC/spotrf2.c +++ b/lapack-netlib/SRC/spotrf2.c @@ -617,7 +617,7 @@ static real c_b11 = -1.f; /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int spotrf2_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void spotrf2_(char *uplo, integer *n, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -628,11 +628,12 @@ static real c_b11 = -1.f; integer iinfo; logical upper; integer n1, n2; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), ssyrk_(char *, char *, integer *, integer *, real *, real *, integer *, real *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); extern logical sisnan_(real *); @@ -665,13 +666,13 @@ static real c_b11 = -1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SPOTRF2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* N=1 case */ @@ -682,7 +683,7 @@ static real c_b11 = -1.f; if (a[a_dim1 + 1] <= 0.f || sisnan_(&a[a_dim1 + 1])) { *info = 1; - return 0; + return; } /* Factor */ @@ -700,7 +701,7 @@ static real c_b11 = -1.f; spotrf2_(uplo, &n1, &a[a_dim1 + 1], lda, &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } /* Compute the Cholesky factorization A = U**T*U */ @@ -719,7 +720,7 @@ static real c_b11 = -1.f; spotrf2_(uplo, &n2, &a[n1 + 1 + (n1 + 1) * a_dim1], lda, &iinfo); if (iinfo != 0) { *info = iinfo + n1; - return 0; + return; } /* Compute the Cholesky factorization A = L*L**T */ @@ -738,11 +739,11 @@ static real c_b11 = -1.f; spotrf2_(uplo, &n2, &a[n1 + 1 + (n1 + 1) * a_dim1], lda, &iinfo); if (iinfo != 0) { *info = iinfo + n1; - return 0; + return; } } } - return 0; + return; /* End of SPOTRF2 */ diff --git a/lapack-netlib/SRC/spotri.c b/lapack-netlib/SRC/spotri.c index 7011b0683..d32d013d3 100644 --- a/lapack-netlib/SRC/spotri.c +++ b/lapack-netlib/SRC/spotri.c @@ -604,7 +604,7 @@ f"> */ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void spotri_(char *uplo, integer *n, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -612,8 +612,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slauum_( - char *, integer *, real *, integer *, integer *), strtri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int slauum_( + char *, integer *, real *, integer *, integer *); + extern int strtri_( char *, char *, integer *, real *, integer *, integer *); @@ -645,27 +647,27 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPOTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ strtri_(uplo, "Non-unit", n, &a[a_offset], lda, info); if (*info > 0) { - return 0; + return; } /* Form inv(U) * inv(U)**T or inv(L)**T * inv(L). */ slauum_(uplo, n, &a[a_offset], lda, info); - return 0; + return; /* End of SPOTRI */ diff --git a/lapack-netlib/SRC/spotrs.c b/lapack-netlib/SRC/spotrs.c index 6b5f349b1..796eab211 100644 --- a/lapack-netlib/SRC/spotrs.c +++ b/lapack-netlib/SRC/spotrs.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup realPOcomputational */ /* ===================================================================== */ -/* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, +/* Subroutine */ void spotrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -632,9 +632,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -673,13 +674,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPOTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -710,7 +711,7 @@ f"> */ a_offset], lda, &b[b_offset], ldb); } - return 0; + return; /* End of SPOTRS */ diff --git a/lapack-netlib/SRC/sppcon.c b/lapack-netlib/SRC/sppcon.c index c48fc9d4d..07bd6a83d 100644 --- a/lapack-netlib/SRC/sppcon.c +++ b/lapack-netlib/SRC/sppcon.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm, +/* Subroutine */ void sppcon_(char *uplo, integer *n, real *ap, real *anorm, real *rcond, real *work, integer *iwork, integer *info) { /* System generated locals */ @@ -643,9 +643,9 @@ f"> */ real scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *); + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer ix; real scalel; @@ -655,7 +655,7 @@ f"> */ extern integer isamax_(integer *, real *, integer *); real ainvnm; char normin[1]; - extern /* Subroutine */ int slatps_(char *, char *, char *, char *, + extern /* Subroutine */ void slatps_(char *, char *, char *, char *, integer *, real *, real *, real *, real *, integer *); real smlnum; @@ -689,7 +689,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -697,9 +697,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } smlnum = slamch_("Safe minimum"); @@ -758,7 +758,7 @@ L10: } L20: - return 0; + return; /* End of SPPCON */ diff --git a/lapack-netlib/SRC/sppequ.c b/lapack-netlib/SRC/sppequ.c index 0523dadc1..102678c91 100644 --- a/lapack-netlib/SRC/sppequ.c +++ b/lapack-netlib/SRC/sppequ.c @@ -625,7 +625,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real * +/* Subroutine */ void sppequ_(char *uplo, integer *n, real *ap, real *s, real * scond, real *amax, integer *info) { /* System generated locals */ @@ -667,7 +667,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPPEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -675,7 +675,7 @@ f"> */ if (*n == 0) { *scond = 1.f; *amax = 0.f; - return 0; + return; } /* Initialize SMIN and AMAX. */ @@ -731,7 +731,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.f) { *info = i__; - return 0; + return; } /* L30: */ } @@ -750,7 +750,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of SPPEQU */ diff --git a/lapack-netlib/SRC/spprfs.c b/lapack-netlib/SRC/spprfs.c index 39f408fb4..962506818 100644 --- a/lapack-netlib/SRC/spprfs.c +++ b/lapack-netlib/SRC/spprfs.c @@ -685,7 +685,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap, +/* Subroutine */ void spprfs_(char *uplo, integer *n, integer *nrhs, real *ap, real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info) { @@ -701,7 +701,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3], count; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), sspmv_(char *, integer *, real *, real *, real *, integer *, real *, real *, integer *), slacn2_(integer *, @@ -713,7 +713,7 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real lstres; - extern /* Subroutine */ int spptrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void spptrs_(char *, integer *, integer *, real *, real *, integer *, integer *); real eps; @@ -760,7 +760,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -772,7 +772,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -973,7 +973,7 @@ L100: /* L140: */ } - return 0; + return; /* End of SPPRFS */ diff --git a/lapack-netlib/SRC/sppsv.c b/lapack-netlib/SRC/sppsv.c index 5ab64f20c..724f8ed87 100644 --- a/lapack-netlib/SRC/sppsv.c +++ b/lapack-netlib/SRC/sppsv.c @@ -653,7 +653,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, +/* Subroutine */ void sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -661,7 +661,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), spptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void spptrf_( char *, integer *, real *, integer *), spptrs_(char *, integer *, integer *, real *, real *, integer *, integer *); @@ -697,7 +698,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SPPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**T*U or A = L*L**T. */ @@ -710,7 +711,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ spptrs_(uplo, n, nrhs, &ap[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of SPPSV */ diff --git a/lapack-netlib/SRC/sppsvx.c b/lapack-netlib/SRC/sppsvx.c index 2aacbd3f9..6a6eb27a3 100644 --- a/lapack-netlib/SRC/sppsvx.c +++ b/lapack-netlib/SRC/sppsvx.c @@ -823,7 +823,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void sppsvx_(char *fact, char *uplo, integer *n, integer * nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer * ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info) @@ -838,22 +838,22 @@ f"> */ extern logical lsame_(char *, char *); real scond, anorm; logical equil, rcequ; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern real slamch_(char *); logical nofact; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); extern real slansp_(char *, char *, integer *, real *, real *); - extern /* Subroutine */ int sppcon_(char *, integer *, real *, real *, + extern /* Subroutine */ void sppcon_(char *, integer *, real *, real *, real *, real *, integer *, integer *), slaqsp_(char *, integer *, real *, real *, real *, real *, char *) ; real smlnum; - extern /* Subroutine */ int sppequ_(char *, integer *, real *, real *, + extern /* Subroutine */ void sppequ_(char *, integer *, real *, real *, real *, real *, integer *), spprfs_(char *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, real *, real *, integer *, integer *), spptrf_( @@ -946,7 +946,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -989,7 +989,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -1038,7 +1038,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of SPPSVX */ diff --git a/lapack-netlib/SRC/spptrf.c b/lapack-netlib/SRC/spptrf.c index 9f5013ec0..a135b5633 100644 --- a/lapack-netlib/SRC/spptrf.c +++ b/lapack-netlib/SRC/spptrf.c @@ -633,7 +633,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info) +/* Subroutine */ void spptrf_(char *uplo, integer *n, real *ap, integer *info) { /* System generated locals */ integer i__1, i__2; @@ -641,13 +641,13 @@ f"> */ /* Local variables */ extern real sdot_(integer *, real *, integer *, real *, integer *); - extern /* Subroutine */ int sspr_(char *, integer *, real *, real *, + extern /* Subroutine */ void sspr_(char *, integer *, real *, real *, integer *, real *); integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int stpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void stpsv_(char *, char *, char *, integer *, real *, real *, integer *); integer jc, jj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -679,13 +679,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -756,7 +756,7 @@ L30: *info = j; L40: - return 0; + return; /* End of SPPTRF */ diff --git a/lapack-netlib/SRC/spptri.c b/lapack-netlib/SRC/spptri.c index 36e80f105..28e57e7eb 100644 --- a/lapack-netlib/SRC/spptri.c +++ b/lapack-netlib/SRC/spptri.c @@ -607,23 +607,24 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info) +/* Subroutine */ void spptri_(char *uplo, integer *n, real *ap, integer *info) { /* System generated locals */ integer i__1, i__2; /* Local variables */ extern real sdot_(integer *, real *, integer *, real *, integer *); - extern /* Subroutine */ int sspr_(char *, integer *, real *, real *, + extern /* Subroutine */ void sspr_(char *, integer *, real *, real *, integer *, real *); integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int stpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void stpmv_(char *, char *, char *, integer *, real *, real *, integer *); integer jc, jj; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), stptri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void stptri_( char *, char *, integer *, real *, integer *); real ajj; integer jjn; @@ -654,20 +655,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ stptri_(uplo, "Non-unit", n, &ap[1], info); if (*info > 0) { - return 0; + return; } if (upper) { @@ -708,7 +709,7 @@ f"> */ } } - return 0; + return; /* End of SPPTRI */ diff --git a/lapack-netlib/SRC/spptrs.c b/lapack-netlib/SRC/spptrs.c index 19acfa4d5..37ceb99c3 100644 --- a/lapack-netlib/SRC/spptrs.c +++ b/lapack-netlib/SRC/spptrs.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, +/* Subroutine */ void spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -631,8 +631,9 @@ f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int stpsv_(char *, char *, char *, integer *, - real *, real *, integer *), xerbla_(char * , integer *, ftnlen); + extern /* Subroutine */ void stpsv_(char *, char *, char *, integer *, + real *, real *, integer *); + extern int xerbla_(char * , integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -667,13 +668,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -714,7 +715,7 @@ f"> */ } } - return 0; + return; /* End of SPPTRS */ diff --git a/lapack-netlib/SRC/spstf2.c b/lapack-netlib/SRC/spstf2.c index c6ad41eb6..f408568b9 100644 --- a/lapack-netlib/SRC/spstf2.c +++ b/lapack-netlib/SRC/spstf2.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spstf2_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void spstf2_(char *uplo, integer *n, real *a, integer *lda, integer *piv, integer *rank, real *tol, real *work, integer *info) { /* System generated locals */ @@ -669,13 +669,13 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer itemp; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real stemp; logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real sstop; extern real slamch_(char *); @@ -716,13 +716,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPSTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize PIV */ @@ -945,7 +945,7 @@ L160: *info = 1; L170: - return 0; + return; /* End of SPSTF2 */ diff --git a/lapack-netlib/SRC/spstrf.c b/lapack-netlib/SRC/spstrf.c index 13d2c041f..5d446aa95 100644 --- a/lapack-netlib/SRC/spstrf.c +++ b/lapack-netlib/SRC/spstrf.c @@ -659,7 +659,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spstrf_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void spstrf_(char *uplo, integer *n, real *a, integer *lda, integer *piv, integer *rank, real *tol, real *work, integer *info) { /* System generated locals */ @@ -670,19 +670,19 @@ f"> */ integer i__, j, k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer itemp; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real stemp; logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real sstop; - extern /* Subroutine */ int ssyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ssyrk_(char *, char *, integer *, integer *, real *, real *, integer *, real *, real *, integer *); integer jb, nb; - extern /* Subroutine */ int spstf2_(char *, integer *, real *, integer *, + extern /* Subroutine */ void spstf2_(char *, integer *, real *, integer *, integer *, integer *, real *, real *, integer *); extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -724,13 +724,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPSTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get block size */ @@ -1022,7 +1022,7 @@ L190: *info = 1; L200: - return 0; + return; /* End of SPSTRF */ diff --git a/lapack-netlib/SRC/sptcon.c b/lapack-netlib/SRC/sptcon.c index 3bc086296..c8cb73217 100644 --- a/lapack-netlib/SRC/sptcon.c +++ b/lapack-netlib/SRC/sptcon.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm, +/* Subroutine */ void sptcon_(integer *n, real *d__, real *e, real *anorm, real *rcond, real *work, integer *info) { /* System generated locals */ @@ -671,7 +671,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPTCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -679,9 +679,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm == 0.f) { - return 0; + return; } /* Check that D(1:N) is positive. */ @@ -689,7 +689,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (d__[i__] <= 0.f) { - return 0; + return; } /* L10: */ } @@ -730,7 +730,7 @@ f"> */ *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of SPTCON */ diff --git a/lapack-netlib/SRC/spteqr.c b/lapack-netlib/SRC/spteqr.c index 5453f9d68..9c56d6d88 100644 --- a/lapack-netlib/SRC/spteqr.c +++ b/lapack-netlib/SRC/spteqr.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup realPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e, +/* Subroutine */ void spteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info) { /* System generated locals */ @@ -672,12 +672,13 @@ f"> */ integer i__; extern logical lsame_(char *, char *); real vt[1] /* was [1][1] */; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slaset_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slaset_( char *, integer *, integer *, real *, real *, real *, integer *), sbdsqr_(char *, integer *, integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, integer *, real *, integer *); integer icompz; - extern /* Subroutine */ int spttrf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void spttrf_(integer *, real *, real *, integer *); integer nru; @@ -722,20 +723,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPTEQR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (icompz > 0) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } if (icompz == 2) { slaset_("Full", n, n, &c_b7, &c_b8, &z__[z_offset], ldz); @@ -745,7 +746,7 @@ f"> */ spttrf_(n, &d__[1], &e[1], info); if (*info != 0) { - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -781,7 +782,7 @@ f"> */ *info = *n + *info; } - return 0; + return; /* End of SPTEQR */ diff --git a/lapack-netlib/SRC/sptrfs.c b/lapack-netlib/SRC/sptrfs.c index 434c240ce..46d142c80 100644 --- a/lapack-netlib/SRC/sptrfs.c +++ b/lapack-netlib/SRC/sptrfs.c @@ -676,7 +676,7 @@ f"> */ /* > \ingroup realPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e, +/* Subroutine */ void sptrfs_(integer *n, integer *nrhs, real *d__, real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *info) { @@ -689,7 +689,7 @@ f"> */ integer i__, j; real s; integer count; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); real bi, cx, dx, ex; integer ix; @@ -699,7 +699,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); real lstres; - extern /* Subroutine */ int spttrs_(integer *, integer *, real *, real *, + extern /* Subroutine */ void spttrs_(integer *, integer *, real *, real *, real *, integer *, integer *); real eps; @@ -744,7 +744,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPTRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -756,7 +756,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -935,7 +935,7 @@ L20: /* L90: */ } - return 0; + return; /* End of SPTRFS */ diff --git a/lapack-netlib/SRC/sptsv.c b/lapack-netlib/SRC/sptsv.c index 8a5b346a5..36c454a93 100644 --- a/lapack-netlib/SRC/sptsv.c +++ b/lapack-netlib/SRC/sptsv.c @@ -623,14 +623,15 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realPTsolve */ /* ===================================================================== */ -/* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e, +/* Subroutine */ void sptsv_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info) { /* System generated locals */ integer b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), spttrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void spttrf_( integer *, real *, real *, integer *), spttrs_(integer *, integer *, real *, real *, real *, integer *, integer *); @@ -665,7 +666,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SPTSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the L*D*L**T (or U**T*D*U) factorization of A. */ @@ -677,7 +678,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ spttrs_(n, nrhs, &d__[1], &e[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of SPTSV */ diff --git a/lapack-netlib/SRC/sptsvx.c b/lapack-netlib/SRC/sptsvx.c index 5e32eb0ad..d2ab81b5c 100644 --- a/lapack-netlib/SRC/sptsvx.c +++ b/lapack-netlib/SRC/sptsvx.c @@ -740,7 +740,7 @@ f"> */ /* > \ingroup realPTsolve */ /* ===================================================================== */ -/* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__, +/* Subroutine */ void sptsvx_(char *fact, integer *n, integer *nrhs, real *d__, real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info) { @@ -750,15 +750,16 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slacpy_( char *, integer *, integer *, real *, integer *, real *, integer * ); extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int sptcon_(integer *, real *, real *, real *, + extern /* Subroutine */ void sptcon_(integer *, real *, real *, real *, real *, real *, integer *), sptrfs_(integer *, integer *, real *, real *, real *, real *, real *, integer *, real *, integer *, real *, real *, real *, integer *), spttrf_(integer *, real *, @@ -809,7 +810,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPTSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -827,7 +828,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -856,7 +857,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of SPTSVX */ diff --git a/lapack-netlib/SRC/spttrf.c b/lapack-netlib/SRC/spttrf.c index b657aafd6..916eb113c 100644 --- a/lapack-netlib/SRC/spttrf.c +++ b/lapack-netlib/SRC/spttrf.c @@ -600,7 +600,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info) +/* Subroutine */ void spttrf_(integer *n, real *d__, real *e, integer *info) { /* System generated locals */ integer i__1; @@ -632,13 +632,13 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("SPTTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Compute the L*D*L**T (or U**T*D*U) factorization of A. */ @@ -715,7 +715,7 @@ f"> */ } L30: - return 0; + return; /* End of SPTTRF */ diff --git a/lapack-netlib/SRC/spttrs.c b/lapack-netlib/SRC/spttrs.c index 9c703e1ab..cbd642446 100644 --- a/lapack-netlib/SRC/spttrs.c +++ b/lapack-netlib/SRC/spttrs.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup realPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e, +/* Subroutine */ void spttrs_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -631,8 +631,9 @@ f"> */ /* Local variables */ integer j, jb, nb; - extern /* Subroutine */ int sptts2_(integer *, integer *, real *, real *, - real *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void sptts2_(integer *, integer *, real *, real *, + real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); @@ -667,13 +668,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SPTTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Determine the number of right-hand sides to solve at a time. */ @@ -701,7 +702,7 @@ f"> */ } } - return 0; + return; /* End of SPTTRS */ diff --git a/lapack-netlib/SRC/sptts2.c b/lapack-netlib/SRC/sptts2.c index 38e2dde20..be6b38ebe 100644 --- a/lapack-netlib/SRC/sptts2.c +++ b/lapack-netlib/SRC/sptts2.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup realPTcomputational */ /* ===================================================================== */ -/* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e, +/* Subroutine */ void sptts2_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb) { /* System generated locals */ @@ -621,7 +621,7 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -648,7 +648,7 @@ f"> */ r__1 = 1.f / d__[1]; sscal_(nrhs, &r__1, &b[b_offset], ldb); } - return 0; + return; } /* Solve A * X = B using the factorization A = L*D*L**T, */ @@ -676,7 +676,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of SPTTS2 */ diff --git a/lapack-netlib/SRC/srscl.c b/lapack-netlib/SRC/srscl.c index e91a646f7..0ac2e4c36 100644 --- a/lapack-netlib/SRC/srscl.c +++ b/lapack-netlib/SRC/srscl.c @@ -593,12 +593,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realOTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx) +/* Subroutine */ void srscl_(integer *n, real *sa, real *sx, integer *incx) { real cden; logical done; real cnum, cden1, cnum1; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), slabad_(real *, real *); extern real slamch_(char *); real bignum, smlnum, mul; @@ -620,7 +620,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Function Body */ if (*n <= 0) { - return 0; + return; } /* Get machine parameters */ @@ -667,7 +667,7 @@ L10: goto L10; } - return 0; + return; /* End of SRSCL */ diff --git a/lapack-netlib/SRC/ssb2st_kernels.c b/lapack-netlib/SRC/ssb2st_kernels.c index 96333110f..b043b3cf6 100644 --- a/lapack-netlib/SRC/ssb2st_kernels.c +++ b/lapack-netlib/SRC/ssb2st_kernels.c @@ -683,7 +683,7 @@ kernels.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssb2st_kernels_(char *uplo, logical *wantz, integer * +/* Subroutine */ void ssb2st_kernels_(char *uplo, logical *wantz, integer * ttype, integer *st, integer *ed, integer *sweep, integer *n, integer * nb, integer *ib, real *a, integer *lda, real *v, real *tau, integer * ldvt, real *work) @@ -698,10 +698,10 @@ kernels.f"> */ extern logical lsame_(char *, char *); logical upper; integer j1, j2, lm, ln, ajeter; - extern /* Subroutine */ int slarfg_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarfg_(integer *, real *, real *, integer *, real *); integer ofdpos; - extern /* Subroutine */ int slarfx_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slarfx_(char *, integer *, integer *, real *, real *, real *, integer *, real *), slarfy_(char *, integer *, real *, integer *, real *, real *, integer *, real *); integer taupos; @@ -899,7 +899,7 @@ kernels.f"> */ } } - return 0; + return; /* END OF SSB2ST_KERNELS */ diff --git a/lapack-netlib/SRC/ssbev.c b/lapack-netlib/SRC/ssbev.c index dd3b39f5e..f5f9dda6b 100644 --- a/lapack-netlib/SRC/ssbev.c +++ b/lapack-netlib/SRC/ssbev.c @@ -660,7 +660,7 @@ atrices */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd, +/* Subroutine */ void ssbev_(char *jobz, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, integer *info) { @@ -675,7 +675,7 @@ atrices */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical lower, wantz; integer iscale; extern real slamch_(char *); @@ -684,15 +684,15 @@ atrices */ real bignum; extern real slansb_(char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int ssbtrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ssbtrd_(char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *), ssterf_(integer *, real *, real *, integer *); real smlnum; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); real eps; @@ -740,13 +740,13 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("SSBEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -758,7 +758,7 @@ atrices */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -819,7 +819,7 @@ atrices */ sscal_(&imax, &r__1, &w[1], &c__1); } - return 0; + return; /* End of SSBEV */ diff --git a/lapack-netlib/SRC/ssbev_2stage.c b/lapack-netlib/SRC/ssbev_2stage.c index c8cf4a0e2..4d9f67a77 100644 --- a/lapack-netlib/SRC/ssbev_2stage.c +++ b/lapack-netlib/SRC/ssbev_2stage.c @@ -722,7 +722,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssbev_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void ssbev_2stage_(char *jobz, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *w, real *z__, integer * ldz, real *work, integer *lwork, integer *info) { @@ -737,13 +737,13 @@ stage.f"> */ real anrm; integer imax; real rmin, rmax; - extern /* Subroutine */ int ssytrd_sb2st_(char *, char *, char *, + extern /* Subroutine */ void ssytrd_sb2st_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *, integer *); real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lhtrd, lwmin; logical lower; integer lwtrd; @@ -755,14 +755,14 @@ stage.f"> */ real bignum; extern real slansb_(char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer llwork; real smlnum; logical lquery; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); real eps; integer indhous; @@ -833,15 +833,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSBEV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -853,7 +853,7 @@ stage.f"> */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -921,7 +921,7 @@ stage.f"> */ work[1] = (real) lwmin; - return 0; + return; /* End of SSBEV_2STAGE */ diff --git a/lapack-netlib/SRC/ssbevd.c b/lapack-netlib/SRC/ssbevd.c index 2ef771e34..7f4bff87b 100644 --- a/lapack-netlib/SRC/ssbevd.c +++ b/lapack-netlib/SRC/ssbevd.c @@ -708,7 +708,7 @@ f"> */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd, +/* Subroutine */ void ssbevd_(char *jobz, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -721,7 +721,7 @@ f"> */ real anrm, rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lwmin; @@ -733,12 +733,12 @@ f"> */ real bignum; extern real slansb_(char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sstedc_(char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int ssbtrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ssbtrd_(char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *), ssterf_(integer *, real *, real *, integer *); @@ -817,15 +817,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSBEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -833,7 +833,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -896,7 +896,7 @@ f"> */ work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSBEVD */ diff --git a/lapack-netlib/SRC/ssbevd_2stage.c b/lapack-netlib/SRC/ssbevd_2stage.c index 2dc23d188..af09f95d2 100644 --- a/lapack-netlib/SRC/ssbevd_2stage.c +++ b/lapack-netlib/SRC/ssbevd_2stage.c @@ -753,7 +753,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssbevd_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void ssbevd_2stage_(char *jobz, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *w, real *z__, integer * ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) @@ -767,13 +767,13 @@ static integer c__1 = 1; extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); real anrm, rmin, rmax; - extern /* Subroutine */ int ssytrd_sb2st_(char *, char *, char *, + extern /* Subroutine */ void ssytrd_sb2st_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *, integer *); real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lhtrd, lwmin; @@ -787,12 +787,12 @@ static integer c__1 = 1; real bignum; extern real slansb_(char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sstedc_(char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer llwork; real smlnum; logical lquery; @@ -876,15 +876,15 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SSBEVD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -892,7 +892,7 @@ static integer c__1 = 1; if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -958,7 +958,7 @@ static integer c__1 = 1; work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSBEVD_2STAGE */ diff --git a/lapack-netlib/SRC/ssbevx.c b/lapack-netlib/SRC/ssbevx.c index 057da2e2c..d16816e56 100644 --- a/lapack-netlib/SRC/ssbevx.c +++ b/lapack-netlib/SRC/ssbevx.c @@ -779,7 +779,7 @@ f"> */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void ssbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real * w, real *z__, integer *ldz, real *work, integer *iwork, integer * @@ -800,12 +800,12 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical lower; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; @@ -819,13 +819,13 @@ f"> */ real abstll, bignum; extern real slansb_(char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer indisp, indiwo; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk; - extern /* Subroutine */ int ssbtrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ssbtrd_(char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *), sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real * @@ -833,7 +833,7 @@ f"> */ real *, integer *); integer nsplit; real smlnum; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), ssteqr_(char *, integer *, real *, @@ -911,14 +911,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSBEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -939,7 +939,7 @@ f"> */ z__[z_dim1 + 1] = 1.f; } } - return 0; + return; } /* Get machine constants. */ @@ -1114,7 +1114,7 @@ L30: } } - return 0; + return; /* End of SSBEVX */ diff --git a/lapack-netlib/SRC/ssbevx_2stage.c b/lapack-netlib/SRC/ssbevx_2stage.c index 0fafba3a7..e93f63650 100644 --- a/lapack-netlib/SRC/ssbevx_2stage.c +++ b/lapack-netlib/SRC/ssbevx_2stage.c @@ -840,7 +840,7 @@ static real c_b45 = 0.f; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssbevx_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void ssbevx_2stage_(char *jobz, char *range, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *q, integer * ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer * @@ -859,22 +859,22 @@ static real c_b45 = 0.f; integer imax; real rmin, rmax; logical test; - extern /* Subroutine */ int ssytrd_sb2st_(char *, char *, char *, + extern /* Subroutine */ void ssytrd_sb2st_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *, integer *); integer itmp1, i__, j, indee; real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer lhtrd; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lwmin; logical lower; integer lwtrd; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; @@ -888,24 +888,24 @@ static real c_b45 = 0.f; real abstll, bignum; extern real slansb_(char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer indisp, indiwo; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk; - extern /* Subroutine */ int sstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer * , integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit, llwork; real smlnum; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); logical lquery; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); real eps, vll, vuu; integer indhous; @@ -1004,16 +1004,16 @@ static real c_b45 = 0.f; if (*info != 0) { i__1 = -(*info); xerbla_("SSBEVX_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1034,7 +1034,7 @@ static real c_b45 = 0.f; z__[z_dim1 + 1] = 1.f; } } - return 0; + return; } /* Get machine constants. */ @@ -1217,7 +1217,7 @@ L30: work[1] = (real) lwmin; - return 0; + return; /* End of SSBEVX_2STAGE */ diff --git a/lapack-netlib/SRC/ssbgst.c b/lapack-netlib/SRC/ssbgst.c index da4529a11..c1dea63db 100644 --- a/lapack-netlib/SRC/ssbgst.c +++ b/lapack-netlib/SRC/ssbgst.c @@ -674,7 +674,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka, +/* Subroutine */ void ssbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * x, integer *ldx, real *work, integer *info) { @@ -685,31 +685,31 @@ f"> */ /* Local variables */ integer inca; - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *), srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer i__, j, k, l, m; real t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer i0, i1; logical upper; integer i2, j1, j2; logical wantx; - extern /* Subroutine */ int slar2v_(integer *, real *, real *, real *, + extern /* Subroutine */ void slar2v_(integer *, real *, real *, real *, integer *, real *, real *, integer *); real ra; integer nr, nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical update; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *), slartg_(real *, real *, real * , real *, real *); integer ka1, kb1; - extern /* Subroutine */ int slargv_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slargv_(integer *, real *, integer *, real *, integer *, real *, integer *); real ra1; - extern /* Subroutine */ int slartv_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slartv_(integer *, real *, integer *, real *, integer *, real *, real *, integer *); integer j1t, j2t; real bii; @@ -765,13 +765,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSBGST", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } inca = *ldab * ka1; @@ -1609,14 +1609,14 @@ L490: --i__; i0 = m + 1; if (*ka == 0) { - return 0; + return; } goto L490; } } else { i__ -= *ka; if (i__ < 2) { - return 0; + return; } } diff --git a/lapack-netlib/SRC/ssbgv.c b/lapack-netlib/SRC/ssbgv.c index eb9c965f9..d8d3b2b35 100644 --- a/lapack-netlib/SRC/ssbgv.c +++ b/lapack-netlib/SRC/ssbgv.c @@ -685,7 +685,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka, +/* Subroutine */ void ssbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * w, real *z__, integer *ldz, real *work, integer *info) { @@ -700,7 +700,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical upper, wantz; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer indwrk; - extern /* Subroutine */ int spbstf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void spbstf_(char *, integer *, integer *, real *, integer *, integer *), ssbtrd_(char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *), ssbgst_(char *, char *, @@ -759,13 +759,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SSBGV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -773,7 +773,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ spbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -802,7 +802,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ ssteqr_(jobz, n, &w[1], &work[inde], &z__[z_offset], ldz, &work[ indwrk], info); } - return 0; + return; /* End of SSBGV */ diff --git a/lapack-netlib/SRC/ssbgvd.c b/lapack-netlib/SRC/ssbgvd.c index 0c3ea7b45..cd73f479b 100644 --- a/lapack-netlib/SRC/ssbgvd.c +++ b/lapack-netlib/SRC/ssbgvd.c @@ -740,7 +740,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka, +/* Subroutine */ void ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * w, real *z__, integer *ldz, real *work, integer *lwork, integer * iwork, integer *liwork, integer *info) @@ -753,18 +753,19 @@ f"> */ char vect[1]; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lwmin; logical upper, wantz; integer indwk2, llwrk2; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sstedc_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sstedc_( char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int spbstf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void spbstf_(char *, integer *, integer *, real *, integer *, integer *), ssbtrd_(char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *), ssbgst_(char *, char *, @@ -850,15 +851,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSBGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -866,7 +867,7 @@ f"> */ spbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -903,7 +904,7 @@ f"> */ work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSBGVD */ diff --git a/lapack-netlib/SRC/ssbgvx.c b/lapack-netlib/SRC/ssbgvx.c index 6d3319194..b30fe2b82 100644 --- a/lapack-netlib/SRC/ssbgvx.c +++ b/lapack-netlib/SRC/ssbgvx.c @@ -807,7 +807,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void ssbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer * ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real @@ -825,10 +825,10 @@ f"> */ extern logical lsame_(char *, char *); integer iinfo; char order[1]; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; @@ -838,10 +838,10 @@ f"> */ logical valeig; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer indisp, indiwo; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk; - extern /* Subroutine */ int spbstf_(char *, integer *, integer *, real *, + extern /* Subroutine */ void spbstf_(char *, integer *, integer *, real *, integer *, integer *), ssbtrd_(char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *), ssbgst_(char *, char *, @@ -851,7 +851,7 @@ f"> */ integer *, real *, integer *, real *, integer *, integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), ssteqr_(char *, integer *, real *, @@ -936,14 +936,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSBGVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -951,7 +951,7 @@ f"> */ spbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -1077,7 +1077,7 @@ L30: } } - return 0; + return; /* End of SSBGVX */ diff --git a/lapack-netlib/SRC/ssbtrd.c b/lapack-netlib/SRC/ssbtrd.c index 5a9c788fc..2664bf8b8 100644 --- a/lapack-netlib/SRC/ssbtrd.c +++ b/lapack-netlib/SRC/ssbtrd.c @@ -677,7 +677,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd, +/* Subroutine */ void ssbtrd_(char *vect, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq, real *work, integer *info) { @@ -688,21 +688,22 @@ f"> */ /* Local variables */ integer inca, jend, lend, jinc, incx, last; real temp; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer j1end, j1inc, i__, j, k, l, iqend; extern logical lsame_(char *, char *); logical initq, wantq, upper; integer i2, j1, j2; - extern /* Subroutine */ int slar2v_(integer *, real *, real *, real *, + extern /* Subroutine */ void slar2v_(integer *, real *, real *, real *, integer *, real *, real *, integer *); integer nq, nr, iqaend; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slaset_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slaset_( char *, integer *, integer *, real *, real *, real *, integer *), slartg_(real *, real *, real *, real *, real *), slargv_( integer *, real *, integer *, real *, integer *, real *, integer * ); integer kd1; - extern /* Subroutine */ int slartv_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slartv_(integer *, real *, integer *, real *, integer *, real *, real *, integer *); integer ibl, iqb, kdn, jin, nrt, kdm1; @@ -755,13 +756,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSBTRD", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize Q to the unit matrix, if needed */ @@ -1276,7 +1277,7 @@ f"> */ } } - return 0; + return; /* End of SSBTRD */ diff --git a/lapack-netlib/SRC/ssfrk.c b/lapack-netlib/SRC/ssfrk.c index 9f340381c..21b52b0bb 100644 --- a/lapack-netlib/SRC/ssfrk.c +++ b/lapack-netlib/SRC/ssfrk.c @@ -674,7 +674,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssfrk_(char *transr, char *uplo, char *trans, integer *n, +/* Subroutine */ void ssfrk_(char *transr, char *uplo, char *trans, integer *n, integer *k, real *alpha, real *a, integer *lda, real *beta, real * c__) { @@ -685,13 +685,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer info, j; logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer nrowa; logical lower; integer n1, n2; - extern /* Subroutine */ int ssyrk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ssyrk_(char *, char *, integer *, integer *, real *, real *, integer *, real *, real *, integer *); integer nk; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -743,7 +743,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (info != 0) { i__1 = -info; xerbla_("SSFRK ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ @@ -752,7 +752,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* done (it is in SSYRK for example) and left in the general case. */ if (*n == 0 || (*alpha == 0.f || *k == 0) && *beta == 1.f) { - return 0; + return; } if (*alpha == 0.f && *beta == 0.f) { @@ -760,7 +760,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { c__[j] = 0.f; } - return 0; + return; } /* C is N-by-N. */ @@ -1066,7 +1066,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of SSFRK */ diff --git a/lapack-netlib/SRC/sspcon.c b/lapack-netlib/SRC/sspcon.c index 7172bf6d1..bac0aea5f 100644 --- a/lapack-netlib/SRC/sspcon.c +++ b/lapack-netlib/SRC/sspcon.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, +/* Subroutine */ void sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info) { /* System generated locals */ @@ -648,12 +648,12 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int ssptrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void ssptrs_(char *, integer *, integer *, real *, integer *, real *, integer *, integer *); @@ -687,7 +687,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -695,9 +695,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -709,7 +709,7 @@ f"> */ ip = *n * (*n + 1) / 2; for (i__ = *n; i__ >= 1; --i__) { if (ipiv[i__] > 0 && ap[ip] == 0.f) { - return 0; + return; } ip -= i__; /* L10: */ @@ -722,7 +722,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (ipiv[i__] > 0 && ap[ip] == 0.f) { - return 0; + return; } ip = ip + *n - i__ + 1; /* L20: */ @@ -748,7 +748,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of SSPCON */ diff --git a/lapack-netlib/SRC/sspev.c b/lapack-netlib/SRC/sspev.c index 4afd4d214..12d8f9842 100644 --- a/lapack-netlib/SRC/sspev.c +++ b/lapack-netlib/SRC/sspev.c @@ -644,7 +644,7 @@ atrices */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap, +/* Subroutine */ void sspev_(char *jobz, char *uplo, integer *n, real *ap, real *w, real *z__, integer *ldz, real *work, integer *info) { /* System generated locals */ @@ -658,7 +658,7 @@ atrices */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical wantz; integer iscale; extern real slamch_(char *); @@ -667,9 +667,9 @@ atrices */ real bignum; integer indtau, indwrk; extern real slansp_(char *, char *, integer *, real *, real *); - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); real smlnum; - extern /* Subroutine */ int sopgtr_(char *, integer *, real *, real *, + extern /* Subroutine */ void sopgtr_(char *, integer *, real *, real *, real *, integer *, real *, integer *), ssptrd_(char *, integer *, real *, real *, real *, real *, integer *), ssteqr_(char *, integer *, real *, real *, real *, integer *, @@ -714,13 +714,13 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -728,7 +728,7 @@ atrices */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -787,7 +787,7 @@ atrices */ sscal_(&imax, &r__1, &w[1], &c__1); } - return 0; + return; /* End of SSPEV */ diff --git a/lapack-netlib/SRC/sspevd.c b/lapack-netlib/SRC/sspevd.c index 2fb736bdc..6bf7d19a8 100644 --- a/lapack-netlib/SRC/sspevd.c +++ b/lapack-netlib/SRC/sspevd.c @@ -691,7 +691,7 @@ f"> */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap, +/* Subroutine */ void sspevd_(char *jobz, char *uplo, integer *n, real *ap, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -704,7 +704,7 @@ f"> */ real anrm, rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lwmin; logical wantz; integer iscale; @@ -713,18 +713,18 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer indtau; - extern /* Subroutine */ int sstedc_(char *, integer *, real *, real *, + extern /* Subroutine */ void sstedc_(char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *); integer indwrk, liwmin; extern real slansp_(char *, char *, integer *, real *, real *); - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); integer llwork; real smlnum; - extern /* Subroutine */ int ssptrd_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssptrd_(char *, integer *, real *, real *, real *, real *, integer *); logical lquery; - extern /* Subroutine */ int sopmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void sopmtr_(char *, char *, char *, integer *, integer *, real *, real *, real *, integer *, real *, integer *); real eps; @@ -793,15 +793,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -809,7 +809,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -868,7 +868,7 @@ f"> */ work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSPEVD */ diff --git a/lapack-netlib/SRC/sspevx.c b/lapack-netlib/SRC/sspevx.c index 13c323034..67ece8dfa 100644 --- a/lapack-netlib/SRC/sspevx.c +++ b/lapack-netlib/SRC/sspevx.c @@ -746,7 +746,7 @@ f"> */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void sspevx_(char *jobz, char *range, char *uplo, integer *n, real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer * iwork, integer *ifail, integer *info) @@ -765,9 +765,9 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; @@ -781,17 +781,17 @@ f"> */ real abstll, bignum; integer indtau, indisp, indiwo, indwrk; extern real slansp_(char *, char *, integer *, real *, real *); - extern /* Subroutine */ int sstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer * , integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real smlnum; - extern /* Subroutine */ int sopgtr_(char *, integer *, real *, real *, + extern /* Subroutine */ void sopgtr_(char *, integer *, real *, real *, real *, integer *, real *, integer *), ssptrd_(char *, integer *, real *, real *, real *, real *, integer *), ssteqr_(char *, integer *, real *, real *, real *, integer *, @@ -860,14 +860,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -883,7 +883,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -1049,7 +1049,7 @@ L20: } } - return 0; + return; /* End of SSPEVX */ diff --git a/lapack-netlib/SRC/sspgst.c b/lapack-netlib/SRC/sspgst.c index cc70b2437..07b9eb822 100644 --- a/lapack-netlib/SRC/sspgst.c +++ b/lapack-netlib/SRC/sspgst.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap, +/* Subroutine */ void sspgst_(integer *itype, char *uplo, integer *n, real *ap, real *bp, integer *info) { /* System generated locals */ @@ -637,14 +637,14 @@ f"> */ /* Local variables */ extern real sdot_(integer *, real *, integer *, real *, integer *); - extern /* Subroutine */ int sspr2_(char *, integer *, real *, real *, + extern /* Subroutine */ void sspr2_(char *, integer *, real *, real *, integer *, real *, integer *, real *); integer j, k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; integer j1, k1; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), sspmv_(char *, integer *, real *, real *, real *, integer *, real *, real *, integer *), stpmv_( char *, char *, char *, integer *, real *, real *, integer *), stpsv_(char *, char *, char *, integer *, @@ -687,7 +687,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPGST", &i__1, (ftnlen)6); - return 0; + return; } if (*itype == 1) { @@ -826,7 +826,7 @@ f"> */ } } } - return 0; + return; /* End of SSPGST */ diff --git a/lapack-netlib/SRC/sspgv.c b/lapack-netlib/SRC/sspgv.c index 6ca0b3a4b..5e9baa716 100644 --- a/lapack-netlib/SRC/sspgv.c +++ b/lapack-netlib/SRC/sspgv.c @@ -672,7 +672,7 @@ static integer c__1 = 1; /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void sspgv_(integer *itype, char *jobz, char *uplo, integer * n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, integer *info) { @@ -684,12 +684,14 @@ static integer c__1 = 1; extern logical lsame_(char *, char *); char trans[1]; logical upper; - extern /* Subroutine */ int sspev_(char *, char *, integer *, real *, + extern /* Subroutine */ void sspev_(char *, char *, integer *, real *, real *, real *, integer *, real *, integer *); logical wantz; - extern /* Subroutine */ int stpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void stpmv_(char *, char *, char *, integer *, real *, real *, integer *), stpsv_(char *, - char *, char *, integer *, real *, real *, integer *), xerbla_(char *, integer *, ftnlen), spptrf_(char + char *, char *, integer *, real *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void spptrf_(char *, integer *, real *, integer *), sspgst_(integer *, char *, integer *, real *, real *, integer *); @@ -733,13 +735,13 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SSPGV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -747,7 +749,7 @@ static integer c__1 = 1; spptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -800,7 +802,7 @@ static integer c__1 = 1; } } } - return 0; + return; /* End of SSPGV */ diff --git a/lapack-netlib/SRC/sspgvd.c b/lapack-netlib/SRC/sspgvd.c index b2e0c7e8c..f63aaaf18 100644 --- a/lapack-netlib/SRC/sspgvd.c +++ b/lapack-netlib/SRC/sspgvd.c @@ -722,7 +722,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void sspgvd_(integer *itype, char *jobz, char *uplo, integer * n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -736,16 +736,17 @@ f"> */ integer lwmin; char trans[1]; logical upper, wantz; - extern /* Subroutine */ int stpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void stpmv_(char *, char *, char *, integer *, real *, real *, integer *), stpsv_(char *, - char *, char *, integer *, real *, real *, integer *), xerbla_(char *, integer *, ftnlen); + char *, char *, integer *, real *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer liwmin; - extern /* Subroutine */ int sspevd_(char *, char *, integer *, real *, + extern /* Subroutine */ void sspevd_(char *, char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer * , integer *), spptrf_(char *, integer *, real *, integer *); logical lquery; - extern /* Subroutine */ int sspgst_(integer *, char *, integer *, real *, + extern /* Subroutine */ void sspgst_(integer *, char *, integer *, real *, real *, integer *); @@ -815,15 +816,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of BP. */ @@ -831,7 +832,7 @@ f"> */ spptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -895,7 +896,7 @@ f"> */ work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSPGVD */ diff --git a/lapack-netlib/SRC/sspgvx.c b/lapack-netlib/SRC/sspgvx.c index 241c34e37..93913d3c7 100644 --- a/lapack-netlib/SRC/sspgvx.c +++ b/lapack-netlib/SRC/sspgvx.c @@ -783,7 +783,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char * +/* Subroutine */ void sspgvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer * ldz, real *work, integer *iwork, integer *ifail, integer *info) @@ -796,11 +796,12 @@ f"> */ extern logical lsame_(char *, char *); char trans[1]; logical upper, wantz; - extern /* Subroutine */ int stpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void stpmv_(char *, char *, char *, integer *, real *, real *, integer *), stpsv_(char *, char *, char *, integer *, real *, real *, integer *); logical alleig, indeig, valeig; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), spptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void spptrf_( char *, integer *, real *, integer *), sspgst_(integer *, char *, integer *, real *, real *, integer *), sspevx_( char *, char *, char *, integer *, real *, real *, real *, @@ -871,14 +872,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPGVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -886,7 +887,7 @@ f"> */ spptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -940,7 +941,7 @@ f"> */ } } - return 0; + return; /* End of SSPGVX */ diff --git a/lapack-netlib/SRC/ssprfs.c b/lapack-netlib/SRC/ssprfs.c index a1a16fb76..e2f5ee628 100644 --- a/lapack-netlib/SRC/ssprfs.c +++ b/lapack-netlib/SRC/ssprfs.c @@ -693,7 +693,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap, +/* Subroutine */ void ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer * ldx, real *ferr, real *berr, real *work, integer *iwork, integer * info) @@ -710,7 +710,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3], count; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), sspmv_(char *, integer *, real *, real *, real *, integer *, real *, real *, integer *), slacn2_(integer *, @@ -722,7 +722,7 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real lstres; - extern /* Subroutine */ int ssptrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void ssptrs_(char *, integer *, integer *, real *, integer *, real *, integer *, integer *); real eps; @@ -770,7 +770,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -782,7 +782,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -985,7 +985,7 @@ L100: /* L140: */ } - return 0; + return; /* End of SSPRFS */ diff --git a/lapack-netlib/SRC/sspsv.c b/lapack-netlib/SRC/sspsv.c index 8d592942b..885c89c30 100644 --- a/lapack-netlib/SRC/sspsv.c +++ b/lapack-netlib/SRC/sspsv.c @@ -671,7 +671,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, +/* Subroutine */ void sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, integer *ipiv, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -679,7 +679,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ssptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void ssptrf_( char *, integer *, real *, integer *, integer *), ssptrs_( char *, integer *, integer *, real *, integer *, real *, integer * , integer *); @@ -717,7 +718,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SSPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -730,7 +731,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ ssptrs_(uplo, n, nrhs, &ap[1], &ipiv[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of SSPSV */ diff --git a/lapack-netlib/SRC/sspsvx.c b/lapack-netlib/SRC/sspsvx.c index c831a6a9f..52e97e751 100644 --- a/lapack-netlib/SRC/sspsvx.c +++ b/lapack-netlib/SRC/sspsvx.c @@ -788,7 +788,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void sspsvx_(char *fact, char *uplo, integer *n, integer * nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info) @@ -799,15 +799,16 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); extern real slamch_(char *); logical nofact; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slacpy_( char *, integer *, integer *, real *, integer *, real *, integer * ); extern real slansp_(char *, char *, integer *, real *, real *); - extern /* Subroutine */ int sspcon_(char *, integer *, real *, integer *, + extern /* Subroutine */ void sspcon_(char *, integer *, real *, integer *, real *, real *, real *, integer *, integer *), ssprfs_( char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, real *, integer *, @@ -862,7 +863,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -877,7 +878,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -907,7 +908,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of SSPSVX */ diff --git a/lapack-netlib/SRC/ssptrd.c b/lapack-netlib/SRC/ssptrd.c index f8976db3a..df599e782 100644 --- a/lapack-netlib/SRC/ssptrd.c +++ b/lapack-netlib/SRC/ssptrd.c @@ -665,7 +665,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__, +/* Subroutine */ void ssptrd_(char *uplo, integer *n, real *ap, real *d__, real *e, real *tau, integer *info) { /* System generated locals */ @@ -675,17 +675,18 @@ f"> */ real taui; extern real sdot_(integer *, real *, integer *, real *, integer *); integer i__; - extern /* Subroutine */ int sspr2_(char *, integer *, real *, real *, + extern /* Subroutine */ void sspr2_(char *, integer *, real *, real *, integer *, real *, integer *, real *); real alpha; extern logical lsame_(char *, char *); integer i1; logical upper; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), sspmv_(char *, integer *, real *, real *, real *, integer *, real *, real *, integer *); integer ii; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slarfg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slarfg_( integer *, real *, real *, integer *, real *); integer i1i1; @@ -718,13 +719,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPTRD", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } if (upper) { @@ -826,7 +827,7 @@ f"> */ d__[*n] = ap[ii]; } - return 0; + return; /* End of SSPTRD */ diff --git a/lapack-netlib/SRC/ssptrf.c b/lapack-netlib/SRC/ssptrf.c index fad8532f7..89d5414d9 100644 --- a/lapack-netlib/SRC/ssptrf.c +++ b/lapack-netlib/SRC/ssptrf.c @@ -670,7 +670,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv, +/* Subroutine */ void ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv, integer *info) { /* System generated locals */ @@ -679,15 +679,15 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int sspr_(char *, integer *, real *, real *, + extern /* Subroutine */ void sspr_(char *, integer *, real *, real *, integer *, real *); integer i__, j, k; real t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer kstep; logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real r1, d11, d12, d21, d22; integer kc, kk, kp; @@ -726,7 +726,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1165,7 +1165,7 @@ L60: } L110: - return 0; + return; /* End of SSPTRF */ diff --git a/lapack-netlib/SRC/ssptri.c b/lapack-netlib/SRC/ssptri.c index 79e24f37b..ee09a21a4 100644 --- a/lapack-netlib/SRC/ssptri.c +++ b/lapack-netlib/SRC/ssptri.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, +/* Subroutine */ void ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, real *work, integer *info) { /* System generated locals */ @@ -640,7 +640,7 @@ f"> */ extern logical lsame_(char *, char *); integer kstep; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), sspmv_(char *, integer *, real *, real *, real *, integer *, real *, real *, integer *); @@ -678,13 +678,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -696,7 +696,7 @@ f"> */ kp = *n * (*n + 1) / 2; for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && ap[kp] == 0.f) { - return 0; + return; } kp -= *info; /* L10: */ @@ -709,7 +709,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && ap[kp] == 0.f) { - return 0; + return; } kp = kp + *n - *info + 1; /* L20: */ @@ -950,7 +950,7 @@ L80: ; } - return 0; + return; /* End of SSPTRI */ diff --git a/lapack-netlib/SRC/ssptrs.c b/lapack-netlib/SRC/ssptrs.c index c7b5c05ee..f6f2cb403 100644 --- a/lapack-netlib/SRC/ssptrs.c +++ b/lapack-netlib/SRC/ssptrs.c @@ -630,7 +630,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, +/* Subroutine */ void ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, integer *ipiv, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -638,17 +638,17 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); real akm1k; integer j, k; extern logical lsame_(char *, char *); real denom; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real ak, bk; integer kc, kp; @@ -687,13 +687,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1000,7 +1000,7 @@ L100: ; } - return 0; + return; /* End of SSPTRS */ diff --git a/lapack-netlib/SRC/sstebz.c b/lapack-netlib/SRC/sstebz.c index e73f9ce9c..ebe4d0c96 100644 --- a/lapack-netlib/SRC/sstebz.c +++ b/lapack-netlib/SRC/sstebz.c @@ -789,7 +789,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl, +/* Subroutine */ void sstebz_(char *range, char *order, integer *n, real *vl, real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e, integer *m, integer *nsplit, real *w, integer *iblock, integer * isplit, real *work, integer *iwork, integer *info) @@ -821,7 +821,7 @@ f"> */ integer *, integer *, ftnlen, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer idiscu; - extern /* Subroutine */ int slaebz_(integer *, integer *, integer *, + extern /* Subroutine */ void slaebz_(integer *, integer *, integer *, integer *, integer *, integer *, real *, real *, real *, real *, real *, real *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); @@ -899,7 +899,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSTEBZ", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize error flags */ @@ -912,7 +912,7 @@ f"> */ *m = 0; if (*n == 0) { - return 0; + return; } /* Simplifications: */ @@ -946,7 +946,7 @@ f"> */ iblock[1] = 1; *m = 1; } - return 0; + return; } /* Compute Splitting Points */ @@ -1060,7 +1060,7 @@ f"> */ if (nwl < 0 || nwl >= *n || nwu < 1 || nwu > *n) { *info = 4; - return 0; + return; } } else { @@ -1363,7 +1363,7 @@ L70: if (toofew) { *info += 2; } - return 0; + return; /* End of SSTEBZ */ diff --git a/lapack-netlib/SRC/sstedc.c b/lapack-netlib/SRC/sstedc.c index 61ad3dd37..10ea1249f 100644 --- a/lapack-netlib/SRC/sstedc.c +++ b/lapack-netlib/SRC/sstedc.c @@ -705,7 +705,7 @@ f"> */ /* > Modified by Francoise Tisseur, University of Tennessee */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e, +/* Subroutine */ void sstedc_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -718,11 +718,11 @@ f"> */ integer i__, j, k, m; real p; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lwmin, start; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), slaed0_(integer *, integer *, integer *, real *, real *, real *, integer *, real *, integer *, real *, integer *, integer *); @@ -732,18 +732,18 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer finish; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); integer liwmin, icompz; real orgnrm; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *), + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *), slasrt_(char *, integer *, real *, integer *); logical lquery; integer smlsiz; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); integer storez, strtrw, lgn; real eps; @@ -835,21 +835,21 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSTEDC", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (icompz != 0) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* If the following conditional clause is removed, then the routine */ @@ -1031,7 +1031,7 @@ L50: work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSTEDC */ diff --git a/lapack-netlib/SRC/sstegr.c b/lapack-netlib/SRC/sstegr.c index 28c581d07..3971609e4 100644 --- a/lapack-netlib/SRC/sstegr.c +++ b/lapack-netlib/SRC/sstegr.c @@ -772,7 +772,7 @@ f"> */ /* > Christof Voemel, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__, +/* Subroutine */ void sstegr_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real * work, integer *lwork, integer *iwork, integer *liwork, integer *info) @@ -782,7 +782,7 @@ f"> */ /* Local variables */ logical tryrac; - extern /* Subroutine */ int sstemr_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstemr_(char *, char *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, integer *, integer *, integer *, logical *, real *, integer *, integer *, integer *, integer *); @@ -816,6 +816,6 @@ f"> */ /* End of SSTEGR */ - return 0; + return; } /* sstegr_ */ diff --git a/lapack-netlib/SRC/sstein.c b/lapack-netlib/SRC/sstein.c index 4eeb3d19b..42c85fa5b 100644 --- a/lapack-netlib/SRC/sstein.c +++ b/lapack-netlib/SRC/sstein.c @@ -688,7 +688,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real +/* Subroutine */ void sstein_(integer *n, real *d__, real *e, integer *m, real *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real * work, integer *iwork, integer *ifail, integer *info) { @@ -701,26 +701,27 @@ f"> */ extern real sdot_(integer *, real *, integer *, real *, integer *), snrm2_(integer *, real *, integer *); integer i__, j, iseed[4], gpind, iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer b1, j1; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real ortol; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); integer indrv1, indrv2, indrv3, indrv4, indrv5, bn; real xj; extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slagtf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slagtf_( integer *, real *, real *, real *, real *, real *, real *, integer *, integer *); integer nrmchk; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slagts_(integer *, integer *, real *, real *, + extern /* Subroutine */ void slagts_(integer *, integer *, real *, real *, real *, real *, integer *, real *, real *, integer *); integer blksiz; real onenrm, pertol; - extern /* Subroutine */ int slarnv_(integer *, integer *, integer *, real + extern /* Subroutine */ void slarnv_(integer *, integer *, integer *, real *); real stpcrt, scl, eps, ctr, sep, nrm, tol; integer its; @@ -785,16 +786,16 @@ L30: if (*info != 0) { i__1 = -(*info); xerbla_("SSTEIN", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } else if (*n == 1) { z__[z_dim1 + 1] = 1.f; - return 0; + return; } /* Get machine constants. */ @@ -1009,7 +1010,7 @@ L160: ; } - return 0; + return; /* End of SSTEIN */ diff --git a/lapack-netlib/SRC/sstemr.c b/lapack-netlib/SRC/sstemr.c index b53191689..f008b7045 100644 --- a/lapack-netlib/SRC/sstemr.c +++ b/lapack-netlib/SRC/sstemr.c @@ -833,7 +833,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int sstemr_(char *jobz, char *range, integer *n, real *d__, +/* Subroutine */ void sstemr_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, integer *m, real *w, real *z__, integer *ldz, integer *nzc, integer *isuppz, logical *tryrac, real *work, integer *lwork, integer *iwork, integer * @@ -849,7 +849,7 @@ f"> */ integer itmp; real tnrm; integer inde2; - extern /* Subroutine */ int slae2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slae2_(real *, real *, real *, real *, real *) ; integer itmp2; real rtol1, rtol2; @@ -858,14 +858,14 @@ f"> */ integer indgp; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer iindw, ilast, lwmin; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; real r1, r2; - extern /* Subroutine */ int slaev2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slaev2_(real *, real *, real *, real *, real * , real *, real *); integer jj; real cs; @@ -880,7 +880,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer inderr, iindwk, indgrs, offset; - extern /* Subroutine */ int slarrc_(char *, integer *, real *, real *, + extern /* Subroutine */ void slarrc_(char *, integer *, real *, real *, real *, real *, real *, integer *, integer *, integer *, integer * ), slarre_(char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, real *, real *, real *, @@ -891,18 +891,18 @@ f"> */ integer iinspl, indwrk, ifirst, liwmin, nzcmin; real pivmin; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int slarrj_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slarrj_(integer *, real *, real *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, real *, integer *), slarrr_(integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int slarrv_(integer *, real *, real *, real *, + extern /* Subroutine */ void slarrv_(integer *, real *, real *, real *, real *, real *, integer *, integer *, integer *, integer *, real * , real *, real *, real *, real *, real *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer * ); real smlnum; - extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); + extern /* Subroutine */ void slasrt_(char *, integer *, real *, integer *); logical lquery, zquery; integer iil, iiu; real eps, tmp; @@ -1024,16 +1024,16 @@ f"> */ i__1 = -(*info); xerbla_("SSTEMR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery || zquery) { - return 0; + return; } /* Handle N = 0, 1, and 2 cases immediately */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1051,7 +1051,7 @@ f"> */ isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } if (*n == 2) { @@ -1201,7 +1201,7 @@ f"> */ work[indgrs], &pivmin, &work[indwrk], &iwork[iindwk], &iinfo); if (iinfo != 0) { *info = abs(iinfo) + 10; - return 0; + return; } /* Note that if RANGE .NE. 'V', SLARRE computes bounds on the desired */ /* part of the spectrum. All desired eigenvalues are contained in */ @@ -1218,7 +1218,7 @@ f"> */ iindwk], &iinfo); if (iinfo != 0) { *info = abs(iinfo) + 20; - return 0; + return; } } else { /* SLARRE computes eigenvalues of the (shifted) root representation */ @@ -1287,7 +1287,7 @@ L39: slasrt_("I", m, &w[1], &iinfo); if (iinfo != 0) { *info = 3; - return 0; + return; } } else { i__1 = *m - 1; @@ -1324,7 +1324,7 @@ L39: work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSTEMR */ diff --git a/lapack-netlib/SRC/ssteqr.c b/lapack-netlib/SRC/ssteqr.c index 02ca293c7..8a43b9425 100644 --- a/lapack-netlib/SRC/ssteqr.c +++ b/lapack-netlib/SRC/ssteqr.c @@ -648,7 +648,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e, +/* Subroutine */ void ssteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info) { /* System generated locals */ @@ -657,20 +657,20 @@ f"> */ /* Local variables */ integer lend, jtot; - extern /* Subroutine */ int slae2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slae2_(real *, real *, real *, real *, real *) ; real b, c__, f, g; integer i__, j, k, l, m; real p, r__, s; extern logical lsame_(char *, char *); real anorm; - extern /* Subroutine */ int slasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void slasr_(char *, char *, char *, integer *, integer *, real *, real *, real *, integer *); integer l1; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer lendm1, lendp1; - extern /* Subroutine */ int slaev2_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slaev2_(real *, real *, real *, real *, real * , real *, real *); extern real slapy2_(real *, real *); integer ii, mm, iscale; @@ -678,17 +678,17 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real safmax; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer lendsv; - extern /* Subroutine */ int slartg_(real *, real *, real *, real *, real * + extern /* Subroutine */ void slartg_(real *, real *, real *, real *, real * ), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); real ssfmin; integer nmaxit, icompz; real ssfmax; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); + extern /* Subroutine */ void slasrt_(char *, integer *, real *, integer *); integer lm1, mm1, nm1; real rt1, rt2, eps; integer lsv; @@ -736,20 +736,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSTEQR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (icompz == 2) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Determine the unit roundoff and over/underflow thresholds. */ @@ -1163,7 +1163,7 @@ L160: } L190: - return 0; + return; /* End of SSTEQR */ diff --git a/lapack-netlib/SRC/ssterf.c b/lapack-netlib/SRC/ssterf.c index 4581f3cfe..3e815cfc9 100644 --- a/lapack-netlib/SRC/ssterf.c +++ b/lapack-netlib/SRC/ssterf.c @@ -601,7 +601,7 @@ f"> */ /* > \ingroup auxOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info) +/* Subroutine */ void ssterf_(integer *n, real *d__, real *e, integer *info) { /* System generated locals */ integer i__1; @@ -610,7 +610,7 @@ f"> */ /* Local variables */ real oldc; integer lend, jtot; - extern /* Subroutine */ int slae2_(real *, real *, real *, real *, real *) + extern /* Subroutine */ void slae2_(real *, real *, real *, real *, real *) ; real c__; integer i__, l, m; @@ -624,14 +624,14 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real safmax; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer lendsv; real ssfmin; integer nmaxit; real ssfmax; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int slasrt_(char *, integer *, real *, integer *); + extern /* Subroutine */ void slasrt_(char *, integer *, real *, integer *); real rt1, rt2, eps, rte; integer lsv; real eps2; @@ -661,10 +661,10 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("SSTERF", &i__1, (ftnlen)6); - return 0; + return; } if (*n <= 1) { - return 0; + return; } /* Determine the unit roundoff for this environment. */ @@ -994,7 +994,7 @@ L170: slasrt_("I", n, &d__[1], info); L180: - return 0; + return; /* End of SSTERF */ diff --git a/lapack-netlib/SRC/sstev.c b/lapack-netlib/SRC/sstev.c index 0a38320b3..fc6a68148 100644 --- a/lapack-netlib/SRC/sstev.c +++ b/lapack-netlib/SRC/sstev.c @@ -630,7 +630,7 @@ atrices */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real * +/* Subroutine */ void sstev_(char *jobz, integer *n, real *d__, real *e, real * z__, integer *ldz, real *work, integer *info) { /* System generated locals */ @@ -641,7 +641,7 @@ atrices */ integer imax; real rmin, rmax, tnrm, sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical wantz; integer iscale; extern real slamch_(char *); @@ -649,9 +649,9 @@ atrices */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); real smlnum; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); real eps; @@ -690,20 +690,20 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("SSTEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -753,7 +753,7 @@ atrices */ sscal_(&imax, &r__1, &d__[1], &c__1); } - return 0; + return; /* End of SSTEV */ diff --git a/lapack-netlib/SRC/sstevd.c b/lapack-netlib/SRC/sstevd.c index fc6d24f4e..dfb1f5d74 100644 --- a/lapack-netlib/SRC/sstevd.c +++ b/lapack-netlib/SRC/sstevd.c @@ -676,7 +676,7 @@ f"> */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real +/* Subroutine */ void sstevd_(char *jobz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -687,7 +687,7 @@ f"> */ /* Local variables */ real rmin, rmax, tnrm, sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lwmin; logical wantz; integer iscale; @@ -695,12 +695,12 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int sstedc_(char *, integer *, real *, real *, + extern /* Subroutine */ void sstedc_(char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *); integer liwmin; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); real smlnum; logical lquery; real eps; @@ -762,22 +762,22 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSTEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -826,7 +826,7 @@ f"> */ work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSTEVD */ diff --git a/lapack-netlib/SRC/sstevr.c b/lapack-netlib/SRC/sstevr.c index 3733acf24..13bcca0e2 100644 --- a/lapack-netlib/SRC/sstevr.c +++ b/lapack-netlib/SRC/sstevr.c @@ -822,7 +822,7 @@ f"> */ /* > California at Berkeley, USA \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__, +/* Subroutine */ void sstevr_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real * work, integer *lwork, integer *iwork, integer *liwork, integer *info) @@ -839,10 +839,10 @@ f"> */ integer i__, j; real sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer lwmin; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; @@ -859,17 +859,17 @@ f"> */ integer indisp, indiwo, liwmin; logical tryrac; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int sstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer * , integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real smlnum; - extern /* Subroutine */ int sstemr_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstemr_(char *, char *, integer *, real *, real *, real *, real *, integer *, integer *, integer *, real *, real *, integer *, integer *, integer *, logical *, real *, integer *, integer *, integer *, integer *); @@ -958,16 +958,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSTEVR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -983,7 +983,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -1139,7 +1139,7 @@ L10: work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSTEVR */ diff --git a/lapack-netlib/SRC/sstevx.c b/lapack-netlib/SRC/sstevx.c index 2d8c50481..d6ce747d6 100644 --- a/lapack-netlib/SRC/sstevx.c +++ b/lapack-netlib/SRC/sstevx.c @@ -740,7 +740,7 @@ f"> */ /* > \ingroup realOTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__, +/* Subroutine */ void sstevx_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer * iwork, integer *ifail, integer *info) @@ -757,9 +757,9 @@ f"> */ integer itmp1, i__, j; real sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; @@ -773,17 +773,17 @@ f"> */ real bignum; integer indisp, indiwo, indwrk; extern real slanst_(char *, integer *, real *, real *); - extern /* Subroutine */ int sstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer * , integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer nsplit; - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real smlnum; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); real eps, vll, vuu, tmp1; @@ -845,14 +845,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSTEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -868,7 +868,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -1014,7 +1014,7 @@ L20: } } - return 0; + return; /* End of SSTEVX */ diff --git a/lapack-netlib/SRC/ssycon.c b/lapack-netlib/SRC/ssycon.c index 6d15c1e5a..794ba94b3 100644 --- a/lapack-netlib/SRC/ssycon.c +++ b/lapack-netlib/SRC/ssycon.c @@ -642,7 +642,7 @@ f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssycon_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info) { @@ -654,10 +654,11 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, - real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, + real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; - extern /* Subroutine */ int ssytrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void ssytrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -695,7 +696,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -703,9 +704,9 @@ f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -716,7 +717,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.f) { - return 0; + return; } /* L10: */ } @@ -727,7 +728,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.f) { - return 0; + return; } /* L20: */ } @@ -753,7 +754,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of SSYCON */ diff --git a/lapack-netlib/SRC/ssycon_3.c b/lapack-netlib/SRC/ssycon_3.c index 4d399327d..0352febd0 100644 --- a/lapack-netlib/SRC/ssycon_3.c +++ b/lapack-netlib/SRC/ssycon_3.c @@ -683,7 +683,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssycon_3_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssycon_3_(char *uplo, integer *n, real *a, integer *lda, real *e, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info) { @@ -692,14 +692,15 @@ static integer c__1 = 1; /* Local variables */ integer kase; - extern /* Subroutine */ int ssytrs_3_(char *, integer *, integer *, real + extern /* Subroutine */ void ssytrs_3_(char *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *); integer i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, - real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, + real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; @@ -738,7 +739,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SSYCON_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ @@ -746,9 +747,9 @@ static integer c__1 = 1; *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -759,7 +760,7 @@ static integer c__1 = 1; for (i__ = *n; i__ >= 1; --i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.f) { - return 0; + return; } } } else { @@ -769,7 +770,7 @@ static integer c__1 = 1; i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.f) { - return 0; + return; } } } @@ -794,7 +795,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of DSYCON_3 */ diff --git a/lapack-netlib/SRC/ssycon_rook.c b/lapack-netlib/SRC/ssycon_rook.c index 7bdd83ff2..d6bde6e4f 100644 --- a/lapack-netlib/SRC/ssycon_rook.c +++ b/lapack-netlib/SRC/ssycon_rook.c @@ -656,7 +656,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssycon_rook_(char *uplo, integer *n, real *a, integer * +/* Subroutine */ void ssycon_rook_(char *uplo, integer *n, real *a, integer * lda, integer *ipiv, real *anorm, real *rcond, real *work, integer * iwork, integer *info) { @@ -665,14 +665,15 @@ rook.f"> */ /* Local variables */ integer kase; - extern /* Subroutine */ int ssytrs_rook_(char *, integer *, integer *, + extern /* Subroutine */ void ssytrs_rook_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); integer i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, - real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, + real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); real ainvnm; @@ -710,7 +711,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYCON_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ @@ -718,9 +719,9 @@ rook.f"> */ *rcond = 0.f; if (*n == 0) { *rcond = 1.f; - return 0; + return; } else if (*anorm <= 0.f) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -731,7 +732,7 @@ rook.f"> */ for (i__ = *n; i__ >= 1; --i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.f) { - return 0; + return; } /* L10: */ } @@ -742,7 +743,7 @@ rook.f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (ipiv[i__] > 0 && a[i__ + i__ * a_dim1] == 0.f) { - return 0; + return; } /* L20: */ } @@ -768,7 +769,7 @@ L30: *rcond = 1.f / ainvnm / *anorm; } - return 0; + return; /* End of SSYCON_ROOK */ diff --git a/lapack-netlib/SRC/ssyconv.c b/lapack-netlib/SRC/ssyconv.c index d17701c6c..a69acae8e 100644 --- a/lapack-netlib/SRC/ssyconv.c +++ b/lapack-netlib/SRC/ssyconv.c @@ -623,7 +623,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssyconv_(char *uplo, char *way, integer *n, real *a, +/* Subroutine */ void ssyconv_(char *uplo, char *way, integer *n, real *a, integer *lda, integer *ipiv, real *e, integer *info) { /* System generated locals */ @@ -672,13 +672,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SSYCONV", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -880,7 +880,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } } - return 0; + return; /* End of SSYCONV */ diff --git a/lapack-netlib/SRC/ssyconvf.c b/lapack-netlib/SRC/ssyconvf.c index 69034dc92..d6a8a5250 100644 --- a/lapack-netlib/SRC/ssyconvf.c +++ b/lapack-netlib/SRC/ssyconvf.c @@ -715,7 +715,7 @@ f.f"> */ /* > */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssyconvf_(char *uplo, char *way, integer *n, real *a, +/* Subroutine */ void ssyconvf_(char *uplo, char *way, integer *n, real *a, integer *lda, real *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -725,7 +725,7 @@ f.f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -765,13 +765,13 @@ f.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYCONVF", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -1072,7 +1072,7 @@ f.f"> */ /* End A is LOWER */ } - return 0; + return; /* End of SSYCONVF */ diff --git a/lapack-netlib/SRC/ssyconvf_rook.c b/lapack-netlib/SRC/ssyconvf_rook.c index 7aa85940c..4c2475fc2 100644 --- a/lapack-netlib/SRC/ssyconvf_rook.c +++ b/lapack-netlib/SRC/ssyconvf_rook.c @@ -706,7 +706,7 @@ f_rook.f"> */ /* > */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssyconvf_rook_(char *uplo, char *way, integer *n, real * +/* Subroutine */ void ssyconvf_rook_(char *uplo, char *way, integer *n, real * a, integer *lda, real *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -716,7 +716,7 @@ f_rook.f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -757,13 +757,13 @@ f_rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYCONVF_ROOK", &i__1, (ftnlen)13); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -1062,7 +1062,7 @@ f_rook.f"> */ /* End A is LOWER */ } - return 0; + return; /* End of SSYCONVF_ROOK */ diff --git a/lapack-netlib/SRC/ssyequb.c b/lapack-netlib/SRC/ssyequb.c index 31e456407..5e4a09c73 100644 --- a/lapack-netlib/SRC/ssyequb.c +++ b/lapack-netlib/SRC/ssyequb.c @@ -644,7 +644,7 @@ static integer c__1 = 1; /* > Tech report version: http://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.3.1679 */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssyequb_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssyequb_(char *uplo, integer *n, real *a, integer *lda, real *s, real *scond, real *amax, real *work, integer *info) { /* System generated locals */ @@ -663,7 +663,7 @@ static integer c__1 = 1; extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real smlnum, avg, std, tol; @@ -698,7 +698,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SSYEQUB", &i__1, (ftnlen)7); - return 0; + return; } up = lsame_(uplo, "U"); *amax = 0.f; @@ -707,7 +707,7 @@ static integer c__1 = 1; if (*n == 0) { *scond = 1.f; - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -824,7 +824,7 @@ static integer c__1 = 1; d__ = c1 * c1 - c0 * 4 * c2; if (d__ <= 0.f) { *info = -1; - return 0; + return; } si = c0 * -2 / (c1 + sqrt(d__)); d__ = si - s[i__]; @@ -881,6 +881,6 @@ L999: } *scond = f2cmax(smin,smlnum) / f2cmin(smax,bignum); - return 0; + return; } /* ssyequb_ */ diff --git a/lapack-netlib/SRC/ssyev.c b/lapack-netlib/SRC/ssyev.c index 27fc4c318..e861c0bc3 100644 --- a/lapack-netlib/SRC/ssyev.c +++ b/lapack-netlib/SRC/ssyev.c @@ -649,7 +649,7 @@ ices */ /* > \ingroup realSYeigen */ /* ===================================================================== */ -/* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a, +/* Subroutine */ void ssyev_(char *jobz, char *uplo, integer *n, real *a, integer *lda, real *w, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -663,7 +663,7 @@ ices */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical lower, wantz; integer nb, iscale; extern real slamch_(char *); @@ -672,16 +672,16 @@ ices */ integer *, integer *, ftnlen, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer indtau, indwrk; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); extern real slansy_(char *, char *, integer *, real *, integer *, real *); integer llwork; real smlnum; integer lwkopt; logical lquery; - extern /* Subroutine */ int sorgtr_(char *, integer *, real *, integer *, + extern /* Subroutine */ void sorgtr_(char *, integer *, real *, integer *, real *, real *, integer *, integer *), ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *), ssytrd_(char *, integer *, real *, integer *, real *, real *, real *, real *, integer *, integer *); @@ -740,15 +740,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -757,7 +757,7 @@ ices */ if (wantz) { a[a_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -822,7 +822,7 @@ ices */ work[1] = (real) lwkopt; - return 0; + return; /* End of SSYEV */ diff --git a/lapack-netlib/SRC/ssyev_2stage.c b/lapack-netlib/SRC/ssyev_2stage.c index a2790dd14..dea80d02e 100644 --- a/lapack-netlib/SRC/ssyev_2stage.c +++ b/lapack-netlib/SRC/ssyev_2stage.c @@ -702,7 +702,7 @@ SY matrices */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssyev_2stage_(char *jobz, char *uplo, integer *n, real * +/* Subroutine */ void ssyev_2stage_(char *jobz, char *uplo, integer *n, real * a, integer *lda, real *w, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -718,10 +718,10 @@ SY matrices */ real rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lhtrd, lwmin; logical lower; - extern /* Subroutine */ int ssytrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void ssytrd_2stage_(char *, char *, integer *, real *, integer *, real *, real *, real *, real *, integer *, real *, integer *, integer *); integer lwtrd; @@ -731,17 +731,17 @@ SY matrices */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer indtau, indwrk; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); extern real slansy_(char *, char *, integer *, real *, integer *, real *); integer llwork; real smlnum; - extern /* Subroutine */ int sorgtr_(char *, integer *, real *, integer *, + extern /* Subroutine */ void sorgtr_(char *, integer *, real *, integer *, real *, real *, integer *, integer *); logical lquery; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *); real eps; integer indhous; @@ -801,15 +801,15 @@ SY matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYEV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -818,7 +818,7 @@ SY matrices */ if (wantz) { a[a_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -866,7 +866,7 @@ SY matrices */ } else { /* Not available in this release, and argument checking should not */ /* let it getting here */ - return 0; + return; sorgtr_(uplo, n, &a[a_offset], lda, &work[indtau], &work[indwrk], & llwork, &iinfo); ssteqr_(jobz, n, &w[1], &work[inde], &a[a_offset], lda, &work[indtau], @@ -889,7 +889,7 @@ SY matrices */ work[1] = (real) lwmin; - return 0; + return; /* End of SSYEV_2STAGE */ diff --git a/lapack-netlib/SRC/ssyevd.c b/lapack-netlib/SRC/ssyevd.c index 6ec3bf7a4..86f3494dc 100644 --- a/lapack-netlib/SRC/ssyevd.c +++ b/lapack-netlib/SRC/ssyevd.c @@ -699,7 +699,7 @@ f"> */ /* > Modified description of INFO. Sven, 16 Feb 05. \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a, +/* Subroutine */ void ssyevd_(char *jobz, char *uplo, integer *n, real *a, integer *lda, real *w, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -714,7 +714,7 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lwmin, liopt; logical lower, wantz; integer indwk2, llwrk2, iscale; @@ -724,20 +724,20 @@ f"> */ integer *, integer *, ftnlen, ftnlen); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer indtau; - extern /* Subroutine */ int sstedc_(char *, integer *, real *, real *, + extern /* Subroutine */ void sstedc_(char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); extern real slansy_(char *, char *, integer *, real *, integer *, real *); integer llwork; real smlnum; logical lquery; - extern /* Subroutine */ int sormtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void sormtr_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *), ssytrd_(char *, integer *, real *, integer *, real *, real *, real *, real *, @@ -816,15 +816,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -832,7 +832,7 @@ f"> */ if (wantz) { a[a_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -897,7 +897,7 @@ f"> */ work[1] = (real) lopt; iwork[1] = liopt; - return 0; + return; /* End of SSYEVD */ diff --git a/lapack-netlib/SRC/ssyevd_2stage.c b/lapack-netlib/SRC/ssyevd_2stage.c index a4146655d..19d366874 100644 --- a/lapack-netlib/SRC/ssyevd_2stage.c +++ b/lapack-netlib/SRC/ssyevd_2stage.c @@ -746,7 +746,7 @@ static real c_b27 = 1.f; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssyevd_2stage_(char *jobz, char *uplo, integer *n, real +/* Subroutine */ void ssyevd_2stage_(char *jobz, char *uplo, integer *n, real *a, integer *lda, real *w, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -761,11 +761,11 @@ static real c_b27 = 1.f; real anrm, rmin, rmax, sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer lhtrd, lwmin; logical lower; integer lwtrd; - extern /* Subroutine */ int ssytrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void ssytrd_2stage_(char *, char *, integer *, real *, integer *, real *, real *, real *, real *, integer *, real *, integer *, integer *); logical wantz; @@ -774,20 +774,20 @@ static real c_b27 = 1.f; real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); integer indtau; - extern /* Subroutine */ int sstedc_(char *, integer *, real *, real *, + extern /* Subroutine */ void sstedc_(char *, integer *, real *, real *, real *, integer *, real *, integer *, integer *, integer *, integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int ssterf_(integer *, real *, real *, integer *); + extern /* Subroutine */ void ssterf_(integer *, real *, real *, integer *); extern real slansy_(char *, char *, integer *, real *, integer *, real *); integer llwork; real smlnum; logical lquery; - extern /* Subroutine */ int sormtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void sormtr_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real eps; @@ -867,15 +867,15 @@ static real c_b27 = 1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SSYEVD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -883,7 +883,7 @@ static real c_b27 = 1.f; if (wantz) { a[a_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -935,7 +935,7 @@ static real c_b27 = 1.f; } else { /* Not available in this release, and argument checking should not */ /* let it getting here */ - return 0; + return; sstedc_("I", n, &w[1], &work[inde], &work[indwrk], n, &work[indwk2], & llwrk2, &iwork[1], liwork, info); sormtr_("L", uplo, "N", n, n, &a[a_offset], lda, &work[indtau], &work[ @@ -953,7 +953,7 @@ static real c_b27 = 1.f; work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSYEVD_2STAGE */ diff --git a/lapack-netlib/SRC/ssyevr.c b/lapack-netlib/SRC/ssyevr.c index 680a1a58b..287656d0d 100644 --- a/lapack-netlib/SRC/ssyevr.c +++ b/lapack-netlib/SRC/ssyevr.c @@ -853,7 +853,7 @@ f"> */ /* > California at Berkeley, USA \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void ssyevr_(char *jobz, char *range, char *uplo, integer *n, real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, integer * isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, @@ -873,11 +873,11 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer indwk, lwmin; logical lower; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; @@ -893,14 +893,14 @@ f"> */ real abstll, bignum; integer indtau, indisp, indiwo, indwkn, liwmin; logical tryrac; - extern /* Subroutine */ int sstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer * , integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer llwrkn, llwork, nsplit; real smlnum; extern real slansy_(char *, char *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), sstemr_(char *, char *, integer *, @@ -909,7 +909,7 @@ f"> */ , integer *, integer *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int sormtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void sormtr_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *), ssytrd_(char *, integer *, real *, integer *, real *, real *, real *, real *, @@ -1012,9 +1012,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYEVR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -1022,7 +1022,7 @@ f"> */ *m = 0; if (*n == 0) { work[1] = 1.f; - return 0; + return; } if (*n == 1) { @@ -1041,7 +1041,7 @@ f"> */ isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } /* Get machine constants. */ @@ -1259,7 +1259,7 @@ L30: work[1] = (real) lwkopt; iwork[1] = liwmin; - return 0; + return; /* End of SSYEVR */ diff --git a/lapack-netlib/SRC/ssyevr_2stage.c b/lapack-netlib/SRC/ssyevr_2stage.c index 0e21f214c..e61324786 100644 --- a/lapack-netlib/SRC/ssyevr_2stage.c +++ b/lapack-netlib/SRC/ssyevr_2stage.c @@ -898,7 +898,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssyevr_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void ssyevr_2stage_(char *jobz, char *range, char *uplo, integer *n, real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer * ldz, integer *isuppz, real *work, integer *lwork, integer *iwork, @@ -920,12 +920,12 @@ static integer c_n1 = -1; real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer indwk, lhtrd, lwmin; logical lower; integer lwtrd; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), ssytrd_2stage_(char *, char *, integer *, real *, integer *, real *, real *, real *, real *, integer *, real *, integer *, @@ -943,14 +943,14 @@ static integer c_n1 = -1; real abstll, bignum; integer indtau, indisp, indiwo, indwkn, liwmin; logical tryrac; - extern /* Subroutine */ int sstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer * , integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer llwrkn, llwork, nsplit; real smlnum; extern real slansy_(char *, char *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), sstemr_(char *, char *, integer *, @@ -958,7 +958,7 @@ static integer c_n1 = -1; real *, real *, integer *, integer *, integer *, logical *, real * , integer *, integer *, integer *, integer *); logical lquery; - extern /* Subroutine */ int sormtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void sormtr_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); real eps, vll, vuu; @@ -1058,9 +1058,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("SSYEVR_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -1068,7 +1068,7 @@ static integer c_n1 = -1; *m = 0; if (*n == 0) { work[1] = 1.f; - return 0; + return; } if (*n == 1) { @@ -1087,7 +1087,7 @@ static integer c_n1 = -1; isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } /* Get machine constants. */ @@ -1309,7 +1309,7 @@ L30: work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of SSYEVR_2STAGE */ diff --git a/lapack-netlib/SRC/ssyevx.c b/lapack-netlib/SRC/ssyevx.c index d463ad588..50fc2cac6 100644 --- a/lapack-netlib/SRC/ssyevx.c +++ b/lapack-netlib/SRC/ssyevx.c @@ -766,7 +766,7 @@ f"> */ /* > \ingroup realSYeigen */ /* ===================================================================== */ -/* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void ssyevx_(char *jobz, char *range, char *uplo, integer *n, real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real * work, integer *lwork, integer *iwork, integer *ifail, integer *info) @@ -785,10 +785,10 @@ f"> */ real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; logical lower; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); logical wantz; @@ -803,23 +803,23 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indtau, indisp, indiwo, indwkn; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk, lwkmin; - extern /* Subroutine */ int sstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer * , integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer llwrkn, llwork, nsplit; real smlnum; extern real slansy_(char *, char *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int sorgtr_(char *, integer *, real *, integer *, + extern /* Subroutine */ void sorgtr_(char *, integer *, real *, integer *, real *, real *, integer *, integer *), ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *), sormtr_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, @@ -916,16 +916,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -941,7 +941,7 @@ f"> */ if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -1125,7 +1125,7 @@ L40: work[1] = (real) lwkopt; - return 0; + return; /* End of SSYEVX */ diff --git a/lapack-netlib/SRC/ssyevx_2stage.c b/lapack-netlib/SRC/ssyevx_2stage.c index 6e461b418..81c4ab8dd 100644 --- a/lapack-netlib/SRC/ssyevx_2stage.c +++ b/lapack-netlib/SRC/ssyevx_2stage.c @@ -816,7 +816,7 @@ static integer c__4 = 4; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssyevx_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void ssyevx_2stage_(char *jobz, char *range, char *uplo, integer *n, real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer * ldz, real *work, integer *lwork, integer *iwork, integer *ifail, @@ -838,12 +838,12 @@ static integer c__4 = 4; real sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); char order[1]; integer lhtrd, lwmin; logical lower; integer lwtrd; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), ssytrd_2stage_(char *, char *, integer *, real *, integer *, real *, real *, real *, real *, integer *, real *, integer *, @@ -858,23 +858,23 @@ static integer c__4 = 4; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real abstll, bignum; integer indtau, indisp, indiwo, indwkn; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer indwrk; - extern /* Subroutine */ int sstein_(integer *, real *, real *, integer *, + extern /* Subroutine */ void sstein_(integer *, real *, real *, integer *, real *, integer *, integer *, real *, integer *, real *, integer * , integer *, integer *), ssterf_(integer *, real *, real *, integer *); integer llwrkn, llwork, nsplit; real smlnum; extern real slansy_(char *, char *, integer *, real *, integer *, real *); - extern /* Subroutine */ int sstebz_(char *, char *, integer *, real *, + extern /* Subroutine */ void sstebz_(char *, char *, integer *, real *, real *, integer *, integer *, real *, real *, real *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), sorgtr_(char *, integer *, real *, integer *, real *, real *, integer *, integer *); logical lquery; - extern /* Subroutine */ int ssteqr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssteqr_(char *, integer *, real *, real *, real *, integer *, real *, integer *), sormtr_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); @@ -972,16 +972,16 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("SSYEVX_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -997,7 +997,7 @@ static integer c__4 = 4; if (wantz) { z__[z_dim1 + 1] = 1.f; } - return 0; + return; } /* Get machine constants. */ @@ -1184,7 +1184,7 @@ L40: work[1] = (real) lwmin; - return 0; + return; /* End of SSYEVX_2STAGE */ diff --git a/lapack-netlib/SRC/ssygs2.c b/lapack-netlib/SRC/ssygs2.c index fe4a01d8b..dca132458 100644 --- a/lapack-netlib/SRC/ssygs2.c +++ b/lapack-netlib/SRC/ssygs2.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a, +/* Subroutine */ void ssygs2_(integer *itype, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -652,12 +652,12 @@ f"> */ /* Local variables */ integer k; - extern /* Subroutine */ int ssyr2_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssyr2_(char *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), strmv_(char *, char *, char *, integer *, real *, integer *, real *, integer *), strsv_(char *, char *, char *, integer *, real *, integer *, real @@ -703,7 +703,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYGS2", &i__1, (ftnlen)6); - return 0; + return; } if (*itype == 1) { @@ -845,7 +845,7 @@ f"> */ } } } - return 0; + return; /* End of SSYGS2 */ diff --git a/lapack-netlib/SRC/ssygst.c b/lapack-netlib/SRC/ssygst.c index 7458a322f..87d340a89 100644 --- a/lapack-netlib/SRC/ssygst.c +++ b/lapack-netlib/SRC/ssygst.c @@ -645,7 +645,7 @@ f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a, +/* Subroutine */ void ssygst_(integer *itype, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -655,7 +655,7 @@ f"> */ integer k; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), ssymm_(char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *, real * @@ -663,10 +663,11 @@ f"> */ *, char *, integer *, integer *, real *, real *, integer *, real * , integer *); integer kb, nb; - extern /* Subroutine */ int ssygs2_(integer *, char *, integer *, real *, + extern /* Subroutine */ void ssygs2_(integer *, char *, integer *, real *, integer *, real *, integer *, integer *), ssyr2k_(char *, char *, integer *, integer *, real *, real *, integer *, real *, - integer *, real *, real *, integer *), xerbla_( char *, integer *, ftnlen); + integer *, real *, real *, integer *); + extern int xerbla_( char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); @@ -707,13 +708,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYGST", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -891,7 +892,7 @@ f"> */ } } } - return 0; + return; /* End of SSYGST */ diff --git a/lapack-netlib/SRC/ssygv.c b/lapack-netlib/SRC/ssygv.c index 5fd2085d8..692de8d9c 100644 --- a/lapack-netlib/SRC/ssygv.c +++ b/lapack-netlib/SRC/ssygv.c @@ -689,7 +689,7 @@ static real c_b16 = 1.f; /* > \ingroup realSYeigen */ /* ===================================================================== */ -/* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void ssygv_(integer *itype, char *jobz, char *uplo, integer * n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, integer *lwork, integer *info) { @@ -701,11 +701,11 @@ static real c_b16 = 1.f; extern logical lsame_(char *, char *); char trans[1]; logical upper; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); logical wantz; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), ssyev_(char *, char *, integer *, real *, integer *, real *, real *, integer *, integer *); @@ -718,7 +718,7 @@ static real c_b16 = 1.f; integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int ssygst_(integer *, char *, integer *, real *, + extern /* Subroutine */ void ssygst_(integer *, char *, integer *, real *, integer *, real *, integer *, integer *); @@ -782,15 +782,15 @@ static real c_b16 = 1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SSYGV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -798,7 +798,7 @@ static real c_b16 = 1.f; spotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -845,7 +845,7 @@ static real c_b16 = 1.f; } work[1] = (real) lwkopt; - return 0; + return; /* End of SSYGV */ diff --git a/lapack-netlib/SRC/ssygv_2stage.c b/lapack-netlib/SRC/ssygv_2stage.c index 251b60be9..4ddd71200 100644 --- a/lapack-netlib/SRC/ssygv_2stage.c +++ b/lapack-netlib/SRC/ssygv_2stage.c @@ -743,7 +743,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssygv_2stage_(integer *itype, char *jobz, char *uplo, +/* Subroutine */ void ssygv_2stage_(integer *itype, char *jobz, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, integer *lwork, integer *info) { @@ -754,25 +754,26 @@ stage.f"> */ integer neig; extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); - extern /* Subroutine */ int ssyev_2stage_(char *, char *, integer *, + extern /* Subroutine */ void ssyev_2stage_(char *, char *, integer *, real *, integer *, real *, real *, integer *, integer *); extern logical lsame_(char *, char *); integer lhtrd, lwmin; char trans[1]; logical upper; integer lwtrd; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); logical wantz; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); integer ib, kd; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), spotrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int spotrf_( char *, integer *, real *, integer *, integer *); logical lquery; - extern /* Subroutine */ int ssygst_(integer *, char *, integer *, real *, + extern /* Subroutine */ void ssygst_(integer *, char *, integer *, real *, integer *, real *, integer *, integer *); @@ -837,15 +838,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYGV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -853,7 +854,7 @@ stage.f"> */ spotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -901,7 +902,7 @@ stage.f"> */ } work[1] = (real) lwmin; - return 0; + return; /* End of SSYGV_2STAGE */ diff --git a/lapack-netlib/SRC/ssygvd.c b/lapack-netlib/SRC/ssygvd.c index b5ec9ac84..d8bbd48e7 100644 --- a/lapack-netlib/SRC/ssygvd.c +++ b/lapack-netlib/SRC/ssygvd.c @@ -739,7 +739,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void ssygvd_(integer *itype, char *jobz, char *uplo, integer * n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info) { @@ -754,20 +754,22 @@ f"> */ char trans[1]; integer liopt; logical upper; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); logical wantz; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); integer liwmin; extern /* Subroutine */ int spotrf_(char *, integer *, real *, integer *, - integer *), ssyevd_(char *, char *, integer *, real *, + integer *); + extern void ssyevd_(char *, char *, integer *, real *, integer *, real *, real *, integer *, integer *, integer *, integer *); logical lquery; - extern /* Subroutine */ int ssygst_(integer *, char *, integer *, real *, + extern /* Subroutine */ void ssygst_(integer *, char *, integer *, real *, integer *, real *, integer *, integer *); @@ -841,15 +843,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -857,7 +859,7 @@ f"> */ spotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -909,7 +911,7 @@ f"> */ work[1] = (real) lopt; iwork[1] = liopt; - return 0; + return; /* End of SSYGVD */ diff --git a/lapack-netlib/SRC/ssygvx.c b/lapack-netlib/SRC/ssygvx.c index 355846f31..f6b45d4bd 100644 --- a/lapack-netlib/SRC/ssygvx.c +++ b/lapack-netlib/SRC/ssygvx.c @@ -810,7 +810,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char * +/* Subroutine */ void ssygvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real * vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer @@ -823,11 +823,11 @@ f"> */ extern logical lsame_(char *, char *); char trans[1]; logical upper; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); logical wantz; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); integer nb; @@ -840,7 +840,7 @@ f"> */ integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int ssygst_(integer *, char *, integer *, real *, + extern /* Subroutine */ void ssygst_(integer *, char *, integer *, real *, integer *, real *, integer *, integer *), ssyevx_(char *, char *, char *, integer *, real *, integer *, real *, real *, integer *, integer *, real *, integer *, real *, real *, integer * @@ -934,16 +934,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYGVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -951,7 +951,7 @@ f"> */ spotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -1002,7 +1002,7 @@ f"> */ work[1] = (real) lwkopt; - return 0; + return; /* End of SSYGVX */ diff --git a/lapack-netlib/SRC/ssyrfs.c b/lapack-netlib/SRC/ssyrfs.c index 1fe40a1b3..cf48a77be 100644 --- a/lapack-netlib/SRC/ssyrfs.c +++ b/lapack-netlib/SRC/ssyrfs.c @@ -705,7 +705,7 @@ f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a, +/* Subroutine */ void ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * work, integer *iwork, integer *info) @@ -723,7 +723,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3], count; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), ssymv_(char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), slacn2_( @@ -735,7 +735,7 @@ f"> */ real safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real lstres; - extern /* Subroutine */ int ssytrs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void ssytrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); real eps; @@ -791,7 +791,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -803,7 +803,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1000,7 +1000,7 @@ L100: /* L140: */ } - return 0; + return; /* End of SSYRFS */ diff --git a/lapack-netlib/SRC/ssyrfsx.c b/lapack-netlib/SRC/ssyrfsx.c index e410b1b66..e9caf6b9e 100644 --- a/lapack-netlib/SRC/ssyrfsx.c +++ b/lapack-netlib/SRC/ssyrfsx.c @@ -811,7 +811,7 @@ static integer c__1 = 1; /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssyrfsx_(char *uplo, char *equed, integer *n, integer * +/* Subroutine */ void ssyrfsx_(char *uplo, char *equed, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real * @@ -826,7 +826,7 @@ static integer c__1 = 1; /* Local variables */ real illrcond_thresh__, unstable_thresh__, err_lbnd__; - extern /* Subroutine */ int sla_syrfsx_extended_(integer *, char *, + extern /* Subroutine */ void sla_syrfsx_extended_(integer *, char *, integer *, integer *, real *, integer *, real *, integer *, integer *, logical *, real *, real *, integer *, real *, integer * , real *, integer *, real *, real *, real *, real *, real *, real @@ -843,7 +843,7 @@ static integer c__1 = 1; extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern real slansy_(char *, char *, integer *, real *, integer *, real *); - extern /* Subroutine */ int ssycon_(char *, integer *, real *, integer *, + extern /* Subroutine */ void ssycon_(char *, integer *, real *, integer *, integer *, real *, real *, real *, integer *, integer *); extern integer ilaprec_(char *); integer ithresh, n_norms__; @@ -960,7 +960,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("SSYRFSX", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -983,7 +983,7 @@ static integer c__1 = 1; err_bnds_comp__[j + err_bnds_comp_dim1 * 3] = 1.f; } } - return 0; + return; } /* Default to failure. */ @@ -1124,7 +1124,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of SSYRFSX */ diff --git a/lapack-netlib/SRC/ssysv.c b/lapack-netlib/SRC/ssysv.c index 3e7053431..92d234f51 100644 --- a/lapack-netlib/SRC/ssysv.c +++ b/lapack-netlib/SRC/ssysv.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \ingroup realSYsolve */ /* ===================================================================== */ -/* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a, +/* Subroutine */ void ssysv_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, real *work, integer *lwork, integer *info) { @@ -695,7 +695,7 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int ssytrf_(char *, integer *, real *, integer *, + extern /* Subroutine */ void ssytrf_(char *, integer *, real *, integer *, integer *, real *, integer *, integer *), ssytrs_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *), ssytrs2_(char *, integer *, @@ -755,9 +755,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("SSYSV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -787,7 +787,7 @@ static integer c_n1 = -1; work[1] = (real) lwkopt; - return 0; + return; /* End of SSYSV */ diff --git a/lapack-netlib/SRC/ssysv_aa.c b/lapack-netlib/SRC/ssysv_aa.c index 4e30204d8..c0303e3f4 100644 --- a/lapack-netlib/SRC/ssysv_aa.c +++ b/lapack-netlib/SRC/ssysv_aa.c @@ -674,7 +674,7 @@ a.f"> */ /* > \ingroup realSYsolve */ /* ===================================================================== */ -/* Subroutine */ int ssysv_aa_(char *uplo, integer *n, integer *nrhs, real * +/* Subroutine */ void ssysv_aa_(char *uplo, integer *n, integer *nrhs, real * a, integer *lda, integer *ipiv, real *b, integer *ldb, real *work, integer *lwork, integer *info) { @@ -684,10 +684,11 @@ a.f"> */ /* Local variables */ extern logical lsame_(char *, char *); integer lwkopt_sytrf__, lwkopt_sytrs__; - extern /* Subroutine */ int ssytrf_aa_(char *, integer *, real *, + extern /* Subroutine */ void ssytrf_aa_(char *, integer *, real *, integer *, integer *, real *, integer *, integer *), ssytrs_aa_(char *, integer *, integer *, real *, integer *, - integer *, real *, integer *, real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, real *, integer *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -748,9 +749,9 @@ a.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYSV_AA", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U**T*T*U or A = L*T*L**T. */ @@ -767,7 +768,7 @@ a.f"> */ work[1] = (real) lwkopt; - return 0; + return; /* End of SSYSV_AA */ diff --git a/lapack-netlib/SRC/ssysv_aa_2stage.c b/lapack-netlib/SRC/ssysv_aa_2stage.c index 5113d0211..dbd8402c6 100644 --- a/lapack-netlib/SRC/ssysv_aa_2stage.c +++ b/lapack-netlib/SRC/ssysv_aa_2stage.c @@ -699,7 +699,7 @@ a_2stage.f"> */ /* > \ingroup realSYsolve */ /* ===================================================================== */ -/* Subroutine */ int ssysv_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void ssysv_aa_2stage_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *tb, integer *ltb, integer *ipiv, integer *ipiv2, real *b, integer *ldb, real *work, integer *lwork, integer * info) @@ -708,7 +708,7 @@ a_2stage.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int ssytrf_aa_2stage_(char *, integer *, real *, + extern /* Subroutine */ void ssytrf_aa_2stage_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *, integer *), ssytrs_aa_2stage_(char *, integer *, integer *, real *, integer *, real *, integer *, integer *, @@ -773,9 +773,9 @@ a_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYSV_AA_2STAGE", &i__1, (ftnlen)15); - return 0; + return; } else if (wquery || tquery) { - return 0; + return; } @@ -794,7 +794,7 @@ a_2stage.f"> */ work[1] = (real) lwkopt; - return 0; + return; /* End of SSYSV_AA_2STAGE */ diff --git a/lapack-netlib/SRC/ssysv_rk.c b/lapack-netlib/SRC/ssysv_rk.c index 25a287183..ca9922901 100644 --- a/lapack-netlib/SRC/ssysv_rk.c +++ b/lapack-netlib/SRC/ssysv_rk.c @@ -740,7 +740,7 @@ k.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssysv_rk_(char *uplo, integer *n, integer *nrhs, real * +/* Subroutine */ void ssysv_rk_(char *uplo, integer *n, integer *nrhs, real * a, integer *lda, real *e, integer *ipiv, real *b, integer *ldb, real * work, integer *lwork, integer *info) { @@ -748,11 +748,12 @@ k.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int ssytrs_3_(char *, integer *, integer *, real + extern /* Subroutine */ void ssytrs_3_(char *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int ssytrf_rk_(char *, integer *, real *, - integer *, real *, integer *, real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void ssytrf_rk_(char *, integer *, real *, + integer *, real *, integer *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -810,9 +811,9 @@ k.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYSV_RK ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = P*U*D*(U**T)*(P**T) or */ @@ -832,7 +833,7 @@ k.f"> */ work[1] = (real) lwkopt; - return 0; + return; /* End of SSYSV_RK */ diff --git a/lapack-netlib/SRC/ssysv_rook.c b/lapack-netlib/SRC/ssysv_rook.c index 08132197b..a76639605 100644 --- a/lapack-netlib/SRC/ssysv_rook.c +++ b/lapack-netlib/SRC/ssysv_rook.c @@ -717,7 +717,7 @@ ook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssysv_rook_(char *uplo, integer *n, integer *nrhs, real +/* Subroutine */ void ssysv_rook_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, real *work, integer *lwork, integer *info) { @@ -725,7 +725,7 @@ ook.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int ssytrf_rook_(char *, integer *, real *, + extern /* Subroutine */ void ssytrf_rook_(char *, integer *, real *, integer *, integer *, real *, integer *, integer *), ssytrs_rook_(char *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -787,9 +787,9 @@ ook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYSV_ROOK ", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -808,7 +808,7 @@ ook.f"> */ work[1] = (real) lwkopt; - return 0; + return; /* End of SSYSV_ROOK */ diff --git a/lapack-netlib/SRC/ssysvx.c b/lapack-netlib/SRC/ssysvx.c index 3bbbfcb83..a6b2d7a1c 100644 --- a/lapack-netlib/SRC/ssysvx.c +++ b/lapack-netlib/SRC/ssysvx.c @@ -796,7 +796,7 @@ f"> */ /* > \ingroup realSYsolve */ /* ===================================================================== */ -/* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void ssysvx_(char *fact, char *uplo, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *lwork, integer *iwork, integer * @@ -815,14 +815,14 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); extern real slansy_(char *, char *, integer *, real *, integer *, real *); - extern /* Subroutine */ int ssycon_(char *, integer *, real *, integer *, + extern /* Subroutine */ void ssycon_(char *, integer *, real *, integer *, integer *, real *, real *, real *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int ssyrfs_(char *, integer *, integer *, real *, + extern /* Subroutine */ void ssyrfs_(char *, integer *, integer *, real *, integer *, real *, integer *, integer *, real *, integer *, real * , integer *, real *, real *, real *, integer *, integer *) , ssytrf_(char *, integer *, real *, integer *, integer *, real *, @@ -907,9 +907,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYSVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } if (nofact) { @@ -924,7 +924,7 @@ f"> */ if (*info > 0) { *rcond = 0.f; - return 0; + return; } } @@ -958,7 +958,7 @@ f"> */ work[1] = (real) lwkopt; - return 0; + return; /* End of SSYSVX */ diff --git a/lapack-netlib/SRC/ssysvxx.c b/lapack-netlib/SRC/ssysvxx.c index 1a95aafd4..46cfecb64 100644 --- a/lapack-netlib/SRC/ssysvxx.c +++ b/lapack-netlib/SRC/ssysvxx.c @@ -1014,7 +1014,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup realSYsolve */ /* ===================================================================== */ -/* Subroutine */ int ssysvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void ssysvxx_(char *fact, char *uplo, integer *n, integer * nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real * @@ -1028,7 +1028,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ real r__1, r__2; /* Local variables */ - extern /* Subroutine */ int ssyrfsx_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ssyrfsx_(char *, char *, integer *, integer *, real *, integer *, real *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *, real *, real *, integer *, real *, real *, integer *, integer *); @@ -1044,10 +1044,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; integer infequ; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); real smlnum; - extern /* Subroutine */ int slaqsy_(char *, integer *, real *, integer *, + extern /* Subroutine */ void slaqsy_(char *, integer *, real *, integer *, real *, real *, real *, char *), ssytrf_(char *, integer *, real *, integer *, integer *, real *, integer *, integer *), slascl2_(integer *, integer *, real *, real *, @@ -1163,7 +1163,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("SSYSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1208,7 +1208,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = sla_syrpvgrw_(uplo, n, info, &a[a_offset], lda, & af[af_offset], ldaf, &ipiv[1], &work[1]); } - return 0; + return; } } @@ -1240,7 +1240,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ slascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of SSYSVXX */ diff --git a/lapack-netlib/SRC/ssyswapr.c b/lapack-netlib/SRC/ssyswapr.c index d613916a4..532d2b4b5 100644 --- a/lapack-netlib/SRC/ssyswapr.c +++ b/lapack-netlib/SRC/ssyswapr.c @@ -616,7 +616,7 @@ r.f"> */ /* > \ingroup realSYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int ssyswapr_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssyswapr_(char *uplo, integer *n, real *a, integer *lda, integer *i1, integer *i2) { /* System generated locals */ @@ -626,7 +626,7 @@ r.f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real tmp; @@ -712,6 +712,6 @@ r.f"> */ } } - return 0; + return; } /* ssyswapr_ */ diff --git a/lapack-netlib/SRC/ssytd2.c b/lapack-netlib/SRC/ssytd2.c index 3926db4a8..bb0046680 100644 --- a/lapack-netlib/SRC/ssytd2.c +++ b/lapack-netlib/SRC/ssytd2.c @@ -689,7 +689,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssytd2_(char *uplo, integer *n, real *a, integer *lda, real *d__, real *e, real *tau, integer *info) { /* System generated locals */ @@ -699,16 +699,16 @@ f"> */ real taui; extern real sdot_(integer *, real *, integer *, real *, integer *); integer i__; - extern /* Subroutine */ int ssyr2_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssyr2_(char *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); real alpha; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), ssymv_(char *, integer *, real *, real *, - integer *, real *, integer *, real *, real *, integer *), - xerbla_(char *, integer *, ftnlen), slarfg_(integer *, real *, - real *, integer *, real *); + integer *, real *, integer *, real *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slarfg_(integer *, real *, real *, integer *, real *); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -743,13 +743,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTD2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } if (upper) { @@ -852,7 +852,7 @@ f"> */ d__[*n] = a[*n + *n * a_dim1]; } - return 0; + return; /* End of SSYTD2 */ diff --git a/lapack-netlib/SRC/ssytf2.c b/lapack-netlib/SRC/ssytf2.c index 1026e58d9..7347525c9 100644 --- a/lapack-netlib/SRC/ssytf2.c +++ b/lapack-netlib/SRC/ssytf2.c @@ -709,7 +709,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssytf2_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -718,15 +718,15 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int ssyr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssyr_(char *, integer *, real *, real *, integer *, real *, integer *); integer i__, j, k; real t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer kstep; logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real r1, d11, d12, d21, d22; integer kk, kp; @@ -768,7 +768,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1169,7 +1169,7 @@ L40: L70: - return 0; + return; /* End of SSYTF2 */ diff --git a/lapack-netlib/SRC/ssytf2_rk.c b/lapack-netlib/SRC/ssytf2_rk.c index 4ce53fd50..9cd7f07d8 100644 --- a/lapack-netlib/SRC/ssytf2_rk.c +++ b/lapack-netlib/SRC/ssytf2_rk.c @@ -755,7 +755,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytf2_rk_(char *uplo, integer *n, real *a, integer * +/* Subroutine */ void ssytf2_rk_(char *uplo, integer *n, real *a, integer * lda, real *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -765,17 +765,17 @@ rk.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int ssyr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssyr_(char *, integer *, real *, real *, integer *, real *, integer *); integer i__, j, k, p; real t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real sfmin; integer itemp, kstep; real stemp; logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real d11, d12, d21, d22; integer ii, kk, kp; @@ -817,7 +817,7 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTF2_RK", &i__1, (ftnlen)9); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1532,7 +1532,7 @@ L64: ; } - return 0; + return; /* End of SSYTF2_RK */ diff --git a/lapack-netlib/SRC/ssytf2_rook.c b/lapack-netlib/SRC/ssytf2_rook.c index eb6ab57d6..ce244ceb5 100644 --- a/lapack-netlib/SRC/ssytf2_rook.c +++ b/lapack-netlib/SRC/ssytf2_rook.c @@ -708,7 +708,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytf2_rook_(char *uplo, integer *n, real *a, integer * +/* Subroutine */ void ssytf2_rook_(char *uplo, integer *n, real *a, integer * lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -718,17 +718,17 @@ rook.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int ssyr_(char *, integer *, real *, real *, + extern /* Subroutine */ void ssyr_(char *, integer *, real *, real *, integer *, real *, integer *); integer i__, j, k, p; real t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real sfmin; integer itemp, kstep; real stemp; logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real d11, d12, d21, d22; integer ii, kk, kp; @@ -769,7 +769,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTF2_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1388,7 +1388,7 @@ L42: L70: - return 0; + return; /* End of SSYTF2_ROOK */ diff --git a/lapack-netlib/SRC/ssytrd.c b/lapack-netlib/SRC/ssytrd.c index d491e6cc1..f2b213003 100644 --- a/lapack-netlib/SRC/ssytrd.c +++ b/lapack-netlib/SRC/ssytrd.c @@ -710,7 +710,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssytrd_(char *uplo, integer *n, real *a, integer *lda, real *d__, real *e, real *tau, real *work, integer *lwork, integer * info) { @@ -723,7 +723,7 @@ f"> */ integer nbmin, iinfo; logical upper; integer nb, kk; - extern /* Subroutine */ int ssytd2_(char *, integer *, real *, integer *, + extern /* Subroutine */ void ssytd2_(char *, integer *, real *, integer *, real *, real *, real *, integer *), ssyr2k_(char *, char * , integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); @@ -731,7 +731,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slatrd_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slatrd_(char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *); integer ldwork, lwkopt; logical lquery; @@ -785,16 +785,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRD", &i__1,(ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1] = 1.f; - return 0; + return; } nx = *n; @@ -921,7 +921,7 @@ f"> */ } work[1] = (real) lwkopt; - return 0; + return; /* End of SSYTRD */ diff --git a/lapack-netlib/SRC/ssytrd_2stage.c b/lapack-netlib/SRC/ssytrd_2stage.c index 35bbb6c7c..2242619b5 100644 --- a/lapack-netlib/SRC/ssytrd_2stage.c +++ b/lapack-netlib/SRC/ssytrd_2stage.c @@ -740,7 +740,7 @@ static integer c__4 = 4; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssytrd_2stage_(char *vect, char *uplo, integer *n, real +/* Subroutine */ void ssytrd_2stage_(char *vect, char *uplo, integer *n, real *a, integer *lda, real *d__, real *e, real *tau, real *hous2, integer *lhous2, real *work, integer *lwork, integer *info) { @@ -752,7 +752,7 @@ static integer c__4 = 4; extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); integer lwrk, wpos; - extern /* Subroutine */ int ssytrd_sb2st_(char *, char *, char *, + extern /* Subroutine */ void ssytrd_sb2st_(char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *, real *, integer *, integer *), ssytrd_sy2sb_(char *, integer *, integer *, real *, integer *, @@ -823,16 +823,16 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1] = 1.f; - return 0; + return; } /* Determine pointer position */ @@ -846,20 +846,20 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRD_SY2SB", &i__1, (ftnlen)12); - return 0; + return; } ssytrd_sb2st_("Y", vect, uplo, n, &kd, &work[abpos], &ldab, &d__[1], &e[ 1], &hous2[1], lhous2, &work[wpos], &lwrk, info); if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRD_SB2ST", &i__1, (ftnlen)12); - return 0; + return; } hous2[1] = (real) lhmin; work[1] = (real) lwmin; - return 0; + return; /* End of SSYTRD_2STAGE */ diff --git a/lapack-netlib/SRC/ssytrd_sb2st.c b/lapack-netlib/SRC/ssytrd_sb2st.c index 83dfe6954..c621673c6 100644 --- a/lapack-netlib/SRC/ssytrd_sb2st.c +++ b/lapack-netlib/SRC/ssytrd_sb2st.c @@ -746,7 +746,7 @@ sb2t.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssytrd_sb2st_(char *stage1, char *vect, char *uplo, +/* Subroutine */ void ssytrd_sb2st_(char *stage1, char *vect, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *d__, real *e, real *hous, integer *lhous, real *work, integer *lwork, integer *info) { @@ -766,14 +766,14 @@ sb2t.f"> */ integer sisev, grsiz, ttype, stepercol, ed, ib, st, abdpos; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer thgrid, thgrnb, indtau, ofdpos; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *), ssb2st_kernels_(char *, logical *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *); integer blklastind; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); logical lquery, afters1; integer lda, tid, ldv, stt, sweepid, nbtiles, sizetau, thgrsiz; @@ -841,9 +841,9 @@ sb2t.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRD_SB2ST", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -851,7 +851,7 @@ sb2t.f"> */ if (*n == 0) { hous[1] = 1.f; work[1] = 1.f; - return 0; + return; } /* Determine pointer position */ @@ -904,7 +904,7 @@ sb2t.f"> */ hous[1] = 1.f; work[1] = 1.f; - return 0; + return; } /* Case KD=1: */ @@ -940,7 +940,7 @@ sb2t.f"> */ hous[1] = 1.f; work[1] = 1.f; - return 0; + return; } /* Main code start here. */ @@ -1059,7 +1059,7 @@ sb2t.f"> */ hous[1] = (real) lhmin; work[1] = (real) lwmin; - return 0; + return; /* End of SSYTRD_SB2ST */ diff --git a/lapack-netlib/SRC/ssytrd_sy2sb.c b/lapack-netlib/SRC/ssytrd_sy2sb.c index 2fcd3c688..096c0aea6 100644 --- a/lapack-netlib/SRC/ssytrd_sy2sb.c +++ b/lapack-netlib/SRC/ssytrd_sy2sb.c @@ -761,7 +761,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssytrd_sy2sb_(char *uplo, integer *n, integer *kd, real +/* Subroutine */ void ssytrd_sy2sb_(char *uplo, integer *n, integer *kd, real *a, integer *lda, real *ab, integer *ldab, real *tau, real *work, integer *lwork, integer *info) { @@ -775,20 +775,21 @@ f"> */ integer tpos, wpos, s1pos, s2pos, i__, j; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lwmin; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), ssymm_(char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lk, pk; - extern /* Subroutine */ int ssyr2k_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ssyr2k_(char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer pn, lt, lw; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgelqf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgelqf_( integer *, integer *, real *, integer *, real *, real *, integer * , integer *), sgeqrf_(integer *, integer *, real *, integer *, real *, real *, integer *, integer *), slarft_(char *, char *, @@ -849,10 +850,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRD_SY2SB", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { work[1] = (real) lwmin; - return 0; + return; } /* Quick return if possible */ @@ -881,7 +882,7 @@ f"> */ } } work[1] = 1.f; - return 0; + return; } /* Determine the pointer position for the workspace */ @@ -1073,7 +1074,7 @@ f"> */ } work[1] = (real) lwmin; - return 0; + return; /* End of SSYTRD_SY2SB */ diff --git a/lapack-netlib/SRC/ssytrf.c b/lapack-netlib/SRC/ssytrf.c index 0b5984145..b69d20d79 100644 --- a/lapack-netlib/SRC/ssytrf.c +++ b/lapack-netlib/SRC/ssytrf.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssytrf_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -709,11 +709,12 @@ f"> */ integer nbmin, iinfo; logical upper; integer kb, nb; - extern /* Subroutine */ int ssytf2_(char *, integer *, real *, integer *, - integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void ssytf2_(char *, integer *, real *, integer *, + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slasyf_(char *, integer *, integer *, integer + extern /* Subroutine */ void slasyf_(char *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); integer ldwork, lwkopt; logical lquery; @@ -765,9 +766,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -894,7 +895,7 @@ L20: L40: work[1] = (real) lwkopt; - return 0; + return; /* End of SSYTRF */ diff --git a/lapack-netlib/SRC/ssytrf_aa.c b/lapack-netlib/SRC/ssytrf_aa.c index f331fb373..f66e03453 100644 --- a/lapack-netlib/SRC/ssytrf_aa.c +++ b/lapack-netlib/SRC/ssytrf_aa.c @@ -648,7 +648,7 @@ aa.f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytrf_aa_(char *uplo, integer *n, real *a, integer * +/* Subroutine */ void ssytrf_aa_(char *uplo, integer *n, real *a, integer * lda, integer *ipiv, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -658,7 +658,7 @@ aa.f"> */ integer j; real alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), slasyf_aa_(char *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, real * @@ -666,7 +666,7 @@ aa.f"> */ integer *, real *, integer *, real *, real *, integer *); logical upper; integer k1, k2, j1, j2, j3; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ); integer jb, nb, mj, nj; @@ -727,19 +727,19 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRF_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } ipiv[1] = 1; if (*n == 1) { - return 0; + return; } /* Adjust block size based on the workspace size */ @@ -1027,7 +1027,7 @@ L11: } L20: - return 0; + return; /* End of SSYTRF_AA */ diff --git a/lapack-netlib/SRC/ssytrf_aa_2stage.c b/lapack-netlib/SRC/ssytrf_aa_2stage.c index 4f25c02bb..2aa0a9d23 100644 --- a/lapack-netlib/SRC/ssytrf_aa_2stage.c +++ b/lapack-netlib/SRC/ssytrf_aa_2stage.c @@ -676,7 +676,7 @@ aa_2stage.f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytrf_aa_2stage_(char *uplo, integer *n, real *a, +/* Subroutine */ void ssytrf_aa_2stage_(char *uplo, integer *n, real *a, integer *lda, real *tb, integer *ltb, integer *ipiv, integer *ipiv2, real *work, integer *lwork, integer *info) { @@ -687,13 +687,13 @@ aa_2stage.f"> */ integer ldtb, i__, j, k; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer i1; logical upper; integer i2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *); @@ -701,14 +701,15 @@ aa_2stage.f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int sgbtrf_(integer *, integer *, integer *, - integer *, real *, integer *, integer *, integer *), sgetrf_( - integer *, integer *, real *, integer *, integer *, integer *), - slacpy_(char *, integer *, integer *, real *, integer *, real *, + extern /* Subroutine */ void sgbtrf_(integer *, integer *, integer *, + integer *, real *, integer *, integer *, integer *); + extern int sgetrf_( + integer *, integer *, real *, integer *, integer *, integer *); + extern void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); logical tquery, wquery; - extern /* Subroutine */ int ssygst_(integer *, char *, integer *, real *, + extern /* Subroutine */ void ssygst_(integer *, char *, integer *, real *, integer *, real *, integer *, integer *); real piv; @@ -754,7 +755,7 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRF_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Answer the query */ @@ -770,13 +771,13 @@ aa_2stage.f"> */ } } if (tquery || wquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } /* Determine the number of the block size */ @@ -1231,7 +1232,7 @@ aa_2stage.f"> */ /* Factor the band matrix */ sgbtrf_(n, n, &nb, &nb, &tb[1], &ldtb, &ipiv2[1], info); - return 0; + return; /* End of SSYTRF_AA_2STAGE */ diff --git a/lapack-netlib/SRC/ssytrf_rk.c b/lapack-netlib/SRC/ssytrf_rk.c index 93db39123..1eb83fb31 100644 --- a/lapack-netlib/SRC/ssytrf_rk.c +++ b/lapack-netlib/SRC/ssytrf_rk.c @@ -774,7 +774,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytrf_rk_(char *uplo, integer *n, real *a, integer * +/* Subroutine */ void ssytrf_rk_(char *uplo, integer *n, real *a, integer * lda, real *e, integer *ipiv, real *work, integer *lwork, integer * info) { @@ -785,10 +785,10 @@ rk.f"> */ integer i__, k; extern logical lsame_(char *, char *); integer nbmin, iinfo; - extern /* Subroutine */ int ssytf2_rk_(char *, integer *, real *, + extern /* Subroutine */ void ssytf2_rk_(char *, integer *, real *, integer *, real *, integer *, integer *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), slasyf_rk_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, integer * ); @@ -847,9 +847,9 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRF_RK", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -1035,7 +1035,7 @@ L35: } work[1] = (real) lwkopt; - return 0; + return; /* End of SSYTRF_RK */ diff --git a/lapack-netlib/SRC/ssytrf_rook.c b/lapack-netlib/SRC/ssytrf_rook.c index e0818bb80..1091438e4 100644 --- a/lapack-netlib/SRC/ssytrf_rook.c +++ b/lapack-netlib/SRC/ssytrf_rook.c @@ -723,7 +723,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytrf_rook_(char *uplo, integer *n, real *a, integer * +/* Subroutine */ void ssytrf_rook_(char *uplo, integer *n, real *a, integer * lda, integer *ipiv, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -741,7 +741,7 @@ rook.f"> */ integer ldwork, lwkopt; logical lquery; integer iws; - extern /* Subroutine */ int ssytf2_rook_(char *, integer *, real *, + extern /* Subroutine */ void ssytf2_rook_(char *, integer *, real *, integer *, integer *, integer *), slasyf_rook_(char *, integer *, integer *, integer *, real *, integer *, integer *, real *, integer *, integer *); @@ -794,9 +794,9 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRF_ROOK", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -926,7 +926,7 @@ L20: L40: work[1] = (real) lwkopt; - return 0; + return; /* End of SSYTRF_ROOK */ diff --git a/lapack-netlib/SRC/ssytri.c b/lapack-netlib/SRC/ssytri.c index fc59afecf..33ef9d581 100644 --- a/lapack-netlib/SRC/ssytri.c +++ b/lapack-netlib/SRC/ssytri.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssytri_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *info) { /* System generated locals */ @@ -645,7 +645,7 @@ f"> */ extern logical lsame_(char *, char *); integer kstep; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), ssymv_(char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); @@ -686,13 +686,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -703,7 +703,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } /* L10: */ } @@ -714,7 +714,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } /* L20: */ } @@ -939,7 +939,7 @@ L60: ; } - return 0; + return; /* End of SSYTRI */ diff --git a/lapack-netlib/SRC/ssytri2.c b/lapack-netlib/SRC/ssytri2.c index 1c0ce4032..1ab96b18e 100644 --- a/lapack-netlib/SRC/ssytri2.c +++ b/lapack-netlib/SRC/ssytri2.c @@ -641,14 +641,14 @@ static integer c_n1 = -1; /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytri2_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssytri2_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *lwork, integer *info) { /* System generated locals */ integer a_dim1, a_offset, i__1; /* Local variables */ - extern /* Subroutine */ int ssytri2x_(char *, integer *, real *, integer * + extern /* Subroutine */ void ssytri2x_(char *, integer *, real *, integer * , integer *, real *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmax; @@ -657,7 +657,7 @@ static integer c_n1 = -1; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical lquery; - extern /* Subroutine */ int ssytri_(char *, integer *, real *, integer *, + extern /* Subroutine */ void ssytri_(char *, integer *, real *, integer *, integer *, real *, integer *); integer minsize; @@ -709,13 +709,13 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRI2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { work[1] = (real) minsize; - return 0; + return; } if (*n == 0) { - return 0; + return; } if (nbmax >= *n) { ssytri_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], info); @@ -723,7 +723,7 @@ static integer c_n1 = -1; ssytri2x_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], &nbmax, info); } - return 0; + return; /* End of SSYTRI2 */ diff --git a/lapack-netlib/SRC/ssytri2x.c b/lapack-netlib/SRC/ssytri2x.c index 31d25c85f..0caf344c5 100644 --- a/lapack-netlib/SRC/ssytri2x.c +++ b/lapack-netlib/SRC/ssytri2x.c @@ -634,7 +634,7 @@ x.f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytri2x_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssytri2x_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *nb, integer *info) { /* System generated locals */ @@ -644,28 +644,29 @@ x.f"> */ integer invd; real akkp1, d__; integer i__, j, k; - extern /* Subroutine */ int ssyswapr_(char *, integer *, real *, integer * + extern /* Subroutine */ void ssyswapr_(char *, integer *, real *, integer * , integer *, integer *); real t; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer count; logical upper; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); real ak, u01_i_j__; integer u11; real u11_i_j__; integer ip; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), strtri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int strtri_( char *, char *, integer *, real *, integer *, integer *); integer nnb, cut; real akp1, u01_ip1_j__, u11_ip1_j__; - extern /* Subroutine */ int ssyconv_(char *, char *, integer *, real *, + extern /* Subroutine */ void ssyconv_(char *, char *, integer *, real *, integer *, integer *, real *, integer *); @@ -706,10 +707,10 @@ x.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRI2X", &i__1, (ftnlen)8); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Convert A */ @@ -726,7 +727,7 @@ x.f"> */ for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } } } else { @@ -736,7 +737,7 @@ x.f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } } } @@ -1208,7 +1209,7 @@ x.f"> */ } } - return 0; + return; /* End of SSYTRI2X */ diff --git a/lapack-netlib/SRC/ssytri_3.c b/lapack-netlib/SRC/ssytri_3.c index e1a0a39e8..0b393594c 100644 --- a/lapack-netlib/SRC/ssytri_3.c +++ b/lapack-netlib/SRC/ssytri_3.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytri_3_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void ssytri_3_(char *uplo, integer *n, real *a, integer *lda, real *e, integer *ipiv, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -691,7 +691,7 @@ static integer c_n1 = -1; /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int ssytri_3x_(char *, integer *, real *, + extern /* Subroutine */ void ssytri_3x_(char *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *); logical upper; integer nb; @@ -747,16 +747,16 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRI_3", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { work[1] = (real) lwkopt; - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } ssytri_3x_(uplo, n, &a[a_offset], lda, &e[1], &ipiv[1], &work[1], &nb, @@ -764,7 +764,7 @@ static integer c_n1 = -1; work[1] = (real) lwkopt; - return 0; + return; /* End of SSYTRI_3 */ diff --git a/lapack-netlib/SRC/ssytri_3x.c b/lapack-netlib/SRC/ssytri_3x.c index 99378323c..e86c6e03e 100644 --- a/lapack-netlib/SRC/ssytri_3x.c +++ b/lapack-netlib/SRC/ssytri_3x.c @@ -673,7 +673,7 @@ static real c_b14 = 0.f; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytri_3x_(char *uplo, integer *n, real *a, integer * +/* Subroutine */ void ssytri_3x_(char *uplo, integer *n, real *a, integer * lda, real *e, integer *ipiv, real *work, integer *nb, integer *info) { /* System generated locals */ @@ -683,15 +683,15 @@ static real c_b14 = 0.f; integer invd; real akkp1, d__; integer i__, j, k; - extern /* Subroutine */ int ssyswapr_(char *, integer *, real *, integer * + extern /* Subroutine */ void ssyswapr_(char *, integer *, real *, integer * , integer *, integer *); real t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); real ak, u01_i_j__; @@ -743,10 +743,10 @@ static real c_b14 = 0.f; if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRI_3X", &i__1, (ftnlen)9); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Workspace got Non-diag elements of D */ @@ -764,7 +764,7 @@ static real c_b14 = 0.f; for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } } } else { @@ -774,7 +774,7 @@ static real c_b14 = 0.f; i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } } } @@ -1257,7 +1257,7 @@ static real c_b14 = 0.f; } - return 0; + return; /* End of SSYTRI_3X */ diff --git a/lapack-netlib/SRC/ssytri_rook.c b/lapack-netlib/SRC/ssytri_rook.c index 36b8a5501..80a68dc1d 100644 --- a/lapack-netlib/SRC/ssytri_rook.c +++ b/lapack-netlib/SRC/ssytri_rook.c @@ -644,7 +644,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytri_rook_(char *uplo, integer *n, real *a, integer * +/* Subroutine */ void ssytri_rook_(char *uplo, integer *n, real *a, integer * lda, integer *ipiv, real *work, integer *info) { /* System generated locals */ @@ -660,7 +660,7 @@ rook.f"> */ extern logical lsame_(char *, char *); integer kstep; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), sswap_(integer *, real *, integer *, real *, integer * ), ssymv_(char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); @@ -701,13 +701,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRI_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -718,7 +718,7 @@ rook.f"> */ for (*info = *n; *info >= 1; --(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } /* L10: */ } @@ -729,7 +729,7 @@ rook.f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ipiv[*info] > 0 && a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } /* L20: */ } @@ -1028,7 +1028,7 @@ L60: ; } - return 0; + return; /* End of SSYTRI_ROOK */ diff --git a/lapack-netlib/SRC/ssytrs.c b/lapack-netlib/SRC/ssytrs.c index 13c79835b..132afb659 100644 --- a/lapack-netlib/SRC/ssytrs.c +++ b/lapack-netlib/SRC/ssytrs.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, +/* Subroutine */ void ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -643,17 +643,17 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); real akm1k; integer j, k; extern logical lsame_(char *, char *); real denom; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real ak, bk; integer kp; @@ -696,13 +696,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1000,7 +1000,7 @@ L100: ; } - return 0; + return; /* End of SSYTRS */ diff --git a/lapack-netlib/SRC/ssytrs2.c b/lapack-netlib/SRC/ssytrs2.c index dddf9841e..0ed726693 100644 --- a/lapack-netlib/SRC/ssytrs2.c +++ b/lapack-netlib/SRC/ssytrs2.c @@ -644,7 +644,7 @@ static real c_b10 = 1.f; /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytrs2_(char *uplo, integer *n, integer *nrhs, real *a, +/* Subroutine */ void ssytrs2_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, real *work, integer *info) { @@ -658,16 +658,16 @@ static real c_b10 = 1.f; extern logical lsame_(char *, char *); real denom; integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *); real ak, bk; integer kp; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real akm1, bkm1; - extern /* Subroutine */ int ssyconv_(char *, char *, integer *, real *, + extern /* Subroutine */ void ssyconv_(char *, char *, integer *, real *, integer *, integer *, real *, integer *); @@ -707,13 +707,13 @@ static real c_b10 = 1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRS2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Convert A */ @@ -898,7 +898,7 @@ static real c_b10 = 1.f; ssyconv_(uplo, "R", n, &a[a_offset], lda, &ipiv[1], &work[1], &iinfo); - return 0; + return; /* End of SSYTRS2 */ diff --git a/lapack-netlib/SRC/ssytrs_3.c b/lapack-netlib/SRC/ssytrs_3.c index f93908c36..a4e5b1d09 100644 --- a/lapack-netlib/SRC/ssytrs_3.c +++ b/lapack-netlib/SRC/ssytrs_3.c @@ -677,7 +677,7 @@ static real c_b9 = 1.f; /* > \endverbatim */ /* ==================================================================== */ -/* Subroutine */ int ssytrs_3_(char *uplo, integer *n, integer *nrhs, real * +/* Subroutine */ void ssytrs_3_(char *uplo, integer *n, integer *nrhs, real * a, integer *lda, real *e, integer *ipiv, real *b, integer *ldb, integer *info) { @@ -690,9 +690,9 @@ static real c_b9 = 1.f; integer i__, j, k; extern logical lsame_(char *, char *); real denom; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *); real ak, bk; @@ -737,13 +737,13 @@ static real c_b9 = 1.f; if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRS_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -895,7 +895,7 @@ static real c_b9 = 1.f; } - return 0; + return; /* End of SSYTRS_3 */ diff --git a/lapack-netlib/SRC/ssytrs_aa.c b/lapack-netlib/SRC/ssytrs_aa.c index 52494a077..8dfac7ad5 100644 --- a/lapack-netlib/SRC/ssytrs_aa.c +++ b/lapack-netlib/SRC/ssytrs_aa.c @@ -644,7 +644,7 @@ aa.f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytrs_aa_(char *uplo, integer *n, integer *nrhs, real * +/* Subroutine */ void ssytrs_aa_(char *uplo, integer *n, integer *nrhs, real * a, integer *lda, integer *ipiv, real *b, integer *ldb, real *work, integer *lwork, integer *info) { @@ -655,13 +655,14 @@ aa.f"> */ integer k; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *), sgtsv_(integer *, integer *, real *, real *, real *, real *, integer *, integer *), strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *); integer kp; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slacpy_( char *, integer *, integer *, real *, integer *, real *, integer * ); integer lwkopt; @@ -712,17 +713,17 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRS_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { lwkopt = *n * 3 - 2; work[1] = (real) lwkopt; - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -861,7 +862,7 @@ aa.f"> */ } - return 0; + return; /* End of SSYTRS_AA */ diff --git a/lapack-netlib/SRC/ssytrs_aa_2stage.c b/lapack-netlib/SRC/ssytrs_aa_2stage.c index 3e08626e7..b9ef41170 100644 --- a/lapack-netlib/SRC/ssytrs_aa_2stage.c +++ b/lapack-netlib/SRC/ssytrs_aa_2stage.c @@ -653,7 +653,7 @@ aa_2stage.f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ssytrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void ssytrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *tb, integer *ltb, integer *ipiv, integer *ipiv2, real *b, integer *ldb, integer *info) { @@ -664,14 +664,15 @@ aa_2stage.f"> */ integer ldtb; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); integer nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), sgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void sgbtrs_( char *, integer *, integer *, integer *, integer *, real *, - integer *, integer *, real *, integer *, integer *), - slaswp_(integer *, real *, integer *, integer *, integer *, + integer *, integer *, real *, integer *, integer *); + extern int slaswp_(integer *, real *, integer *, integer *, integer *, integer *, integer *); @@ -715,13 +716,13 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRS_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Read NB and compute LDTB */ @@ -806,7 +807,7 @@ aa_2stage.f"> */ } } - return 0; + return; /* End of SSYTRS_AA_2STAGE */ diff --git a/lapack-netlib/SRC/ssytrs_rook.c b/lapack-netlib/SRC/ssytrs_rook.c index 5c1e201f3..bd6926b0b 100644 --- a/lapack-netlib/SRC/ssytrs_rook.c +++ b/lapack-netlib/SRC/ssytrs_rook.c @@ -650,7 +650,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int ssytrs_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void ssytrs_rook_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer * info) { @@ -659,17 +659,17 @@ rook.f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); real akm1k; integer j, k; extern logical lsame_(char *, char *); real denom; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int sswap_(integer *, real *, integer *, real *, + extern /* Subroutine */ void sswap_(integer *, real *, integer *, real *, integer *); real ak, bk; integer kp; @@ -712,13 +712,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("SSYTRS_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1044,7 +1044,7 @@ L100: ; } - return 0; + return; /* End of SSYTRS_ROOK */ diff --git a/lapack-netlib/SRC/stbcon.c b/lapack-netlib/SRC/stbcon.c index ab2f283c9..6edc905b1 100644 --- a/lapack-netlib/SRC/stbcon.c +++ b/lapack-netlib/SRC/stbcon.c @@ -655,7 +655,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void stbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd, real *ab, integer *ldab, real *rcond, real *work, integer *iwork, integer *info) { @@ -669,10 +669,10 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; real anorm; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *); + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *); logical upper; real xnorm; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer ix; extern real slamch_(char *); @@ -681,7 +681,7 @@ f"> */ extern real slantb_(char *, char *, char *, integer *, integer *, real *, integer *, real *); real ainvnm; - extern /* Subroutine */ int slatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void slatbs_(char *, char *, char *, char *, integer *, integer *, real *, integer *, real *, real *, real *, integer *); logical onenrm; @@ -730,14 +730,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.f; - return 0; + return; } *rcond = 0.f; @@ -802,7 +802,7 @@ L10: } L20: - return 0; + return; /* End of STBCON */ diff --git a/lapack-netlib/SRC/stbrfs.c b/lapack-netlib/SRC/stbrfs.c index 5834f65c1..bc8a71c15 100644 --- a/lapack-netlib/SRC/stbrfs.c +++ b/lapack-netlib/SRC/stbrfs.c @@ -701,7 +701,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void stbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info) @@ -719,7 +719,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), stbmv_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *), stbsv_(char *, char *, char *, integer *, integer *, real *, @@ -793,7 +793,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -805,7 +805,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1091,7 +1091,7 @@ L210: /* L250: */ } - return 0; + return; /* End of STBRFS */ diff --git a/lapack-netlib/SRC/stbtrs.c b/lapack-netlib/SRC/stbtrs.c index 2f9ad2ba4..916c59897 100644 --- a/lapack-netlib/SRC/stbtrs.c +++ b/lapack-netlib/SRC/stbtrs.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void stbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info) { @@ -669,8 +669,9 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int stbsv_(char *, char *, char *, integer *, - integer *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void stbsv_(char *, char *, char *, integer *, + integer *, real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; @@ -718,13 +719,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -734,7 +735,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ab[*kd + 1 + *info * ab_dim1] == 0.f) { - return 0; + return; } /* L10: */ } @@ -742,7 +743,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ab[*info * ab_dim1 + 1] == 0.f) { - return 0; + return; } /* L20: */ } @@ -759,7 +760,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of STBTRS */ diff --git a/lapack-netlib/SRC/stfsm.c b/lapack-netlib/SRC/stfsm.c index 97d548d65..850040348 100644 --- a/lapack-netlib/SRC/stfsm.c +++ b/lapack-netlib/SRC/stfsm.c @@ -790,7 +790,7 @@ static real c_b27 = 1.f; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int stfsm_(char *transr, char *side, char *uplo, char *trans, +/* Subroutine */ void stfsm_(char *transr, char *side, char *uplo, char *trans, char *diag, integer *m, integer *n, real *alpha, real *a, real *b, integer *ldb) { @@ -801,14 +801,15 @@ static real c_b27 = 1.f; integer info, i__, j, k; logical normaltransr, lside; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical lower; integer m1, m2, n1, n2; - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); logical misodd, nisodd, notrans; @@ -855,13 +856,13 @@ static real c_b27 = 1.f; if (info != 0) { i__1 = -info; xerbla_("STFSM ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return when ( (N.EQ.0).OR.(M.EQ.0) ) */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Quick return when ALPHA.EQ.(0D+0) */ @@ -876,7 +877,7 @@ static real c_b27 = 1.f; } /* L20: */ } - return 0; + return; } if (lside) { @@ -1525,7 +1526,7 @@ static real c_b27 = 1.f; } } - return 0; + return; /* End of STFSM */ diff --git a/lapack-netlib/SRC/stftri.c b/lapack-netlib/SRC/stftri.c index 511ef565c..50e1ae6fb 100644 --- a/lapack-netlib/SRC/stftri.c +++ b/lapack-netlib/SRC/stftri.c @@ -715,7 +715,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stftri_(char *transr, char *uplo, char *diag, integer *n, +/* Subroutine */ void stftri_(char *transr, char *uplo, char *diag, integer *n, real *a, integer *info) { /* System generated locals */ @@ -727,9 +727,10 @@ f"> */ extern logical lsame_(char *, char *); logical lower; integer n1, n2; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); logical nisodd; extern /* Subroutine */ int strtri_(char *, char *, integer *, real *, integer *, integer *); @@ -762,13 +763,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STFTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -810,7 +811,7 @@ f"> */ strtri_("L", diag, &n1, a, n, info); if (*info > 0) { - return 0; + return; } strmm_("R", "L", "N", diag, &n2, &n1, &c_b13, a, n, &a[n1], n); strtri_("U", diag, &n2, &a[*n], n, info) @@ -819,7 +820,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } strmm_("L", "U", "T", diag, &n2, &n1, &c_b18, &a[*n], n, &a[ n1], n); @@ -833,7 +834,7 @@ f"> */ strtri_("L", diag, &n1, &a[n2], n, info) ; if (*info > 0) { - return 0; + return; } strmm_("L", "L", "T", diag, &n1, &n2, &c_b13, &a[n2], n, a, n); strtri_("U", diag, &n2, &a[n1], n, info) @@ -842,7 +843,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } strmm_("R", "U", "N", diag, &n1, &n2, &c_b18, &a[n1], n, a, n); @@ -859,7 +860,7 @@ f"> */ strtri_("U", diag, &n1, a, &n1, info); if (*info > 0) { - return 0; + return; } strmm_("L", "U", "N", diag, &n1, &n2, &c_b13, a, &n1, &a[n1 * n1], &n1); @@ -868,7 +869,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } strmm_("R", "L", "T", diag, &n1, &n2, &c_b18, &a[1], &n1, &a[ n1 * n1], &n1); @@ -880,7 +881,7 @@ f"> */ strtri_("U", diag, &n1, &a[n2 * n2], &n2, info); if (*info > 0) { - return 0; + return; } strmm_("R", "U", "T", diag, &n2, &n1, &c_b13, &a[n2 * n2], & n2, a, &n2); @@ -889,7 +890,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } strmm_("L", "L", "N", diag, &n2, &n1, &c_b18, &a[n1 * n2], & n2, a, &n2); @@ -914,7 +915,7 @@ f"> */ i__1 = *n + 1; strtri_("L", diag, &k, &a[1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -926,7 +927,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -943,7 +944,7 @@ f"> */ i__1 = *n + 1; strtri_("L", diag, &k, &a[k + 1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -955,7 +956,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -974,7 +975,7 @@ f"> */ strtri_("U", diag, &k, &a[k], &k, info); if (*info > 0) { - return 0; + return; } strmm_("L", "U", "N", diag, &k, &k, &c_b13, &a[k], &k, &a[k * (k + 1)], &k); @@ -983,7 +984,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } strmm_("R", "L", "T", diag, &k, &k, &c_b18, a, &k, &a[k * (k + 1)], &k) @@ -996,7 +997,7 @@ f"> */ strtri_("U", diag, &k, &a[k * (k + 1)], &k, info); if (*info > 0) { - return 0; + return; } strmm_("R", "U", "T", diag, &k, &k, &c_b13, &a[k * (k + 1)], & k, a, &k); @@ -1005,7 +1006,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } strmm_("L", "L", "N", diag, &k, &k, &c_b18, &a[k * k], &k, a, &k); @@ -1013,7 +1014,7 @@ f"> */ } } - return 0; + return; /* End of STFTRI */ diff --git a/lapack-netlib/SRC/stfttp.c b/lapack-netlib/SRC/stfttp.c index 4a06bc8bc..6b875cf1a 100644 --- a/lapack-netlib/SRC/stfttp.c +++ b/lapack-netlib/SRC/stfttp.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stfttp_(char *transr, char *uplo, integer *n, real *arf, +/* Subroutine */ void stfttp_(char *transr, char *uplo, integer *n, real *arf, real *ap, integer *info) { /* System generated locals */ @@ -738,13 +738,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STFTTP", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -753,7 +753,7 @@ f"> */ } else { ap[0] = arf[0]; } - return 0; + return; } /* Size of array ARF(0:NT-1) */ @@ -1057,7 +1057,7 @@ f"> */ } - return 0; + return; /* End of STFTTP */ diff --git a/lapack-netlib/SRC/stfttr.c b/lapack-netlib/SRC/stfttr.c index c8dc6896f..d199de832 100644 --- a/lapack-netlib/SRC/stfttr.c +++ b/lapack-netlib/SRC/stfttr.c @@ -706,7 +706,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int stfttr_(char *transr, char *uplo, integer *n, real *arf, +/* Subroutine */ void stfttr_(char *transr, char *uplo, integer *n, real *arf, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -755,7 +755,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STFTTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -764,7 +764,7 @@ f"> */ if (*n == 1) { a[0] = arf[0]; } - return 0; + return; } /* Size of array ARF(0:nt-1) */ @@ -1034,7 +1034,7 @@ f"> */ } - return 0; + return; /* End of STFTTR */ diff --git a/lapack-netlib/SRC/stgevc.c b/lapack-netlib/SRC/stgevc.c index 05d12b69a..dfdd9b068 100644 --- a/lapack-netlib/SRC/stgevc.c +++ b/lapack-netlib/SRC/stgevc.c @@ -812,7 +812,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stgevc_(char *side, char *howmny, logical *select, +/* Subroutine */ void stgevc_(char *side, char *howmny, logical *select, integer *n, real *s, integer *lds, real *p, integer *ldp, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real *work, integer *info) @@ -826,7 +826,7 @@ f"> */ integer ibeg, ieig, iend; real dmin__, temp, xmax, sump[4] /* was [2][2] */, sums[4] /* was [2][2] */, cim2a, cim2b, cre2a, cre2b; - extern /* Subroutine */ int slag2_(real *, integer *, real *, integer *, + extern /* Subroutine */ void slag2_(real *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *); real temp2, bdiag[2]; integer i__, j; @@ -841,7 +841,7 @@ f"> */ logical compl; real anorm, bnorm; logical compr; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), slaln2_(logical *, integer *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, integer *); @@ -855,7 +855,7 @@ f"> */ real bcoefi, ascale, bscale, creala; integer jr; real crealb; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); real bcoefr; integer jw, nw; extern real slamch_(char *); @@ -863,7 +863,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real xscale, bignum; logical ilcomp, ilcplx; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer ihwmny; real big; @@ -948,7 +948,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STGEVC", &i__1, (ftnlen)6); - return 0; + return; } /* Count the number of eigenvectors to be computed */ @@ -1017,14 +1017,14 @@ L10: if (*info != 0) { i__1 = -(*info); xerbla_("STGEVC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = im; if (*n == 0) { - return 0; + return; } /* Machine Constants */ @@ -1216,7 +1216,7 @@ L10: bcoefi = -bcoefi; if (bcoefi == 0.f) { *info = je; - return 0; + return; } /* Scale to avoid over/underflow */ @@ -1627,7 +1627,7 @@ L220: temp2, &bcoefi); if (bcoefi == 0.f) { *info = je - 1; - return 0; + return; } /* Scale to avoid over/underflow */ @@ -1957,7 +1957,7 @@ L500: } } - return 0; + return; /* End of STGEVC */ diff --git a/lapack-netlib/SRC/stgex2.c b/lapack-netlib/SRC/stgex2.c index 9e974032b..1d07cfe58 100644 --- a/lapack-netlib/SRC/stgex2.c +++ b/lapack-netlib/SRC/stgex2.c @@ -740,7 +740,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real +/* Subroutine */ void stgex2_(logical *wantq, logical *wantz, integer *n, real *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real * z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work, integer *lwork, integer *info) @@ -756,49 +756,49 @@ f"> */ integer idum; real taul[4], dsum, taur[4], scpy[16] /* was [4][4] */, tcpy[16] /* was [4][4] */; - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); real f, g; integer i__, m; real s[16] /* was [4][4] */, t[16] /* was [4][4] */, scale, bqra21, brqa21; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real licop[16] /* was [4][4] */; integer linfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real ircop[16] /* was [4][4] */, dnorm; integer iwork[4]; - extern /* Subroutine */ int slagv2_(real *, integer *, real *, integer *, + extern /* Subroutine */ void slagv2_(real *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *, real *), sgeqr2_( integer *, integer *, real *, integer *, real *, real *, integer * ), sgerq2_(integer *, integer *, real *, integer *, real *, real * , integer *); real be[2], ai[2]; - extern /* Subroutine */ int sorg2r_(integer *, integer *, integer *, real + extern /* Subroutine */ void sorg2r_(integer *, integer *, integer *, real *, integer *, real *, real *, integer *), sorgr2_(integer *, integer *, integer *, real *, integer *, real *, real *, integer * ); real ar[2], sa, sb, li[16] /* was [4][4] */; - extern /* Subroutine */ int sorm2r_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sorm2r_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *), sormr2_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer * , real *, integer *); real dscale, ir[16] /* was [4][4] */; - extern /* Subroutine */ int stgsy2_(char *, integer *, integer *, integer + extern /* Subroutine */ void stgsy2_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real * , integer *, real *, integer *, real *, integer *, real *, real *, real *, integer *, integer *, integer *); real ss; extern real slamch_(char *); real ws; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slartg_(real *, real *, real *, real *, real *); real thresh; - extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slaset_(char *, integer *, integer *, real *, real *, real *, integer *), slassq_(integer *, real *, integer *, real *, real *); real smlnum; @@ -838,10 +838,10 @@ f"> */ /* Quick return if possible */ if (*n <= 1 || *n1 <= 0 || *n2 <= 0) { - return 0; + return; } if (*n1 > *n || *j1 + *n1 > *n) { - return 0; + return; } m = *n1 + *n2; /* Computing MAX */ @@ -851,7 +851,7 @@ f"> */ /* Computing MAX */ i__1 = *n * m, i__2 = m * m << 1; work[1] = (real) f2cmax(i__1,i__2); - return 0; + return; } weak = FALSE_; @@ -990,7 +990,7 @@ f"> */ /* Exit with INFO = 0 if swap was successfully performed. */ - return 0; + return; } else { @@ -1288,7 +1288,7 @@ f"> */ /* Exit with INFO = 0 if swap was successfully performed. */ - return 0; + return; } @@ -1297,7 +1297,7 @@ f"> */ L70: *info = 1; - return 0; + return; /* End of STGEX2 */ diff --git a/lapack-netlib/SRC/stgexc.c b/lapack-netlib/SRC/stgexc.c index 710bf15bf..23016212b 100644 --- a/lapack-netlib/SRC/stgexc.c +++ b/lapack-netlib/SRC/stgexc.c @@ -733,7 +733,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real +/* Subroutine */ void stgexc_(logical *wantq, logical *wantz, integer *n, real *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real * z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer * lwork, integer *info) @@ -744,10 +744,11 @@ f"> */ /* Local variables */ integer here, lwmin; - extern /* Subroutine */ int stgex2_(logical *, logical *, integer *, real + extern /* Subroutine */ void stgex2_(logical *, logical *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *, integer *, integer *, real *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); integer nbnext; logical lquery; integer nbf, nbl; @@ -814,15 +815,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STGEXC", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } /* Determine the first row of the specified block and find out */ @@ -855,7 +856,7 @@ f"> */ } } if (*ifst == *ilst) { - return 0; + return; } if (*ifst < *ilst) { @@ -890,7 +891,7 @@ L10: &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } here += nbnext; @@ -919,7 +920,7 @@ L10: nbnext, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } if (nbnext == 1) { @@ -930,7 +931,7 @@ L10: &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } ++here; @@ -950,7 +951,7 @@ L10: here, &c__1, &nbnext, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } here += 2; } else { @@ -962,7 +963,7 @@ L10: here, &c__1, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } ++here; stgex2_(wantq, wantz, n, &a[a_offset], lda, &b[b_offset], @@ -970,7 +971,7 @@ L10: here, &c__1, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } ++here; } @@ -1003,7 +1004,7 @@ L20: &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } here -= nbnext; @@ -1032,7 +1033,7 @@ L20: c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } if (nbnext == 1) { @@ -1043,7 +1044,7 @@ L20: nbnext, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } --here; } else { @@ -1063,7 +1064,7 @@ L20: i__1, &c__2, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } here += -2; } else { @@ -1075,7 +1076,7 @@ L20: here, &c__1, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } --here; stgex2_(wantq, wantz, n, &a[a_offset], lda, &b[b_offset], @@ -1083,7 +1084,7 @@ L20: here, &c__1, &c__1, &work[1], lwork, info); if (*info != 0) { *ilst = here; - return 0; + return; } --here; } @@ -1095,7 +1096,7 @@ L20: } *ilst = here; work[1] = (real) lwmin; - return 0; + return; /* End of STGEXC */ diff --git a/lapack-netlib/SRC/stgsen.c b/lapack-netlib/SRC/stgsen.c index ae5c3ac28..f25029246 100644 --- a/lapack-netlib/SRC/stgsen.c +++ b/lapack-netlib/SRC/stgsen.c @@ -964,7 +964,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz, +/* Subroutine */ void stgsen_(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, real *a, integer *lda, real *b, integer * ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq, real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif, @@ -982,14 +982,14 @@ f"> */ integer ierr; real dsum; logical swap; - extern /* Subroutine */ int slag2_(real *, integer *, real *, integer *, + extern /* Subroutine */ void slag2_(real *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *); integer i__, k, isave[3]; logical wantd; integer lwmin; logical wantp; integer n1, n2; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); logical wantd1, wantd2; integer kk; @@ -997,18 +997,19 @@ f"> */ integer ks; real rdscal; extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slacpy_( char *, integer *, integer *, real *, integer *, real *, integer * ), stgexc_(logical *, logical *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer * , integer *, integer *, real *, integer *, integer *); integer liwmin; - extern /* Subroutine */ int slassq_(integer *, real *, integer *, real *, + extern /* Subroutine */ void slassq_(integer *, real *, integer *, real *, real *); real smlnum; integer mn2; logical lquery; - extern /* Subroutine */ int stgsyl_(char *, integer *, integer *, integer + extern /* Subroutine */ void stgsyl_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real * , integer *, real *, integer *, real *, integer *, real *, real *, real *, integer *, integer *, integer *); @@ -1069,7 +1070,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STGSEN", &i__1, (ftnlen)6); - return 0; + return; } /* Get machine constants */ @@ -1151,9 +1152,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STGSEN", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ @@ -1448,7 +1449,7 @@ L60: work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of STGSEN */ diff --git a/lapack-netlib/SRC/stgsja.c b/lapack-netlib/SRC/stgsja.c index aa7fcfe84..ab455367c 100644 --- a/lapack-netlib/SRC/stgsja.c +++ b/lapack-netlib/SRC/stgsja.c @@ -893,7 +893,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void stgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, real *a, integer *lda, real *b, integer *ldb, real *tola, real *tolb, real *alpha, real * beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer * @@ -905,12 +905,12 @@ f"> */ real r__1; /* Local variables */ - extern /* Subroutine */ int srot_(integer *, real *, integer *, real *, + extern /* Subroutine */ void srot_(integer *, real *, integer *, real *, integer *, real *, real *); integer kcallmycycle, i__, j; real gamma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real a1; logical initq; real a2, a3, b1; @@ -918,10 +918,11 @@ f"> */ real b2, b3; logical wantu, wantv; real error, ssmin; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), slags2_(logical *, real *, real *, real *, real *, - real *, real *, real *, real *, real *, real *, real *, real *), - xerbla_(char *, integer *, ftnlen), slapll_(integer *, real *, + real *, real *, real *, real *, real *, real *, real *, real *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slapll_(integer *, real *, integer *, real *, integer *, real *), slartg_(real *, real *, real *, real *, real *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); @@ -1000,7 +1001,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STGSJA", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize U, V and Q, if necessary */ @@ -1239,7 +1240,7 @@ L50: L100: *ncallmycycle = kcallmycycle; - return 0; + return; /* End of STGSJA */ diff --git a/lapack-netlib/SRC/stgsna.c b/lapack-netlib/SRC/stgsna.c index c23ac4fad..4d7c7505d 100644 --- a/lapack-netlib/SRC/stgsna.c +++ b/lapack-netlib/SRC/stgsna.c @@ -897,7 +897,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stgsna_(char *job, char *howmny, logical *select, +/* Subroutine */ void stgsna_(char *job, char *howmny, logical *select, integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer * mm, integer *m, real *work, integer *lwork, integer *iwork, integer * @@ -918,7 +918,7 @@ f"> */ extern real sdot_(integer *, real *, integer *, real *, integer *); integer ilst; real rnrm; - extern /* Subroutine */ int slag2_(real *, integer *, real *, integer *, + extern /* Subroutine */ void slag2_(real *, integer *, real *, integer *, real *, real *, real *, real *, real *, real *); extern real snrm2_(integer *, real *, integer *); real root1, root2; @@ -926,7 +926,7 @@ f"> */ real scale; extern logical lsame_(char *, char *); real uhavi, uhbvi; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real tmpii, c1, c2; integer lwmin; @@ -943,7 +943,7 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical wantbh, wantdf; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), stgexc_(logical *, logical *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, @@ -951,7 +951,7 @@ f"> */ logical somcon; real alprqt, smlnum; logical lquery; - extern /* Subroutine */ int stgsyl_(char *, integer *, integer *, integer + extern /* Subroutine */ void stgsyl_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real * , integer *, real *, integer *, real *, integer *, real *, real *, real *, integer *, integer *, integer *); @@ -1068,15 +1068,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STGSNA", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1286,7 +1286,7 @@ L20: ; } work[1] = (real) lwmin; - return 0; + return; /* End of STGSNA */ diff --git a/lapack-netlib/SRC/stgsy2.c b/lapack-netlib/SRC/stgsy2.c index f37fdb95b..92213c44b 100644 --- a/lapack-netlib/SRC/stgsy2.c +++ b/lapack-netlib/SRC/stgsy2.c @@ -789,7 +789,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer * +/* Subroutine */ void stgsy2_(char *trans, integer *ijob, integer *m, integer * n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer * ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer @@ -800,12 +800,12 @@ f"> */ d_offset, e_dim1, e_offset, f_dim1, f_offset, i__1, i__2, i__3; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); integer ierr, zdim, ipiv[8], jpiv[8], i__, j, k, p, q; real alpha, z__[64] /* was [8][8] */; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *), @@ -815,9 +815,10 @@ f"> */ integer *, integer *); integer ie, je, mb, nb, ii, jj, is, js; real scaloc; - extern /* Subroutine */ int slatdf_(integer *, integer *, real *, integer - *, real *, real *, real *, integer *, integer *), xerbla_(char *, - integer *, ftnlen), slaset_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slatdf_(integer *, integer *, real *, integer + *, real *, real *, real *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void slaset_(char *, integer *, integer *, real *, real *, real *, integer *); logical notran; real rhs[8]; @@ -891,7 +892,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STGSY2", &i__1, (ftnlen)6); - return 0; + return; } /* Determine block structure of A */ @@ -1695,7 +1696,7 @@ L40: } } - return 0; + return; /* End of STGSY2 */ diff --git a/lapack-netlib/SRC/stgsyl.c b/lapack-netlib/SRC/stgsyl.c index 703a20065..ae065a349 100644 --- a/lapack-netlib/SRC/stgsyl.c +++ b/lapack-netlib/SRC/stgsyl.c @@ -816,7 +816,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer * +/* Subroutine */ void stgsyl_(char *trans, integer *ijob, integer *m, integer * n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer * ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer *ldf, real *scale, real *dif, real *work, integer *lwork, integer * @@ -832,9 +832,9 @@ f"> */ integer ppqq, i__, j, k, p, q; extern logical lsame_(char *, char *); integer ifunc; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer linfo; - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer lwmin; @@ -842,7 +842,7 @@ f"> */ integer ie, je, mb, nb; real dscale; integer is, js; - extern /* Subroutine */ int stgsy2_(char *, integer *, integer *, integer + extern /* Subroutine */ void stgsy2_(char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real * , integer *, real *, integer *, real *, integer *, real *, real *, real *, integer *, integer *, integer *); @@ -851,7 +851,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); integer iround; @@ -949,9 +949,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STGSYL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -963,7 +963,7 @@ f"> */ *dif = 0.f; } } - return 0; + return; } /* Determine optimal block sizes MB and NB */ @@ -1026,7 +1026,7 @@ f"> */ /* L30: */ } - return 0; + return; } /* Determine block structure of A */ @@ -1293,7 +1293,7 @@ L70: work[1] = (real) lwmin; - return 0; + return; /* End of STGSYL */ diff --git a/lapack-netlib/SRC/stpcon.c b/lapack-netlib/SRC/stpcon.c index 99b3a6353..8812ca818 100644 --- a/lapack-netlib/SRC/stpcon.c +++ b/lapack-netlib/SRC/stpcon.c @@ -642,7 +642,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void stpcon_(char *norm, char *uplo, char *diag, integer *n, real *ap, real *rcond, real *work, integer *iwork, integer *info) { /* System generated locals */ @@ -655,10 +655,10 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; real anorm; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *); + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *); logical upper; real xnorm; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer ix; extern real slamch_(char *); @@ -668,7 +668,7 @@ f"> */ logical onenrm; extern real slantp_(char *, char *, char *, integer *, real *, real *); char normin[1]; - extern /* Subroutine */ int slatps_(char *, char *, char *, char *, + extern /* Subroutine */ void slatps_(char *, char *, char *, char *, integer *, real *, real *, real *, real *, integer *); real smlnum; logical nounit; @@ -708,14 +708,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.f; - return 0; + return; } *rcond = 0.f; @@ -778,7 +778,7 @@ L10: } L20: - return 0; + return; /* End of STPCON */ diff --git a/lapack-netlib/SRC/stplqt.c b/lapack-netlib/SRC/stplqt.c index 325cb625c..a52e40535 100644 --- a/lapack-netlib/SRC/stplqt.c +++ b/lapack-netlib/SRC/stplqt.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stplqt_(integer *m, integer *n, integer *l, integer *mb, +/* Subroutine */ void stplqt_(integer *m, integer *n, integer *l, integer *mb, real *a, integer *lda, real *b, integer *ldb, real *t, integer *ldt, real *work, integer *info) { @@ -707,7 +707,8 @@ f"> */ /* Local variables */ integer i__, iinfo, ib, lb, nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), stprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void stprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, real *, integer *), stplqt2_(integer *, integer *, integer *, real *, @@ -757,13 +758,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STPLQT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *m; @@ -797,7 +798,7 @@ f"> */ a_dim1], lda, &b[i__ + ib + b_dim1], ldb, &work[1], &i__4); } } - return 0; + return; /* End of STPLQT */ diff --git a/lapack-netlib/SRC/stplqt2.c b/lapack-netlib/SRC/stplqt2.c index 9dc09583d..99f2cdc97 100644 --- a/lapack-netlib/SRC/stplqt2.c +++ b/lapack-netlib/SRC/stplqt2.c @@ -693,7 +693,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stplqt2_(integer *m, integer *n, integer *l, real *a, +/* Subroutine */ void stplqt2_(integer *m, integer *n, integer *l, real *a, integer *lda, real *b, integer *ldb, real *t, integer *ldt, integer * info) { @@ -702,15 +702,16 @@ is composed of a triangular block and a pentagonal block, using the compact WY r i__3; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); integer i__, j, p; real alpha; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), strmv_(char *, char *, char *, integer *, real *, integer *, real *, integer *); integer mp, np; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slarfg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slarfg_( integer *, real *, real *, integer *, real *); @@ -754,13 +755,13 @@ is composed of a triangular block and a pentagonal block, using the compact WY r if (*info != 0) { i__1 = -(*info); xerbla_("STPLQT2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } i__1 = *m; @@ -860,6 +861,6 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* End of STPLQT2 */ - return 0; + return; } /* stplqt2_ */ diff --git a/lapack-netlib/SRC/stpmlqt.c b/lapack-netlib/SRC/stpmlqt.c index 4018fd540..73868f9b7 100644 --- a/lapack-netlib/SRC/stpmlqt.c +++ b/lapack-netlib/SRC/stpmlqt.c @@ -724,7 +724,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stpmlqt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void stpmlqt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, integer *mb, real *v, integer *ldv, real *t, integer *ldt, real *a, integer *lda, real *b, integer *ldb, real * work, integer *info) @@ -740,7 +740,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, lb, nb, kf; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), stprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void stprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, real *, integer *); @@ -811,12 +812,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("STPMLQT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran) { @@ -905,7 +906,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of STPMLQT */ diff --git a/lapack-netlib/SRC/stpmqrt.c b/lapack-netlib/SRC/stpmqrt.c index 5dbe80df1..a30bfd420 100644 --- a/lapack-netlib/SRC/stpmqrt.c +++ b/lapack-netlib/SRC/stpmqrt.c @@ -724,7 +724,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stpmqrt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void stpmqrt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, integer *nb, real *v, integer *ldv, real *t, integer *ldt, real *a, integer *lda, real *b, integer *ldb, real * work, integer *info) @@ -740,7 +740,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, lb, mb, kf; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), stprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void stprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, real *, integer *); @@ -813,12 +814,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("STPMQRT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && tran) { @@ -907,7 +908,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of STPMQRT */ diff --git a/lapack-netlib/SRC/stpqrt.c b/lapack-netlib/SRC/stpqrt.c index eb8444406..d5b3837b2 100644 --- a/lapack-netlib/SRC/stpqrt.c +++ b/lapack-netlib/SRC/stpqrt.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stpqrt_(integer *m, integer *n, integer *l, integer *nb, +/* Subroutine */ void stpqrt_(integer *m, integer *n, integer *l, integer *nb, real *a, integer *lda, real *b, integer *ldb, real *t, integer *ldt, real *work, integer *info) { @@ -707,7 +707,8 @@ f"> */ /* Local variables */ integer i__, iinfo, ib, lb, mb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), stprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void stprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, real *, integer *), stpqrt2_(integer *, integer *, integer *, real *, @@ -757,13 +758,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STPQRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *n; @@ -797,7 +798,7 @@ f"> */ , &ib); } } - return 0; + return; /* End of STPQRT */ diff --git a/lapack-netlib/SRC/stpqrt2.c b/lapack-netlib/SRC/stpqrt2.c index 7b6725604..df9fd59bf 100644 --- a/lapack-netlib/SRC/stpqrt2.c +++ b/lapack-netlib/SRC/stpqrt2.c @@ -690,7 +690,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stpqrt2_(integer *m, integer *n, integer *l, real *a, +/* Subroutine */ void stpqrt2_(integer *m, integer *n, integer *l, real *a, integer *lda, real *b, integer *ldb, real *t, integer *ldt, integer * info) { @@ -699,15 +699,16 @@ is composed of a triangular block and a pentagonal block, using the compact WY r i__3; /* Local variables */ - extern /* Subroutine */ int sger_(integer *, integer *, real *, real *, + extern /* Subroutine */ void sger_(integer *, integer *, real *, real *, integer *, real *, integer *, real *, integer *); integer i__, j, p; real alpha; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *), strmv_(char *, char *, char *, integer *, real *, integer *, real *, integer *); integer mp, np; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slarfg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slarfg_( integer *, real *, real *, integer *, real *); @@ -751,13 +752,13 @@ is composed of a triangular block and a pentagonal block, using the compact WY r if (*info != 0) { i__1 = -(*info); xerbla_("STPQRT2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } i__1 = *n; @@ -851,6 +852,6 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* End of STPQRT2 */ - return 0; + return; } /* stpqrt2_ */ diff --git a/lapack-netlib/SRC/stprfb.c b/lapack-netlib/SRC/stprfb.c index 231d59223..1de2583b4 100644 --- a/lapack-netlib/SRC/stprfb.c +++ b/lapack-netlib/SRC/stprfb.c @@ -766,7 +766,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stprfb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void stprfb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, integer *l, real *v, integer *ldv, real *t, integer *ldt, real *a, integer *lda, real *b, integer *ldb, real *work, integer *ldwork) @@ -779,11 +779,11 @@ f"> */ logical left, backward; integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical right; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ); integer kp, mp, np; @@ -820,7 +820,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0 || *k <= 0 || *l < 0) { - return 0; + return; } if (lsame_(storev, "C")) { @@ -1471,7 +1471,7 @@ f"> */ } - return 0; + return; /* End of STPRFB */ diff --git a/lapack-netlib/SRC/stprfs.c b/lapack-netlib/SRC/stprfs.c index 774f006e2..5a978aa98 100644 --- a/lapack-netlib/SRC/stprfs.c +++ b/lapack-netlib/SRC/stprfs.c @@ -688,7 +688,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void stprfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info) { @@ -704,7 +704,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), stpmv_(char *, char *, char *, integer *, real *, real *, integer *), stpsv_(char *, char *, @@ -771,7 +771,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -783,7 +783,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1058,7 +1058,7 @@ L210: /* L250: */ } - return 0; + return; /* End of STPRFS */ diff --git a/lapack-netlib/SRC/stptri.c b/lapack-netlib/SRC/stptri.c index 1d53469cb..776eecd93 100644 --- a/lapack-netlib/SRC/stptri.c +++ b/lapack-netlib/SRC/stptri.c @@ -630,7 +630,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap, +/* Subroutine */ void stptri_(char *uplo, char *diag, integer *n, real *ap, integer *info) { /* System generated locals */ @@ -639,9 +639,9 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int stpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void stpmv_(char *, char *, char *, integer *, real *, real *, integer *); integer jc, jj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -678,7 +678,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Check for singularity if non-unit. */ @@ -690,7 +690,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { jj += *info; if (ap[jj] == 0.f) { - return 0; + return; } /* L10: */ } @@ -699,7 +699,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ap[jj] == 0.f) { - return 0; + return; } jj = jj + *n - *info + 1; /* L20: */ @@ -761,7 +761,7 @@ f"> */ } } - return 0; + return; /* End of STPTRI */ diff --git a/lapack-netlib/SRC/stptrs.c b/lapack-netlib/SRC/stptrs.c index 814301080..2f9514dfa 100644 --- a/lapack-netlib/SRC/stptrs.c +++ b/lapack-netlib/SRC/stptrs.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void stptrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info) { /* System generated locals */ @@ -653,7 +653,7 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int stpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void stpsv_(char *, char *, char *, integer *, real *, real *, integer *); integer jc; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -698,13 +698,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -715,7 +715,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ap[jc + *info - 1] == 0.f) { - return 0; + return; } jc += *info; /* L10: */ @@ -725,7 +725,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (ap[jc] == 0.f) { - return 0; + return; } jc = jc + *n - *info + 1; /* L20: */ @@ -742,7 +742,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of STPTRS */ diff --git a/lapack-netlib/SRC/stpttf.c b/lapack-netlib/SRC/stpttf.c index c7c32fd68..9ea179e03 100644 --- a/lapack-netlib/SRC/stpttf.c +++ b/lapack-netlib/SRC/stpttf.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stpttf_(char *transr, char *uplo, integer *n, real *ap, +/* Subroutine */ void stpttf_(char *transr, char *uplo, integer *n, real *ap, real *arf, integer *info) { /* System generated locals */ @@ -738,13 +738,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STPTTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -753,7 +753,7 @@ f"> */ } else { arf[0] = ap[0]; } - return 0; + return; } /* Size of array ARF(0:NT-1) */ @@ -1041,7 +1041,7 @@ f"> */ } - return 0; + return; /* End of STPTTF */ diff --git a/lapack-netlib/SRC/stpttr.c b/lapack-netlib/SRC/stpttr.c index b07698b10..2ea5beb8e 100644 --- a/lapack-netlib/SRC/stpttr.c +++ b/lapack-netlib/SRC/stpttr.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int stpttr_(char *uplo, integer *n, real *ap, real *a, +/* Subroutine */ void stpttr_(char *uplo, integer *n, real *ap, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STPTTR", &i__1, (ftnlen)6); - return 0; + return; } if (lower) { @@ -683,7 +683,7 @@ f"> */ } - return 0; + return; /* End of STPTTR */ diff --git a/lapack-netlib/SRC/strcon.c b/lapack-netlib/SRC/strcon.c index 880a51be5..a81e5bca6 100644 --- a/lapack-netlib/SRC/strcon.c +++ b/lapack-netlib/SRC/strcon.c @@ -649,7 +649,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void strcon_(char *norm, char *uplo, char *diag, integer *n, real *a, integer *lda, real *rcond, real *work, integer *iwork, integer *info) { @@ -663,10 +663,10 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; real anorm; - extern /* Subroutine */ int srscl_(integer *, real *, real *, integer *); + extern /* Subroutine */ void srscl_(integer *, real *, real *, integer *); logical upper; real xnorm; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer ix; extern real slamch_(char *); @@ -677,7 +677,7 @@ f"> */ char normin[1]; extern real slantr_(char *, char *, char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int slatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void slatrs_(char *, char *, char *, char *, integer *, real *, integer *, real *, real *, real *, integer *); real smlnum; logical nounit; @@ -721,14 +721,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.f; - return 0; + return; } *rcond = 0.f; @@ -791,7 +791,7 @@ L10: } L20: - return 0; + return; /* End of STRCON */ diff --git a/lapack-netlib/SRC/strevc.c b/lapack-netlib/SRC/strevc.c index cf1afd114..2dae7d8f5 100644 --- a/lapack-netlib/SRC/strevc.c +++ b/lapack-netlib/SRC/strevc.c @@ -739,7 +739,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int strevc_(char *side, char *howmny, logical *select, +/* Subroutine */ void strevc_(char *side, char *howmny, logical *select, integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real *work, integer *info) { @@ -759,25 +759,25 @@ f"> */ integer jnxt, i__, j, k; real scale, x[4] /* was [2][2] */; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); real remax; logical leftv; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical bothv; real vcrit; logical somev; integer j1, j2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); integer n2; real xnorm; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *), slaln2_(logical *, integer *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, integer *); integer ii, ki; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer ip, is; real wi; extern real slamch_(char *); @@ -881,13 +881,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STREVC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Set the constants to control overflow. */ @@ -1790,7 +1790,7 @@ L250: } - return 0; + return; /* End of STREVC */ diff --git a/lapack-netlib/SRC/strevc3.c b/lapack-netlib/SRC/strevc3.c index f623b84f5..5c6b3770a 100644 --- a/lapack-netlib/SRC/strevc3.c +++ b/lapack-netlib/SRC/strevc3.c @@ -757,7 +757,7 @@ static logical c_true = TRUE_; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int strevc3_(char *side, char *howmny, logical *select, +/* Subroutine */ void strevc3_(char *side, char *howmny, logical *select, integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real *work, integer *lwork, integer *info) @@ -780,28 +780,28 @@ static logical c_true = TRUE_; integer jnxt, i__, j, k; real scale, x[4] /* was [2][2] */; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real remax; logical leftv; - extern /* Subroutine */ int sgemv_(char *, integer *, integer *, real *, + extern /* Subroutine */ void sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); logical bothv; real vcrit; logical somev; integer j1, j2; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *); real xnorm; - extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, + extern /* Subroutine */ void saxpy_(integer *, real *, real *, integer *, real *, integer *); integer iscomplex[128]; - extern /* Subroutine */ int slaln2_(logical *, integer *, integer *, real + extern /* Subroutine */ void slaln2_(logical *, integer *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, integer *); integer nb, ii, ki; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer ip, is, iv; real wi; extern real slamch_(char *); @@ -811,7 +811,7 @@ static logical c_true = TRUE_; integer *, integer *, ftnlen, ftnlen); real bignum; extern integer isamax_(integer *, real *, integer *); - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, real *, real *, integer *); logical rightv; @@ -928,15 +928,15 @@ static logical c_true = TRUE_; if (*info != 0) { i__2 = -(*info); xerbla_("STREVC3", &i__2, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Use blocked version of back-transformation if sufficient workspace. */ @@ -2049,7 +2049,7 @@ L260: } } - return 0; + return; /* End of STREVC3 */ diff --git a/lapack-netlib/SRC/strexc.c b/lapack-netlib/SRC/strexc.c index 45f376b6b..978ff1969 100644 --- a/lapack-netlib/SRC/strexc.c +++ b/lapack-netlib/SRC/strexc.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt, +/* Subroutine */ void strexc_(char *compq, integer *n, real *t, integer *ldt, real *q, integer *ldq, integer *ifst, integer *ilst, real *work, integer *info) { @@ -672,7 +672,8 @@ f"> */ integer here; extern logical lsame_(char *, char *); logical wantq; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slaexc_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void slaexc_( logical *, integer *, real *, integer *, real *, integer *, integer *, integer *, integer *, real *, integer *); integer nbnext, nbf, nbl; @@ -717,13 +718,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STREXC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } /* Determine the first row of specified block */ @@ -757,7 +758,7 @@ f"> */ } if (*ifst == *ilst) { - return 0; + return; } if (*ifst < *ilst) { @@ -791,7 +792,7 @@ L10: nbf, &nbnext, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } here += nbnext; @@ -819,7 +820,7 @@ L10: c__1, &nbnext, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } if (nbnext == 1) { @@ -843,7 +844,7 @@ L10: here, &c__1, &nbnext, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } here += 2; } else { @@ -885,7 +886,7 @@ L20: nbnext, &nbf, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } here -= nbnext; @@ -913,7 +914,7 @@ L20: nbnext, &c__1, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } if (nbnext == 1) { @@ -938,7 +939,7 @@ L20: i__1, &c__2, &c__1, &work[1], info); if (*info != 0) { *ilst = here; - return 0; + return; } here += -2; } else { @@ -960,7 +961,7 @@ L20: } *ilst = here; - return 0; + return; /* End of STREXC */ diff --git a/lapack-netlib/SRC/strrfs.c b/lapack-netlib/SRC/strrfs.c index 32a61be0c..5a7d0dd5d 100644 --- a/lapack-netlib/SRC/strrfs.c +++ b/lapack-netlib/SRC/strrfs.c @@ -695,7 +695,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void strrfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info) @@ -713,7 +713,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int scopy_(integer *, real *, integer *, real *, + extern /* Subroutine */ void scopy_(integer *, real *, integer *, real *, integer *), saxpy_(integer *, real *, real *, integer *, real *, integer *), strmv_(char *, char *, char *, integer *, real *, integer *, real *, integer *), strsv_( @@ -784,7 +784,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -796,7 +796,7 @@ f"> */ berr[j] = 0.f; /* L10: */ } - return 0; + return; } if (notran) { @@ -1061,7 +1061,7 @@ L210: /* L250: */ } - return 0; + return; /* End of STRRFS */ diff --git a/lapack-netlib/SRC/strsen.c b/lapack-netlib/SRC/strsen.c index 2b3a43d2b..2becc7318 100644 --- a/lapack-netlib/SRC/strsen.c +++ b/lapack-netlib/SRC/strsen.c @@ -826,7 +826,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer +/* Subroutine */ void strsen_(char *job, char *compq, logical *select, integer *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi, integer *m, real *s, real *sep, real *work, integer *lwork, integer * iwork, integer *liwork, integer *info) @@ -847,20 +847,20 @@ f"> */ logical wantq, wants; real rnorm; integer n1, n2; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); integer kk, nn, ks; extern real slange_(char *, integer *, integer *, real *, integer *, real *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical wantbh; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); integer liwmin; - extern /* Subroutine */ int strexc_(char *, integer *, real *, integer *, + extern /* Subroutine */ void strexc_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *); logical wantsp, lquery; - extern /* Subroutine */ int strsyl_(char *, char *, integer *, integer *, + extern /* Subroutine */ void strsyl_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *); real est; @@ -972,9 +972,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRSEN", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ @@ -1111,7 +1111,7 @@ L40: work[1] = (real) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of STRSEN */ diff --git a/lapack-netlib/SRC/strsna.c b/lapack-netlib/SRC/strsna.c index 61edf044c..a629a69c3 100644 --- a/lapack-netlib/SRC/strsna.c +++ b/lapack-netlib/SRC/strsna.c @@ -778,7 +778,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int strsna_(char *job, char *howmny, logical *select, +/* Subroutine */ void strsna_(char *job, char *howmny, logical *select, integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *m, real * work, integer *ldwork, integer *iwork, integer *info) @@ -807,21 +807,21 @@ f"> */ logical wants; real dummy[1]; integer n2; - extern /* Subroutine */ int slacn2_(integer *, real *, real *, integer *, + extern /* Subroutine */ void slacn2_(integer *, real *, real *, integer *, real *, integer *, integer *); extern real slapy2_(real *, real *); real cs; - extern /* Subroutine */ int slabad_(real *, real *); + extern /* Subroutine */ void slabad_(real *, real *); integer nn, ks; real sn, mu; extern real slamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; logical wantbh; - extern /* Subroutine */ int slacpy_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *); logical somcon; - extern /* Subroutine */ int slaqtr_(logical *, logical *, integer *, real + extern /* Subroutine */ void slaqtr_(logical *, logical *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *), strexc_(char *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *); @@ -924,19 +924,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRSNA", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (somcon) { if (! select[1]) { - return 0; + return; } } if (wants) { @@ -945,7 +945,7 @@ f"> */ if (wantsp) { sep[1] = (r__1 = t[t_dim1 + 1], abs(r__1)); } - return 0; + return; } /* Get machine constants */ @@ -1182,7 +1182,7 @@ L50: L60: ; } - return 0; + return; /* End of STRSNA */ diff --git a/lapack-netlib/SRC/strsyl.c b/lapack-netlib/SRC/strsyl.c index 1ca4bda1e..0cc08139e 100644 --- a/lapack-netlib/SRC/strsyl.c +++ b/lapack-netlib/SRC/strsyl.c @@ -680,7 +680,7 @@ f"> */ /* > \ingroup realSYcomputational */ /* ===================================================================== */ -/* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer +/* Subroutine */ void strsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real * c__, integer *ldc, real *scale, integer *info) { @@ -697,14 +697,14 @@ f"> */ integer j, k, l; real x[4] /* was [2][2] */; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); integer knext, lnext, k1, k2, l1, l2; real xnorm; - extern /* Subroutine */ int slaln2_(logical *, integer *, integer *, real + extern /* Subroutine */ void slaln2_(logical *, integer *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, real *, integer *, real *, real *, integer *); real a11, db; - extern /* Subroutine */ int slasy2_(logical *, logical *, integer *, + extern /* Subroutine */ void slasy2_(logical *, logical *, integer *, integer *, integer *, real *, integer *, real *, integer *, real * , integer *, real *, real *, integer *, real *, integer *), slabad_(real *, real *); @@ -766,14 +766,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRSYL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *scale = 1.f; if (*m == 0 || *n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -1875,7 +1875,7 @@ L250: } - return 0; + return; /* End of STRSYL */ diff --git a/lapack-netlib/SRC/strsyl3.c b/lapack-netlib/SRC/strsyl3.c index 8ce30ed56..a2a1d0a62 100644 --- a/lapack-netlib/SRC/strsyl3.c +++ b/lapack-netlib/SRC/strsyl3.c @@ -698,7 +698,7 @@ static real c_b32 = 1.f; /* Angelika Schwarz, Umea University, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int strsyl3_(char *trana, char *tranb, integer *isgn, +/* Subroutine */ void strsyl3_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *ldc, real *scale, integer *iwork, integer *liwork, real *swork, integer *ldswork, integer *info) @@ -716,7 +716,7 @@ static real c_b32 = 1.f; integer i__, j, k, l; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *), + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *), sgemm_(char *, char *, integer *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); integer i1, i2, j1, j2, k1, k2, l1; @@ -726,17 +726,17 @@ static real c_b32 = 1.f; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); real scamin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; - extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, + extern /* Subroutine */ void slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *); extern real slarmm_(real *, real *, real *); logical notrna, notrnb; real smlnum; logical lquery; - extern /* Subroutine */ int strsyl_(char *, char *, integer *, integer *, + extern /* Subroutine */ void strsyl_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *); integer nba, nbb; @@ -817,17 +817,17 @@ static real c_b32 = 1.f; } if (*info != 0) { i__1 = -(*info); - xerbla_("STRSYL3", &i__1); - return 0; + xerbla_("STRSYL3", &i__1, 7); + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *scale = 1.f; if (*m == 0 || *n == 0) { - return 0; + return; } /* Use unblocked code for small problems or if insufficient */ @@ -836,7 +836,7 @@ static real c_b32 = 1.f; if (f2cmin(nba,nbb) == 1 || *ldswork < f2cmax(nba,nbb) || *liwork < iwork[1]) { strsyl_(trana, tranb, isgn, m, n, &a[a_offset], lda, &b[b_offset], ldb, &c__[c_offset], ldc, scale, info); - return 0; + return; } @@ -1982,7 +1982,7 @@ static real c_b32 = 1.f; iwork[1] = nba + nbb + 2; swork[swork_dim1 + 1] = (real) f2cmax(nba,nbb); swork[swork_dim1 + 2] = (real) ((nbb << 1) + nba); - return 0; + return; } /* Realize consistent scaling */ @@ -2058,7 +2058,7 @@ static real c_b32 = 1.f; swork[swork_dim1 + 1] = (real) f2cmax(nba,nbb); swork[swork_dim1 + 2] = (real) ((nbb << 1) + nba); - return 0; + return; /* End of STRSYL3 */ diff --git a/lapack-netlib/SRC/strti2.c b/lapack-netlib/SRC/strti2.c index f83993539..5ec1dedbf 100644 --- a/lapack-netlib/SRC/strti2.c +++ b/lapack-netlib/SRC/strti2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a, +/* Subroutine */ void strti2_(char *uplo, char *diag, integer *n, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -632,11 +632,11 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int sscal_(integer *, real *, real *, integer *); + extern /* Subroutine */ void sscal_(integer *, real *, real *, integer *); logical upper; - extern /* Subroutine */ int strmv_(char *, char *, char *, integer *, - real *, integer *, real *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void strmv_(char *, char *, char *, integer *, + real *, integer *, real *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; real ajj; @@ -673,7 +673,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRTI2", &i__1, (ftnlen)6); - return 0; + return; } if (upper) { @@ -723,7 +723,7 @@ f"> */ } } - return 0; + return; /* End of STRTI2 */ diff --git a/lapack-netlib/SRC/strtri.c b/lapack-netlib/SRC/strtri.c index 2e8b34dd3..96d618ebe 100644 --- a/lapack-netlib/SRC/strtri.c +++ b/lapack-netlib/SRC/strtri.c @@ -626,7 +626,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a, +/* Subroutine */ void strtri_(char *uplo, char *diag, integer *n, real *a, integer *lda, integer *info) { /* System generated locals */ @@ -638,13 +638,13 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int strmm_(char *, char *, char *, char *, + extern /* Subroutine */ void strmm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * ), strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer *); integer jb, nb; - extern /* Subroutine */ int strti2_(char *, char *, integer *, real *, + extern /* Subroutine */ void strti2_(char *, char *, integer *, real *, integer *, integer *); integer nn; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -685,13 +685,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity if non-unit. */ @@ -700,7 +700,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } /* L10: */ } @@ -782,7 +782,7 @@ f"> */ } } - return 0; + return; /* End of STRTRI */ diff --git a/lapack-netlib/SRC/strtrs.c b/lapack-netlib/SRC/strtrs.c index 5e82ac825..3f6f90aa2 100644 --- a/lapack-netlib/SRC/strtrs.c +++ b/lapack-netlib/SRC/strtrs.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void strtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer * info) { @@ -661,9 +661,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int strsm_(char *, char *, char *, char *, + extern /* Subroutine */ void strsm_(char *, char *, char *, char *, integer *, integer *, real *, real *, integer *, real *, integer * - ), xerbla_(char *, integer *, ftnlen); + ); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; @@ -708,13 +709,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -723,7 +724,7 @@ f"> */ i__1 = *n; for (*info = 1; *info <= i__1; ++(*info)) { if (a[*info + *info * a_dim1] == 0.f) { - return 0; + return; } /* L10: */ } @@ -735,7 +736,7 @@ f"> */ strsm_("Left", uplo, trans, diag, n, nrhs, &c_b12, &a[a_offset], lda, &b[ b_offset], ldb); - return 0; + return; /* End of STRTRS */ diff --git a/lapack-netlib/SRC/strttf.c b/lapack-netlib/SRC/strttf.c index e76a82584..41b9c6017 100644 --- a/lapack-netlib/SRC/strttf.c +++ b/lapack-netlib/SRC/strttf.c @@ -704,7 +704,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int strttf_(char *transr, char *uplo, integer *n, real *a, +/* Subroutine */ void strttf_(char *transr, char *uplo, integer *n, real *a, integer *lda, real *arf, integer *info) { /* System generated locals */ @@ -753,7 +753,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRTTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -762,7 +762,7 @@ f"> */ if (*n == 1) { arf[0] = a[0]; } - return 0; + return; } /* Size of array ARF(0:nt-1) */ @@ -1032,7 +1032,7 @@ f"> */ } - return 0; + return; /* End of STRTTF */ diff --git a/lapack-netlib/SRC/strttp.c b/lapack-netlib/SRC/strttp.c index c82c13c32..f90fa3dba 100644 --- a/lapack-netlib/SRC/strttp.c +++ b/lapack-netlib/SRC/strttp.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup realOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int strttp_(char *uplo, integer *n, real *a, integer *lda, +/* Subroutine */ void strttp_(char *uplo, integer *n, real *a, integer *lda, real *ap, integer *info) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STRTTP", &i__1, (ftnlen)6); - return 0; + return; } if (lower) { @@ -682,7 +682,7 @@ f"> */ } } - return 0; + return; /* End of STRTTP */ diff --git a/lapack-netlib/SRC/stzrzf.c b/lapack-netlib/SRC/stzrzf.c index ed87874b3..12f7324f7 100644 --- a/lapack-netlib/SRC/stzrzf.c +++ b/lapack-netlib/SRC/stzrzf.c @@ -667,7 +667,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda, +/* Subroutine */ void stzrzf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info) { /* System generated locals */ @@ -678,12 +678,12 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int slarzb_(char *, char *, char *, char *, + extern /* Subroutine */ void slarzb_(char *, char *, char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer *, real *, integer *); integer lwkmin, ldwork, lwkopt; logical lquery; - extern /* Subroutine */ int slarzt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void slarzt_(char *, char *, integer *, integer *, real *, integer *, real *, real *, integer *), slatrz_(integer *, integer *, integer *, real *, integer *, real * , real *); @@ -742,22 +742,22 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("STZRZF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0) { - return 0; + return; } else if (*m == *n) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { tau[i__] = 0.f; /* L10: */ } - return 0; + return; } nbmin = 2; @@ -855,7 +855,7 @@ f"> */ work[1] = (real) lwkopt; - return 0; + return; /* End of STZRZF */ diff --git a/lapack-netlib/SRC/xerbla_array.c b/lapack-netlib/SRC/xerbla_array.c index 4ced91930..fe7d6d898 100644 --- a/lapack-netlib/SRC/xerbla_array.c +++ b/lapack-netlib/SRC/xerbla_array.c @@ -599,7 +599,7 @@ array.f"> */ /* > \ingroup OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int xerbla_array_(char *srname_array__, integer * +/* Subroutine */ void xerbla_array_(char *srname_array__, integer * srname_len__, integer *info, integer srname_array_len) { /* System generated locals */ @@ -634,6 +634,6 @@ array.f"> */ } fprintf(stderr,"xerbla_array calling xerbla with srname #%s#\n",srname); xerbla_(srname, info, (ftnlen)strlen(srname)); - return 0; + return; } /* xerbla_array__ */ diff --git a/lapack-netlib/SRC/zbbcsd.c b/lapack-netlib/SRC/zbbcsd.c index 6941e3c0b..4cef71060 100644 --- a/lapack-netlib/SRC/zbbcsd.c +++ b/lapack-netlib/SRC/zbbcsd.c @@ -844,7 +844,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * +/* Subroutine */ void zbbcsd_(char *jobu1, char *jobu2, char *jobv1t, char * jobv2t, char *trans, integer *m, integer *p, integer *q, doublereal * theta, doublereal *phi, doublecomplex *u1, integer *ldu1, doublecomplex *u2, integer *ldu2, doublecomplex *v1t, integer *ldv1t, @@ -864,16 +864,16 @@ f"> */ logical colmajor; doublereal thetamin, thetamax; logical restart11, restart12, restart21, restart22; - extern /* Subroutine */ int dlas2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlas2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); integer iu1cs, iu2cs, iu1sn, iu2sn, i__, j; doublereal r__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer maxit; doublereal dummy; - extern /* Subroutine */ int zlasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zlasr_(char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal x1, x2, y1, y2; @@ -884,12 +884,12 @@ f"> */ doublereal mu, nu, sigma11, sigma21; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal thresh, tolmul; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); logical lquery; doublereal b11bulge; logical wantv1t, wantv2t; doublereal b12bulge, b21bulge, b22bulge, eps, tol; - extern /* Subroutine */ int dlartgp_(doublereal *, doublereal *, + extern /* Subroutine */ void dlartgp_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *), dlartgs_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -963,7 +963,7 @@ f"> */ if (*info == 0 && *q == 0) { lrworkmin = 1; rwork[1] = (doublereal) lrworkmin; - return 0; + return; } /* Compute workspace */ @@ -988,9 +988,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZBBCSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Get machine constants */ @@ -1082,7 +1082,7 @@ f"> */ ++(*info); } } - return 0; + return; } iter = iter + imax - imin; @@ -1796,7 +1796,7 @@ f"> */ } - return 0; + return; /* End of ZBBCSD */ diff --git a/lapack-netlib/SRC/zbdsqr.c b/lapack-netlib/SRC/zbdsqr.c index 59cd6788b..35dac9e73 100644 --- a/lapack-netlib/SRC/zbdsqr.c +++ b/lapack-netlib/SRC/zbdsqr.c @@ -737,7 +737,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer * +/* Subroutine */ void zbdsqr_(char *uplo, integer *n, integer *ncvt, integer * nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt, integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__, integer *ldc, doublereal *rwork, integer *info) @@ -755,7 +755,7 @@ f"> */ doublereal cosl; integer isub, iter; doublereal unfl, sinl, cosr, smin, smax, sinr; - extern /* Subroutine */ int dlas2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlas2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal f, g, h__; integer i__, j, m; @@ -767,7 +767,7 @@ f"> */ integer maxit; doublereal sminl, sigmx; logical lower; - extern /* Subroutine */ int zlasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zlasr_(char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *), zdrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *) , zswap_(integer *, doublecomplex *, integer *, doublecomplex *, @@ -779,9 +779,10 @@ f"> */ integer ll; extern doublereal dlamch_(char *); doublereal sn, mu; - extern /* Subroutine */ int dlartg_(doublereal *, doublereal *, - doublereal *, doublereal *, doublereal *), xerbla_(char *, - integer *, ftnlen), zdscal_(integer *, doublereal *, + extern /* Subroutine */ void dlartg_(doublereal *, doublereal *, + doublereal *, doublereal *, doublereal *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal sminoa, thresh; logical rotate; @@ -839,10 +840,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZBDSQR", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } if (*n == 1) { goto L160; @@ -860,7 +861,7 @@ f"> */ /* If INFO equals 2, dqds didn't finish, try to finish */ if (*info != 2) { - return 0; + return; } *info = 0; } @@ -1484,7 +1485,7 @@ L200: /* L210: */ } L220: - return 0; + return; /* End of ZBDSQR */ diff --git a/lapack-netlib/SRC/zcgesv.c b/lapack-netlib/SRC/zcgesv.c index 0822c1069..095fa756d 100644 --- a/lapack-netlib/SRC/zcgesv.c +++ b/lapack-netlib/SRC/zcgesv.c @@ -716,7 +716,7 @@ f"> */ /* > \ingroup complex16GEsolve */ /* ===================================================================== */ -/* Subroutine */ int zcgesv_(integer *n, integer *nrhs, doublecomplex *a, +/* Subroutine */ void zcgesv_(integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, doublereal *rwork, integer *iter, integer *info) @@ -731,7 +731,7 @@ f"> */ integer ptsa; doublereal rnrm, xnrm; integer ptsx, i__, iiter; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, @@ -741,16 +741,18 @@ f"> */ doublecomplex *, integer *, complex *, integer *, integer *); extern doublereal dlamch_(char *); extern /* Subroutine */ int cgetrf_(integer *, integer *, complex *, - integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); extern /* Subroutine */ int cgetrs_(char *, integer *, integer *, complex *, integer *, integer *, complex *, integer *, integer *); extern integer izamax_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, - doublecomplex *, integer *, doublecomplex *, integer *), - zgetrf_(integer *, integer *, doublecomplex *, integer *, integer - *, integer *), zgetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, + doublecomplex *, integer *, doublecomplex *, integer *); + extern int zgetrf_(integer *, integer *, doublecomplex *, integer *, integer + *, integer *); + extern int zgetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal cte, eps; @@ -807,13 +809,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZCGESV", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if (N.EQ.0). */ if (*n == 0) { - return 0; + return; } /* Skip single precision iterative refinement if a priori slower */ @@ -902,7 +904,7 @@ f"> */ /* stopping criterion. We are good to exit. */ *iter = 0; - return 0; + return; L10: @@ -965,7 +967,7 @@ L10: *iter = iiter; - return 0; + return; L20: @@ -988,14 +990,14 @@ L40: zgetrf_(n, n, &a[a_offset], lda, &ipiv[1], info); if (*info != 0) { - return 0; + return; } zlacpy_("All", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); zgetrs_("No transpose", n, nrhs, &a[a_offset], lda, &ipiv[1], &x[x_offset] , ldx, info); - return 0; + return; /* End of ZCGESV. */ diff --git a/lapack-netlib/SRC/zcposv.c b/lapack-netlib/SRC/zcposv.c index f08d08f5a..65ae2e4dd 100644 --- a/lapack-netlib/SRC/zcposv.c +++ b/lapack-netlib/SRC/zcposv.c @@ -723,7 +723,7 @@ f"> */ /* > \ingroup complex16POsolve */ /* ===================================================================== */ -/* Subroutine */ int zcposv_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zcposv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, doublereal *rwork, integer *iter, integer *info) @@ -740,7 +740,7 @@ f"> */ integer ptsx, i__; extern logical lsame_(char *, char *); integer iiter; - extern /* Subroutine */ int zhemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhemm_(char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zlag2c_(integer *, @@ -754,11 +754,14 @@ f"> */ integer *, doublereal *); extern integer izamax_(integer *, doublecomplex *, integer *); extern /* Subroutine */ int cpotrf_(char *, integer *, complex *, integer - *, integer *), zlacpy_(char *, integer *, integer *, + *, integer *); + extern void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), cpotrs_(char *, integer *, integer *, complex *, integer *, - complex *, integer *, integer *), zpotrf_(char *, integer - *, doublecomplex *, integer *, integer *), zpotrs_(char *, + complex *, integer *, integer *); + extern int zpotrf_(char *, integer + *, doublecomplex *, integer *, integer *); + extern void zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex * , integer *, integer *); doublereal cte, eps; @@ -816,13 +819,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZCPOSV", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if (N.EQ.0). */ if (*n == 0) { - return 0; + return; } /* Skip single precision iterative refinement if a priori slower */ @@ -910,7 +913,7 @@ f"> */ /* stopping criterion. We are good to exit. */ *iter = 0; - return 0; + return; L10: @@ -972,7 +975,7 @@ L10: *iter = iiter; - return 0; + return; L20: @@ -995,13 +998,13 @@ L40: zpotrf_(uplo, n, &a[a_offset], lda, info); if (*info != 0) { - return 0; + return; } zlacpy_("All", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); zpotrs_(uplo, n, nrhs, &a[a_offset], lda, &x[x_offset], ldx, info); - return 0; + return; /* End of ZCPOSV. */ diff --git a/lapack-netlib/SRC/zdrscl.c b/lapack-netlib/SRC/zdrscl.c index 8fdcd33c4..3173319e7 100644 --- a/lapack-netlib/SRC/zdrscl.c +++ b/lapack-netlib/SRC/zdrscl.c @@ -593,15 +593,15 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, +/* Subroutine */ void zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, integer *incx) { doublereal cden; logical done; doublereal cnum, cden1, cnum1; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal bignum, smlnum, mul; @@ -622,7 +622,7 @@ f"> */ /* Function Body */ if (*n <= 0) { - return 0; + return; } /* Get machine parameters */ @@ -669,7 +669,7 @@ L10: goto L10; } - return 0; + return; /* End of ZDRSCL */ diff --git a/lapack-netlib/SRC/zgbbrd.c b/lapack-netlib/SRC/zgbbrd.c index c86383c20..e9008214a 100644 --- a/lapack-netlib/SRC/zgbbrd.c +++ b/lapack-netlib/SRC/zgbbrd.c @@ -707,7 +707,7 @@ f"> */ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc, +/* Subroutine */ void zgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc, @@ -721,13 +721,13 @@ f"> */ /* Local variables */ integer inca; doublereal abst; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); integer i__, j, l; doublecomplex t; extern logical lsame_(char *, char *); logical wantb, wantc; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer minmn; logical wantq; @@ -738,7 +738,7 @@ f"> */ doublecomplex rs; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer kb1; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlartg_(doublecomplex *, doublecomplex *, doublereal *, doublecomplex *, doublecomplex *), zlargv_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -746,7 +746,7 @@ f"> */ integer ml0; logical wantpt; integer mu0; - extern /* Subroutine */ int zlartv_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlartv_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); integer klm, kun, nrt, klu1; @@ -812,7 +812,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBBRD", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize Q and P**H to the unit matrix, if needed */ @@ -827,7 +827,7 @@ f"> */ /* Quick return if possible. */ if (*m == 0 || *n == 0) { - return 0; + return; } minmn = f2cmin(*m,*n); @@ -1236,7 +1236,7 @@ f"> */ } /* L120: */ } - return 0; + return; /* End of ZGBBRD */ diff --git a/lapack-netlib/SRC/zgbcon.c b/lapack-netlib/SRC/zgbcon.c index 4f1b1b3e8..5cac8cdef 100644 --- a/lapack-netlib/SRC/zgbcon.c +++ b/lapack-netlib/SRC/zgbcon.c @@ -659,7 +659,7 @@ f"> */ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku, +/* Subroutine */ void zgbcon_(char *norm, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer * info) @@ -678,7 +678,7 @@ f"> */ extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical lnoti; - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zlacn2_( integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); @@ -689,7 +689,7 @@ f"> */ doublereal ainvnm; extern integer izamax_(integer *, doublecomplex *, integer *); logical onenrm; - extern /* Subroutine */ int zlatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatbs_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *), zdrscl_(integer *, doublereal *, doublecomplex *, integer *); @@ -735,7 +735,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -743,9 +743,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -859,7 +859,7 @@ L10: } L40: - return 0; + return; /* End of ZGBCON */ diff --git a/lapack-netlib/SRC/zgbequ.c b/lapack-netlib/SRC/zgbequ.c index d3dfbfa8a..7c5f38723 100644 --- a/lapack-netlib/SRC/zgbequ.c +++ b/lapack-netlib/SRC/zgbequ.c @@ -662,7 +662,7 @@ f"> */ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void zgbequ_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * info) @@ -714,7 +714,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -723,7 +723,7 @@ f"> */ *rowcnd = 1.; *colcnd = 1.; *amax = 0.; - return 0; + return; } /* Get machine constants. */ @@ -784,7 +784,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.) { *info = i__; - return 0; + return; } /* L50: */ } @@ -861,7 +861,7 @@ f"> */ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -884,7 +884,7 @@ f"> */ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of ZGBEQU */ diff --git a/lapack-netlib/SRC/zgbequb.c b/lapack-netlib/SRC/zgbequb.c index a442073ae..11a14d641 100644 --- a/lapack-netlib/SRC/zgbequb.c +++ b/lapack-netlib/SRC/zgbequb.c @@ -669,7 +669,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgbequb_(integer *m, integer *n, integer *kl, integer * +/* Subroutine */ void zgbequb_(integer *m, integer *n, integer *kl, integer * ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal * c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info) @@ -721,7 +721,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -730,7 +730,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rowcnd = 1.; *colcnd = 1.; *amax = 0.; - return 0; + return; } /* Get machine constants. Assume SMLNUM is a power of the radix. */ @@ -800,7 +800,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.) { *info = i__; - return 0; + return; } /* L50: */ } @@ -880,7 +880,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -903,7 +903,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of ZGBEQUB */ diff --git a/lapack-netlib/SRC/zgbrfs.c b/lapack-netlib/SRC/zgbrfs.c index 165f7f549..a09132c43 100644 --- a/lapack-netlib/SRC/zgbrfs.c +++ b/lapack-netlib/SRC/zgbrfs.c @@ -718,7 +718,7 @@ f"> */ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer * +/* Subroutine */ void zgbrfs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex * afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, @@ -737,12 +737,12 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int zgbmv_(char *, integer *, integer *, integer * + extern /* Subroutine */ void zgbmv_(char *, integer *, integer *, integer * , integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer count; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zlacn2_( integer *, doublecomplex *, doublecomplex *, doublereal *, @@ -756,7 +756,7 @@ f"> */ logical notran; char transn[1], transt[1]; doublereal lstres; - extern /* Subroutine */ int zgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void zgbtrs_(char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -818,7 +818,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -830,7 +830,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1069,7 +1069,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZGBRFS */ diff --git a/lapack-netlib/SRC/zgbsv.c b/lapack-netlib/SRC/zgbsv.c index f7356516d..38a84cdcd 100644 --- a/lapack-netlib/SRC/zgbsv.c +++ b/lapack-netlib/SRC/zgbsv.c @@ -673,7 +673,7 @@ e driver) */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer * +/* Subroutine */ void zgbsv_(integer *n, integer *kl, integer *ku, integer * nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex * b, integer *ldb, integer *info) { @@ -681,7 +681,8 @@ e driver) */ integer ab_dim1, ab_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zgbtrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zgbtrf_( integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *), zgbtrs_(char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, @@ -726,7 +727,7 @@ e driver) */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the LU factorization of the band matrix A. */ @@ -739,7 +740,7 @@ e driver) */ zgbtrs_("No transpose", n, kl, ku, nrhs, &ab[ab_offset], ldab, &ipiv[ 1], &b[b_offset], ldb, info); } - return 0; + return; /* End of ZGBSV */ diff --git a/lapack-netlib/SRC/zgbsvx.c b/lapack-netlib/SRC/zgbsvx.c index 40cbfd0dd..5e18ae34a 100644 --- a/lapack-netlib/SRC/zgbsvx.c +++ b/lapack-netlib/SRC/zgbsvx.c @@ -881,7 +881,7 @@ f"> */ /* > \ingroup complex16GBsolve */ /* ===================================================================== */ -/* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl, +/* Subroutine */ void zgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, @@ -903,19 +903,20 @@ f"> */ doublereal rcmin, rcmax, anorm; logical equil; integer j1, j2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); doublereal colcnd; logical nofact; extern doublereal zlangb_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlaqgb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlaqgb_( integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, char *); doublereal bignum; - extern /* Subroutine */ int zgbcon_(char *, integer *, integer *, integer + extern /* Subroutine */ void zgbcon_(char *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, doublereal *, integer *); integer infequ; @@ -923,7 +924,7 @@ f"> */ extern doublereal zlantb_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal rowcnd; - extern /* Subroutine */ int zgbequ_(integer *, integer *, integer *, + extern /* Subroutine */ void zgbequ_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), zgbrfs_( char *, integer *, integer *, integer *, integer *, doublecomplex @@ -933,10 +934,10 @@ f"> */ integer *), zgbtrf_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *); logical notran; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int zgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void zgbtrs_(char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); logical rowequ; @@ -1071,7 +1072,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1186,7 +1187,7 @@ f"> */ } rwork[1] = rpvgrw; *rcond = 0.; - return 0; + return; } } @@ -1280,7 +1281,7 @@ f"> */ } rwork[1] = rpvgrw; - return 0; + return; /* End of ZGBSVX */ diff --git a/lapack-netlib/SRC/zgbsvxx.c b/lapack-netlib/SRC/zgbsvxx.c index 30f3fc231..ad6692aa0 100644 --- a/lapack-netlib/SRC/zgbsvxx.c +++ b/lapack-netlib/SRC/zgbsvxx.c @@ -1065,7 +1065,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16GBsolve */ /* ===================================================================== */ -/* Subroutine */ int zgbsvxx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void zgbsvxx_(char *fact, char *trans, integer *n, integer * kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, @@ -1091,7 +1091,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern doublereal dlamch_(char *); doublereal colcnd; logical nofact; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlaqgb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlaqgb_( integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, char *); @@ -1099,17 +1100,17 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer infequ; logical colequ; doublereal rowcnd; - extern /* Subroutine */ int zgbtrf_(integer *, integer *, integer *, + extern /* Subroutine */ void zgbtrf_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *); logical notran; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int zgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void zgbtrs_(char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); logical rowequ; - extern /* Subroutine */ int zlascl2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void zlascl2_(integer *, integer *, doublereal *, doublecomplex *, integer *), zgbequb_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *) @@ -1258,7 +1259,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1334,7 +1335,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = zla_gbrpvgrw_(n, kl, ku, info, &ab[ab_offset], ldab, & afb[afb_offset], ldafb); - return 0; + return; } } @@ -1367,7 +1368,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zlascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); } - return 0; + return; /* End of ZGBSVXX */ diff --git a/lapack-netlib/SRC/zgbtf2.c b/lapack-netlib/SRC/zgbtf2.c index 4711b23b2..b15c12d86 100644 --- a/lapack-netlib/SRC/zgbtf2.c +++ b/lapack-netlib/SRC/zgbtf2.c @@ -660,7 +660,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void zgbtf2_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, integer *info) { /* System generated locals */ @@ -669,7 +669,7 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, @@ -717,13 +717,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Gaussian elimination with partial pivoting */ @@ -816,7 +816,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of ZGBTF2 */ diff --git a/lapack-netlib/SRC/zgbtrf.c b/lapack-netlib/SRC/zgbtrf.c index a9df0d4ae..64b5d1304 100644 --- a/lapack-netlib/SRC/zgbtrf.c +++ b/lapack-netlib/SRC/zgbtrf.c @@ -659,7 +659,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void zgbtrf_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, integer *info) { /* System generated locals */ @@ -669,7 +669,7 @@ f"> */ /* Local variables */ doublecomplex temp; integer i__, j; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -677,7 +677,7 @@ f"> */ doublecomplex work13[4160] /* was [65][64] */, work31[4160] /* was [65][64] */; integer i2, i3, j2, j3, k2; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, @@ -734,13 +734,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size for this environment */ @@ -1151,7 +1151,7 @@ f"> */ } } - return 0; + return; /* End of ZGBTRF */ diff --git a/lapack-netlib/SRC/zgbtrs.c b/lapack-netlib/SRC/zgbtrs.c index f425a9514..b744ab5b6 100644 --- a/lapack-netlib/SRC/zgbtrs.c +++ b/lapack-netlib/SRC/zgbtrs.c @@ -651,7 +651,7 @@ f"> */ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer * +/* Subroutine */ void zgbtrs_(char *trans, integer *n, integer *kl, integer * ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -663,7 +663,7 @@ f"> */ integer i__, j, l; extern logical lsame_(char *, char *); logical lnoti; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, @@ -672,7 +672,8 @@ f"> */ integer *), ztbsv_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer kd, lm; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); logical notran; @@ -719,13 +720,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } kd = *ku + *kl + 1; @@ -840,7 +841,7 @@ f"> */ } } } - return 0; + return; /* End of ZGBTRS */ diff --git a/lapack-netlib/SRC/zgebak.c b/lapack-netlib/SRC/zgebak.c index 1aacc55bd..131185aec 100644 --- a/lapack-netlib/SRC/zgebak.c +++ b/lapack-netlib/SRC/zgebak.c @@ -639,7 +639,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo, +/* Subroutine */ void zgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, doublereal *scale, integer *m, doublecomplex *v, integer *ldv, integer *info) { @@ -651,10 +651,11 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); logical leftv; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ii; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); logical rightv; @@ -700,19 +701,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEBAK", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*m == 0) { - return 0; + return; } if (lsame_(job, "N")) { - return 0; + return; } if (*ilo == *ihi) { @@ -791,7 +792,7 @@ L50: } } - return 0; + return; /* End of ZGEBAK */ diff --git a/lapack-netlib/SRC/zgebal.c b/lapack-netlib/SRC/zgebal.c index 719cdf586..289e9c9a5 100644 --- a/lapack-netlib/SRC/zgebal.c +++ b/lapack-netlib/SRC/zgebal.c @@ -675,7 +675,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer +/* Subroutine */ void zgebal_(char *job, integer *n, doublecomplex *a, integer *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info) { /* System generated locals */ @@ -688,14 +688,15 @@ f"> */ integer i__, j, k, l, m; doublereal r__, s; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal sfmin1, sfmin2, sfmax1, sfmax2, ca; extern doublereal dznrm2_(integer *, doublecomplex *, integer *); doublereal ra; extern doublereal dlamch_(char *); extern logical disnan_(doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); extern integer izamax_(integer *, doublecomplex *, integer *); logical noconv; @@ -732,7 +733,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEBAL", &i__1, (ftnlen)6); - return 0; + return; } k = 1; @@ -898,7 +899,7 @@ L160: *info = -3; i__2 = -(*info); xerbla_("ZGEBAL", &i__2, (ftnlen)6); - return 0; + return; } f *= 2.; c__ *= 2.; @@ -960,7 +961,7 @@ L210: *ilo = k; *ihi = l; - return 0; + return; /* End of ZGEBAL */ diff --git a/lapack-netlib/SRC/zgebd2.c b/lapack-netlib/SRC/zgebd2.c index 556839b3b..17282ba0b 100644 --- a/lapack-netlib/SRC/zgebd2.c +++ b/lapack-netlib/SRC/zgebd2.c @@ -702,7 +702,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgebd2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *work, integer *info) { @@ -713,9 +713,11 @@ f"> */ /* Local variables */ integer i__; doublecomplex alpha; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *, doublecomplex *, + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *); @@ -753,7 +755,7 @@ f"> */ if (*info < 0) { i__1 = -(*info); xerbla_("ZGEBD2", &i__1, (ftnlen)6); - return 0; + return; } if (*m >= *n) { @@ -899,7 +901,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of ZGEBD2 */ diff --git a/lapack-netlib/SRC/zgebrd.c b/lapack-netlib/SRC/zgebrd.c index 7561c8a92..cc2d94b65 100644 --- a/lapack-netlib/SRC/zgebrd.c +++ b/lapack-netlib/SRC/zgebrd.c @@ -721,7 +721,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgebrd_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *work, integer *lwork, integer * info) @@ -733,14 +733,15 @@ f"> */ /* Local variables */ integer i__, j, nbmin, iinfo, minmn; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zgebd2_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer nb, nx, ws; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlabrd_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlabrd_( integer *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -797,9 +798,9 @@ f"> */ if (*info < 0) { i__1 = -(*info); xerbla_("ZGEBRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -807,7 +808,7 @@ f"> */ minmn = f2cmin(*m,*n); if (minmn == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } ws = f2cmax(*m,*n); @@ -912,7 +913,7 @@ f"> */ zgebd2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &d__[i__], &e[i__], & tauq[i__], &taup[i__], &work[1], &iinfo); work[1].r = (doublereal) ws, work[1].i = 0.; - return 0; + return; /* End of ZGEBRD */ diff --git a/lapack-netlib/SRC/zgecon.c b/lapack-netlib/SRC/zgecon.c index 27e4f784d..d83bcf93f 100644 --- a/lapack-netlib/SRC/zgecon.c +++ b/lapack-netlib/SRC/zgecon.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a, +/* Subroutine */ void zgecon_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex * work, doublereal *rwork, integer *info) { @@ -649,7 +649,7 @@ f"> */ doublereal scale; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); doublereal sl; @@ -659,11 +659,11 @@ f"> */ doublereal ainvnm; extern integer izamax_(integer *, doublecomplex *, integer *); logical onenrm; - extern /* Subroutine */ int zdrscl_(integer *, doublereal *, + extern /* Subroutine */ void zdrscl_(integer *, doublereal *, doublecomplex *, integer *); char normin[1]; doublereal smlnum; - extern /* Subroutine */ int zlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatrs_(char *, char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *); @@ -701,7 +701,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGECON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -709,9 +709,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -776,7 +776,7 @@ L10: } L20: - return 0; + return; /* End of ZGECON */ diff --git a/lapack-netlib/SRC/zgeequ.c b/lapack-netlib/SRC/zgeequ.c index 06805f478..b48f175c6 100644 --- a/lapack-netlib/SRC/zgeequ.c +++ b/lapack-netlib/SRC/zgeequ.c @@ -648,7 +648,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgeequ_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeequ_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info) { @@ -694,7 +694,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -703,7 +703,7 @@ f"> */ *rowcnd = 1.; *colcnd = 1.; *amax = 0.; - return 0; + return; } /* Get machine constants. */ @@ -759,7 +759,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.) { *info = i__; - return 0; + return; } /* L50: */ } @@ -830,7 +830,7 @@ f"> */ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -853,7 +853,7 @@ f"> */ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of ZGEEQU */ diff --git a/lapack-netlib/SRC/zgeequb.c b/lapack-netlib/SRC/zgeequb.c index d5f1df3cb..6b35c8994 100644 --- a/lapack-netlib/SRC/zgeequb.c +++ b/lapack-netlib/SRC/zgeequb.c @@ -655,7 +655,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgeequb_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeequb_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info) { @@ -701,7 +701,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -710,7 +710,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rowcnd = 1.; *colcnd = 1.; *amax = 0.; - return 0; + return; } /* Get machine constants. Assume SMLNUM is a power of the radix. */ @@ -775,7 +775,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (r__[i__] == 0.) { *info = i__; - return 0; + return; } /* L50: */ } @@ -850,7 +850,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (j = 1; j <= i__1; ++j) { if (c__[j] == 0.) { *info = *m + j; - return 0; + return; } /* L110: */ } @@ -873,7 +873,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *colcnd = f2cmax(rcmin,smlnum) / f2cmin(rcmax,bignum); } - return 0; + return; /* End of ZGEEQUB */ diff --git a/lapack-netlib/SRC/zgees.c b/lapack-netlib/SRC/zgees.c index 8476e3e3f..504417329 100644 --- a/lapack-netlib/SRC/zgees.c +++ b/lapack-netlib/SRC/zgees.c @@ -710,7 +710,7 @@ or GE matrices */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n, +/* Subroutine */ void zgees_(char *jobvs, char *sort, L_fp select, integer *n, doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork, doublereal *rwork, logical *bwork, integer *info) @@ -725,22 +725,23 @@ or GE matrices */ doublereal s; integer icond, ieval; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); logical scalea; extern doublereal dlamch_(char *); doublereal cscale; - extern /* Subroutine */ int zgebak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgebak_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublecomplex *, integer *, integer *), zgebal_(char *, integer *, doublecomplex *, integer *, integer *, integer *, doublereal *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void zgehrd_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, @@ -748,15 +749,15 @@ or GE matrices */ integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer minwrk, maxwrk; doublereal smlnum; - extern /* Subroutine */ int zhseqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhseqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer hswork; - extern /* Subroutine */ int zunghr_(integer *, integer *, integer *, + extern /* Subroutine */ void zunghr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); logical wantst, lquery, wantvs; - extern /* Subroutine */ int ztrsen_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ztrsen_(char *, char *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, integer *); @@ -848,16 +849,16 @@ or GE matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEES ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -975,7 +976,7 @@ or GE matrices */ } work[1].r = (doublereal) maxwrk, work[1].i = 0.; - return 0; + return; /* End of ZGEES */ diff --git a/lapack-netlib/SRC/zgeesx.c b/lapack-netlib/SRC/zgeesx.c index 72a245610..a04f05d9f 100644 --- a/lapack-netlib/SRC/zgeesx.c +++ b/lapack-netlib/SRC/zgeesx.c @@ -751,7 +751,7 @@ f"> */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char * +/* Subroutine */ void zgeesx_(char *jobvs, char *sort, L_fp select, char * sense, integer *n, doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal * rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, @@ -765,43 +765,44 @@ f"> */ doublereal anrm; integer ierr, itau, iwrk, lwrk, i__, icond, ieval; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); logical scalea; extern doublereal dlamch_(char *); doublereal cscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), zgebak_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublecomplex *, integer *, integer *), zgebal_(char *, integer *, doublecomplex *, integer *, integer *, integer *, doublereal *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void zgehrd_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); logical wantsb, wantse; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer minwrk, maxwrk; logical wantsn; doublereal smlnum; - extern /* Subroutine */ int zhseqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhseqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer hswork; - extern /* Subroutine */ int zunghr_(integer *, integer *, integer *, + extern /* Subroutine */ void zunghr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); logical wantst, lquery, wantsv, wantvs; - extern /* Subroutine */ int ztrsen_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ztrsen_(char *, char *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, integer *); @@ -910,16 +911,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEESX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1058,7 +1059,7 @@ f"> */ } work[1].r = (doublereal) maxwrk, work[1].i = 0.; - return 0; + return; /* End of ZGEESX */ diff --git a/lapack-netlib/SRC/zgeev.c b/lapack-netlib/SRC/zgeev.c index df74979fc..7034c7c5b 100644 --- a/lapack-netlib/SRC/zgeev.c +++ b/lapack-netlib/SRC/zgeev.c @@ -694,7 +694,7 @@ ices */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n, +/* Subroutine */ void zgeev_(char *jobvl, char *jobvr, integer *n, doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) @@ -711,13 +711,13 @@ ices */ doublereal anrm; integer ierr, itau, iwrk, nout, i__, k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); logical scalea; extern doublereal dlamch_(char *); doublereal cscale; - extern /* Subroutine */ int zgebak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgebak_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublecomplex *, integer *, integer *), zgebal_(char *, integer *, doublecomplex *, integer *, integer *, integer *, doublereal *, @@ -727,12 +727,12 @@ ices */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical select[1]; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal bignum; extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void zgehrd_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, @@ -742,14 +742,14 @@ ices */ logical wantvl; doublereal smlnum; integer hswork, irwork; - extern /* Subroutine */ int zhseqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhseqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunghr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); logical lquery, wantvr; integer ihi; - extern /* Subroutine */ int ztrevc3_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ztrevc3_(char *, char *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *); @@ -870,15 +870,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1115,7 +1115,7 @@ L50: } work[1].r = (doublereal) maxwrk, work[1].i = 0.; - return 0; + return; /* End of ZGEEV */ diff --git a/lapack-netlib/SRC/zgeevx.c b/lapack-netlib/SRC/zgeevx.c index d63ca4587..874b56e1d 100644 --- a/lapack-netlib/SRC/zgeevx.c +++ b/lapack-netlib/SRC/zgeevx.c @@ -801,7 +801,7 @@ f"> */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char * +/* Subroutine */ void zgeevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm, @@ -819,13 +819,13 @@ f"> */ doublereal anrm; integer ierr, itau, iwrk, nout, i__, k, icond; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); logical scalea; extern doublereal dlamch_(char *); doublereal cscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), zgebak_(char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublecomplex *, @@ -837,12 +837,12 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical select[1]; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal bignum; extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void zgehrd_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, @@ -853,11 +853,11 @@ f"> */ integer hswork; logical wntsne; doublereal smlnum; - extern /* Subroutine */ int zhseqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhseqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); logical lquery, wantvr; - extern /* Subroutine */ int ztrsna_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ztrsna_(char *, char *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *), zunghr_(integer *, integer *, integer *, @@ -865,7 +865,7 @@ f"> */ integer *, integer *); logical wntsnn, wntsnv; char job[1]; - extern /* Subroutine */ int ztrevc3_(char *, char *, logical *, integer *, + extern /* Subroutine */ void ztrevc3_(char *, char *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *); @@ -1023,15 +1023,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1291,7 +1291,7 @@ L50: } work[1].r = (doublereal) maxwrk, work[1].i = 0.; - return 0; + return; /* End of ZGEEVX */ diff --git a/lapack-netlib/SRC/zgehd2.c b/lapack-netlib/SRC/zgehd2.c index 52005e008..5ce4b504f 100644 --- a/lapack-netlib/SRC/zgehd2.c +++ b/lapack-netlib/SRC/zgehd2.c @@ -663,7 +663,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi, +/* Subroutine */ void zgehd2_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *info) { @@ -674,9 +674,11 @@ f"> */ /* Local variables */ integer i__; doublecomplex alpha; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *, doublecomplex *, + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -712,7 +714,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEHD2", &i__1, (ftnlen)6); - return 0; + return; } i__1 = *ihi - 1; @@ -749,7 +751,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of ZGEHD2 */ diff --git a/lapack-netlib/SRC/zgehrd.c b/lapack-netlib/SRC/zgehrd.c index 751f5597f..bb1bdc0db 100644 --- a/lapack-netlib/SRC/zgehrd.c +++ b/lapack-netlib/SRC/zgehrd.c @@ -685,7 +685,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi, +/* Subroutine */ void zgehrd_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *lwork, integer *info) { @@ -695,7 +695,7 @@ f"> */ /* Local variables */ integer i__, j, nbmin, iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), ztrmm_(char *, char *, char *, char *, @@ -713,7 +713,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -770,9 +770,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEHRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Set elements 1:ILO-1 and IHI:N-1 of TAU to zero */ @@ -795,7 +795,7 @@ f"> */ nh = *ihi - *ilo + 1; if (nh <= 1) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Determine the block size */ @@ -912,7 +912,7 @@ f"> */ zgehd2_(n, &i__, ihi, &a[a_offset], lda, &tau[1], &work[1], &iinfo); work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZGEHRD */ diff --git a/lapack-netlib/SRC/zgejsv.c b/lapack-netlib/SRC/zgejsv.c index 21549d400..7158ff8d7 100644 --- a/lapack-netlib/SRC/zgejsv.c +++ b/lapack-netlib/SRC/zgejsv.c @@ -1087,7 +1087,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgejsv_(char *joba, char *jobu, char *jobv, char *jobr, +/* Subroutine */ void zgejsv_(char *joba, char *jobu, char *jobv, char *jobr, char *jobt, char *jobp, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *sva, doublecomplex *u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *cwork, integer *lwork, @@ -1109,7 +1109,7 @@ f"> */ doublereal temp1; integer lwunmqrm, lwqp3, p, q; logical jracc; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer lwrk_zgesvju__, lwrk_zgesvjv__; extern logical lsame_(char *, char *); @@ -1122,23 +1122,23 @@ f"> */ doublereal epsln; logical rsvec; integer lwcon, lwlqf, lwqrf, n1; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical l2aber; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal condr1, condr2, uscal1, uscal2; logical l2kill, l2rank, l2tran, l2pert; - extern /* Subroutine */ int zgeqp3_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqp3_(integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer * , doublereal *, integer *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); integer lrwqp3; extern doublereal dlamch_(char *); integer nr; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); @@ -1147,47 +1147,47 @@ f"> */ doublereal aatmin, aatmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical noscal; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *), zlacgv_(integer *, doublecomplex *, integer *), dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *); extern integer izamax_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal entrat; logical almort; doublecomplex cdummy[1]; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); doublereal maxprj; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); logical errest; integer lrwcon; - extern /* Subroutine */ int zlapmr_(logical *, integer *, integer *, + extern /* Subroutine */ void zlapmr_(logical *, integer *, integer *, doublecomplex *, integer *, integer *); logical transp; integer minwrk, lwsvdj; - extern /* Subroutine */ int zpocon_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zpocon_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublereal *, integer *), zgesvj_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *); doublereal rdummy[1]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); logical lquery; extern /* Subroutine */ int zlaswp_(integer *, doublecomplex *, integer *, integer *, integer *, integer *, integer *); logical rowpiv; integer optwrk; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zunmlq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -1792,13 +1792,13 @@ f"> */ /* #:( */ i__1 = -(*info); xerbla_("ZGEJSV", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { cwork[1].r = (doublereal) optwrk, cwork[1].i = 0.; cwork[2].r = (doublereal) minwrk, cwork[2].i = 0.; rwork[1] = (doublereal) minrwrk; iwork[1] = f2cmax(4,miniwrk); - return 0; + return; } /* Quick return for void matrix (Y3K safe) */ @@ -1815,7 +1815,7 @@ f"> */ rwork[5] = 0.; rwork[6] = 0.; rwork[7] = 0.; - return 0; + return; } /* Determine whether the matrix U should be M x N or M x M */ @@ -1855,7 +1855,7 @@ f"> */ *info = -9; i__2 = -(*info); xerbla_("ZGEJSV", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscal) { @@ -1917,7 +1917,7 @@ f"> */ iwork[2] = 0; iwork[3] = 0; iwork[4] = -1; - return 0; + return; } /* Issue warning if denormalized column norms detected. Override the */ @@ -1984,7 +1984,7 @@ f"> */ rwork[6] = 0.; rwork[7] = 0.; } - return 0; + return; } @@ -3554,6 +3554,6 @@ L3302: iwork[4] = -1; } - return 0; + return; } /* zgejsv_ */ diff --git a/lapack-netlib/SRC/zgelq.c b/lapack-netlib/SRC/zgelq.c index 6bab26869..f876c6ed0 100644 --- a/lapack-netlib/SRC/zgelq.c +++ b/lapack-netlib/SRC/zgelq.c @@ -681,7 +681,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgelq_(integer *m, integer *n, doublecomplex *a, integer +/* Subroutine */ void zgelq_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *t, integer *tsize, doublecomplex *work, integer * lwork, integer *info) { @@ -694,12 +694,12 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zgelqt_(integer *, integer *, integer *, + extern /* Subroutine */ void zgelqt_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical lminws, lquery; integer mintsz; - extern /* Subroutine */ int zlaswlq_(integer *, integer *, integer *, + extern /* Subroutine */ void zlaswlq_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -840,15 +840,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("ZGELQ", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The LQ Decomposition */ @@ -862,7 +862,7 @@ static integer c__2 = 2; work[1].r = (doublereal) lwreq, work[1].i = 0.; - return 0; + return; /* End of ZGELQ */ diff --git a/lapack-netlib/SRC/zgelq2.c b/lapack-netlib/SRC/zgelq2.c index ec413aaed..b9dc8893b 100644 --- a/lapack-netlib/SRC/zgelq2.c +++ b/lapack-netlib/SRC/zgelq2.c @@ -639,7 +639,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgelq2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info) { /* System generated locals */ @@ -648,9 +648,11 @@ f"> */ /* Local variables */ integer i__, k; doublecomplex alpha; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *, doublecomplex *, + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *); @@ -685,7 +687,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGELQ2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -721,7 +723,7 @@ f"> */ zlacgv_(&i__2, &a[i__ + i__ * a_dim1], lda); /* L10: */ } - return 0; + return; /* End of ZGELQ2 */ diff --git a/lapack-netlib/SRC/zgelqf.c b/lapack-netlib/SRC/zgelqf.c index a850007d6..4373e4616 100644 --- a/lapack-netlib/SRC/zgelqf.c +++ b/lapack-netlib/SRC/zgelqf.c @@ -659,7 +659,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgelqf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info) { @@ -668,18 +668,18 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int zgelq2_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelq2_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer ib, nb, nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; @@ -724,9 +724,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGELQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -734,7 +734,7 @@ f"> */ k = f2cmin(*m,*n); if (k == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } nbmin = 2; @@ -819,7 +819,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZGELQF */ diff --git a/lapack-netlib/SRC/zgelqt.c b/lapack-netlib/SRC/zgelqt.c index 8af0c94f6..e9bc1f855 100644 --- a/lapack-netlib/SRC/zgelqt.c +++ b/lapack-netlib/SRC/zgelqt.c @@ -648,7 +648,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgelqt_(integer *m, integer *n, integer *mb, +/* Subroutine */ void zgelqt_(integer *m, integer *n, integer *mb, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, doublecomplex *work, integer *info) { @@ -657,7 +657,8 @@ f"> */ /* Local variables */ integer i__, k, iinfo, ib; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlarfb_( char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgelqt3_(integer *, integer *, @@ -701,14 +702,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGELQT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ k = f2cmin(*m,*n); if (k == 0) { - return 0; + return; } /* Blocked loop of length K */ @@ -737,7 +738,7 @@ f"> */ i__ * a_dim1], lda, &work[1], &i__5); } } - return 0; + return; /* End of ZGELQT */ diff --git a/lapack-netlib/SRC/zgelqt3.c b/lapack-netlib/SRC/zgelqt3.c index 6b5b95ee3..6732698c1 100644 --- a/lapack-netlib/SRC/zgelqt3.c +++ b/lapack-netlib/SRC/zgelqt3.c @@ -645,7 +645,7 @@ ompact WY representation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgelqt3_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgelqt3_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, integer *info) { /* System generated locals */ @@ -654,15 +654,16 @@ ompact WY representation of Q. */ /* Local variables */ integer i__, j, iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer i1, j1, m1, m2; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -697,7 +698,7 @@ ompact WY representation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGELQT3", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 1) { @@ -811,7 +812,7 @@ ompact WY representation of Q. */ } - return 0; + return; /* End of ZGELQT3 */ diff --git a/lapack-netlib/SRC/zgels.c b/lapack-netlib/SRC/zgels.c index c8723aefa..fdc1da60a 100644 --- a/lapack-netlib/SRC/zgels.c +++ b/lapack-netlib/SRC/zgels.c @@ -697,7 +697,7 @@ static integer c__0 = 0; /* > \ingroup complex16GEsolve */ /* ===================================================================== */ -/* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void zgels_(char *trans, integer *m, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -713,7 +713,7 @@ static integer c__0 = 0; extern logical lsame_(char *, char *); integer wsize; doublereal rwork[1]; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer nb; extern doublereal dlamch_(char *); integer mn; @@ -724,7 +724,7 @@ static integer c__0 = 0; doublereal bignum; extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zgeqrf_(integer *, integer *, doublecomplex *, integer *, @@ -733,11 +733,12 @@ static integer c__0 = 0; doublecomplex *, integer *); doublereal smlnum; logical lquery; - extern /* Subroutine */ int zunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmlq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, - doublecomplex *, integer *, doublecomplex *, integer *, integer *), ztrtrs_(char *, char *, char *, integer *, + doublecomplex *, integer *, doublecomplex *, integer *, integer *); + extern int ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -840,9 +841,9 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("ZGELS ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -852,7 +853,7 @@ static integer c__0 = 0; if (f2cmin(i__1,*nrhs) == 0) { i__1 = f2cmax(*m,*n); zlaset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); - return 0; + return; } /* Get machine parameters */ @@ -939,7 +940,7 @@ static integer c__0 = 0; , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; @@ -954,7 +955,7 @@ static integer c__0 = 0; a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* B(N+1:M,1:NRHS) = ZERO */ @@ -1002,7 +1003,7 @@ static integer c__0 = 0; , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* B(M+1:N,1:NRHS) = 0 */ @@ -1047,7 +1048,7 @@ static integer c__0 = 0; a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1077,7 +1078,7 @@ L50: d__1 = (doublereal) wsize; work[1].r = d__1, work[1].i = 0.; - return 0; + return; /* End of ZGELS */ diff --git a/lapack-netlib/SRC/zgelsd.c b/lapack-netlib/SRC/zgelsd.c index cefb14810..f101cb3f0 100644 --- a/lapack-netlib/SRC/zgelsd.c +++ b/lapack-netlib/SRC/zgelsd.c @@ -744,7 +744,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int zgelsd_(integer *m, integer *n, integer *nrhs, +/* Subroutine */ void zgelsd_(integer *m, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, integer *lwork, doublereal *rwork, integer *iwork, integer *info) @@ -757,15 +757,16 @@ f"> */ integer itau, nlvl, iascl, ibscl; doublereal sfmin; integer minmn, maxmn, itaup, itauq, mnthr, nwork; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer ie, il; extern doublereal dlamch_(char *); integer mm; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer - *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), zgebrd_(integer *, integer *, + *, doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zgebrd_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, integer *); @@ -774,7 +775,7 @@ f"> */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zlalsd_(char *, integer *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *, @@ -783,20 +784,20 @@ f"> */ integer *, integer *, doublecomplex *, integer *, integer *), zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer ldwork; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer liwork, minwrk, maxwrk; doublereal smlnum; - extern /* Subroutine */ int zunmbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zunmbr_(char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ); integer lrwork; logical lquery; integer nrwork, smlsiz; - extern /* Subroutine */ int zunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmlq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -1002,16 +1003,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGELSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters. */ @@ -1307,7 +1308,7 @@ L10: work[1].r = (doublereal) maxwrk, work[1].i = 0.; iwork[1] = liwork; rwork[1] = (doublereal) lrwork; - return 0; + return; /* End of ZGELSD */ diff --git a/lapack-netlib/SRC/zgelss.c b/lapack-netlib/SRC/zgelss.c index c13d2a0e5..573963478 100644 --- a/lapack-netlib/SRC/zgelss.c +++ b/lapack-netlib/SRC/zgelss.c @@ -696,7 +696,7 @@ f"> */ /* > \ingroup complex16GEsolve */ /* ===================================================================== */ -/* Subroutine */ int zgelss_(integer *m, integer *n, integer *nrhs, +/* Subroutine */ void zgelss_(integer *m, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) @@ -712,25 +712,26 @@ f"> */ chunk, lwork_zunmqr__; doublereal sfmin; integer minmn; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer maxmn, itaup, itauq, mnthr; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer iwork; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); integer bl, ie, il; extern doublereal dlamch_(char *); integer mm; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer - *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), zgebrd_(integer *, integer *, + *, doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zgebrd_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, integer *); @@ -739,14 +740,14 @@ f"> */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zdrscl_( integer *, doublereal *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zbdsqr_( @@ -754,17 +755,17 @@ f"> */ doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *); integer minwrk, maxwrk; - extern /* Subroutine */ int zungbr_(char *, integer *, integer *, integer + extern /* Subroutine */ void zungbr_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal smlnum; integer irwork; - extern /* Subroutine */ int zunmbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zunmbr_(char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ); logical lquery; - extern /* Subroutine */ int zunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmlq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -969,16 +970,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGELSS", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters */ @@ -1437,7 +1438,7 @@ f"> */ } L70: work[1].r = (doublereal) maxwrk, work[1].i = 0.; - return 0; + return; /* End of ZGELSS */ diff --git a/lapack-netlib/SRC/zgelst.c b/lapack-netlib/SRC/zgelst.c index 447cd30bb..88e0dcc9c 100644 --- a/lapack-netlib/SRC/zgelst.c +++ b/lapack-netlib/SRC/zgelst.c @@ -710,7 +710,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zgelst_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void zgelst_(char *trans, integer *m, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -727,34 +727,35 @@ f"> */ integer nbmin; doublereal rwork[1]; integer lwopt; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer nb; extern doublereal dlamch_(char *); integer mn; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer scllen; doublereal bignum; extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zlascl_(char *, integer *, integer *, + extern /* Subroutine */ void zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer mnnrhs; - extern /* Subroutine */ int zgelqt_(integer *, integer *, integer *, + extern /* Subroutine */ void zgelqt_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int zgeqrt_(integer *, integer *, integer *, + extern /* Subroutine */ void zgeqrt_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical lquery; extern /* Subroutine */ int ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, - integer *), zgemlqt_(char *, char *, + integer *); + extern void zgemlqt_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgemqrt_(char *, @@ -833,10 +834,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("ZGELST ", &i__1); - return 0; + xerbla_("ZGELST ", &i__1, 6); + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -848,7 +849,7 @@ f"> */ zlaset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); d__1 = (doublereal) lwopt; work[1].r = d__1, work[1].i = 0.; - return 0; + return; } /* *GEQRT and *GELQT routines cannot accept NB larger than f2cmin(M,N) */ @@ -908,7 +909,7 @@ f"> */ zlaset_("Full", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); d__1 = (doublereal) lwopt; work[1].r = d__1, work[1].i = 0.; - return 0; + return; } brow = *m; @@ -963,7 +964,7 @@ f"> */ , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; @@ -982,7 +983,7 @@ f"> */ a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* Block 2: Zero out all rows below the N-th row in B: */ @@ -1033,7 +1034,7 @@ f"> */ , lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } /* Block 2: Zero out all rows below the M-th row in B: */ @@ -1078,7 +1079,7 @@ f"> */ a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1107,7 +1108,7 @@ f"> */ d__1 = (doublereal) lwopt; work[1].r = d__1, work[1].i = 0.; - return 0; + return; /* End of ZGELST */ diff --git a/lapack-netlib/SRC/zgelsy.c b/lapack-netlib/SRC/zgelsy.c index ef3242ab1..673ea76c8 100644 --- a/lapack-netlib/SRC/zgelsy.c +++ b/lapack-netlib/SRC/zgelsy.c @@ -727,7 +727,7 @@ f"> */ /* > G. Quintana-Orti, Depto. de Informatica, Universidad Jaime I, Spain \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs, +/* Subroutine */ void zgelsy_(integer *m, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) @@ -743,7 +743,7 @@ f"> */ doublecomplex c1, c2; doublereal wsize; doublecomplex s1, s2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char * , integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), @@ -762,16 +762,16 @@ f"> */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zlascl_(char *, integer *, integer *, + extern /* Subroutine */ void zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); integer nb1, nb2, nb3, nb4; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); doublereal sminpr, smaxpr, smlnum; integer lwkopt; logical lquery; - extern /* Subroutine */ int zunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrz_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -853,9 +853,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGELSY", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -864,7 +864,7 @@ f"> */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*nrhs) == 0) { *rank = 0; - return 0; + return; } /* Get machine parameters */ @@ -1081,7 +1081,7 @@ L70: z__1.r = (doublereal) lwkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGELSY */ diff --git a/lapack-netlib/SRC/zgemlq.c b/lapack-netlib/SRC/zgemlq.c index 6ecb8e0a0..dc1616d7a 100644 --- a/lapack-netlib/SRC/zgemlq.c +++ b/lapack-netlib/SRC/zgemlq.c @@ -673,7 +673,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgemlq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zgemlq_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *t, integer *tsize, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -683,7 +683,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ logical left, tran; - extern /* Subroutine */ int zlamswlq_(char *, char *, integer *, integer * + extern /* Subroutine */ void zlamswlq_(char *, char *, integer *, integer * , integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -692,7 +692,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer mb, nb, mn, lw, nblcks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; - extern /* Subroutine */ int zgemlqt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemlqt_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -774,9 +774,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEMLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -784,7 +784,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -800,7 +800,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ work[1].r = (doublereal) lw, work[1].i = 0.; - return 0; + return; /* End of ZGEMLQ */ diff --git a/lapack-netlib/SRC/zgemlqt.c b/lapack-netlib/SRC/zgemlqt.c index ed9d9db35..2487a49b0 100644 --- a/lapack-netlib/SRC/zgemlqt.c +++ b/lapack-netlib/SRC/zgemlqt.c @@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup doubleGEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgemlqt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zgemlqt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *mb, doublecomplex *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info) @@ -691,7 +691,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, kf; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlarfb_( char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -756,12 +757,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEMLQT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran) { @@ -822,7 +823,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of ZGEMLQT */ diff --git a/lapack-netlib/SRC/zgemqr.c b/lapack-netlib/SRC/zgemqr.c index 24744b593..600c94145 100644 --- a/lapack-netlib/SRC/zgemqr.c +++ b/lapack-netlib/SRC/zgemqr.c @@ -675,7 +675,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgemqr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zgemqr_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *t, integer *tsize, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -685,7 +685,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ logical left, tran; - extern /* Subroutine */ int zlamtsqr_(char *, char *, integer *, integer * + extern /* Subroutine */ void zlamtsqr_(char *, char *, integer *, integer * , integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -694,7 +694,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer mb, nb, mn, lw, nblcks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; - extern /* Subroutine */ int zgemqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemqrt_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -776,9 +776,9 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEMQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -786,7 +786,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -802,7 +802,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ work[1].r = (doublereal) lw, work[1].i = 0.; - return 0; + return; /* End of ZGEMQR */ diff --git a/lapack-netlib/SRC/zgemqrt.c b/lapack-netlib/SRC/zgemqrt.c index 7b1f9fd70..0ac74d4c5 100644 --- a/lapack-netlib/SRC/zgemqrt.c +++ b/lapack-netlib/SRC/zgemqrt.c @@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgemqrt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zgemqrt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *nb, doublecomplex *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info) @@ -691,7 +691,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); logical right; integer ib, kf; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlarfb_( char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -758,12 +759,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEMQRT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && tran) { @@ -824,7 +825,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of ZGEMQRT */ diff --git a/lapack-netlib/SRC/zgeql2.c b/lapack-netlib/SRC/zgeql2.c index 5040dc9a5..b62412cfe 100644 --- a/lapack-netlib/SRC/zgeql2.c +++ b/lapack-netlib/SRC/zgeql2.c @@ -637,7 +637,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeql2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info) { /* System generated locals */ @@ -647,9 +647,11 @@ f"> */ /* Local variables */ integer i__, k; doublecomplex alpha; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *, doublecomplex *, + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -683,7 +685,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQL2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -712,7 +714,7 @@ f"> */ a[i__1].r = alpha.r, a[i__1].i = alpha.i; /* L10: */ } - return 0; + return; /* End of ZGEQL2 */ diff --git a/lapack-netlib/SRC/zgeqlf.c b/lapack-netlib/SRC/zgeqlf.c index 9ad9262d5..b562fc9a2 100644 --- a/lapack-netlib/SRC/zgeqlf.c +++ b/lapack-netlib/SRC/zgeqlf.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeqlf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info) { @@ -663,18 +663,18 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int zgeql2_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeql2_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer ib, nb, ki, kk, mu, nu, nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; @@ -730,15 +730,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQLF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } nbmin = 2; @@ -830,7 +830,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZGEQLF */ diff --git a/lapack-netlib/SRC/zgeqp3.c b/lapack-netlib/SRC/zgeqp3.c index 36a1460be..f2b957e7a 100644 --- a/lapack-netlib/SRC/zgeqp3.c +++ b/lapack-netlib/SRC/zgeqp3.c @@ -674,7 +674,7 @@ f"> */ /* > X. Sun, Computer Science Dept., Duke University, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeqp3_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) { @@ -684,7 +684,7 @@ f"> */ /* Local variables */ integer nfxd, j, nbmin, minmn, minws; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaqp2_(integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, doublereal *, doublereal *, doublecomplex *); @@ -694,17 +694,17 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); integer topbmn, sminmn; - extern /* Subroutine */ int zlaqps_(integer *, integer *, integer *, + extern /* Subroutine */ void zlaqps_(integer *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int zunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer fjb, iws; @@ -764,9 +764,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQP3", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Move initial columns up front. */ @@ -922,7 +922,7 @@ L30: z__1.r = (doublereal) lwkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGEQP3 */ diff --git a/lapack-netlib/SRC/zgeqr.c b/lapack-netlib/SRC/zgeqr.c index 11577befb..93af2ac2b 100644 --- a/lapack-netlib/SRC/zgeqr.c +++ b/lapack-netlib/SRC/zgeqr.c @@ -683,7 +683,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqr_(integer *m, integer *n, doublecomplex *a, integer +/* Subroutine */ void zgeqr_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *t, integer *tsize, doublecomplex *work, integer * lwork, integer *info) { @@ -697,12 +697,12 @@ static integer c__2 = 2; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical lminws; - extern /* Subroutine */ int zgeqrt_(integer *, integer *, integer *, + extern /* Subroutine */ void zgeqrt_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical lquery; integer mintsz; - extern /* Subroutine */ int zlatsqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zlatsqr_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -831,15 +831,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQR", &i__1, (ftnlen)5); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The QR Decomposition */ @@ -856,7 +856,7 @@ static integer c__2 = 2; i__1 = f2cmax(i__2,i__3); work[1].r = (doublereal) i__1, work[1].i = 0.; - return 0; + return; /* End of ZGEQR */ diff --git a/lapack-netlib/SRC/zgeqr2.c b/lapack-netlib/SRC/zgeqr2.c index ae4783eae..cf368ad46 100644 --- a/lapack-netlib/SRC/zgeqr2.c +++ b/lapack-netlib/SRC/zgeqr2.c @@ -644,7 +644,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeqr2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info) { /* System generated locals */ @@ -654,9 +654,11 @@ f"> */ /* Local variables */ integer i__, k; doublecomplex alpha; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *, doublecomplex *, + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -690,7 +692,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQR2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -723,7 +725,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of ZGEQR2 */ diff --git a/lapack-netlib/SRC/zgeqr2p.c b/lapack-netlib/SRC/zgeqr2p.c index 38901a4f9..4e409ec78 100644 --- a/lapack-netlib/SRC/zgeqr2p.c +++ b/lapack-netlib/SRC/zgeqr2p.c @@ -648,7 +648,7 @@ l elements using an unblocked algorithm. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqr2p_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeqr2p_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info) { /* System generated locals */ @@ -658,9 +658,11 @@ l elements using an unblocked algorithm. */ /* Local variables */ integer i__, k; doublecomplex alpha; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen), zlarfgp_(integer *, doublecomplex *, doublecomplex *, + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfgp_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -694,7 +696,7 @@ l elements using an unblocked algorithm. */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQR2P", &i__1, (ftnlen)7); - return 0; + return; } k = f2cmin(*m,*n); @@ -727,7 +729,7 @@ l elements using an unblocked algorithm. */ } /* L10: */ } - return 0; + return; /* End of ZGEQR2P */ diff --git a/lapack-netlib/SRC/zgeqrf.c b/lapack-netlib/SRC/zgeqrf.c index 9bfe34428..9f2facb99 100644 --- a/lapack-netlib/SRC/zgeqrf.c +++ b/lapack-netlib/SRC/zgeqrf.c @@ -661,7 +661,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeqrf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info) { @@ -670,18 +670,18 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int zgeqr2_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqr2_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer ib, nb, nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; @@ -726,9 +726,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -736,7 +736,7 @@ f"> */ k = f2cmin(*m,*n); if (k == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } nbmin = 2; @@ -821,7 +821,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZGEQRF */ diff --git a/lapack-netlib/SRC/zgeqrfp.c b/lapack-netlib/SRC/zgeqrfp.c index 0f2a95543..5432a10a3 100644 --- a/lapack-netlib/SRC/zgeqrfp.c +++ b/lapack-netlib/SRC/zgeqrfp.c @@ -665,7 +665,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqrfp_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeqrfp_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info) { @@ -677,17 +677,17 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int zgeqr2p_(integer *, integer *, doublecomplex * + extern /* Subroutine */ void zgeqr2p_(integer *, integer *, doublecomplex * , integer *, doublecomplex *, doublecomplex *, integer *); integer iws; @@ -729,9 +729,9 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQRFP", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -739,7 +739,7 @@ static integer c__2 = 2; k = f2cmin(*m,*n); if (k == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } nbmin = 2; @@ -824,7 +824,7 @@ static integer c__2 = 2; } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZGEQRFP */ diff --git a/lapack-netlib/SRC/zgeqrt.c b/lapack-netlib/SRC/zgeqrt.c index 005d01be1..c3919be55 100644 --- a/lapack-netlib/SRC/zgeqrt.c +++ b/lapack-netlib/SRC/zgeqrt.c @@ -650,7 +650,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqrt_(integer *m, integer *n, integer *nb, +/* Subroutine */ void zgeqrt_(integer *m, integer *n, integer *nb, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, doublecomplex *work, integer *info) { @@ -659,7 +659,8 @@ f"> */ /* Local variables */ integer i__, k, iinfo, ib; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlarfb_( char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgeqrt2_(integer *, integer *, @@ -704,14 +705,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ k = f2cmin(*m,*n); if (k == 0) { - return 0; + return; } /* Blocked loop of length K */ @@ -746,7 +747,7 @@ f"> */ ib) * a_dim1], lda, &work[1], &i__5); } } - return 0; + return; /* End of ZGEQRT */ diff --git a/lapack-netlib/SRC/zgeqrt2.c b/lapack-netlib/SRC/zgeqrt2.c index b39411478..847db1b82 100644 --- a/lapack-netlib/SRC/zgeqrt2.c +++ b/lapack-netlib/SRC/zgeqrt2.c @@ -643,7 +643,7 @@ presentation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqrt2_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeqrt2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, integer *info) { /* System generated locals */ @@ -653,14 +653,15 @@ presentation of Q. */ /* Local variables */ integer i__, k; doublecomplex alpha; - extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), ztrmv_(char *, char *, char *, integer *, doublecomplex *, - integer *, doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, + integer *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); doublecomplex aii; @@ -698,7 +699,7 @@ presentation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQRT2", &i__1, (ftnlen)7); - return 0; + return; } k = f2cmin(*m,*n); @@ -780,6 +781,6 @@ presentation of Q. */ /* End of ZGEQRT2 */ - return 0; + return; } /* zgeqrt2_ */ diff --git a/lapack-netlib/SRC/zgeqrt3.c b/lapack-netlib/SRC/zgeqrt3.c index d9e957d6c..020558deb 100644 --- a/lapack-netlib/SRC/zgeqrt3.c +++ b/lapack-netlib/SRC/zgeqrt3.c @@ -647,7 +647,7 @@ ompact WY representation of Q. */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgeqrt3_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgeqrt3_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, integer *info) { /* System generated locals */ @@ -656,15 +656,16 @@ ompact WY representation of Q. */ /* Local variables */ integer i__, j, iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer i1, j1, n1, n2; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -699,7 +700,7 @@ ompact WY representation of Q. */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGEQRT3", &i__1, (ftnlen)7); - return 0; + return; } if (*n == 1) { @@ -809,7 +810,7 @@ ompact WY representation of Q. */ } - return 0; + return; /* End of ZGEQRT3 */ diff --git a/lapack-netlib/SRC/zgerfs.c b/lapack-netlib/SRC/zgerfs.c index b2d308e58..a53dd4f8f 100644 --- a/lapack-netlib/SRC/zgerfs.c +++ b/lapack-netlib/SRC/zgerfs.c @@ -699,7 +699,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void zgerfs_(char *trans, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, @@ -718,7 +718,7 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3], count; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, @@ -792,7 +792,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGERFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -804,7 +804,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1030,7 +1030,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZGERFS */ diff --git a/lapack-netlib/SRC/zgerq2.c b/lapack-netlib/SRC/zgerq2.c index 97805c94f..ccafd6293 100644 --- a/lapack-netlib/SRC/zgerq2.c +++ b/lapack-netlib/SRC/zgerq2.c @@ -633,7 +633,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgerq2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info) { /* System generated locals */ @@ -642,9 +642,11 @@ f"> */ /* Local variables */ integer i__, k; doublecomplex alpha; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *, doublecomplex *, + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *); @@ -679,7 +681,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGERQ2", &i__1, (ftnlen)6); - return 0; + return; } k = f2cmin(*m,*n); @@ -710,7 +712,7 @@ f"> */ zlacgv_(&i__1, &a[*m - k + i__ + a_dim1], lda); /* L10: */ } - return 0; + return; /* End of ZGERQ2 */ diff --git a/lapack-netlib/SRC/zgerqf.c b/lapack-netlib/SRC/zgerqf.c index 8caf1cead..840416f50 100644 --- a/lapack-netlib/SRC/zgerqf.c +++ b/lapack-netlib/SRC/zgerqf.c @@ -654,7 +654,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgerqf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info) { @@ -663,18 +663,18 @@ f"> */ /* Local variables */ integer i__, k, nbmin, iinfo; - extern /* Subroutine */ int zgerq2_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgerq2_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer ib, nb, ki, kk, mu, nu, nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; @@ -730,15 +730,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGERQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (k == 0) { - return 0; + return; } nbmin = 2; @@ -829,7 +829,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZGERQF */ diff --git a/lapack-netlib/SRC/zgesc2.c b/lapack-netlib/SRC/zgesc2.c index e88073766..ae7884dd7 100644 --- a/lapack-netlib/SRC/zgesc2.c +++ b/lapack-netlib/SRC/zgesc2.c @@ -631,7 +631,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda, +/* Subroutine */ void zgesc2_(integer *n, doublecomplex *a, integer *lda, doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ /* Local variables */ doublecomplex temp; integer i__, j; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); doublereal bignum; @@ -746,7 +746,7 @@ f"> */ i__1 = *n - 1; zlaswp_(&c__1, &rhs[1], lda, &c__1, &i__1, &jpiv[1], &c_n1); - return 0; + return; /* End of ZGESC2 */ diff --git a/lapack-netlib/SRC/zgesdd.c b/lapack-netlib/SRC/zgesdd.c index b081ed482..898d5c87a 100644 --- a/lapack-netlib/SRC/zgesdd.c +++ b/lapack-netlib/SRC/zgesdd.c @@ -742,7 +742,7 @@ f"> */ /* > California at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgesdd_(char *jobz, integer *m, integer *n, +/* Subroutine */ void zgesdd_(char *jobz, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, integer *lwork, doublereal *rwork, integer *iwork, integer *info) @@ -764,7 +764,7 @@ f"> */ lwork_zunmbr_qln_nn__, i__; extern logical lsame_(char *, char *); integer chunk, minmn; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -772,29 +772,29 @@ f"> */ logical wntqa; integer nwork; logical wntqn, wntqo, wntqs; - extern /* Subroutine */ int zlacp2_(char *, integer *, integer *, + extern /* Subroutine */ void zlacp2_(char *, integer *, integer *, doublereal *, integer *, doublecomplex *, integer *); integer mnthr1, mnthr2, ie; - extern /* Subroutine */ int dbdsdc_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dbdsdc_(char *, char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer il; extern doublereal dlamch_(char *); integer ir, iu; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer lwork_zungbr_p_mn__, lwork_zungbr_p_nn__, lwork_zungbr_q_mn__, lwork_zungbr_q_mm__; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int zgebrd_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgebrd_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, integer *); extern logical disnan_(doublereal *); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zlacrm_(integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, doublecomplex *, integer *, doublereal *) @@ -806,18 +806,18 @@ f"> */ integer *, doublecomplex *, doublecomplex *, integer *, integer * ); integer ldwrkl; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer ldwrkr, minwrk, ldwrku, maxwrk; - extern /* Subroutine */ int zungbr_(char *, integer *, integer *, integer + extern /* Subroutine */ void zungbr_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer ldwkvt; doublereal smlnum; logical wntqas; - extern /* Subroutine */ int zunmbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zunmbr_(char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ), zunglq_(integer *, integer *, integer * @@ -825,7 +825,7 @@ f"> */ integer *, integer *); logical lquery; integer nrwork; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer blk; @@ -1285,15 +1285,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGESDD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1307,7 +1307,7 @@ f"> */ anrm = zlange_("M", m, n, &a[a_offset], lda, dum); if (disnan_(&anrm)) { *info = -4; - return 0; + return; } iscl = 0; if (anrm > 0. && anrm < smlnum) { @@ -2969,7 +2969,7 @@ f"> */ work[1].r = (doublereal) maxwrk, work[1].i = 0.; - return 0; + return; /* End of ZGESDD */ diff --git a/lapack-netlib/SRC/zgesv.c b/lapack-netlib/SRC/zgesv.c index ead824bc1..53813cd01 100644 --- a/lapack-netlib/SRC/zgesv.c +++ b/lapack-netlib/SRC/zgesv.c @@ -640,7 +640,8 @@ iver) */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zgetrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zgetrf_( integer *, integer *, doublecomplex *, integer *, integer *, integer *), zgetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); diff --git a/lapack-netlib/SRC/zgesvd.c b/lapack-netlib/SRC/zgesvd.c index 45769457f..0d1670357 100644 --- a/lapack-netlib/SRC/zgesvd.c +++ b/lapack-netlib/SRC/zgesvd.c @@ -732,7 +732,7 @@ f"> */ /* > \ingroup complex16GEsing */ /* ===================================================================== */ -/* Subroutine */ int zgesvd_(char *jobu, char *jobvt, integer *m, integer *n, +/* Subroutine */ void zgesvd_(char *jobu, char *jobvt, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) @@ -751,7 +751,7 @@ f"> */ lwork_zgeqrf__; extern logical lsame_(char *, char *); integer chunk, minmn; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -760,10 +760,11 @@ f"> */ integer ie; extern doublereal dlamch_(char *); integer ir, iu; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, - integer *, integer *), xerbla_(char *, integer *, ftnlen), - zgebrd_(integer *, integer *, doublecomplex *, integer *, + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zgebrd_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, integer *); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, @@ -771,7 +772,7 @@ f"> */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zgeqrf_(integer *, integer *, doublecomplex *, integer *, @@ -781,24 +782,24 @@ f"> */ integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer ldwrkr; - extern /* Subroutine */ int zbdsqr_(char *, integer *, integer *, integer + extern /* Subroutine */ void zbdsqr_(char *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *); integer minwrk, ldwrku, maxwrk; - extern /* Subroutine */ int zungbr_(char *, integer *, integer *, integer + extern /* Subroutine */ void zungbr_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal smlnum; integer irwork; - extern /* Subroutine */ int zunmbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zunmbr_(char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ), zunglq_(integer *, integer *, integer * , doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); logical lquery, wntuas, wntvas; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer blk, lwork_zungbr_p__, lwork_zungbr_q__, ncu; @@ -1338,15 +1339,15 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("ZGESVD", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Get machine constants */ @@ -4722,7 +4723,7 @@ f"> */ work[1].r = (doublereal) maxwrk, work[1].i = 0.; - return 0; + return; /* End of ZGESVD */ diff --git a/lapack-netlib/SRC/zgesvdq.c b/lapack-netlib/SRC/zgesvdq.c index 21855194a..ea91ef269 100644 --- a/lapack-netlib/SRC/zgesvdq.c +++ b/lapack-netlib/SRC/zgesvdq.c @@ -932,7 +932,7 @@ static logical c_false = FALSE_; /* > \ingroup complex16GEsing */ /* ===================================================================== */ -/* Subroutine */ int zgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, +/* Subroutine */ void zgesvdq_(char *joba, char *jobp, char *jobr, char *jobu, char *jobv, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, integer *ldu, doublecomplex *v, integer *ldv, integer *numrank, integer *iwork, integer *liwork, @@ -967,30 +967,31 @@ static logical c_false = FALSE_; logical dntwu, dntwv, wntuf, wntva; integer lwunq; logical wntur, wntus, wntvr; - extern /* Subroutine */ int zgeqp3_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqp3_(integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer * , doublereal *, integer *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); integer lwsvd2, lwunq2; extern doublereal dlamch_(char *); integer nr; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); doublereal sconda; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, - doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *, ftnlen), zdscal_(integer *, doublereal + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, + doublereal *, doublereal *, doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zdscal_(integer *, doublereal *, doublecomplex *, integer *); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); doublecomplex cdummy[1]; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zgesvd_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *, @@ -1001,7 +1002,7 @@ static logical c_false = FALSE_; doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer minwrk; logical rtrans; - extern /* Subroutine */ int zlapmt_(logical *, integer *, integer *, + extern /* Subroutine */ void zlapmt_(logical *, integer *, integer *, doublecomplex *, integer *, integer *), zpocon_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublereal *, integer *); @@ -1012,7 +1013,7 @@ static logical c_false = FALSE_; integer *, integer *, integer *, integer *); integer optwrk; logical rowprm; - extern /* Subroutine */ int zunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmlq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -1386,7 +1387,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); xerbla_("ZGESVDQ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { /* Return optimal workspace */ @@ -1395,13 +1396,13 @@ static logical c_false = FALSE_; cwork[1].r = (doublereal) optwrk, cwork[1].i = 0.; cwork[2].r = (doublereal) minwrk, cwork[2].i = 0.; rwork[1] = (doublereal) rminwrk; - return 0; + return; } /* Quick return if the matrix is void. */ if (*m == 0 || *n == 0) { - return 0; + return; } big = dlamch_("O"); @@ -1418,7 +1419,7 @@ static logical c_false = FALSE_; *info = -8; i__2 = -(*info); xerbla_("ZGESVDQ", &i__2, (ftnlen)7); - return 0; + return; } /* L1904: */ } @@ -1472,7 +1473,7 @@ static logical c_false = FALSE_; rwork[1] = -1.; } rwork[2] = -1.; - return 0; + return; } if (rwork[1] > big / sqrt((doublereal) (*m))) { @@ -1496,7 +1497,7 @@ static logical c_false = FALSE_; *info = -8; i__1 = -(*info); xerbla_("ZGESVDQ", &i__1, (ftnlen)7); - return 0; + return; } if (rtmp > big / sqrt((doublereal) (*m))) { /* matrix by 1/sqrt(M) if too large entry detected */ @@ -2323,7 +2324,7 @@ L4002: /* full row rank triangular (trapezoidal) factor of A. */ *numrank = nr; - return 0; + return; /* End of ZGESVDQ */ diff --git a/lapack-netlib/SRC/zgesvdx.c b/lapack-netlib/SRC/zgesvdx.c index c53117a69..dfd525a95 100644 --- a/lapack-netlib/SRC/zgesvdx.c +++ b/lapack-netlib/SRC/zgesvdx.c @@ -786,7 +786,7 @@ static integer c_n1 = -1; /* > \ingroup complex16GEsing */ /* ===================================================================== */ -/* Subroutine */ int zgesvdx_(char *jobu, char *jobvt, char *range, integer * +/* Subroutine */ void zgesvdx_(char *jobu, char *jobvt, char *range, integer * m, integer *n, doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, integer *ns, doublereal *s, doublecomplex *u, integer *ldu, doublecomplex *vt, integer *ldvt, @@ -815,43 +815,44 @@ static integer c_n1 = -1; logical wantu; integer id, ie; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), zgebrd_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum, abstol; - extern /* Subroutine */ int zgelqf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); char rngtgk[1]; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); integer itempr; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer minwrk, maxwrk; doublereal smlnum; - extern /* Subroutine */ int zunmbr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zunmbr_(char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ); logical lquery, wantvt; - extern /* Subroutine */ int zunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmlq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal dum[1], eps; - extern /* Subroutine */ int dbdsvdx_(char *, char *, char *, integer *, + extern /* Subroutine */ void dbdsvdx_(char *, char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *); @@ -1052,15 +1053,15 @@ static integer c_n1 = -1; if (*info != 0) { i__2 = -(*info); xerbla_("ZGESVDX", &i__2, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Set singular values indices accord to RANGE='A'. */ @@ -1504,7 +1505,7 @@ static integer c_n1 = -1; z__1.r = d__1, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGESVDX */ diff --git a/lapack-netlib/SRC/zgesvj.c b/lapack-netlib/SRC/zgesvj.c index b35226663..b94112af0 100644 --- a/lapack-netlib/SRC/zgesvj.c +++ b/lapack-netlib/SRC/zgesvj.c @@ -868,7 +868,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgesvj_(char *joba, char *jobu, char *jobv, integer *m, +/* Subroutine */ void zgesvj_(char *joba, char *jobu, char *jobv, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *sva, integer * mv, doublecomplex *v, integer *ldv, doublecomplex *cwork, integer * lwork, doublereal *rwork, integer *lrwork, integer *info) @@ -887,7 +887,7 @@ f"> */ doublereal bigtheta; doublecomplex ompq; integer pskipped; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); doublereal aapp0, aapq1, temp1; integer i__, p, q; @@ -901,14 +901,14 @@ f"> */ doublecomplex *, integer *, doublecomplex *, integer *); logical lower, upper, rotok; integer n2, n4; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal rootsfmin; extern doublereal dznrm2_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zgsvj0_(char *, integer *, integer *, + extern /* Subroutine */ void zgsvj0_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, integer *), zgsvj1_(char *, integer *, integer *, integer *, @@ -919,25 +919,25 @@ f"> */ doublereal cs; extern doublereal dlamch_(char *); doublereal sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); integer blskip; doublereal mxaapq; - extern /* Subroutine */ int zlascl_(char *, integer *, integer *, + extern /* Subroutine */ void zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal thsign; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); doublereal mxsinj; integer ir1; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); integer emptsw; logical lquery; @@ -1021,18 +1021,18 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGESVJ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { i__1 = *m + *n; cwork[1].r = (doublereal) i__1, cwork[1].i = 0.; rwork[1] = (doublereal) f2cmax(*n,6); - return 0; + return; } /* #:) Quick return for void matrix */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Set numerical parameters */ @@ -1074,7 +1074,7 @@ f"> */ *info = -4; i__1 = -(*info); xerbla_("ZGESVJ", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize the right singular vector matrix. */ @@ -1112,7 +1112,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("ZGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1142,7 +1142,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("ZGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1172,7 +1172,7 @@ f"> */ *info = -6; i__2 = -(*info); xerbla_("ZGESVJ", &i__2, (ftnlen)6); - return 0; + return; } aaqq = sqrt(aaqq); if (aapp < big / aaqq && noscale) { @@ -1228,7 +1228,7 @@ f"> */ rwork[4] = 0.; rwork[5] = 0.; rwork[6] = 0.; - return 0; + return; } /* #:) Quick return for one-column matrix */ @@ -1248,7 +1248,7 @@ f"> */ rwork[4] = 0.; rwork[5] = 0.; rwork[6] = 0.; - return 0; + return; } /* Protect small singular values from underflow, and try to */ @@ -2272,6 +2272,6 @@ L1995: /* MXSINJ is the largest absolute value of the sines of Jacobi angles */ /* in the last sweep */ - return 0; + return; } /* zgesvj_ */ diff --git a/lapack-netlib/SRC/zgesvx.c b/lapack-netlib/SRC/zgesvx.c index 58ff9f6c1..7a8538c35 100644 --- a/lapack-netlib/SRC/zgesvx.c +++ b/lapack-netlib/SRC/zgesvx.c @@ -857,7 +857,7 @@ f"> */ /* > \ingroup complex16GEsolve */ /* ===================================================================== */ -/* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void zgesvx_(char *fact, char *trans, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, @@ -884,7 +884,7 @@ f"> */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zlaqge_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zlaqge_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal * , doublereal *, char *), zgecon_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, @@ -892,16 +892,18 @@ f"> */ integer infequ; logical colequ; doublereal rowcnd; - extern /* Subroutine */ int zgeequ_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeequ_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal * , doublereal *, integer *); logical notran; - extern /* Subroutine */ int zgerfs_(char *, integer *, integer *, + extern /* Subroutine */ void zgerfs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublereal *, - integer *), zgetrf_(integer *, integer *, doublecomplex *, - integer *, integer *, integer *), zlacpy_(char *, integer *, + integer *); + extern int zgetrf_(integer *, integer *, doublecomplex *, + integer *, integer *, integer *); + extern void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal zlantr_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *); @@ -1034,7 +1036,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGESVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1115,7 +1117,7 @@ f"> */ } rwork[1] = rpvgrw; *rcond = 0.; - return 0; + return; } } @@ -1208,7 +1210,7 @@ f"> */ } rwork[1] = rpvgrw; - return 0; + return; /* End of ZGESVX */ diff --git a/lapack-netlib/SRC/zgesvxx.c b/lapack-netlib/SRC/zgesvxx.c index 9a9e875b4..ed19f0d39 100644 --- a/lapack-netlib/SRC/zgesvxx.c +++ b/lapack-netlib/SRC/zgesvxx.c @@ -1045,7 +1045,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16GEsolve */ /* ===================================================================== */ -/* Subroutine */ int zgesvxx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void zgesvxx_(char *fact, char *trans, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, @@ -1073,22 +1073,22 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical nofact; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int zlaqge_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zlaqge_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal * , doublereal *, char *); integer infequ; logical colequ; doublereal rowcnd; logical notran; - extern /* Subroutine */ int zgetrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgetrf_(integer *, integer *, doublecomplex *, integer *, integer *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int zgetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zgetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); logical rowequ; - extern /* Subroutine */ int zlascl2_(integer *, integer *, doublereal *, + extern /* Subroutine */ void zlascl2_(integer *, integer *, doublereal *, doublecomplex *, integer *), zgeequb_(integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *), zgerfsx_( @@ -1233,7 +1233,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGESVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1299,7 +1299,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = zla_gerpvgrw_(n, info, &a[a_offset], lda, &af[ af_offset], ldaf); - return 0; + return; } } @@ -1330,7 +1330,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zlascl2_(n, nrhs, &r__[1], &x[x_offset], ldx); } - return 0; + return; /* End of ZGESVXX */ diff --git a/lapack-netlib/SRC/zgetc2.c b/lapack-netlib/SRC/zgetc2.c index 0d024477a..80ff7ab60 100644 --- a/lapack-netlib/SRC/zgetc2.c +++ b/lapack-netlib/SRC/zgetc2.c @@ -626,7 +626,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda, +/* Subroutine */ void zgetc2_(integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *jpiv, integer *info) { /* System generated locals */ @@ -637,7 +637,7 @@ f"> */ /* Local variables */ doublereal smin, xmax; integer i__, j; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_(doublereal *, @@ -670,7 +670,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -691,7 +691,7 @@ f"> */ z__1.r = smlnum, z__1.i = 0.; a[i__1].r = z__1.r, a[i__1].i = z__1.i; } - return 0; + return; } /* Factorize A using complete pivoting. */ @@ -772,7 +772,7 @@ f"> */ ipiv[*n] = *n; jpiv[*n] = *n; - return 0; + return; /* End of ZGETC2 */ diff --git a/lapack-netlib/SRC/zgetf2.c b/lapack-netlib/SRC/zgetf2.c index 1609b5d02..fdc895428 100644 --- a/lapack-netlib/SRC/zgetf2.c +++ b/lapack-netlib/SRC/zgetf2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgetf2_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -633,7 +633,7 @@ f"> */ /* Local variables */ integer i__, j; doublereal sfmin; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, @@ -673,13 +673,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGETF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Compute machine safe minimum */ @@ -740,7 +740,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of ZGETF2 */ diff --git a/lapack-netlib/SRC/zgetrf.c b/lapack-netlib/SRC/zgetrf.c index 42dcee430..d4f52efd3 100644 --- a/lapack-netlib/SRC/zgetrf.c +++ b/lapack-netlib/SRC/zgetrf.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgetrf_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -632,7 +632,7 @@ f"> */ /* Local variables */ integer i__, j, iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, @@ -642,7 +642,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlaswp_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlaswp_(integer *, doublecomplex *, integer *, integer *, integer *, integer *, integer *), zgetrf2_(integer *, integer *, doublecomplex *, integer *, integer *, integer *); @@ -676,13 +676,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGETRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -761,7 +761,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of ZGETRF */ diff --git a/lapack-netlib/SRC/zgetrf2.c b/lapack-netlib/SRC/zgetrf2.c index 44e1df00b..679b10374 100644 --- a/lapack-netlib/SRC/zgetrf2.c +++ b/lapack-netlib/SRC/zgetrf2.c @@ -625,7 +625,7 @@ static integer c__1 = 1; /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgetrf2_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zgetrf2_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -636,13 +636,13 @@ static integer c__1 = 1; doublecomplex temp; integer i__, iinfo; doublereal sfmin; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer n1, n2; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); @@ -681,13 +681,13 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZGETRF2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (*m == 1) { @@ -807,7 +807,7 @@ static integer c__1 = 1; zlaswp_(&n1, &a[a_dim1 + 1], lda, &i__1, &i__2, &ipiv[1], &c__1); } - return 0; + return; /* End of ZGETRF2 */ diff --git a/lapack-netlib/SRC/zgetri.c b/lapack-netlib/SRC/zgetri.c index fb0a721bd..e7a46e719 100644 --- a/lapack-netlib/SRC/zgetri.c +++ b/lapack-netlib/SRC/zgetri.c @@ -630,7 +630,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda, +/* Subroutine */ void zgetri_(integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { /* System generated locals */ @@ -639,7 +639,7 @@ f"> */ /* Local variables */ integer i__, j, nbmin; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, @@ -695,15 +695,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGETRI", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form inv(U). If INFO > 0 from ZTRTRI, then U is singular, */ @@ -711,7 +711,7 @@ f"> */ ztrtri_("Upper", "Non-unit", n, &a[a_offset], lda, info); if (*info > 0) { - return 0; + return; } nbmin = 2; @@ -816,7 +816,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZGETRI */ diff --git a/lapack-netlib/SRC/zgetrs.c b/lapack-netlib/SRC/zgetrs.c index d81cf4dc2..d9e10c346 100644 --- a/lapack-netlib/SRC/zgetrs.c +++ b/lapack-netlib/SRC/zgetrs.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void zgetrs_(char *trans, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -645,12 +645,12 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen); + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical notran; - extern /* Subroutine */ int zlaswp_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlaswp_(integer *, doublecomplex *, integer *, integer *, integer *, integer *, integer *); @@ -692,13 +692,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGETRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (notran) { @@ -737,7 +737,7 @@ f"> */ zlaswp_(nrhs, &b[b_offset], ldb, &c__1, n, &ipiv[1], &c_n1); } - return 0; + return; /* End of ZGETRS */ diff --git a/lapack-netlib/SRC/zgetsls.c b/lapack-netlib/SRC/zgetsls.c index 9d2e9e6d5..a63df472f 100644 --- a/lapack-netlib/SRC/zgetsls.c +++ b/lapack-netlib/SRC/zgetsls.c @@ -674,7 +674,7 @@ static integer c__0 = 0; /* > \ingroup complex16GEsolve */ /* ===================================================================== */ -/* Subroutine */ int zgetsls_(char *trans, integer *m, integer *n, integer * +/* Subroutine */ void zgetsls_(char *trans, integer *m, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -689,13 +689,13 @@ static integer c__0 = 0; integer brow, tszm, tszo, info2, i__, j, iascl, ibscl; extern logical lsame_(char *, char *); integer minmn, maxmn; - extern /* Subroutine */ int zgelq_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgelq_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zgeqr_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublecomplex workq[1]; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); doublecomplex tq[5]; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -703,7 +703,7 @@ static integer c__0 = 0; doublereal bignum; extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zlascl_(char *, integer *, integer *, + extern /* Subroutine */ void zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zgemlq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex * @@ -826,7 +826,7 @@ static integer c__0 = 0; xerbla_("ZGETSLS", &i__1, (ftnlen)7); d__1 = (doublereal) wsizeo; work[1].r = d__1, work[1].i = 0.; - return 0; + return; } if (lquery) { if (*lwork == -1) { @@ -837,7 +837,7 @@ static integer c__0 = 0; r__1 = (real) wsizem; work[1].r = r__1, work[1].i = 0.f; } - return 0; + return; } if (*lwork < wsizeo) { lw1 = tszm; @@ -854,7 +854,7 @@ static integer c__0 = 0; if (f2cmin(i__1,*nrhs) == 0) { i__1 = f2cmax(*m,*n); zlaset_("FULL", &i__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); - return 0; + return; } /* Get machine parameters */ @@ -932,7 +932,7 @@ static integer c__0 = 0; ztrtrs_("U", "N", "N", n, nrhs, &a[a_offset], lda, &b[b_offset], ldb, info); if (*info > 0) { - return 0; + return; } scllen = *n; } else { @@ -945,7 +945,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } /* B(N+1:M,1:NRHS) = CZERO */ @@ -989,7 +989,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } /* B(M+1:N,1:NRHS) = 0 */ @@ -1031,7 +1031,7 @@ static integer c__0 = 0; ldb, info); if (*info > 0) { - return 0; + return; } scllen = *m; @@ -1060,7 +1060,7 @@ static integer c__0 = 0; L50: d__1 = (doublereal) (tszo + lwo); work[1].r = d__1, work[1].i = 0.; - return 0; + return; /* End of ZGETSLS */ diff --git a/lapack-netlib/SRC/zgetsqrhrt.c b/lapack-netlib/SRC/zgetsqrhrt.c index 093ee20ec..6b426465f 100644 --- a/lapack-netlib/SRC/zgetsqrhrt.c +++ b/lapack-netlib/SRC/zgetsqrhrt.c @@ -689,7 +689,7 @@ hrt.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgetsqrhrt_(integer *m, integer *n, integer *mb1, +/* Subroutine */ void zgetsqrhrt_(integer *m, integer *n, integer *mb1, integer *nb1, integer *nb2, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, doublecomplex *work, integer *lwork, integer *info) @@ -701,16 +701,17 @@ hrt.f"> */ /* Local variables */ integer ldwt, lworkopt, i__, j, iinfo; - extern /* Subroutine */ int zungtsqr_row_(integer *, integer *, integer * + extern /* Subroutine */ void zungtsqr_row_(integer *, integer *, integer * , integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zunhr_col_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *) - , xerbla_(char *, integer *, ftnlen); + ; + extern int xerbla_(char *, integer *, ftnlen); logical lquery; integer lw1, lw2, num_all_row_blocks__, lwt, nb1local, nb2local; - extern /* Subroutine */ int zlatsqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zlatsqr_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -812,11 +813,11 @@ hrt.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGETSQRHRT", &i__1, (ftnlen)10); - return 0; + return; } else if (lquery) { z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* Quick return if possible */ @@ -824,7 +825,7 @@ hrt.f"> */ if (f2cmin(*m,*n) == 0) { z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } nb2local = f2cmin(*nb2,*n); @@ -895,7 +896,7 @@ hrt.f"> */ z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGETSQRHRT */ diff --git a/lapack-netlib/SRC/zggbak.c b/lapack-netlib/SRC/zggbak.c index 091fa1d00..735ae22f9 100644 --- a/lapack-netlib/SRC/zggbak.c +++ b/lapack-netlib/SRC/zggbak.c @@ -656,7 +656,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo, +/* Subroutine */ void zggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, doublecomplex *v, integer *ldv, integer *info) { @@ -667,9 +667,10 @@ f"> */ integer i__, k; extern logical lsame_(char *, char *); logical leftv; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, - doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen), - zdscal_(integer *, doublereal *, doublecomplex *, integer *); + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zdscal_(integer *, doublereal *, doublecomplex *, integer *); logical rightv; @@ -719,19 +720,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGBAK", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*m == 0) { - return 0; + return; } if (lsame_(job, "N")) { - return 0; + return; } if (*ilo == *ihi) { @@ -836,7 +837,7 @@ L100: L110: - return 0; + return; /* End of ZGGBAK */ diff --git a/lapack-netlib/SRC/zggbal.c b/lapack-netlib/SRC/zggbal.c index 4d1811085..673ad9d14 100644 --- a/lapack-netlib/SRC/zggbal.c +++ b/lapack-netlib/SRC/zggbal.c @@ -691,7 +691,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer +/* Subroutine */ void zggbal_(char *job, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, doublereal *work, integer * info) @@ -710,15 +710,15 @@ f"> */ doublereal coef2, coef5; integer i__, j, k, l, m; doublereal gamma, t, alpha; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal sfmin, sfmax; integer iflow; - extern /* Subroutine */ int daxpy_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void daxpy_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer kount; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer jc; doublereal ta, tb, tc; @@ -727,7 +727,8 @@ f"> */ doublereal ew; integer nr; doublereal pgamma; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); integer lsfmin; extern integer izamax_(integer *, doublecomplex *, integer *); @@ -773,7 +774,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGBAL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -781,7 +782,7 @@ f"> */ if (*n == 0) { *ilo = 1; *ihi = *n; - return 0; + return; } if (*n == 1) { @@ -789,7 +790,7 @@ f"> */ *ihi = *n; lscale[1] = 1.; rscale[1] = 1.; - return 0; + return; } if (lsame_(job, "N")) { @@ -801,7 +802,7 @@ f"> */ rscale[i__] = 1.; /* L10: */ } - return 0; + return; } k = 1; @@ -946,11 +947,11 @@ L190: rscale[i__] = 1.; /* L195: */ } - return 0; + return; } if (*ilo == *ihi) { - return 0; + return; } /* Balance the submatrix in rows ILO to IHI. */ @@ -1213,7 +1214,7 @@ L350: /* L380: */ } - return 0; + return; /* End of ZGGBAL */ diff --git a/lapack-netlib/SRC/zgges.c b/lapack-netlib/SRC/zgges.c index 2ac9479a1..e8858d7e1 100644 --- a/lapack-netlib/SRC/zgges.c +++ b/lapack-netlib/SRC/zgges.c @@ -784,7 +784,7 @@ or GE matrices */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex * beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer @@ -804,9 +804,9 @@ or GE matrices */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irwrk, irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); - extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, integer *), zggbal_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * @@ -819,21 +819,21 @@ or GE matrices */ integer *, doublereal *); doublereal bignum; integer ijobvl, iright; - extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); doublereal anrmto; integer lwkmin; logical lastsl; doublereal bnrmto; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zhgeqz_( @@ -850,7 +850,7 @@ or GE matrices */ doublereal smlnum; logical wantst, lquery; integer lwkopt; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -972,16 +972,16 @@ or GE matrices */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGES ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1193,7 +1193,7 @@ L30: work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZGGES */ diff --git a/lapack-netlib/SRC/zgges3.c b/lapack-netlib/SRC/zgges3.c index 3c1103761..ac9ce770f 100644 --- a/lapack-netlib/SRC/zgges3.c +++ b/lapack-netlib/SRC/zgges3.c @@ -783,7 +783,7 @@ f"> */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void zgges3_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex * beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer @@ -804,13 +804,13 @@ f"> */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irwrk, irows; - extern /* Subroutine */ int zgghd3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgghd3_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), dlabad_( doublereal *, doublereal *); extern doublereal dlamch_(char *); - extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, integer *), zggbal_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * @@ -821,16 +821,16 @@ f"> */ integer *, doublereal *); doublereal bignum; integer ijobvl, iright; - extern /* Subroutine */ int zlascl_(char *, integer *, integer *, + extern /* Subroutine */ void zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); doublereal anrmto, bnrmto; logical lastsl; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zhgeqz_( @@ -847,7 +847,7 @@ f"> */ doublereal smlnum; logical wantst, lquery; integer lwkopt; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -987,16 +987,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGES3 ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1202,7 +1202,7 @@ L30: z__1.r = (doublereal) lwkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGGES3 */ diff --git a/lapack-netlib/SRC/zggesx.c b/lapack-netlib/SRC/zggesx.c index a735cf09e..ea98b0e1a 100644 --- a/lapack-netlib/SRC/zggesx.c +++ b/lapack-netlib/SRC/zggesx.c @@ -843,7 +843,7 @@ f"> */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp +/* Subroutine */ void zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, char *sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, integer *ldvsl, @@ -863,10 +863,10 @@ f"> */ integer ileft, icols; logical cursl, ilvsl, ilvsr; integer irwrk, irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); doublereal pl, pr; - extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, integer *), zggbal_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * @@ -879,7 +879,7 @@ f"> */ integer *, doublereal *); doublereal bignum; integer ijobvl, iright; - extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, @@ -890,14 +890,14 @@ f"> */ integer liwmin; logical wantse, lastsl; doublereal anrmto, bnrmto; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); integer maxwrk; logical wantsn; integer minwrk; doublereal smlnum; - extern /* Subroutine */ int zhgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void zhgeqz_(char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -906,7 +906,7 @@ f"> */ , integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); logical wantst, lquery, wantsv; - extern /* Subroutine */ int ztgsen_(integer *, logical *, logical *, + extern /* Subroutine */ void ztgsen_(integer *, logical *, logical *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublereal *, @@ -1068,16 +1068,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGESX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *sdim = 0; - return 0; + return; } /* Get machine constants */ @@ -1315,7 +1315,7 @@ L40: work[1].r = (doublereal) maxwrk, work[1].i = 0.; iwork[1] = liwmin; - return 0; + return; /* End of ZGGESX */ diff --git a/lapack-netlib/SRC/zggev.c b/lapack-netlib/SRC/zggev.c index 56c667946..a93883a73 100644 --- a/lapack-netlib/SRC/zggev.c +++ b/lapack-netlib/SRC/zggev.c @@ -734,7 +734,7 @@ ices */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n, +/* Subroutine */ void zggev_(char *jobvl, char *jobvr, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer @@ -754,11 +754,11 @@ ices */ integer iwrk; extern logical lsame_(char *, char *); integer ileft, icols, irwrk, irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer jc, in; extern doublereal dlamch_(char *); integer jr; - extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, integer *), zggbal_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * @@ -773,20 +773,20 @@ ices */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); integer ijobvl, iright; - extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); doublereal anrmto; integer lwkmin; doublereal bnrmto; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), ztgevc_( @@ -801,7 +801,7 @@ ices */ doublereal smlnum; integer lwkopt; logical lquery; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -920,15 +920,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1171,7 +1171,7 @@ L70: } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZGGEV */ diff --git a/lapack-netlib/SRC/zggev3.c b/lapack-netlib/SRC/zggev3.c index 6df791b84..084d20517 100644 --- a/lapack-netlib/SRC/zggev3.c +++ b/lapack-netlib/SRC/zggev3.c @@ -733,7 +733,7 @@ f"> */ /* > \ingroup complex16GEeigen */ /* ===================================================================== */ -/* Subroutine */ int zggev3_(char *jobvl, char *jobvr, integer *n, +/* Subroutine */ void zggev3_(char *jobvl, char *jobvr, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer @@ -753,7 +753,7 @@ f"> */ integer iwrk; extern logical lsame_(char *, char *); integer ileft, icols, irwrk, irows; - extern /* Subroutine */ int zgghd3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgghd3_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), dlabad_( @@ -761,7 +761,7 @@ f"> */ integer jc, in; extern doublereal dlamch_(char *); integer jr; - extern /* Subroutine */ int zggbak_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublecomplex *, integer *, integer *), zggbal_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * @@ -774,15 +774,15 @@ f"> */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); integer ijobvl, iright; - extern /* Subroutine */ int zlascl_(char *, integer *, integer *, + extern /* Subroutine */ void zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); integer ijobvr; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); doublereal anrmto, bnrmto; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), ztgevc_( @@ -797,7 +797,7 @@ f"> */ doublereal smlnum; integer lwkopt; logical lquery; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -939,15 +939,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGEV3 ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1185,7 +1185,7 @@ L70: z__1.r = (doublereal) lwkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGGEV3 */ diff --git a/lapack-netlib/SRC/zggevx.c b/lapack-netlib/SRC/zggevx.c index 7c66fb7db..b04cf7fd6 100644 --- a/lapack-netlib/SRC/zggevx.c +++ b/lapack-netlib/SRC/zggevx.c @@ -888,7 +888,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char * +/* Subroutine */ void zggevx_(char *balanc, char *jobvl, char *jobvr, char * sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, @@ -913,11 +913,11 @@ f"> */ integer icols; logical noscl; integer irows; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); integer jc, in; extern doublereal dlamch_(char *); integer jr; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), zggbak_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, @@ -935,7 +935,7 @@ f"> */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); integer ijobvl; - extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ), zlascl_(char *, integer *, integer *, @@ -943,13 +943,13 @@ f"> */ integer *, integer *); integer ijobvr; logical wantsb; - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ); doublereal anrmto; logical wantse; doublereal bnrmto; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), ztgevc_( @@ -962,7 +962,7 @@ f"> */ *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *, integer *); integer minwrk; - extern /* Subroutine */ int zhgeqz_(char *, char *, char *, integer *, + extern /* Subroutine */ void zhgeqz_(char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -971,7 +971,7 @@ f"> */ logical wantsn; doublereal smlnum; logical lquery, wantsv; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -1115,15 +1115,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1431,7 +1431,7 @@ L90: } work[1].r = (doublereal) maxwrk, work[1].i = 0.; - return 0; + return; /* End of ZGGEVX */ diff --git a/lapack-netlib/SRC/zggglm.c b/lapack-netlib/SRC/zggglm.c index 87e2a9af4..cc2dcd8fd 100644 --- a/lapack-netlib/SRC/zggglm.c +++ b/lapack-netlib/SRC/zggglm.c @@ -699,7 +699,7 @@ f"> */ /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zggglm_(integer *n, integer *m, integer *p, +/* Subroutine */ void zggglm_(integer *n, integer *m, integer *p, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex *work, integer *lwork, integer *info) @@ -710,7 +710,7 @@ f"> */ /* Local variables */ integer lopt, i__; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, @@ -719,17 +719,18 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zggqrf_(integer *, integer *, integer *, + extern /* Subroutine */ void zggqrf_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *) ; integer lwkmin, nb1, nb2, nb3, nb4, lwkopt; logical lquery; - extern /* Subroutine */ int zunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, - doublecomplex *, integer *, doublecomplex *, integer *, integer *), ztrtrs_(char *, char *, char *, integer *, + doublecomplex *, integer *, doublecomplex *, integer *, integer *); + extern int ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -804,9 +805,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGGLM", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -822,7 +823,7 @@ f"> */ i__2 = i__; y[i__2].r = 0., y[i__2].i = 0.; } - return 0; + return; } /* Compute the GQR factorization of matrices A and B: */ @@ -863,7 +864,7 @@ f"> */ if (*info > 0) { *info = 1; - return 0; + return; } i__1 = *n - *m; @@ -894,7 +895,7 @@ f"> */ if (*info > 0) { *info = 2; - return 0; + return; } /* Copy D to X */ @@ -917,7 +918,7 @@ f"> */ i__1 = *m + np + f2cmax(i__2,i__3); work[1].r = (doublereal) i__1, work[1].i = 0.; - return 0; + return; /* End of ZGGGLM */ diff --git a/lapack-netlib/SRC/zgghd3.c b/lapack-netlib/SRC/zgghd3.c index 0347a460f..ff20280f3 100644 --- a/lapack-netlib/SRC/zgghd3.c +++ b/lapack-netlib/SRC/zgghd3.c @@ -745,7 +745,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgghd3_(char *compq, char *compz, integer *n, integer * +/* Subroutine */ void zgghd3_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, integer *info) @@ -760,7 +760,7 @@ f"> */ integer cola, jcol, ierr; doublecomplex temp; integer jrow, topq, ppwo; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); doublecomplex temp1, temp2, temp3; doublereal c__; @@ -769,33 +769,33 @@ f"> */ extern logical lsame_(char *, char *); integer nbmin; doublecomplex ctemp; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer nblst; logical initq; doublecomplex c1, c2; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical wantq; integer j0; logical initz; - extern /* Subroutine */ int zunm22_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunm22_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *) ; logical wantz; doublecomplex s1, s2; - extern /* Subroutine */ int ztrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztrmv_(char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); char compq2[1], compz2[1]; integer nb, jj, nh, nx, pw; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zgghrd_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgghrd_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ), zlaset_(char *, integer *, integer *, @@ -873,9 +873,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGHD3", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Initialize Q and Z if desired. */ @@ -900,7 +900,7 @@ f"> */ nh = *ihi - *ilo + 1; if (nh <= 1) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Determine the blocksize. */ @@ -1757,7 +1757,7 @@ f"> */ z__1.r = (doublereal) lwkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGGHD3 */ diff --git a/lapack-netlib/SRC/zgghrd.c b/lapack-netlib/SRC/zgghrd.c index 4321aaf2f..62ba9a31f 100644 --- a/lapack-netlib/SRC/zgghrd.c +++ b/lapack-netlib/SRC/zgghrd.c @@ -718,7 +718,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer * +/* Subroutine */ void zgghrd_(char *compq, char *compz, integer *n, integer * ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, integer *info) @@ -730,7 +730,7 @@ f"> */ /* Local variables */ integer jcol, jrow; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); doublereal c__; doublecomplex s; @@ -738,7 +738,7 @@ f"> */ doublecomplex ctemp; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer icompq, icompz; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlartg_(doublecomplex *, doublecomplex *, doublereal *, doublecomplex *, doublecomplex *); logical ilq, ilz; @@ -823,7 +823,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGHRD", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize Q and Z if desired. */ @@ -838,7 +838,7 @@ f"> */ /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } /* Zero out lower triangle of B */ @@ -904,7 +904,7 @@ f"> */ /* L40: */ } - return 0; + return; /* End of ZGGHRD */ diff --git a/lapack-netlib/SRC/zgglse.c b/lapack-netlib/SRC/zgglse.c index e0c3e3b5e..47b30742c 100644 --- a/lapack-netlib/SRC/zgglse.c +++ b/lapack-netlib/SRC/zgglse.c @@ -694,7 +694,7 @@ f"> */ /* > \ingroup complex16OTHERsolve */ /* ===================================================================== */ -/* Subroutine */ int zgglse_(integer *m, integer *n, integer *p, +/* Subroutine */ void zgglse_(integer *m, integer *n, integer *p, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, doublecomplex *d__, doublecomplex *x, doublecomplex *work, integer *lwork, integer *info) @@ -705,7 +705,7 @@ f"> */ /* Local variables */ integer lopt; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, @@ -717,17 +717,17 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zggrqf_(integer *, integer *, integer *, + extern /* Subroutine */ void zggrqf_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *) ; integer lwkmin, nb1, nb2, nb3, nb4, lwkopt; logical lquery; - extern /* Subroutine */ int zunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, - doublecomplex *, integer *, doublecomplex *, integer *, integer *), ztrtrs_(char *, char *, char *, integer *, + doublecomplex *, integer *, doublecomplex *, integer *, integer *); extern int ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -802,15 +802,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGLSE", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Compute the GRQ factorization of matrices B and A: */ @@ -848,7 +848,7 @@ f"> */ if (*info > 0) { *info = 1; - return 0; + return; } /* Put the solution in X */ @@ -873,7 +873,7 @@ f"> */ if (*info > 0) { *info = 2; - return 0; + return; } /* Put the solutions in X */ @@ -914,7 +914,7 @@ f"> */ i__1 = *p + mn + f2cmax(i__2,i__3); work[1].r = (doublereal) i__1, work[1].i = 0.; - return 0; + return; /* End of ZGGLSE */ diff --git a/lapack-netlib/SRC/zggqrf.c b/lapack-netlib/SRC/zggqrf.c index 7962a60ea..afe06bcfc 100644 --- a/lapack-netlib/SRC/zggqrf.c +++ b/lapack-netlib/SRC/zggqrf.c @@ -728,7 +728,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p, +/* Subroutine */ void zggqrf_(integer *n, integer *m, integer *p, doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, integer *ldb, doublecomplex *taub, doublecomplex *work, integer * lwork, integer *info) @@ -741,13 +741,13 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zgerqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer nb1, nb2, nb3, lwkopt; logical lquery; - extern /* Subroutine */ int zunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -809,9 +809,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGQRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* QR factorization of N-by-M matrix A: A = Q*R */ @@ -836,7 +836,7 @@ f"> */ i__1 = f2cmax(i__2,i__3); work[1].r = (doublereal) i__1, work[1].i = 0.; - return 0; + return; /* End of ZGGQRF */ diff --git a/lapack-netlib/SRC/zggrqf.c b/lapack-netlib/SRC/zggrqf.c index 7c12e5387..789c1c856 100644 --- a/lapack-netlib/SRC/zggrqf.c +++ b/lapack-netlib/SRC/zggrqf.c @@ -727,7 +727,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n, +/* Subroutine */ void zggrqf_(integer *m, integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, integer *ldb, doublecomplex *taub, doublecomplex *work, integer * lwork, integer *info) @@ -740,13 +740,13 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zgeqrf_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer * ), zgerqf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer nb1, nb2, nb3, lwkopt; logical lquery; - extern /* Subroutine */ int zunmrq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmrq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -808,9 +808,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGGRQF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* RQ factorization of M-by-N matrix A: A = R*Q */ @@ -837,7 +837,7 @@ f"> */ i__1 = f2cmax(i__2,i__3); work[1].r = (doublereal) i__1, work[1].i = 0.; - return 0; + return; /* End of ZGGRQF */ diff --git a/lapack-netlib/SRC/zggsvd3.c b/lapack-netlib/SRC/zggsvd3.c index bae5f7532..a8bc8de19 100644 --- a/lapack-netlib/SRC/zggsvd3.c +++ b/lapack-netlib/SRC/zggsvd3.c @@ -865,7 +865,7 @@ static integer c__1 = 1; /* > ZGGSVD3 replaces the deprecated subroutine ZGGSVD. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zggsvd3_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void zggsvd3_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha, doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, @@ -885,14 +885,14 @@ static integer c__1 = 1; integer ncallmycycle, i__, j; extern logical lsame_(char *, char *); doublereal anorm, bnorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical wantq, wantu, wantv; extern doublereal dlamch_(char *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int ztgsja_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztgsja_(char *, char *, char *, integer *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublecomplex *, integer *, @@ -900,7 +900,7 @@ static integer c__1 = 1; doublecomplex *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int zggsvp3_(char *, char *, char *, integer *, + extern /* Subroutine */ void zggsvp3_(char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -997,10 +997,10 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZGGSVD3", &i__1, (ftnlen)7); - return 0; + return; } if (lquery) { - return 0; + return; } /* Compute the Frobenius norm of matrices A and B */ @@ -1063,7 +1063,7 @@ static integer c__1 = 1; z__1.r = (doublereal) lwkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGGSVD3 */ diff --git a/lapack-netlib/SRC/zggsvp3.c b/lapack-netlib/SRC/zggsvp3.c index b639c03cc..e78bbe74e 100644 --- a/lapack-netlib/SRC/zggsvp3.c +++ b/lapack-netlib/SRC/zggsvp3.c @@ -791,7 +791,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zggsvp3_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void zggsvp3_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer @@ -808,7 +808,7 @@ static integer c_n1 = -1; integer i__, j; extern logical lsame_(char *, char *); logical wantq, wantu, wantv; - extern /* Subroutine */ int zgeqp3_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeqp3_(integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer * , doublereal *, integer *), zgeqr2_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -820,11 +820,13 @@ static integer c_n1 = -1; *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zunmr2_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, - doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen), zlacpy_(char *, + doublecomplex *, integer *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical forwrd; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlapmt_(logical *, integer *, integer *, doublecomplex *, integer *, integer *); integer lwkopt; @@ -930,10 +932,10 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZGGSVP3", &i__1, (ftnlen)7); - return 0; + return; } if (lquery) { - return 0; + return; } /* QR with column pivoting of B: B*P = V*( S11 S12 ) */ @@ -1189,7 +1191,7 @@ static integer c_n1 = -1; z__1.r = (doublereal) lwkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZGGSVP3 */ diff --git a/lapack-netlib/SRC/zgsvj0.c b/lapack-netlib/SRC/zgsvj0.c index bbe87c27b..c300fcd93 100644 --- a/lapack-netlib/SRC/zgsvj0.c +++ b/lapack-netlib/SRC/zgsvj0.c @@ -732,7 +732,7 @@ f"> */ /* > drmac@math.hr. Thank you. */ /* ===================================================================== */ -/* Subroutine */ int zgsvj0_(char *jobv, integer *m, integer *n, +/* Subroutine */ void zgsvj0_(char *jobv, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *d__, doublereal *sva, integer *mv, doublecomplex *v, integer *ldv, doublereal *eps, doublereal *sfmin, doublereal *tol, integer *nsweep, doublecomplex * @@ -752,7 +752,7 @@ f"> */ doublereal bigtheta; doublecomplex ompq; integer pskipped; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); doublereal aapp0, aapq1, temp1; integer i__, p, q; @@ -763,7 +763,7 @@ f"> */ extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical rotok; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -775,12 +775,12 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband, blskip; doublereal mxaapq; - extern /* Subroutine */ int zlascl_(char *, integer *, integer *, + extern /* Subroutine */ void zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal thsign, mxsinj; integer ir1; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); integer emptsw, notrot, iswrot, jbc; doublereal big; @@ -843,7 +843,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGSVJ0", &i__1, (ftnlen)6); - return 0; + return; } if (rsvec) { @@ -1663,6 +1663,6 @@ L1995: /* L5991: */ } - return 0; + return; } /* zgsvj0_ */ diff --git a/lapack-netlib/SRC/zgsvj1.c b/lapack-netlib/SRC/zgsvj1.c index ec930a962..fa1fc77c1 100644 --- a/lapack-netlib/SRC/zgsvj1.c +++ b/lapack-netlib/SRC/zgsvj1.c @@ -751,7 +751,7 @@ f"> */ /* > Zlatko Drmac (Zagreb, Croatia) */ /* ===================================================================== */ -/* Subroutine */ int zgsvj1_(char *jobv, integer *m, integer *n, integer *n1, +/* Subroutine */ void zgsvj1_(char *jobv, integer *m, integer *n, integer *n1, doublecomplex *a, integer *lda, doublecomplex *d__, doublereal *sva, integer *mv, doublecomplex *v, integer *ldv, doublereal *eps, doublereal *sfmin, doublereal *tol, integer *nsweep, doublecomplex * @@ -772,7 +772,7 @@ f"> */ doublereal bigtheta; doublecomplex ompq; integer pskipped; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); doublereal aapp0, aapq1, temp1; integer i__, p, q; @@ -783,7 +783,7 @@ f"> */ extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical rotok; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -795,11 +795,11 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer ijblsk, swband, blskip; doublereal mxaapq; - extern /* Subroutine */ int zlascl_(char *, integer *, integer *, + extern /* Subroutine */ void zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal thsign, mxsinj; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); integer emptsw, notrot, iswrot, jbc; doublereal big; @@ -862,7 +862,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGSVJ1", &i__1, (ftnlen)6); - return 0; + return; } if (rsvec) { @@ -1347,6 +1347,6 @@ L1995: } - return 0; + return; } /* zgsvj1_ */ diff --git a/lapack-netlib/SRC/zgtcon.c b/lapack-netlib/SRC/zgtcon.c index 5a81f69ba..bc5732d5e 100644 --- a/lapack-netlib/SRC/zgtcon.c +++ b/lapack-netlib/SRC/zgtcon.c @@ -653,7 +653,7 @@ f"> */ /* > \ingroup complex16GTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl, +/* Subroutine */ void zgtcon_(char *norm, integer *n, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer * ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info) @@ -665,12 +665,12 @@ f"> */ integer kase, kase1, i__; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; logical onenrm; - extern /* Subroutine */ int zgttrs_(char *, integer *, integer *, + extern /* Subroutine */ void zgttrs_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex * , integer *, doublecomplex *, integer *, integer *); @@ -707,7 +707,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGTCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -715,9 +715,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } /* Check that D(1:N) is non-zero. */ @@ -726,7 +726,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; if (d__[i__2].r == 0. && d__[i__2].i == 0.) { - return 0; + return; } /* L10: */ } @@ -763,7 +763,7 @@ L20: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZGTCON */ diff --git a/lapack-netlib/SRC/zgtrfs.c b/lapack-netlib/SRC/zgtrfs.c index e47e86005..a0d1374e6 100644 --- a/lapack-netlib/SRC/zgtrfs.c +++ b/lapack-netlib/SRC/zgtrfs.c @@ -724,7 +724,7 @@ f"> */ /* > \ingroup complex16GTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void zgtrfs_(char *trans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, @@ -745,7 +745,7 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3], count; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zlacn2_( integer *, doublecomplex *, doublecomplex *, doublereal *, @@ -753,14 +753,15 @@ f"> */ extern doublereal dlamch_(char *); integer nz; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlagtm_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlagtm_( char *, integer *, integer *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); logical notran; char transn[1], transt[1]; doublereal lstres; - extern /* Subroutine */ int zgttrs_(char *, integer *, integer *, + extern /* Subroutine */ void zgttrs_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex * , integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -815,7 +816,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGTRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -827,7 +828,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1132,7 +1133,7 @@ L70: /* L110: */ } - return 0; + return; /* End of ZGTRFS */ diff --git a/lapack-netlib/SRC/zgtsv.c b/lapack-netlib/SRC/zgtsv.c index d99f67948..8a4da397a 100644 --- a/lapack-netlib/SRC/zgtsv.c +++ b/lapack-netlib/SRC/zgtsv.c @@ -634,7 +634,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16GTsolve */ /* ===================================================================== */ -/* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, +/* Subroutine */ void zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb, integer *info) { @@ -678,11 +678,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZGTSV ", &i__1, (ftnlen)6); - return 0; + return; } if (*n == 0) { - return 0; + return; } i__1 = *n - 1; @@ -699,7 +699,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* solution can not be found. */ *info = k; - return 0; + return; } } else /* if(complicated condition) */ { i__2 = k; @@ -787,7 +787,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ i__1 = *n; if (d__[i__1].r == 0. && d__[i__1].i == 0.) { *info = *n; - return 0; + return; } /* Back solve with the matrix U from the factorization. */ @@ -828,7 +828,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* L50: */ } - return 0; + return; /* End of ZGTSV */ diff --git a/lapack-netlib/SRC/zgtsvx.c b/lapack-netlib/SRC/zgtsvx.c index 6978634e5..0d8dec2a1 100644 --- a/lapack-netlib/SRC/zgtsvx.c +++ b/lapack-netlib/SRC/zgtsvx.c @@ -805,7 +805,7 @@ f"> */ /* > \ingroup complex16GTsolve */ /* ===================================================================== */ -/* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer * +/* Subroutine */ void zgtsvx_(char *fact, char *trans, integer *n, integer * nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, @@ -820,7 +820,7 @@ f"> */ char norm[1]; extern logical lsame_(char *, char *); doublereal anorm; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); logical nofact; @@ -828,7 +828,7 @@ f"> */ extern doublereal zlangt_(char *, integer *, doublecomplex *, doublecomplex *, doublecomplex *); logical notran; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgtcon_(char *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublereal *, @@ -894,7 +894,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGTSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -914,7 +914,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -951,7 +951,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of ZGTSVX */ diff --git a/lapack-netlib/SRC/zgttrf.c b/lapack-netlib/SRC/zgttrf.c index 323424af1..4dd8d5e98 100644 --- a/lapack-netlib/SRC/zgttrf.c +++ b/lapack-netlib/SRC/zgttrf.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup complex16GTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex * +/* Subroutine */ void zgttrf_(integer *n, doublecomplex *dl, doublecomplex * d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer * info) { @@ -671,13 +671,13 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("ZGTTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize IPIV(i) = i and DU2(i) = 0 */ @@ -813,7 +813,7 @@ f"> */ } L50: - return 0; + return; /* End of ZGTTRF */ diff --git a/lapack-netlib/SRC/zgttrs.c b/lapack-netlib/SRC/zgttrs.c index e550c7e1e..99ae1cb14 100644 --- a/lapack-netlib/SRC/zgttrs.c +++ b/lapack-netlib/SRC/zgttrs.c @@ -651,7 +651,7 @@ f"> */ /* > \ingroup complex16GTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void zgttrs_(char *trans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) @@ -661,10 +661,10 @@ f"> */ /* Local variables */ integer j, jb, nb; - extern /* Subroutine */ int zgtts2_(integer *, integer *, integer *, + extern /* Subroutine */ void zgtts2_(integer *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex * - , integer *, doublecomplex *, integer *), xerbla_(char *, integer - *, ftnlen); + , integer *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer itrans; @@ -707,13 +707,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZGTTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Decode TRANS */ @@ -756,6 +756,6 @@ f"> */ /* End of ZGTTRS */ - return 0; + return; } /* zgttrs_ */ diff --git a/lapack-netlib/SRC/zgtts2.c b/lapack-netlib/SRC/zgtts2.c index c1df66d96..235432563 100644 --- a/lapack-netlib/SRC/zgtts2.c +++ b/lapack-netlib/SRC/zgtts2.c @@ -639,7 +639,7 @@ f"> */ /* > \ingroup complex16GTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs, +/* Subroutine */ void zgtts2_(integer *itrans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb) { @@ -675,7 +675,7 @@ f"> */ /* Function Body */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (*itrans == 0) { @@ -1143,6 +1143,6 @@ L130: /* End of ZGTTS2 */ - return 0; + return; } /* zgtts2_ */ diff --git a/lapack-netlib/SRC/zhb2st_kernels.c b/lapack-netlib/SRC/zhb2st_kernels.c index d465485d6..a7734ef64 100644 --- a/lapack-netlib/SRC/zhb2st_kernels.c +++ b/lapack-netlib/SRC/zhb2st_kernels.c @@ -680,7 +680,7 @@ kernels.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhb2st_kernels_(char *uplo, logical *wantz, integer * +/* Subroutine */ void zhb2st_kernels_(char *uplo, logical *wantz, integer * ttype, integer *st, integer *ed, integer *sweep, integer *n, integer * nb, integer *ib, doublecomplex *a, integer *lda, doublecomplex *v, doublecomplex *tau, integer *ldvt, doublecomplex *work) @@ -695,10 +695,10 @@ kernels.f"> */ extern logical lsame_(char *, char *); logical upper; integer j1, j2, lm, ln, ajeter; - extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer ofdpos; - extern /* Subroutine */ int zlarfx_(char *, integer *, integer *, + extern /* Subroutine */ void zlarfx_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlarfy_(char *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -918,7 +918,7 @@ kernels.f"> */ } } - return 0; + return; /* END OF ZHB2ST_KERNELS */ diff --git a/lapack-netlib/SRC/zhbev.c b/lapack-netlib/SRC/zhbev.c index ea576ff11..7d5b2ecf1 100644 --- a/lapack-netlib/SRC/zhbev.c +++ b/lapack-netlib/SRC/zhbev.c @@ -666,7 +666,7 @@ atrices */ /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd, +/* Subroutine */ void zhbev_(char *jobz, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *info) { @@ -679,7 +679,7 @@ atrices */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -692,7 +692,7 @@ atrices */ doublecomplex *, integer *, doublereal *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zhbtrd_(char *, char *, integer *, integer *, @@ -700,7 +700,7 @@ atrices */ doublecomplex *, integer *, doublecomplex *, integer *); integer indrwk; doublereal smlnum; - extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *); doublereal eps; @@ -749,13 +749,13 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -770,7 +770,7 @@ atrices */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -831,7 +831,7 @@ atrices */ dscal_(&imax, &d__1, &w[1], &c__1); } - return 0; + return; /* End of ZHBEV */ diff --git a/lapack-netlib/SRC/zhbev_2stage.c b/lapack-netlib/SRC/zhbev_2stage.c index 9f2527860..986b0382e 100644 --- a/lapack-netlib/SRC/zhbev_2stage.c +++ b/lapack-netlib/SRC/zhbev_2stage.c @@ -729,7 +729,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhbev_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void zhbev_2stage_(char *jobz, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) @@ -744,12 +744,12 @@ stage.f"> */ integer *, integer *, integer *); doublereal anrm; integer imax; - extern /* Subroutine */ int zhetrd_hb2st_(char *, char *, char *, + extern /* Subroutine */ void zhetrd_hb2st_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -765,14 +765,14 @@ stage.f"> */ doublecomplex *, integer *, doublereal *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); integer indwrk, indrwk, llwork; doublereal smlnum; logical lquery; - extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *); doublereal eps; integer indhous; @@ -844,15 +844,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBEV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -867,7 +867,7 @@ stage.f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -937,7 +937,7 @@ stage.f"> */ work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZHBEV_2STAGE */ diff --git a/lapack-netlib/SRC/zhbevd.c b/lapack-netlib/SRC/zhbevd.c index 93a2ea78f..00fd613f7 100644 --- a/lapack-netlib/SRC/zhbevd.c +++ b/lapack-netlib/SRC/zhbevd.c @@ -731,7 +731,7 @@ f"> */ /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd, +/* Subroutine */ void zhbevd_(char *jobz, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info) @@ -746,12 +746,12 @@ f"> */ integer imax; doublereal rmin, rmax; integer llwk2; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -767,7 +767,7 @@ f"> */ doublecomplex *, integer *, doublereal *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zstedc_(char *, integer *, doublereal *, @@ -777,7 +777,7 @@ f"> */ doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lrwmin; doublereal smlnum; @@ -864,15 +864,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -882,7 +882,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -952,7 +952,7 @@ f"> */ work[1].r = (doublereal) lwmin, work[1].i = 0.; rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZHBEVD */ diff --git a/lapack-netlib/SRC/zhbevd_2stage.c b/lapack-netlib/SRC/zhbevd_2stage.c index 5f0deecd7..5a866844b 100644 --- a/lapack-netlib/SRC/zhbevd_2stage.c +++ b/lapack-netlib/SRC/zhbevd_2stage.c @@ -779,7 +779,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhbevd_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void zhbevd_2stage_(char *jobz, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, @@ -795,18 +795,18 @@ static integer c__1 = 1; integer *, integer *, integer *); doublereal anrm; integer imax; - extern /* Subroutine */ int zhetrd_hb2st_(char *, char *, char *, + extern /* Subroutine */ void zhetrd_hb2st_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal rmin, rmax; integer llwk2; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo, indwk, lhtrd; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -822,7 +822,7 @@ static integer c__1 = 1; doublecomplex *, integer *, doublereal *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zstedc_(char *, integer *, doublereal *, @@ -830,7 +830,7 @@ static integer c__1 = 1; integer *, doublereal *, integer *, integer *, integer *, integer *); integer indrwk, liwmin; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lrwmin, llwork; doublereal smlnum; @@ -924,15 +924,15 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHBEVD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -942,7 +942,7 @@ static integer c__1 = 1; i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -1017,7 +1017,7 @@ static integer c__1 = 1; work[1].r = (doublereal) lwmin, work[1].i = 0.; rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZHBEVD_2STAGE */ diff --git a/lapack-netlib/SRC/zhbevx.c b/lapack-netlib/SRC/zhbevx.c index 2de6c2290..6203b310d 100644 --- a/lapack-netlib/SRC/zhbevx.c +++ b/lapack-netlib/SRC/zhbevx.c @@ -782,7 +782,7 @@ f"> */ /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void zhbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer * iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, @@ -802,20 +802,20 @@ f"> */ logical test; doublecomplex ctmp1; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical lower; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical wantz; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer jj; @@ -829,7 +829,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal abstll, bignum; integer indiwk, indisp; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), dstebz_(char *, char *, integer *, doublereal @@ -840,11 +840,11 @@ f"> */ integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer nsplit; doublereal smlnum; - extern /* Subroutine */ int zstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void zstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *), zsteqr_(char *, integer *, doublereal *, doublereal *, @@ -923,14 +923,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -955,7 +955,7 @@ f"> */ z__[i__1].r = 1., z__[i__1].i = 0.; } } - return 0; + return; } /* Get machine constants. */ @@ -1131,7 +1131,7 @@ L30: } } - return 0; + return; /* End of ZHBEVX */ diff --git a/lapack-netlib/SRC/zhbevx_2stage.c b/lapack-netlib/SRC/zhbevx_2stage.c index 6e16b15eb..64e97ebd3 100644 --- a/lapack-netlib/SRC/zhbevx_2stage.c +++ b/lapack-netlib/SRC/zhbevx_2stage.c @@ -845,7 +845,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhbevx_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void zhbevx_2stage_(char *jobz, char *range, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal * @@ -864,7 +864,7 @@ static integer c__1 = 1; integer *, integer *, integer *); doublereal anrm; integer imax; - extern /* Subroutine */ int zhetrd_hb2st_(char *, char *, char *, + extern /* Subroutine */ void zhetrd_hb2st_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -872,23 +872,23 @@ static integer c__1 = 1; logical test; doublecomplex ctmp1; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; integer lhtrd; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; logical lower; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwtrd; logical wantz; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ib, jj; @@ -902,7 +902,7 @@ static integer c__1 = 1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal abstll, bignum; integer indiwk, indisp; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), dstebz_(char *, char *, integer *, doublereal @@ -910,15 +910,15 @@ static integer c__1 = 1; doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer nsplit, llwork; doublereal smlnum; - extern /* Subroutine */ int zstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void zstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *); logical lquery; - extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *); doublereal eps, vll, vuu; integer indhous; @@ -1018,16 +1018,16 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHBEVX_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1052,7 +1052,7 @@ static integer c__1 = 1; z__[i__1].r = 1., z__[i__1].i = 0.; } } - return 0; + return; } /* Get machine constants. */ @@ -1237,7 +1237,7 @@ L30: work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZHBEVX_2STAGE */ diff --git a/lapack-netlib/SRC/zhbgst.c b/lapack-netlib/SRC/zhbgst.c index 58ff95ab0..e37dd82b4 100644 --- a/lapack-netlib/SRC/zhbgst.c +++ b/lapack-netlib/SRC/zhbgst.c @@ -679,7 +679,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka, +/* Subroutine */ void zhbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work, doublereal *rwork, integer *info) @@ -692,40 +692,41 @@ f"> */ /* Local variables */ integer inca; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); integer i__, j, k, l, m; doublecomplex t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer i0, i1; logical upper; integer i2, j1, j2; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical wantx; - extern /* Subroutine */ int zlar2v_(integer *, doublecomplex *, + extern /* Subroutine */ void zlar2v_(integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); doublecomplex ra; integer nr, nx; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); logical update; - extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *) + extern /* Subroutine */ void zlacgv_(integer *, doublecomplex *, integer *) ; integer ka1, kb1; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlartg_(doublecomplex *, doublecomplex *, doublereal *, doublecomplex *, doublecomplex *); doublecomplex ra1; - extern /* Subroutine */ int zlargv_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlargv_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *); integer j1t, j2t; - extern /* Subroutine */ int zlartv_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlartv_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); doublereal bii; @@ -782,13 +783,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBGST", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } inca = *ldab * ka1; @@ -1818,14 +1819,14 @@ L490: --i__; i0 = m + 1; if (*ka == 0) { - return 0; + return; } goto L490; } } else { i__ -= *ka; if (i__ < 2) { - return 0; + return; } } diff --git a/lapack-netlib/SRC/zhbgv.c b/lapack-netlib/SRC/zhbgv.c index b3d0a2ae4..459f11cab 100644 --- a/lapack-netlib/SRC/zhbgv.c +++ b/lapack-netlib/SRC/zhbgv.c @@ -691,7 +691,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka, +/* Subroutine */ void zhbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *info) @@ -705,13 +705,14 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern logical lsame_(char *, char *); integer iinfo; logical upper, wantz; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dsterf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dsterf_( integer *, doublereal *, doublereal *, integer *), zhbtrd_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); integer indwrk; - extern /* Subroutine */ int zhbgst_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhbgst_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, integer *), zpbstf_(char *, integer *, integer *, @@ -770,13 +771,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBGV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -784,7 +785,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -812,7 +813,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zsteqr_(jobz, n, &w[1], &rwork[inde], &z__[z_offset], ldz, &rwork[ indwrk], info); } - return 0; + return; /* End of ZHBGV */ diff --git a/lapack-netlib/SRC/zhbgvd.c b/lapack-netlib/SRC/zhbgvd.c index 685c5ef0e..e7dd111f5 100644 --- a/lapack-netlib/SRC/zhbgvd.c +++ b/lapack-netlib/SRC/zhbgvd.c @@ -764,7 +764,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka, +/* Subroutine */ void zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer * @@ -779,7 +779,7 @@ f"> */ integer llwk2; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -788,7 +788,8 @@ f"> */ integer llrwk; logical wantz; integer indwk2; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dsterf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dsterf_( integer *, doublereal *, doublereal *, integer *), zstedc_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer * , doublecomplex *, integer *, doublereal *, integer *, integer *, @@ -796,13 +797,13 @@ f"> */ integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); integer indwrk, liwmin; - extern /* Subroutine */ int zhbgst_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhbgst_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lrwmin; - extern /* Subroutine */ int zpbstf_(char *, integer *, integer *, + extern /* Subroutine */ void zpbstf_(char *, integer *, integer *, doublecomplex *, integer *, integer *); logical lquery; @@ -891,15 +892,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -907,7 +908,7 @@ f"> */ zpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -945,7 +946,7 @@ f"> */ work[1].r = (doublereal) lwmin, work[1].i = 0.; rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZHBGVD */ diff --git a/lapack-netlib/SRC/zhbgvx.c b/lapack-netlib/SRC/zhbgvx.c index 0e2f75f94..75d981600 100644 --- a/lapack-netlib/SRC/zhbgvx.c +++ b/lapack-netlib/SRC/zhbgvx.c @@ -813,7 +813,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void zhbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal * @@ -833,12 +833,12 @@ f"> */ extern logical lsame_(char *, char *); integer iinfo; char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper, wantz; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer jj; @@ -847,7 +847,7 @@ f"> */ logical valeig; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer indiwk, indisp; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, @@ -856,13 +856,13 @@ f"> */ integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int zhbgst_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhbgst_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer nsplit; - extern /* Subroutine */ int zpbstf_(char *, integer *, integer *, + extern /* Subroutine */ void zpbstf_(char *, integer *, integer *, doublecomplex *, integer *, integer *), zstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, @@ -949,14 +949,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBGVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a split Cholesky factorization of B. */ @@ -964,7 +964,7 @@ f"> */ zpbstf_(uplo, n, kb, &bb[bb_offset], ldbb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem. */ @@ -1092,7 +1092,7 @@ L30: } } - return 0; + return; /* End of ZHBGVX */ diff --git a/lapack-netlib/SRC/zhbtrd.c b/lapack-netlib/SRC/zhbtrd.c index 5e0b17ee2..641320b87 100644 --- a/lapack-netlib/SRC/zhbtrd.c +++ b/lapack-netlib/SRC/zhbtrd.c @@ -677,7 +677,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd, +/* Subroutine */ void zhbtrd_(char *vect, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *work, integer *info) { @@ -692,24 +692,25 @@ f"> */ doublereal abst; integer incx, last; doublecomplex temp; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); integer j1end, j1inc, i__, j, k, l; doublecomplex t; integer iqend; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); logical initq, wantq, upper; integer i2, j1, j2; - extern /* Subroutine */ int zlar2v_(integer *, doublecomplex *, + extern /* Subroutine */ void zlar2v_(integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); integer nq, nr, iqaend; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); integer kd1; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zlartg_(doublecomplex *, doublecomplex *, doublereal *, doublecomplex *, doublecomplex *), zlargv_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -767,13 +768,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHBTRD", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize Q to the unit matrix, if needed */ @@ -1371,7 +1372,7 @@ f"> */ } } - return 0; + return; /* End of ZHBTRD */ diff --git a/lapack-netlib/SRC/zhecon.c b/lapack-netlib/SRC/zhecon.c index 9989d91ac..e1ec4b856 100644 --- a/lapack-netlib/SRC/zhecon.c +++ b/lapack-netlib/SRC/zhecon.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhecon_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info) { @@ -649,11 +649,11 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zhetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); @@ -691,7 +691,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHECON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -699,9 +699,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -713,7 +713,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } /* L10: */ } @@ -725,7 +725,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } /* L20: */ } @@ -751,7 +751,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZHECON */ diff --git a/lapack-netlib/SRC/zhecon_3.c b/lapack-netlib/SRC/zhecon_3.c index 2e18f8a60..97713d102 100644 --- a/lapack-netlib/SRC/zhecon_3.c +++ b/lapack-netlib/SRC/zhecon_3.c @@ -678,7 +678,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhecon_3_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhecon_3_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info) { @@ -686,16 +686,16 @@ static integer c__1 = 1; integer a_dim1, a_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int zhetrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_3_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer kase, i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; @@ -733,7 +733,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHECON_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ @@ -741,9 +741,9 @@ static integer c__1 = 1; *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -755,7 +755,7 @@ static integer c__1 = 1; for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } } } else { @@ -766,7 +766,7 @@ static integer c__1 = 1; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } } } @@ -791,7 +791,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZHECON_3 */ diff --git a/lapack-netlib/SRC/zhecon_rook.c b/lapack-netlib/SRC/zhecon_rook.c index debdac09b..82665a210 100644 --- a/lapack-netlib/SRC/zhecon_rook.c +++ b/lapack-netlib/SRC/zhecon_rook.c @@ -652,7 +652,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhecon_rook_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhecon_rook_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info) { @@ -660,16 +660,16 @@ rook.f"> */ integer a_dim1, a_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int zhetrs_rook_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_rook_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); integer kase, i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; @@ -706,7 +706,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHECON_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ @@ -714,9 +714,9 @@ rook.f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -728,7 +728,7 @@ rook.f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } /* L10: */ } @@ -740,7 +740,7 @@ rook.f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } /* L20: */ } @@ -766,7 +766,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZHECON_ROOK */ diff --git a/lapack-netlib/SRC/zheequb.c b/lapack-netlib/SRC/zheequb.c index 7f6659ad5..918272b8b 100644 --- a/lapack-netlib/SRC/zheequb.c +++ b/lapack-netlib/SRC/zheequb.c @@ -645,7 +645,7 @@ static integer c__1 = 1; /* > Tech report version: http://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.3.1679 */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zheequb_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zheequb_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, doublecomplex *work, integer *info) { @@ -667,7 +667,7 @@ static integer c__1 = 1; logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum, smlnum; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal avg, std, tol; @@ -702,7 +702,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEQUB", &i__1, (ftnlen)7); - return 0; + return; } up = lsame_(uplo, "U"); *amax = 0.; @@ -711,7 +711,7 @@ static integer c__1 = 1; if (*n == 0) { *scond = 1.; - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -906,7 +906,7 @@ static integer c__1 = 1; d__ = c1 * c1 - c0 * 4 * c2; if (d__ <= 0.) { *info = -1; - return 0; + return; } si = c0 * -2 / (c1 + sqrt(d__)); d__ = si - s[i__]; @@ -993,6 +993,6 @@ L999: } *scond = f2cmax(smin,smlnum) / f2cmin(smax,bignum); - return 0; + return; } /* zheequb_ */ diff --git a/lapack-netlib/SRC/zheev.c b/lapack-netlib/SRC/zheev.c index 2b979e684..fed8677b7 100644 --- a/lapack-netlib/SRC/zheev.c +++ b/lapack-netlib/SRC/zheev.c @@ -656,7 +656,7 @@ ices */ /* > \ingroup complex16HEeigen */ /* ===================================================================== */ -/* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex +/* Subroutine */ void zheev_(char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) { @@ -669,7 +669,7 @@ ices */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -686,19 +686,19 @@ ices */ extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); integer indwrk; - extern /* Subroutine */ int zhetrd_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetrd_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *, integer *); integer llwork; doublereal smlnum; integer lwkopt; logical lquery; - extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *), zungtr_(char *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal eps; @@ -757,15 +757,15 @@ ices */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -776,7 +776,7 @@ ices */ i__1 = a_dim1 + 1; a[i__1].r = 1., a[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -842,7 +842,7 @@ ices */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHEEV */ diff --git a/lapack-netlib/SRC/zheev_2stage.c b/lapack-netlib/SRC/zheev_2stage.c index e9719f976..6fd0b2b58 100644 --- a/lapack-netlib/SRC/zheev_2stage.c +++ b/lapack-netlib/SRC/zheev_2stage.c @@ -708,7 +708,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zheev_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void zheev_2stage_(char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) { @@ -723,11 +723,11 @@ stage.f"> */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zhetrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void zhetrd_2stage_(char *, char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -744,14 +744,14 @@ stage.f"> */ extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *); integer indwrk, llwork; doublereal smlnum; logical lquery; - extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *), zungtr_(char *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal eps; @@ -813,15 +813,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -832,7 +832,7 @@ stage.f"> */ i__1 = a_dim1 + 1; a[i__1].r = 1., a[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -901,7 +901,7 @@ stage.f"> */ work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZHEEV_2STAGE */ diff --git a/lapack-netlib/SRC/zheevd.c b/lapack-netlib/SRC/zheevd.c index 7150e7838..f4e9ef33c 100644 --- a/lapack-netlib/SRC/zheevd.c +++ b/lapack-netlib/SRC/zheevd.c @@ -721,7 +721,7 @@ f"> */ /* > at Berkeley, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void zheevd_(char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info) @@ -736,7 +736,7 @@ f"> */ integer imax; doublereal rmin, rmax; integer lopt; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -755,7 +755,7 @@ f"> */ extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zstedc_(char *, integer *, doublereal *, @@ -763,7 +763,7 @@ f"> */ integer *, doublereal *, integer *, integer *, integer *, integer *); integer indrwk, indwrk, liwmin; - extern /* Subroutine */ int zhetrd_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetrd_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -771,7 +771,7 @@ f"> */ integer lrwmin, llwork; doublereal smlnum; logical lquery; - extern /* Subroutine */ int zunmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zunmtr_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -856,15 +856,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -874,7 +874,7 @@ f"> */ i__1 = a_dim1 + 1; a[i__1].r = 1., a[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -947,7 +947,7 @@ f"> */ rwork[1] = (doublereal) lropt; iwork[1] = liopt; - return 0; + return; /* End of ZHEEVD */ diff --git a/lapack-netlib/SRC/zheevd_2stage.c b/lapack-netlib/SRC/zheevd_2stage.c index 6943c1d68..a3abcfaca 100644 --- a/lapack-netlib/SRC/zheevd_2stage.c +++ b/lapack-netlib/SRC/zheevd_2stage.c @@ -772,7 +772,7 @@ static doublereal c_b28 = 1.; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zheevd_2stage_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void zheevd_2stage_(char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info) @@ -788,11 +788,11 @@ static doublereal c_b28 = 1.; doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zhetrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void zhetrd_2stage_(char *, char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -809,7 +809,7 @@ static doublereal c_b28 = 1.; extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex *, integer *, integer *), zstedc_(char *, integer *, doublereal *, @@ -817,12 +817,12 @@ static doublereal c_b28 = 1.; integer *, doublereal *, integer *, integer *, integer *, integer *); integer indrwk, indwrk, liwmin; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lrwmin, llwork; doublereal smlnum; logical lquery; - extern /* Subroutine */ int zunmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zunmtr_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -908,15 +908,15 @@ static doublereal c_b28 = 1.; if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEVD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -926,7 +926,7 @@ static doublereal c_b28 = 1.; i__1 = a_dim1 + 1; a[i__1].r = 1., a[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -1002,7 +1002,7 @@ static doublereal c_b28 = 1.; rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZHEEVD_2STAGE */ diff --git a/lapack-netlib/SRC/zheevr.c b/lapack-netlib/SRC/zheevr.c index f5dfaf9a2..16f10593e 100644 --- a/lapack-netlib/SRC/zheevr.c +++ b/lapack-netlib/SRC/zheevr.c @@ -874,7 +874,7 @@ f"> */ /* > California at Berkeley, USA \n */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void zheevr_(char *jobz, char *range, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal * w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex * @@ -891,7 +891,7 @@ f"> */ doublereal rmin, rmax; logical test; integer itmp1, i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer indrd, indre; doublereal sigma; @@ -899,11 +899,11 @@ f"> */ integer iinfo; char order[1]; integer indwk; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; logical lower, wantz; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer nb, jj; extern doublereal dlamch_(char *); @@ -913,32 +913,33 @@ f"> */ doublereal safmin; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal abstll, bignum; integer indtau, indisp; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo, indwkn; - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indrwk, liwmin; - extern /* Subroutine */ int zhetrd_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetrd_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *, integer *); logical tryrac; integer lrwmin, llwrkn, llwork, nsplit; doublereal smlnum; - extern /* Subroutine */ int zstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void zstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *); logical lquery; integer lwkopt; extern doublereal zlansy_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zstemr_(char *, char *, integer *, doublereal + extern /* Subroutine */ void zstemr_(char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, doublereal *, doublecomplex *, integer *, integer *, integer *, logical *, doublereal *, integer *, integer *, integer @@ -1053,9 +1054,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEVR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -1063,7 +1064,7 @@ f"> */ *m = 0; if (*n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } if (*n == 1) { @@ -1087,7 +1088,7 @@ f"> */ isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } /* Get machine constants. */ @@ -1307,7 +1308,7 @@ L30: rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZHEEVR */ diff --git a/lapack-netlib/SRC/zheevr_2stage.c b/lapack-netlib/SRC/zheevr_2stage.c index 7042343cf..8f524c77b 100644 --- a/lapack-netlib/SRC/zheevr_2stage.c +++ b/lapack-netlib/SRC/zheevr_2stage.c @@ -922,7 +922,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zheevr_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void zheevr_2stage_(char *jobz, char *range, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, integer *isuppz, @@ -941,25 +941,25 @@ static integer c_n1 = -1; doublereal rmin, rmax; logical test; integer itmp1, i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer indrd, indre; doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zhetrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void zhetrd_2stage_(char *, char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); char order[1]; integer indwk, lhtrd; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; logical lower; integer lwtrd; logical wantz; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ib, kd, jj; extern doublereal dlamch_(char *); @@ -969,14 +969,15 @@ static integer c_n1 = -1; doublereal safmin; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal abstll, bignum; integer indtau, indisp; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); integer indiwo, indwkn; - extern /* Subroutine */ int dstebz_(char *, char *, integer *, doublereal + extern /* Subroutine */ void dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); @@ -984,13 +985,13 @@ static integer c_n1 = -1; logical tryrac; integer lrwmin, llwrkn, llwork, nsplit; doublereal smlnum; - extern /* Subroutine */ int zstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void zstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *); logical lquery; extern doublereal zlansy_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zstemr_(char *, char *, integer *, doublereal + extern /* Subroutine */ void zstemr_(char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, doublereal *, doublecomplex *, integer *, integer *, integer *, logical *, doublereal *, integer *, integer *, integer @@ -1099,9 +1100,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEVR_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -1109,7 +1110,7 @@ static integer c_n1 = -1; *m = 0; if (*n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } if (*n == 1) { @@ -1133,7 +1134,7 @@ static integer c_n1 = -1; isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } /* Get machine constants. */ @@ -1355,7 +1356,7 @@ L30: rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZHEEVR_2STAGE */ diff --git a/lapack-netlib/SRC/zheevx.c b/lapack-netlib/SRC/zheevx.c index 9648c2d09..c8e4d0b9a 100644 --- a/lapack-netlib/SRC/zheevx.c +++ b/lapack-netlib/SRC/zheevx.c @@ -772,7 +772,7 @@ f"> */ /* > \ingroup complex16HEeigen */ /* ===================================================================== */ -/* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void zheevx_(char *jobz, char *range, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal * w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer * @@ -790,16 +790,16 @@ f"> */ doublereal rmin, rmax; logical test; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical lower, wantz; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer nb, jj; extern doublereal dlamch_(char *); @@ -809,32 +809,33 @@ f"> */ doublereal safmin; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal abstll, bignum; extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); integer indiwk, indisp, indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int zhetrd_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetrd_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *, integer *); integer lwkmin; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer llwork, nsplit; doublereal smlnum; - extern /* Subroutine */ int zstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void zstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *), zungtr_(char *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zunmtr_(char *, char *, char *, integer *, integer *, @@ -931,16 +932,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -961,7 +962,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -1144,7 +1145,7 @@ L40: work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHEEVX */ diff --git a/lapack-netlib/SRC/zheevx_2stage.c b/lapack-netlib/SRC/zheevx_2stage.c index 851b4adf3..cc2503067 100644 --- a/lapack-netlib/SRC/zheevx_2stage.c +++ b/lapack-netlib/SRC/zheevx_2stage.c @@ -822,7 +822,7 @@ static integer c__4 = 4; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zheevx_2stage_(char *jobz, char *range, char *uplo, +/* Subroutine */ void zheevx_2stage_(char *jobz, char *range, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex * @@ -842,24 +842,24 @@ static integer c__4 = 4; doublereal rmin, rmax; logical test; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zhetrd_2stage_(char *, char *, integer *, + extern /* Subroutine */ void zhetrd_2stage_(char *, char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer iinfo; char order[1]; integer lhtrd; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; logical lower; integer lwtrd; logical wantz; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ib, kd, jj; extern doublereal dlamch_(char *); @@ -867,27 +867,28 @@ static integer c__4 = 4; integer iscale, indibl; logical valeig; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal abstll, bignum; extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); integer indiwk, indisp, indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); integer indrwk, indwrk; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer nsplit, llwork; doublereal smlnum; - extern /* Subroutine */ int zstein_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void zstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *); logical lquery; - extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *), zungtr_(char *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zunmtr_(char *, char *, char *, integer *, integer *, @@ -986,16 +987,16 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("ZHEEVX_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1016,7 +1017,7 @@ static integer c__4 = 4; i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -1202,7 +1203,7 @@ L40: work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZHEEVX_2STAGE */ diff --git a/lapack-netlib/SRC/zhegs2.c b/lapack-netlib/SRC/zhegs2.c index ee1d674b3..ea7aaf923 100644 --- a/lapack-netlib/SRC/zhegs2.c +++ b/lapack-netlib/SRC/zhegs2.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n, +/* Subroutine */ void zhegs2_(integer *itype, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info) { @@ -653,20 +653,21 @@ f"> */ doublecomplex z__1; /* Local variables */ - extern /* Subroutine */ int zher2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zher2_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer k; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrmv_( char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsv_(char * , char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ct; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublereal akk, bkk; @@ -708,7 +709,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEGS2", &i__1, (ftnlen)6); - return 0; + return; } if (*itype == 1) { @@ -886,7 +887,7 @@ f"> */ } } } - return 0; + return; /* End of ZHEGS2 */ diff --git a/lapack-netlib/SRC/zhegst.c b/lapack-netlib/SRC/zhegst.c index 5d7010567..d7517e27a 100644 --- a/lapack-netlib/SRC/zhegst.c +++ b/lapack-netlib/SRC/zhegst.c @@ -645,7 +645,7 @@ f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n, +/* Subroutine */ void zhegst_(integer *itype, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info) { @@ -656,11 +656,11 @@ f"> */ /* Local variables */ integer k; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zhemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zhemm_(char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, @@ -713,13 +713,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEGST", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -903,7 +903,7 @@ f"> */ } } } - return 0; + return; /* End of ZHEGST */ diff --git a/lapack-netlib/SRC/zhegv.c b/lapack-netlib/SRC/zhegv.c index 5e5c46ba5..77d2ddea4 100644 --- a/lapack-netlib/SRC/zhegv.c +++ b/lapack-netlib/SRC/zhegv.c @@ -695,7 +695,7 @@ static integer c_n1 = -1; /* > \ingroup complex16HEeigen */ /* ===================================================================== */ -/* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void zhegv_(integer *itype, char *jobz, char *uplo, integer * n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info) @@ -706,12 +706,12 @@ static integer c_n1 = -1; /* Local variables */ integer neig; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zheev_(char *, char *, integer *, + extern /* Subroutine */ void zheev_(char *, char *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, integer *); char trans[1]; logical upper, wantz; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, @@ -721,7 +721,7 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zhegst_(integer *, char *, integer *, + extern /* Subroutine */ void zhegst_(integer *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer lwkopt; logical lquery; @@ -789,15 +789,15 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHEGV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -805,7 +805,7 @@ static integer c_n1 = -1; zpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -854,7 +854,7 @@ static integer c_n1 = -1; work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHEGV */ diff --git a/lapack-netlib/SRC/zhegv_2stage.c b/lapack-netlib/SRC/zhegv_2stage.c index 80606d634..9ae891db1 100644 --- a/lapack-netlib/SRC/zhegv_2stage.c +++ b/lapack-netlib/SRC/zhegv_2stage.c @@ -749,7 +749,7 @@ stage.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhegv_2stage_(integer *itype, char *jobz, char *uplo, +/* Subroutine */ void zhegv_2stage_(integer *itype, char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *w, doublecomplex *work, integer *lwork, doublereal * rwork, integer *info) @@ -761,7 +761,7 @@ stage.f"> */ integer neig; extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); - extern /* Subroutine */ int zheev_2stage_(char *, char *, integer *, + extern /* Subroutine */ void zheev_2stage_(char *, char *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, integer *); extern logical lsame_(char *, char *); @@ -770,14 +770,15 @@ stage.f"> */ logical upper; integer lwtrd; logical wantz; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer ib, kd; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zhegst_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zhegst_( integer *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); logical lquery; @@ -847,15 +848,15 @@ stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEGV_2STAGE ", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -863,7 +864,7 @@ stage.f"> */ zpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -912,7 +913,7 @@ stage.f"> */ work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZHEGV_2STAGE */ diff --git a/lapack-netlib/SRC/zhegvd.c b/lapack-netlib/SRC/zhegvd.c index 6c0ca9891..6ce5b9552 100644 --- a/lapack-netlib/SRC/zhegvd.c +++ b/lapack-netlib/SRC/zhegvd.c @@ -761,7 +761,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void zhegvd_(integer *itype, char *jobz, char *uplo, integer * n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info) @@ -779,18 +779,19 @@ f"> */ logical upper; integer lropt; logical wantz; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, - integer *), xerbla_(char *, - integer *, ftnlen), zheevd_(char *, char *, integer *, + integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zheevd_(char *, char *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *, integer *); integer liwmin; - extern /* Subroutine */ int zhegst_(integer *, char *, integer *, + extern /* Subroutine */ void zhegst_(integer *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer lrwmin; logical lquery; @@ -874,15 +875,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -890,7 +891,7 @@ f"> */ zpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -946,7 +947,7 @@ f"> */ rwork[1] = (doublereal) lropt; iwork[1] = liopt; - return 0; + return; /* End of ZHEGVD */ diff --git a/lapack-netlib/SRC/zhegvx.c b/lapack-netlib/SRC/zhegvx.c index 28f628af0..77e5ddd74 100644 --- a/lapack-netlib/SRC/zhegvx.c +++ b/lapack-netlib/SRC/zhegvx.c @@ -820,7 +820,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char * +/* Subroutine */ void zhegvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer * iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, @@ -834,7 +834,7 @@ f"> */ extern logical lsame_(char *, char *); char trans[1]; logical upper, wantz; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, @@ -845,7 +845,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zhegst_(integer *, char *, integer *, + extern /* Subroutine */ void zhegst_(integer *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zheevx_(char *, char *, char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, doublecomplex * @@ -944,16 +944,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHEGVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -961,7 +961,7 @@ f"> */ zpotrf_(uplo, n, &b[b_offset], ldb, info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -1012,7 +1012,7 @@ f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHEGVX */ diff --git a/lapack-netlib/SRC/zherfs.c b/lapack-netlib/SRC/zherfs.c index 9dbcd7c6f..47496c519 100644 --- a/lapack-netlib/SRC/zherfs.c +++ b/lapack-netlib/SRC/zherfs.c @@ -705,7 +705,7 @@ f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zherfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, @@ -724,11 +724,11 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3], count; - extern /* Subroutine */ int zhemv_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhemv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zlacn2_( integer *, doublecomplex *, doublecomplex *, doublereal *, @@ -739,7 +739,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int zhetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -796,7 +796,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHERFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -808,7 +808,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1042,7 +1042,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZHERFS */ diff --git a/lapack-netlib/SRC/zhesv.c b/lapack-netlib/SRC/zhesv.c index d7bc12465..64c94960f 100644 --- a/lapack-netlib/SRC/zhesv.c +++ b/lapack-netlib/SRC/zhesv.c @@ -684,7 +684,7 @@ static integer c_n1 = -1; /* > \ingroup complex16HEsolve */ /* ===================================================================== */ -/* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhesv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -697,12 +697,12 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zhetrf_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetrf_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zhetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int zhetrs2_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs2_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -759,9 +759,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHESV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**H or A = L*D*L**H. */ @@ -791,7 +791,7 @@ static integer c_n1 = -1; work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHESV */ diff --git a/lapack-netlib/SRC/zhesv_aa.c b/lapack-netlib/SRC/zhesv_aa.c index 1384fdee2..5878e3470 100644 --- a/lapack-netlib/SRC/zhesv_aa.c +++ b/lapack-netlib/SRC/zhesv_aa.c @@ -674,7 +674,7 @@ a.f"> */ /* > \ingroup complex16HEsolve */ /* ===================================================================== */ -/* Subroutine */ int zhesv_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhesv_aa_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -684,10 +684,11 @@ a.f"> */ /* Local variables */ integer lwkopt_hetrf__, lwkopt_hetrs__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zhetrf_aa_(char *, integer *, doublecomplex * + extern /* Subroutine */ void zhetrf_aa_(char *, integer *, doublecomplex * , integer *, integer *, doublecomplex *, integer *, integer *), zhetrs_aa_(char *, integer *, integer *, doublecomplex * , integer *, integer *, doublecomplex *, integer *, doublecomplex - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -748,9 +749,9 @@ a.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHESV_AA ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U**H*T*U or A = L*T*L**H. */ @@ -767,7 +768,7 @@ a.f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHESV_AA */ diff --git a/lapack-netlib/SRC/zhesv_aa_2stage.c b/lapack-netlib/SRC/zhesv_aa_2stage.c index f43560978..e2665440d 100644 --- a/lapack-netlib/SRC/zhesv_aa_2stage.c +++ b/lapack-netlib/SRC/zhesv_aa_2stage.c @@ -699,7 +699,7 @@ a_2stage.f"> */ /* > \ingroup complex16HEsolve */ /* ===================================================================== */ -/* Subroutine */ int zhesv_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhesv_aa_2stage_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *tb, integer *ltb, integer *ipiv, integer *ipiv2, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) @@ -708,7 +708,7 @@ a_2stage.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int zhetrf_aa_2stage_(char *, integer *, + extern /* Subroutine */ void zhetrf_aa_2stage_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, integer *, integer *), zhetrs_aa_2stage_(char *, integer *, integer *, doublecomplex *, @@ -775,9 +775,9 @@ a_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHESV_AA_2STAGE", &i__1, (ftnlen)15); - return 0; + return; } else if (wquery || tquery) { - return 0; + return; } /* Compute the factorization A = U**H*T*U or A = L*T*L**H. */ @@ -795,7 +795,7 @@ a_2stage.f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHESV_AA_2STAGE */ diff --git a/lapack-netlib/SRC/zhesv_rk.c b/lapack-netlib/SRC/zhesv_rk.c index b95143bcb..36079d8cf 100644 --- a/lapack-netlib/SRC/zhesv_rk.c +++ b/lapack-netlib/SRC/zhesv_rk.c @@ -740,7 +740,7 @@ k.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhesv_rk_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhesv_rk_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) @@ -749,13 +749,14 @@ k.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int zhetrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_3_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int zhetrf_rk_(char *, integer *, doublecomplex * + extern /* Subroutine */ void zhetrf_rk_(char *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, doublecomplex *, integer - *, integer *), xerbla_(char *, integer *, ftnlen); + *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -813,9 +814,9 @@ k.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHESV_RK ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = P*U*D*(U**H)*(P**T) or */ @@ -835,7 +836,7 @@ k.f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHESV_RK */ diff --git a/lapack-netlib/SRC/zhesv_rook.c b/lapack-netlib/SRC/zhesv_rook.c index 05541e18f..4c166c123 100644 --- a/lapack-netlib/SRC/zhesv_rook.c +++ b/lapack-netlib/SRC/zhesv_rook.c @@ -719,7 +719,7 @@ ook.f"> */ /* ===================================================================== */ -/* Subroutine */ int zhesv_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhesv_rook_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -727,7 +727,7 @@ ook.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int zhetrs_rook_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_rook_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); extern logical lsame_(char *, char *); @@ -737,7 +737,7 @@ ook.f"> */ integer *, integer *, ftnlen, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int zhetrf_rook_(char *, integer *, + extern /* Subroutine */ void zhetrf_rook_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); @@ -794,9 +794,9 @@ ook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHESV_ROOK ", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**H or A = L*D*L**H. */ @@ -815,7 +815,7 @@ ook.f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHESV_ROOK */ diff --git a/lapack-netlib/SRC/zhesvx.c b/lapack-netlib/SRC/zhesvx.c index 4de9033d0..a71a0745c 100644 --- a/lapack-netlib/SRC/zhesvx.c +++ b/lapack-netlib/SRC/zhesvx.c @@ -797,7 +797,7 @@ f"> */ /* > \ingroup complex16HEsolve */ /* ===================================================================== */ -/* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zhesvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, @@ -818,7 +818,7 @@ f"> */ integer *, integer *, ftnlen, ftnlen); extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zhecon_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhecon_(char *, integer *, doublecomplex *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *), zherfs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, @@ -909,9 +909,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHESVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } if (nofact) { @@ -926,7 +926,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -960,7 +960,7 @@ f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHESVX */ diff --git a/lapack-netlib/SRC/zhesvxx.c b/lapack-netlib/SRC/zhesvxx.c index 696c9f306..54b52afc2 100644 --- a/lapack-netlib/SRC/zhesvxx.c +++ b/lapack-netlib/SRC/zhesvxx.c @@ -1012,7 +1012,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16HEsolve */ /* ===================================================================== */ -/* Subroutine */ int zhesvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zhesvxx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, @@ -1040,14 +1040,14 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical nofact; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int zlaqhe_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zlaqhe_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, char *); integer infequ; - extern /* Subroutine */ int zhetrf_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetrf_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int zhetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zlascl2_(integer *, integer *, doublereal *, doublecomplex *, integer *), zheequb_(char *, integer *, @@ -1167,7 +1167,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZHESVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1212,7 +1212,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = zla_herpvgrw_(uplo, n, info, &a[a_offset], lda, & af[af_offset], ldaf, &ipiv[1], &rwork[1]); } - return 0; + return; } } @@ -1244,7 +1244,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zlascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of ZHESVXX */ diff --git a/lapack-netlib/SRC/zheswapr.c b/lapack-netlib/SRC/zheswapr.c index d8ec5b1b0..999b3f43b 100644 --- a/lapack-netlib/SRC/zheswapr.c +++ b/lapack-netlib/SRC/zheswapr.c @@ -616,7 +616,7 @@ r.f"> */ /* > \ingroup complex16HEauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zheswapr_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zheswapr_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *i1, integer *i2) { /* System generated locals */ @@ -627,7 +627,7 @@ r.f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex tmp; @@ -749,6 +749,6 @@ r.f"> */ } } - return 0; + return; } /* zheswapr_ */ diff --git a/lapack-netlib/SRC/zhetd2.c b/lapack-netlib/SRC/zhetd2.c index 6e6caad79..af8d2532e 100644 --- a/lapack-netlib/SRC/zhetd2.c +++ b/lapack-netlib/SRC/zhetd2.c @@ -690,7 +690,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhetd2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetd2_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, integer *info) { @@ -701,7 +701,7 @@ f"> */ /* Local variables */ doublecomplex taui; - extern /* Subroutine */ int zher2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zher2_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer i__; @@ -709,13 +709,14 @@ f"> */ extern logical lsame_(char *, char *); extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zhemv_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhemv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, - doublecomplex *, integer *, doublecomplex *, integer *), xerbla_( - char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, + doublecomplex *, integer *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -751,13 +752,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETD2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } if (upper) { @@ -912,7 +913,7 @@ f"> */ d__[i__1] = a[i__2].r; } - return 0; + return; /* End of ZHETD2 */ diff --git a/lapack-netlib/SRC/zhetf2.c b/lapack-netlib/SRC/zhetf2.c index 6afddd612..0ded5c3a7 100644 --- a/lapack-netlib/SRC/zhetf2.c +++ b/lapack-netlib/SRC/zhetf2.c @@ -706,7 +706,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -716,7 +716,7 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int zher_(char *, integer *, doublereal *, + extern /* Subroutine */ void zher_(char *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal d__; integer i__, j, k; @@ -726,7 +726,7 @@ f"> */ integer kstep; logical upper; doublereal r1; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlapy2_(doublereal *, doublereal *); doublereal d11; @@ -738,7 +738,8 @@ f"> */ doublecomplex wk; doublereal tt; extern logical disnan_(doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal colmax; extern integer izamax_(integer *, doublecomplex *, integer *); @@ -776,7 +777,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETF2", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1379,7 +1380,7 @@ L50: } L90: - return 0; + return; /* End of ZHETF2 */ diff --git a/lapack-netlib/SRC/zhetf2_rk.c b/lapack-netlib/SRC/zhetf2_rk.c index df630973f..95131cfca 100644 --- a/lapack-netlib/SRC/zhetf2_rk.c +++ b/lapack-netlib/SRC/zhetf2_rk.c @@ -755,7 +755,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetf2_rk_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetf2_rk_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -766,7 +766,7 @@ rk.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int zher_(char *, integer *, doublereal *, + extern /* Subroutine */ void zher_(char *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal d__; integer i__, j, k, p; @@ -777,7 +777,7 @@ rk.f"> */ integer itemp, kstep; logical upper; doublereal r1; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlapy2_(doublereal *, doublereal *); doublereal d11; @@ -790,7 +790,8 @@ rk.f"> */ doublereal absakk; doublecomplex wk; doublereal tt; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal colmax; extern integer izamax_(integer *, doublecomplex *, integer *); @@ -830,7 +831,7 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETF2_RK", &i__1, (ftnlen)9); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1839,7 +1840,7 @@ L64: ; } - return 0; + return; /* End of ZHETF2_RK */ diff --git a/lapack-netlib/SRC/zhetf2_rook.c b/lapack-netlib/SRC/zhetf2_rook.c index 2b5e16ee6..40ebc9661 100644 --- a/lapack-netlib/SRC/zhetf2_rook.c +++ b/lapack-netlib/SRC/zhetf2_rook.c @@ -708,7 +708,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetf2_rook_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetf2_rook_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -719,7 +719,7 @@ rook.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int zher_(char *, integer *, doublereal *, + extern /* Subroutine */ void zher_(char *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal d__; integer i__, j, k, p; @@ -730,7 +730,7 @@ rook.f"> */ integer itemp, kstep; logical upper; doublereal r1; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlapy2_(doublereal *, doublereal *); doublereal d11; @@ -743,7 +743,8 @@ rook.f"> */ doublereal absakk; doublecomplex wk; doublereal tt; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal colmax; extern integer izamax_(integer *, doublecomplex *, integer *); @@ -782,7 +783,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETF2_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1685,7 +1686,7 @@ L42: L70: - return 0; + return; /* End of ZHETF2_ROOK */ diff --git a/lapack-netlib/SRC/zhetrd.c b/lapack-netlib/SRC/zhetrd.c index 6cf300d02..a08e38a9c 100644 --- a/lapack-netlib/SRC/zhetrd.c +++ b/lapack-netlib/SRC/zhetrd.c @@ -709,7 +709,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetrd_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info) { @@ -722,7 +722,7 @@ f"> */ extern logical lsame_(char *, char *); integer nbmin, iinfo; logical upper; - extern /* Subroutine */ int zhetd2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetd2_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *), zher2k_(char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); @@ -730,7 +730,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlatrd_(char *, integer *, integer *, + extern /* Subroutine */ void zlatrd_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, doublecomplex *, integer *); integer ldwork, lwkopt; @@ -785,16 +785,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } nx = *n; @@ -931,7 +931,7 @@ f"> */ } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHETRD */ diff --git a/lapack-netlib/SRC/zhetrd_2stage.c b/lapack-netlib/SRC/zhetrd_2stage.c index a8946c38e..1d52bdaea 100644 --- a/lapack-netlib/SRC/zhetrd_2stage.c +++ b/lapack-netlib/SRC/zhetrd_2stage.c @@ -740,7 +740,7 @@ static integer c__4 = 4; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhetrd_2stage_(char *vect, char *uplo, integer *n, +/* Subroutine */ void zhetrd_2stage_(char *vect, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, doublecomplex *hous2, integer *lhous2, doublecomplex *work, integer *lwork, integer *info) @@ -750,12 +750,12 @@ static integer c__4 = 4; /* Local variables */ integer ldab; - extern /* Subroutine */ int zhetrd_he2hb_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrd_he2hb_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); extern integer ilaenv2stage_(integer *, char *, char *, integer *, integer *, integer *, integer *); - extern /* Subroutine */ int zhetrd_hb2st_(char *, char *, char *, + extern /* Subroutine */ void zhetrd_hb2st_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -826,16 +826,16 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRD_2STAGE", &i__1, (ftnlen)13); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Determine pointer position */ @@ -849,20 +849,20 @@ static integer c__4 = 4; if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRD_HE2HB", &i__1, (ftnlen)12); - return 0; + return; } zhetrd_hb2st_("Y", vect, uplo, n, &kd, &work[abpos], &ldab, &d__[1], &e[ 1], &hous2[1], lhous2, &work[wpos], &lwrk, info); if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRD_HB2ST", &i__1, (ftnlen)12); - return 0; + return; } hous2[1].r = (doublereal) lhmin, hous2[1].i = 0.; work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZHETRD_2STAGE */ diff --git a/lapack-netlib/SRC/zhetrd_hb2st.c b/lapack-netlib/SRC/zhetrd_hb2st.c index 07bd66764..cac1d995e 100644 --- a/lapack-netlib/SRC/zhetrd_hb2st.c +++ b/lapack-netlib/SRC/zhetrd_hb2st.c @@ -746,7 +746,7 @@ hb2st.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhetrd_hb2st_(char *stage1, char *vect, char *uplo, +/* Subroutine */ void zhetrd_hb2st_(char *stage1, char *vect, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, doublecomplex *hous, integer *lhous, doublecomplex *work, integer *lwork, integer *info) @@ -770,14 +770,14 @@ hb2st.f"> */ integer thgrid, thgrnb, indtau; doublereal abstmp; integer ofdpos; - extern /* Subroutine */ int zhb2st_kernels_(char *, logical *, integer *, + extern /* Subroutine */ void zhb2st_kernels_(char *, logical *, integer *, integer *, integer *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer blklastind; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); logical lquery, afters1; integer lda, tid, ldv; doublecomplex tmp; @@ -848,9 +848,9 @@ hb2st.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRD_HB2ST", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -858,7 +858,7 @@ hb2st.f"> */ if (*n == 0) { hous[1].r = 1., hous[1].i = 0.; work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Determine pointer position */ @@ -912,7 +912,7 @@ hb2st.f"> */ hous[1].r = 1., hous[1].i = 0.; work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Case KD=1: */ @@ -993,7 +993,7 @@ hb2st.f"> */ hous[1].r = 1., hous[1].i = 0.; work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Main code start here. */ @@ -1115,7 +1115,7 @@ hb2st.f"> */ hous[1].r = (doublereal) lhmin, hous[1].i = 0.; work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZHETRD_HB2ST */ diff --git a/lapack-netlib/SRC/zhetrd_he2hb.c b/lapack-netlib/SRC/zhetrd_he2hb.c index 235c493f8..669ca5c59 100644 --- a/lapack-netlib/SRC/zhetrd_he2hb.c +++ b/lapack-netlib/SRC/zhetrd_he2hb.c @@ -760,7 +760,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhetrd_he2hb_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void zhetrd_he2hb_(char *uplo, integer *n, integer *kd, doublecomplex *a, integer *lda, doublecomplex *ab, integer *ldab, doublecomplex *tau, doublecomplex *work, integer *lwork, integer * info) @@ -776,7 +776,7 @@ f"> */ integer tpos, wpos, s1pos, s2pos, i__, j; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zhemm_(char *, char *, integer *, @@ -785,13 +785,14 @@ f"> */ integer *); integer lwmin; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zher2k_(char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); integer lk, pk, pn, lt, lw; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zgelqf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zgelqf_( integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zgeqrf_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -854,10 +855,10 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRD_HE2HB", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; } /* Quick return if possible */ @@ -886,7 +887,7 @@ f"> */ } } work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Determine the pointer position for the workspace */ @@ -1082,7 +1083,7 @@ f"> */ } work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZHETRD_HE2HB */ diff --git a/lapack-netlib/SRC/zhetrf.c b/lapack-netlib/SRC/zhetrf.c index acd6c9f4b..a52c02a65 100644 --- a/lapack-netlib/SRC/zhetrf.c +++ b/lapack-netlib/SRC/zhetrf.c @@ -693,7 +693,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -705,12 +705,13 @@ f"> */ extern logical lsame_(char *, char *); integer nbmin, iinfo; logical upper; - extern /* Subroutine */ int zhetf2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetf2_(char *, integer *, doublecomplex *, integer *, integer *, integer *); integer kb, nb; - extern /* Subroutine */ int zlahef_(char *, integer *, integer *, integer + extern /* Subroutine */ void zlahef_(char *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, - integer *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; @@ -763,9 +764,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -892,7 +893,7 @@ L20: L40: work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHETRF */ diff --git a/lapack-netlib/SRC/zhetrf_aa.c b/lapack-netlib/SRC/zhetrf_aa.c index 0bfbfd017..b3c663bb5 100644 --- a/lapack-netlib/SRC/zhetrf_aa.c +++ b/lapack-netlib/SRC/zhetrf_aa.c @@ -647,7 +647,7 @@ aa.f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetrf_aa_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetrf_aa_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -659,18 +659,18 @@ aa.f"> */ /* Local variables */ integer j; doublecomplex alpha; - extern /* Subroutine */ int zlahef_aa_(char *, integer *, integer *, + extern /* Subroutine */ void zlahef_aa_(char *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; integer k1, k2, j1, j2, j3; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer jb, nb, mj, nj; @@ -731,15 +731,15 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRF_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } ipiv[1] = 1; if (*n == 1) { @@ -747,7 +747,7 @@ aa.f"> */ i__2 = a_dim1 + 1; d__1 = a[i__2].r; a[i__1].r = d__1, a[i__1].i = 0.; - return 0; + return; } /* Adjust block size based on the workspace size */ @@ -1048,7 +1048,7 @@ L11: } L20: - return 0; + return; /* End of ZHETRF_AA */ diff --git a/lapack-netlib/SRC/zhetrf_aa_2stage.c b/lapack-netlib/SRC/zhetrf_aa_2stage.c index b88596a5d..a21c6c472 100644 --- a/lapack-netlib/SRC/zhetrf_aa_2stage.c +++ b/lapack-netlib/SRC/zhetrf_aa_2stage.c @@ -676,7 +676,7 @@ aa_2stage.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetrf_aa_2stage_(char *uplo, integer *n, doublecomplex +/* Subroutine */ void zhetrf_aa_2stage_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *tb, integer *ltb, integer *ipiv, integer *ipiv2, doublecomplex *work, integer *lwork, integer *info) { @@ -689,14 +689,14 @@ aa_2stage.f"> */ integer ldtb, i__, j, k; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer i1; logical upper; integer i2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, @@ -705,11 +705,13 @@ aa_2stage.f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *) + extern /* Subroutine */ void zlacgv_(integer *, doublecomplex *, integer *) , zgbtrf_(integer *, integer *, integer *, integer *, - doublecomplex *, integer *, integer *, integer *), zgetrf_( + doublecomplex *, integer *, integer *, integer *); + extern int zgetrf_( integer *, integer *, doublecomplex *, integer *, integer *, - integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, + integer *); + extern void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), zhegst_(integer *, char *, @@ -760,7 +762,7 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRF_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Answer the query */ @@ -778,13 +780,13 @@ aa_2stage.f"> */ } } if (tquery || wquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } /* Determine the number of the block size */ @@ -1279,7 +1281,7 @@ aa_2stage.f"> */ /* Factor the band matrix */ zgbtrf_(n, n, &nb, &nb, &tb[1], &ldtb, &ipiv2[1], info); - return 0; + return; /* End of ZHETRF_AA_2STAGE */ diff --git a/lapack-netlib/SRC/zhetrf_rk.c b/lapack-netlib/SRC/zhetrf_rk.c index 5e2148a7d..b92404579 100644 --- a/lapack-netlib/SRC/zhetrf_rk.c +++ b/lapack-netlib/SRC/zhetrf_rk.c @@ -774,7 +774,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetrf_rk_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetrf_rk_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -783,15 +783,15 @@ rk.f"> */ /* Local variables */ integer i__, k; - extern /* Subroutine */ int zhetf2_rk_(char *, integer *, doublecomplex * + extern /* Subroutine */ void zhetf2_rk_(char *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmin, iinfo; - extern /* Subroutine */ int zlahef_rk_(char *, integer *, integer *, + extern /* Subroutine */ void zlahef_rk_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer kb, nb, ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -848,9 +848,9 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRF_RK", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -1036,7 +1036,7 @@ L35: } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHETRF_RK */ diff --git a/lapack-netlib/SRC/zhetrf_rook.c b/lapack-netlib/SRC/zhetrf_rook.c index 9c2593c5c..f4a2b2def 100644 --- a/lapack-netlib/SRC/zhetrf_rook.c +++ b/lapack-netlib/SRC/zhetrf_rook.c @@ -728,7 +728,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetrf_rook_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetrf_rook_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -746,10 +746,10 @@ rook.f"> */ integer *, integer *, ftnlen, ftnlen); integer ldwork, lwkopt; logical lquery; - extern /* Subroutine */ int zhetf2_rook_(char *, integer *, + extern /* Subroutine */ void zhetf2_rook_(char *, integer *, doublecomplex *, integer *, integer *, integer *); integer iws; - extern /* Subroutine */ int zlahef_rook_(char *, integer *, integer *, + extern /* Subroutine */ void zlahef_rook_(char *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); @@ -801,9 +801,9 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRF_ROOK", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -933,7 +933,7 @@ L20: L40: work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHETRF_ROOK */ diff --git a/lapack-netlib/SRC/zhetri.c b/lapack-netlib/SRC/zhetri.c index 264bccfdd..9b7511b55 100644 --- a/lapack-netlib/SRC/zhetri.c +++ b/lapack-netlib/SRC/zhetri.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info) { /* System generated locals */ @@ -646,11 +646,11 @@ f"> */ extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer kstep; - extern /* Subroutine */ int zhemv_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhemv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal ak; @@ -690,13 +690,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -708,7 +708,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } /* L10: */ } @@ -720,7 +720,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } /* L20: */ } @@ -1053,7 +1053,7 @@ L80: ; } - return 0; + return; /* End of ZHETRI */ diff --git a/lapack-netlib/SRC/zhetri2.c b/lapack-netlib/SRC/zhetri2.c index 0ccaf9fcf..9dc0f8b54 100644 --- a/lapack-netlib/SRC/zhetri2.c +++ b/lapack-netlib/SRC/zhetri2.c @@ -642,7 +642,7 @@ static integer c_n1 = -1; /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetri2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetri2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -650,7 +650,7 @@ static integer c_n1 = -1; integer a_dim1, a_offset, i__1; /* Local variables */ - extern /* Subroutine */ int zhetri2x_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetri2x_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmax; @@ -658,7 +658,7 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zhetri_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhetri_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *); logical lquery; integer minsize; @@ -711,13 +711,13 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRI2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { work[1].r = (doublereal) minsize, work[1].i = 0.; - return 0; + return; } if (*n == 0) { - return 0; + return; } if (nbmax >= *n) { zhetri_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], info); @@ -725,7 +725,7 @@ static integer c_n1 = -1; zhetri2x_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], &nbmax, info); } - return 0; + return; /* End of ZHETRI2 */ diff --git a/lapack-netlib/SRC/zhetri2x.c b/lapack-netlib/SRC/zhetri2x.c index 2fcf27173..fa41c2a5d 100644 --- a/lapack-netlib/SRC/zhetri2x.c +++ b/lapack-netlib/SRC/zhetri2x.c @@ -635,7 +635,7 @@ x.f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetri2x_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetri2x_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *nb, integer *info) { @@ -648,31 +648,32 @@ x.f"> */ /* Local variables */ integer invd; doublecomplex akkp1; - extern /* Subroutine */ int zheswapr_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zheswapr_(char *, integer *, doublecomplex *, integer *, integer *, integer *); doublecomplex d__; integer i__, j, k; doublecomplex t; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer count; logical upper; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ak, u01_i_j__; integer u11; doublecomplex u11_i_j__; integer ip; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ztrtri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int ztrtri_( char *, char *, integer *, doublecomplex *, integer *, integer *); integer nnb, cut; doublecomplex akp1, u01_ip1_j__, u11_ip1_j__; - extern /* Subroutine */ int zsyconv_(char *, char *, integer *, + extern /* Subroutine */ void zsyconv_(char *, char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *); @@ -713,10 +714,10 @@ x.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRI2X", &i__1, (ftnlen)8); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Convert A */ @@ -734,7 +735,7 @@ x.f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } } } else { @@ -745,7 +746,7 @@ x.f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } } } @@ -1388,7 +1389,7 @@ x.f"> */ } } - return 0; + return; /* End of ZHETRI2X */ diff --git a/lapack-netlib/SRC/zhetri_3.c b/lapack-netlib/SRC/zhetri_3.c index 64d52d94c..47d2c6331 100644 --- a/lapack-netlib/SRC/zhetri_3.c +++ b/lapack-netlib/SRC/zhetri_3.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetri_3_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetri_3_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -691,7 +691,7 @@ static integer c_n1 = -1; integer a_dim1, a_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int zhetri_3x_(char *, integer *, doublecomplex * + extern /* Subroutine */ void zhetri_3x_(char *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); extern logical lsame_(char *, char *); @@ -749,16 +749,16 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRI_3", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } zhetri_3x_(uplo, n, &a[a_offset], lda, &e[1], &ipiv[1], &work[1], &nb, @@ -766,7 +766,7 @@ static integer c_n1 = -1; work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZHETRI_3 */ diff --git a/lapack-netlib/SRC/zhetri_3x.c b/lapack-netlib/SRC/zhetri_3x.c index 74e143e19..114ae02d5 100644 --- a/lapack-netlib/SRC/zhetri_3x.c +++ b/lapack-netlib/SRC/zhetri_3x.c @@ -674,7 +674,7 @@ static doublecomplex c_b2 = {0.,0.}; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetri_3x_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetri_3x_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *work, integer *nb, integer *info) { @@ -687,18 +687,18 @@ static doublecomplex c_b2 = {0.,0.}; /* Local variables */ integer invd; doublecomplex akkp1; - extern /* Subroutine */ int zheswapr_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zheswapr_(char *, integer *, doublecomplex *, integer *, integer *, integer *); doublecomplex d__; integer i__, j, k; doublereal t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal ak; @@ -752,10 +752,10 @@ static doublecomplex c_b2 = {0.,0.}; if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRI_3X", &i__1, (ftnlen)9); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Workspace got Non-diag elements of D */ @@ -776,7 +776,7 @@ static doublecomplex c_b2 = {0.,0.}; for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } } } else { @@ -787,7 +787,7 @@ static doublecomplex c_b2 = {0.,0.}; for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } } } @@ -1429,7 +1429,7 @@ static doublecomplex c_b2 = {0.,0.}; } - return 0; + return; /* End of ZHETRI_3X */ diff --git a/lapack-netlib/SRC/zhetri_rook.c b/lapack-netlib/SRC/zhetri_rook.c index 8ebcb1ba1..1897f04b3 100644 --- a/lapack-netlib/SRC/zhetri_rook.c +++ b/lapack-netlib/SRC/zhetri_rook.c @@ -643,7 +643,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetri_rook_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zhetri_rook_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info) { /* System generated locals */ @@ -660,11 +660,11 @@ rook.f"> */ extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer kstep; - extern /* Subroutine */ int zhemv_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhemv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal ak; @@ -704,13 +704,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRI_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -722,7 +722,7 @@ rook.f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } /* L10: */ } @@ -734,7 +734,7 @@ rook.f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } /* L20: */ } @@ -1233,7 +1233,7 @@ L120: ; } - return 0; + return; /* End of ZHETRI_ROOK */ diff --git a/lapack-netlib/SRC/zhetrs.c b/lapack-netlib/SRC/zhetrs.c index 0340dd149..a732bb7f9 100644 --- a/lapack-netlib/SRC/zhetrs.c +++ b/lapack-netlib/SRC/zhetrs.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhetrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -649,17 +649,18 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); doublecomplex denom; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ak, bk; integer kp; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublecomplex akm1, bkm1; @@ -700,13 +701,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1079,7 +1080,7 @@ L100: ; } - return 0; + return; /* End of ZHETRS */ diff --git a/lapack-netlib/SRC/zhetrs2.c b/lapack-netlib/SRC/zhetrs2.c index e196ba95a..fe49e271c 100644 --- a/lapack-netlib/SRC/zhetrs2.c +++ b/lapack-netlib/SRC/zhetrs2.c @@ -640,7 +640,7 @@ static doublecomplex c_b1 = {1.,0.}; /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetrs2_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhetrs2_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *info) { @@ -656,16 +656,17 @@ static doublecomplex c_b1 = {1.,0.}; doublecomplex denom; integer iinfo; logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char * , integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ak, bk; integer kp; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublecomplex akm1, bkm1; - extern /* Subroutine */ int zsyconv_(char *, char *, integer *, + extern /* Subroutine */ void zsyconv_(char *, char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *); @@ -705,13 +706,13 @@ static doublecomplex c_b1 = {1.,0.}; if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRS2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Convert A */ @@ -938,7 +939,7 @@ static doublecomplex c_b1 = {1.,0.}; zsyconv_(uplo, "R", n, &a[a_offset], lda, &ipiv[1], &work[1], &iinfo); - return 0; + return; /* End of ZHETRS2 */ diff --git a/lapack-netlib/SRC/zhetrs_3.c b/lapack-netlib/SRC/zhetrs_3.c index 4db247a9c..d8160301e 100644 --- a/lapack-netlib/SRC/zhetrs_3.c +++ b/lapack-netlib/SRC/zhetrs_3.c @@ -678,7 +678,7 @@ static doublecomplex c_b1 = {1.,0.}; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetrs_3_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhetrs_3_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -693,13 +693,14 @@ static doublecomplex c_b1 = {1.,0.}; extern logical lsame_(char *, char *); doublecomplex denom; logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char * , integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ak, bk; integer kp; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublecomplex akm1, bkm1; @@ -740,13 +741,13 @@ static doublecomplex c_b1 = {1.,0.}; if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRS_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -940,7 +941,7 @@ static doublecomplex c_b1 = {1.,0.}; } - return 0; + return; /* End of ZHETRS_3 */ diff --git a/lapack-netlib/SRC/zhetrs_aa.c b/lapack-netlib/SRC/zhetrs_aa.c index 63b4e07b9..bdebbd6b3 100644 --- a/lapack-netlib/SRC/zhetrs_aa.c +++ b/lapack-netlib/SRC/zhetrs_aa.c @@ -645,7 +645,7 @@ aa.f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetrs_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhetrs_aa_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -656,14 +656,15 @@ aa.f"> */ integer k; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgtsv_(integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex * , integer *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer kp; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer * ); @@ -715,17 +716,17 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRS_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { lwkopt = *n * 3 - 2; work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -861,7 +862,7 @@ aa.f"> */ } - return 0; + return; /* End of ZHETRS_AA */ diff --git a/lapack-netlib/SRC/zhetrs_aa_2stage.c b/lapack-netlib/SRC/zhetrs_aa_2stage.c index 75879e0cc..efcebead3 100644 --- a/lapack-netlib/SRC/zhetrs_aa_2stage.c +++ b/lapack-netlib/SRC/zhetrs_aa_2stage.c @@ -656,7 +656,7 @@ aa_2stage.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhetrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhetrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *tb, integer *ltb, integer *ipiv, integer *ipiv2, doublecomplex *b, integer *ldb, integer *info) @@ -668,13 +668,15 @@ aa_2stage.f"> */ integer ldtb; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zgbtrs_( char *, integer *, integer *, integer *, integer *, doublecomplex - *, integer *, integer *, doublecomplex *, integer *, integer *), zlaswp_(integer *, doublecomplex *, integer *, integer *, + *, integer *, integer *, doublecomplex *, integer *, integer *); + extern int zlaswp_(integer *, doublecomplex *, integer *, integer *, integer *, integer *, integer *); @@ -718,13 +720,13 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRS_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Read NB and compute LDTB */ @@ -809,7 +811,7 @@ aa_2stage.f"> */ } } - return 0; + return; /* End of ZHETRS_AA_2STAGE */ diff --git a/lapack-netlib/SRC/zhetrs_rook.c b/lapack-netlib/SRC/zhetrs_rook.c index 9ecb2b664..f6f814ea9 100644 --- a/lapack-netlib/SRC/zhetrs_rook.c +++ b/lapack-netlib/SRC/zhetrs_rook.c @@ -651,7 +651,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zhetrs_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhetrs_rook_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -665,17 +665,18 @@ rook.f"> */ doublereal s; extern logical lsame_(char *, char *); doublecomplex denom; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ak, bk; integer kp; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublecomplex akm1, bkm1; @@ -716,13 +717,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHETRS_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1117,7 +1118,7 @@ L100: ; } - return 0; + return; /* End of ZHETRS_ROOK */ diff --git a/lapack-netlib/SRC/zhfrk.c b/lapack-netlib/SRC/zhfrk.c index 2decb3c4b..efc567c3a 100644 --- a/lapack-netlib/SRC/zhfrk.c +++ b/lapack-netlib/SRC/zhfrk.c @@ -676,7 +676,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhfrk_(char *transr, char *uplo, char *trans, integer *n, +/* Subroutine */ void zhfrk_(char *transr, char *uplo, char *trans, integer *n, integer *k, doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta, doublecomplex *c__) { @@ -689,7 +689,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ doublecomplex cbeta; logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zherk_(char *, char *, integer *, @@ -750,7 +750,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (info != 0) { i__1 = -info; xerbla_("ZHFRK ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ @@ -759,7 +759,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* done (it is in ZHERK for example) and left in the general case. */ if (*n == 0 || (*alpha == 0. || *k == 0) && *beta == 1.) { - return 0; + return; } if (*alpha == 0. && *beta == 0.) { @@ -768,7 +768,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ i__2 = j; c__[i__2].r = 0., c__[i__2].i = 0.; } - return 0; + return; } z__1.r = *alpha, z__1.i = 0.; @@ -1081,7 +1081,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of ZHFRK */ diff --git a/lapack-netlib/SRC/zhgeqz.c b/lapack-netlib/SRC/zhgeqz.c index 4cb70385b..a34d50426 100644 --- a/lapack-netlib/SRC/zhgeqz.c +++ b/lapack-netlib/SRC/zhgeqz.c @@ -799,7 +799,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n, +/* Subroutine */ void zhgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *t, integer *ldt, doublecomplex *alpha, doublecomplex * beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer * @@ -814,7 +814,7 @@ f"> */ /* Local variables */ doublereal absb, atol, btol, temp; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); doublereal temp2, c__; integer j; @@ -825,7 +825,7 @@ f"> */ doublereal anorm, bnorm; integer maxit; doublecomplex shift; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); doublereal tempr; doublecomplex ctemp2, ctemp3; @@ -848,10 +848,10 @@ f"> */ doublereal *); logical ilazro; integer icompz, ifirst; - extern /* Subroutine */ int zlartg_(doublecomplex *, doublecomplex *, + extern /* Subroutine */ void zlartg_(doublecomplex *, doublecomplex *, doublereal *, doublecomplex *, doublecomplex *); integer ifrstm; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer istart; logical lquery; @@ -963,9 +963,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHGEQZ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -973,7 +973,7 @@ f"> */ /* WORK( 1 ) = CMPLX( 1 ) */ if (*n <= 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Initialize Q and Z */ @@ -1751,7 +1751,7 @@ L190: L210: z__1.r = (doublereal) (*n), z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZHGEQZ */ diff --git a/lapack-netlib/SRC/zhpcon.c b/lapack-netlib/SRC/zhpcon.c index 80ed469af..aef8edf97 100644 --- a/lapack-netlib/SRC/zhpcon.c +++ b/lapack-netlib/SRC/zhpcon.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zhpcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex * work, integer *info) { @@ -643,12 +643,12 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zhptrs_(char *, integer *, integer *, + extern /* Subroutine */ void zhptrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -681,7 +681,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -689,9 +689,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -704,7 +704,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = ip; if (ipiv[i__] > 0 && (ap[i__1].r == 0. && ap[i__1].i == 0.)) { - return 0; + return; } ip -= i__; /* L10: */ @@ -718,7 +718,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = ip; if (ipiv[i__] > 0 && (ap[i__2].r == 0. && ap[i__2].i == 0.)) { - return 0; + return; } ip = ip + *n - i__ + 1; /* L20: */ @@ -744,7 +744,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZHPCON */ diff --git a/lapack-netlib/SRC/zhpev.c b/lapack-netlib/SRC/zhpev.c index a228657ac..b3f42a19f 100644 --- a/lapack-netlib/SRC/zhpev.c +++ b/lapack-netlib/SRC/zhpev.c @@ -651,7 +651,7 @@ atrices */ /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex +/* Subroutine */ void zhpev_(char *jobz, char *uplo, integer *n, doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex * work, doublereal *rwork, integer *info) { @@ -664,7 +664,7 @@ atrices */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -673,17 +673,18 @@ atrices */ extern doublereal dlamch_(char *); integer iscale; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal bignum; integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); extern doublereal zlanhp_(char *, char *, integer *, doublecomplex *, doublereal *); integer indrwk, indwrk; doublereal smlnum; - extern /* Subroutine */ int zhptrd_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhptrd_(char *, integer *, doublecomplex *, doublereal *, doublereal *, doublecomplex *, integer *), zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *), @@ -730,13 +731,13 @@ atrices */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPEV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -746,7 +747,7 @@ atrices */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -806,7 +807,7 @@ atrices */ dscal_(&imax, &d__1, &w[1], &c__1); } - return 0; + return; /* End of ZHPEV */ diff --git a/lapack-netlib/SRC/zhpevd.c b/lapack-netlib/SRC/zhpevd.c index bfcf5a8a0..651d25267 100644 --- a/lapack-netlib/SRC/zhpevd.c +++ b/lapack-netlib/SRC/zhpevd.c @@ -713,7 +713,7 @@ f"> */ /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n, +/* Subroutine */ void zhpevd_(char *jobz, char *uplo, integer *n, doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer * lrwork, integer *iwork, integer *liwork, integer *info) @@ -727,7 +727,7 @@ f"> */ doublereal anrm; integer imax; doublereal rmin, rmax; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); @@ -736,24 +736,25 @@ f"> */ extern doublereal dlamch_(char *); integer iscale; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal bignum; integer indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *); extern doublereal zlanhp_(char *, char *, integer *, doublecomplex *, doublereal *); - extern /* Subroutine */ int zstedc_(char *, integer *, doublereal *, + extern /* Subroutine */ void zstedc_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *, integer *); integer indrwk, indwrk, liwmin, lrwmin; doublereal smlnum; - extern /* Subroutine */ int zhptrd_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhptrd_(char *, integer *, doublecomplex *, doublereal *, doublereal *, doublecomplex *, integer *); logical lquery; - extern /* Subroutine */ int zupmtr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zupmtr_(char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal eps; @@ -830,15 +831,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPEVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -847,7 +848,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -913,7 +914,7 @@ f"> */ work[1].r = (doublereal) lwmin, work[1].i = 0.; rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZHPEVD */ diff --git a/lapack-netlib/SRC/zhpevx.c b/lapack-netlib/SRC/zhpevx.c index f2ac4d49f..289d78890 100644 --- a/lapack-netlib/SRC/zhpevx.c +++ b/lapack-netlib/SRC/zhpevx.c @@ -752,7 +752,7 @@ f"> */ /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n, +/* Subroutine */ void zhpevx_(char *jobz, char *range, char *uplo, integer *n, doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal * @@ -769,16 +769,16 @@ f"> */ doublereal rmin, rmax; logical test; integer itmp1, i__, j, indee; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal sigma; extern logical lsame_(char *, char *); integer iinfo; char order[1]; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); logical wantz; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer jj; extern doublereal dlamch_(char *); @@ -786,11 +786,12 @@ f"> */ integer iscale, indibl; logical valeig; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal abstll, bignum; integer indiwk, indisp, indtau; - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), dstebz_(char *, char *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, @@ -799,7 +800,7 @@ f"> */ doublereal *); integer indrwk, indwrk, nsplit; doublereal smlnum; - extern /* Subroutine */ int zhptrd_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhptrd_(char *, integer *, doublecomplex *, doublereal *, doublereal *, doublecomplex *, integer *), zstein_(integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, doublecomplex *, integer *, @@ -873,14 +874,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPEVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -897,7 +898,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Get machine constants. */ @@ -1066,7 +1067,7 @@ L20: } } - return 0; + return; /* End of ZHPEVX */ diff --git a/lapack-netlib/SRC/zhpgst.c b/lapack-netlib/SRC/zhpgst.c index 83ccf1904..55bd84a5e 100644 --- a/lapack-netlib/SRC/zhpgst.c +++ b/lapack-netlib/SRC/zhpgst.c @@ -627,7 +627,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n, +/* Subroutine */ void zhpgst_(integer *itype, char *uplo, integer *n, doublecomplex *ap, doublecomplex *bp, integer *info) { /* System generated locals */ @@ -636,7 +636,7 @@ f"> */ doublecomplex z__1, z__2, z__3; /* Local variables */ - extern /* Subroutine */ int zhpr2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhpr2_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *); integer j, k; @@ -645,7 +645,7 @@ f"> */ doublecomplex *, integer *, doublecomplex *, integer *); logical upper; integer j1, k1; - extern /* Subroutine */ int zhpmv_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhpmv_(char *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -654,7 +654,8 @@ f"> */ , doublecomplex *, integer *); integer jj, kk; doublecomplex ct; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal ajj; integer j1j1; @@ -691,7 +692,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPGST", &i__1, (ftnlen)6); - return 0; + return; } if (*itype == 1) { @@ -855,7 +856,7 @@ f"> */ } } } - return 0; + return; /* End of ZHPGST */ diff --git a/lapack-netlib/SRC/zhpgv.c b/lapack-netlib/SRC/zhpgv.c index 84b3c86a7..915cdc526 100644 --- a/lapack-netlib/SRC/zhpgv.c +++ b/lapack-netlib/SRC/zhpgv.c @@ -677,7 +677,7 @@ static integer c__1 = 1; /* > \ingroup complex16OTHEReigen */ /* ===================================================================== */ -/* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void zhpgv_(integer *itype, char *jobz, char *uplo, integer * n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer * info) @@ -690,14 +690,15 @@ static integer c__1 = 1; extern logical lsame_(char *, char *); char trans[1]; logical upper; - extern /* Subroutine */ int zhpev_(char *, char *, integer *, + extern /* Subroutine */ void zhpev_(char *, char *, integer *, doublecomplex *, doublereal *, doublecomplex *, integer *, doublecomplex *, doublereal *, integer *); logical wantz; - extern /* Subroutine */ int ztpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztpmv_(char *, char *, char *, integer *, doublecomplex *, doublecomplex *, integer *), ztpsv_(char *, char *, char *, integer *, doublecomplex * - , doublecomplex *, integer *), xerbla_( - char *, integer *, ftnlen), zhpgst_(integer *, char *, integer *, + , doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zhpgst_(integer *, char *, integer *, doublecomplex *, doublecomplex *, integer *), zpptrf_( char *, integer *, doublecomplex *, integer *); @@ -742,13 +743,13 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZHPGV ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -756,7 +757,7 @@ static integer c__1 = 1; zpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -810,7 +811,7 @@ static integer c__1 = 1; } } } - return 0; + return; /* End of ZHPGV */ diff --git a/lapack-netlib/SRC/zhpgvd.c b/lapack-netlib/SRC/zhpgvd.c index fe28d388c..41edf776e 100644 --- a/lapack-netlib/SRC/zhpgvd.c +++ b/lapack-netlib/SRC/zhpgvd.c @@ -743,7 +743,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer * +/* Subroutine */ void zhpgvd_(integer *itype, char *jobz, char *uplo, integer * n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal * rwork, integer *lrwork, integer *iwork, integer *liwork, integer * @@ -759,20 +759,20 @@ f"> */ integer lwmin; char trans[1]; logical upper, wantz; - extern /* Subroutine */ int ztpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztpmv_(char *, char *, char *, integer *, doublecomplex *, doublecomplex *, integer *), ztpsv_(char *, char *, char *, integer *, doublecomplex * - , doublecomplex *, integer *), xerbla_( - char *, integer *, ftnlen); + , doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer liwmin; - extern /* Subroutine */ int zhpevd_(char *, char *, integer *, + extern /* Subroutine */ void zhpevd_(char *, char *, integer *, doublecomplex *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *, integer *, integer *); integer lrwmin; - extern /* Subroutine */ int zhpgst_(integer *, char *, integer *, + extern /* Subroutine */ void zhpgst_(integer *, char *, integer *, doublecomplex *, doublecomplex *, integer *); logical lquery; - extern /* Subroutine */ int zpptrf_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zpptrf_(char *, integer *, doublecomplex *, integer *); @@ -850,15 +850,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPGVD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -866,7 +866,7 @@ f"> */ zpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -933,7 +933,7 @@ f"> */ work[1].r = (doublereal) lwmin, work[1].i = 0.; rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZHPGVD */ diff --git a/lapack-netlib/SRC/zhpgvx.c b/lapack-netlib/SRC/zhpgvx.c index bb344085e..a5bc14dfb 100644 --- a/lapack-netlib/SRC/zhpgvx.c +++ b/lapack-netlib/SRC/zhpgvx.c @@ -788,7 +788,7 @@ f"> */ /* > Mark Fahey, Department of Mathematics, Univ. of Kentucky, USA */ /* ===================================================================== */ -/* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char * +/* Subroutine */ void zhpgvx_(integer *itype, char *jobz, char *range, char * uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal * vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, @@ -803,11 +803,12 @@ f"> */ extern logical lsame_(char *, char *); char trans[1]; logical upper, wantz; - extern /* Subroutine */ int ztpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztpmv_(char *, char *, char *, integer *, doublecomplex *, doublecomplex *, integer *), ztpsv_(char *, char *, char *, integer *, doublecomplex * , doublecomplex *, integer *); logical alleig, indeig, valeig; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zhpgst_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zhpgst_( integer *, char *, integer *, doublecomplex *, doublecomplex *, integer *), zhpevx_(char *, char *, char *, integer *, doublecomplex *, doublereal *, doublereal *, integer *, integer *, @@ -879,13 +880,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPGVX", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Form a Cholesky factorization of B. */ @@ -893,7 +894,7 @@ f"> */ zpptrf_(uplo, n, &bp[1], info); if (*info != 0) { *info = *n + *info; - return 0; + return; } /* Transform problem to standard eigenvalue problem and solve. */ @@ -948,7 +949,7 @@ f"> */ } } - return 0; + return; /* End of ZHPGVX */ diff --git a/lapack-netlib/SRC/zhprfs.c b/lapack-netlib/SRC/zhprfs.c index 86cb5472c..e4dcbafc3 100644 --- a/lapack-netlib/SRC/zhprfs.c +++ b/lapack-netlib/SRC/zhprfs.c @@ -693,7 +693,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex * b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer * @@ -712,7 +712,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3], count; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zhpmv_(char *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_( @@ -726,7 +726,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int zhptrs_(char *, integer *, integer *, + extern /* Subroutine */ void zhptrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -774,7 +774,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -786,7 +786,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1024,7 +1024,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZHPRFS */ diff --git a/lapack-netlib/SRC/zhpsv.c b/lapack-netlib/SRC/zhpsv.c index f59b08e9b..dd075d9d7 100644 --- a/lapack-netlib/SRC/zhpsv.c +++ b/lapack-netlib/SRC/zhpsv.c @@ -671,7 +671,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhpsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -680,7 +680,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zhptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zhptrf_( char *, integer *, doublecomplex *, integer *, integer *), zhptrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -718,7 +719,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the factorization A = U*D*U**H or A = L*D*L**H. */ @@ -731,7 +732,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zhptrs_(uplo, n, nrhs, &ap[1], &ipiv[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of ZHPSV */ diff --git a/lapack-netlib/SRC/zhpsvx.c b/lapack-netlib/SRC/zhpsvx.c index f845948e4..93af38a19 100644 --- a/lapack-netlib/SRC/zhpsvx.c +++ b/lapack-netlib/SRC/zhpsvx.c @@ -787,7 +787,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zhpsvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * @@ -799,14 +799,14 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); doublereal anorm; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); logical nofact; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal zlanhp_(char *, char *, integer *, doublecomplex *, doublereal *); - extern /* Subroutine */ int zhpcon_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhpcon_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zhprfs_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, @@ -864,7 +864,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -879,7 +879,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -908,7 +908,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of ZHPSVX */ diff --git a/lapack-netlib/SRC/zhptrd.c b/lapack-netlib/SRC/zhptrd.c index 3aabfb348..e14d305a1 100644 --- a/lapack-netlib/SRC/zhptrd.c +++ b/lapack-netlib/SRC/zhptrd.c @@ -665,7 +665,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zhptrd_(char *uplo, integer *n, doublecomplex *ap, doublereal *d__, doublereal *e, doublecomplex *tau, integer *info) { /* System generated locals */ @@ -675,7 +675,7 @@ f"> */ /* Local variables */ doublecomplex taui; - extern /* Subroutine */ int zhpr2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhpr2_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *); integer i__; @@ -685,13 +685,14 @@ f"> */ doublecomplex *, integer *, doublecomplex *, integer *); integer i1; logical upper; - extern /* Subroutine */ int zhpmv_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhpmv_(char *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer ii; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarfg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_( integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer i1i1; @@ -725,13 +726,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPTRD", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } if (upper) { @@ -871,7 +872,7 @@ f"> */ d__[i__1] = ap[i__2].r; } - return 0; + return; /* End of ZHPTRD */ diff --git a/lapack-netlib/SRC/zhptrf.c b/lapack-netlib/SRC/zhptrf.c index 7b259c2a9..31bfd9bc0 100644 --- a/lapack-netlib/SRC/zhptrf.c +++ b/lapack-netlib/SRC/zhptrf.c @@ -672,7 +672,7 @@ f"> */ /* > J. Lewis, Boeing Computer Services Company */ /* ===================================================================== */ -/* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zhptrf_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, integer *info) { /* System generated locals */ @@ -682,7 +682,7 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int zhpr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zhpr_(char *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *); doublereal d__; integer i__, j, k; @@ -692,7 +692,7 @@ f"> */ integer kstep; logical upper; doublereal r1; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlapy2_(doublereal *, doublereal *); doublereal d11; @@ -704,7 +704,8 @@ f"> */ doublecomplex wk; integer kx; doublereal tt; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal colmax; extern integer izamax_(integer *, doublecomplex *, integer *); @@ -739,7 +740,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1357,7 +1358,7 @@ L60: } L110: - return 0; + return; /* End of ZHPTRF */ diff --git a/lapack-netlib/SRC/zhptri.c b/lapack-netlib/SRC/zhptri.c index 8cfb00456..67266cb9b 100644 --- a/lapack-netlib/SRC/zhptri.c +++ b/lapack-netlib/SRC/zhptri.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zhptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublecomplex *work, integer *info) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ doublecomplex *, integer *, doublecomplex *, integer *); integer kstep; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zhpmv_(char *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zswap_( @@ -681,13 +681,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -700,7 +700,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = kp; if (ipiv[*info] > 0 && (ap[i__1].r == 0. && ap[i__1].i == 0.)) { - return 0; + return; } kp -= *info; /* L10: */ @@ -714,7 +714,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = kp; if (ipiv[*info] > 0 && (ap[i__2].r == 0. && ap[i__2].i == 0.)) { - return 0; + return; } kp = kp + *n - *info + 1; /* L20: */ @@ -1052,7 +1052,7 @@ L80: ; } - return 0; + return; /* End of ZHPTRI */ diff --git a/lapack-netlib/SRC/zhptrs.c b/lapack-netlib/SRC/zhptrs.c index 4c3da0881..e000b267c 100644 --- a/lapack-netlib/SRC/zhptrs.c +++ b/lapack-netlib/SRC/zhptrs.c @@ -630,7 +630,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zhptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -644,17 +644,18 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); doublecomplex denom; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ak, bk; integer kc, kp; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublecomplex akm1, bkm1; @@ -691,13 +692,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1079,7 +1080,7 @@ L100: ; } - return 0; + return; /* End of ZHPTRS */ diff --git a/lapack-netlib/SRC/zhsein.c b/lapack-netlib/SRC/zhsein.c index 16bd33406..a7bc3e15f 100644 --- a/lapack-netlib/SRC/zhsein.c +++ b/lapack-netlib/SRC/zhsein.c @@ -757,7 +757,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical * +/* Subroutine */ void zhsein_(char *side, char *eigsrc, char *initv, logical * select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex * w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, @@ -781,7 +781,8 @@ f"> */ integer kr, ks; doublecomplex wk; extern logical disnan_(doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlaein_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlaein_( logical *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, integer *); @@ -865,13 +866,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZHSEIN", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Set machine-dependent constants. */ @@ -945,7 +946,7 @@ L50: rwork[1]); if (disnan_(&hnorm)) { *info = -6; - return 0; + return; } else if (hnorm > 0.) { eps3 = hnorm * ulp; } else { @@ -1022,7 +1023,7 @@ L60: /* L100: */ } - return 0; + return; /* End of ZHSEIN */ diff --git a/lapack-netlib/SRC/zhseqr.c b/lapack-netlib/SRC/zhseqr.c index 29ff10ba4..bdf100a32 100644 --- a/lapack-netlib/SRC/zhseqr.c +++ b/lapack-netlib/SRC/zhseqr.c @@ -816,7 +816,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* ===================================================================== */ -/* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo, +/* Subroutine */ void zhseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, integer *info) @@ -834,7 +834,7 @@ f"> */ logical initz; doublecomplex workl[49]; logical wantt, wantz; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaqr0_(logical *, logical *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, @@ -843,7 +843,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void zlahqr_(logical *, logical *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, @@ -919,13 +919,13 @@ f"> */ i__1 = -(*info); xerbla_("ZHSEQR", &i__1, (ftnlen)6); - return 0; + return; } else if (*n == 0) { /* ==== Quick return in case N = 0; nothing to do. ==== */ - return 0; + return; } else if (lquery) { @@ -940,7 +940,7 @@ f"> */ d__1 = f2cmax(d__2,d__3); z__1.r = d__1, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } else { @@ -970,7 +970,7 @@ f"> */ i__1 = *ilo; i__2 = *ilo + *ilo * h_dim1; w[i__1].r = h__[i__2].r, w[i__1].i = h__[i__2].i; - return 0; + return; } /* ==== ZLAHQR/ZLAQR0 crossover point ==== */ @@ -1054,6 +1054,6 @@ f"> */ /* ==== End of ZHSEQR ==== */ - return 0; + return; } /* zhseqr_ */ diff --git a/lapack-netlib/SRC/zla_gbamv.c b/lapack-netlib/SRC/zla_gbamv.c index 772ed37dc..6bab7632d 100644 --- a/lapack-netlib/SRC/zla_gbamv.c +++ b/lapack-netlib/SRC/zla_gbamv.c @@ -694,7 +694,7 @@ mv.f"> */ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_gbamv_(integer *trans, integer *m, integer *n, +/* Subroutine */ void zla_gbamv_(integer *trans, integer *m, integer *n, integer *kl, integer *ku, doublereal *alpha, doublecomplex *ab, integer *ldab, doublecomplex *x, integer *incx, doublereal *beta, doublereal *y, integer *incy) @@ -756,13 +756,13 @@ mv.f"> */ } if (info != 0) { xerbla_("ZLA_GBAMV ", &info, (ftnlen)10); - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0 || *alpha == 0. && *beta == 1.) { - return 0; + return; } /* Set LENX and LENY, the lengths of the vectors x and y, and set */ @@ -955,7 +955,7 @@ mv.f"> */ } } - return 0; + return; /* End of ZLA_GBAMV */ diff --git a/lapack-netlib/SRC/zla_gbrcond_c.c b/lapack-netlib/SRC/zla_gbrcond_c.c index 9d4ec9afa..599695341 100644 --- a/lapack-netlib/SRC/zla_gbrcond_c.c +++ b/lapack-netlib/SRC/zla_gbrcond_c.c @@ -690,12 +690,12 @@ doublereal zla_gbrcond_c_(char *trans, integer *n, integer *kl, integer *ku, extern logical lsame_(char *, char *); integer isave[3]; doublereal anorm; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); integer kd, ke; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void zgbtrs_(char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_gbrcond_x.c b/lapack-netlib/SRC/zla_gbrcond_x.c index 5aeed95f2..b1ffadc64 100644 --- a/lapack-netlib/SRC/zla_gbrcond_x.c +++ b/lapack-netlib/SRC/zla_gbrcond_x.c @@ -683,12 +683,12 @@ doublereal zla_gbrcond_x_(char *trans, integer *n, integer *kl, integer *ku, extern logical lsame_(char *, char *); integer isave[3]; doublereal anorm; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); integer kd, ke; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void zgbtrs_(char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_gbrfsx_extended.c b/lapack-netlib/SRC/zla_gbrfsx_extended.c index 5853ee7fb..a662d4344 100644 --- a/lapack-netlib/SRC/zla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/zla_gbrfsx_extended.c @@ -922,7 +922,7 @@ fsx_extended.f"> */ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_gbrfsx_extended_(integer *prec_type__, integer * +/* Subroutine */ void zla_gbrfsx_extended_(integer *prec_type__, integer * trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b, @@ -942,15 +942,15 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__, ymin; - extern /* Subroutine */ int zla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void zla_lin_berr_(integer *, integer *, integer * , doublecomplex *, doublereal *, doublereal *); doublereal dxratmax, dzratmax; - extern /* Subroutine */ int blas_zgbmv_x_(integer *, integer *, integer * + extern /* Subroutine */ void blas_zgbmv_x_(integer *, integer *, integer * , integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer y_prec_state__, i__, j, m; - extern /* Subroutine */ int blas_zgbmv2_x_(integer *, integer *, integer + extern /* Subroutine */ void blas_zgbmv2_x_(integer *, integer *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), @@ -960,19 +960,19 @@ fsx_extended.f"> */ doublereal dxrat; logical incr_prec__; doublereal dzrat; - extern /* Subroutine */ int zgbmv_(char *, integer *, integer *, integer * + extern /* Subroutine */ void zgbmv_(char *, integer *, integer *, integer * , integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); char trans[1]; doublereal normx, normy; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal myhugeval, prev_dz_z__; extern doublereal dlamch_(char *); doublereal yk, final_dx_x__, final_dz_z__, normdx; - extern /* Subroutine */ int zgbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void zgbtrs_(char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zla_wwaddw_( integer *, doublecomplex *, doublecomplex *, doublecomplex *); @@ -1022,7 +1022,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } chla_transtype_(ch__1, trans_type__); *(unsigned char *)trans = *(unsigned char *)&ch__1[0]; @@ -1268,6 +1268,6 @@ L666: } - return 0; + return; } /* zla_gbrfsx_extended__ */ diff --git a/lapack-netlib/SRC/zla_geamv.c b/lapack-netlib/SRC/zla_geamv.c index bc8972712..5ad3c2207 100644 --- a/lapack-netlib/SRC/zla_geamv.c +++ b/lapack-netlib/SRC/zla_geamv.c @@ -683,7 +683,7 @@ mv.f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_geamv_(integer *trans, integer *m, integer *n, +/* Subroutine */ void zla_geamv_(integer *trans, integer *m, integer *n, doublereal *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublereal *beta, doublereal *y, integer *incy) { @@ -739,13 +739,13 @@ mv.f"> */ } if (info != 0) { xerbla_("ZLA_GEAMV ", &info, (ftnlen)10); - return 0; + return; } /* Quick return if possible. */ if (*m == 0 || *n == 0 || *alpha == 0. && *beta == 1.) { - return 0; + return; } /* Set LENX and LENY, the lengths of the vectors x and y, and set */ @@ -916,7 +916,7 @@ mv.f"> */ } } - return 0; + return; /* End of ZLA_GEAMV */ diff --git a/lapack-netlib/SRC/zla_gercond_c.c b/lapack-netlib/SRC/zla_gercond_c.c index cf253da97..b1a63cd92 100644 --- a/lapack-netlib/SRC/zla_gercond_c.c +++ b/lapack-netlib/SRC/zla_gercond_c.c @@ -670,11 +670,11 @@ doublereal zla_gercond_c_(char *trans, integer *n, doublecomplex *a, integer extern logical lsame_(char *, char *); integer isave[3]; doublereal anorm; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zgetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zgetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_gercond_x.c b/lapack-netlib/SRC/zla_gercond_x.c index a46867706..2b862092f 100644 --- a/lapack-netlib/SRC/zla_gercond_x.c +++ b/lapack-netlib/SRC/zla_gercond_x.c @@ -662,11 +662,11 @@ doublereal zla_gercond_x_(char *trans, integer *n, doublecomplex *a, integer extern logical lsame_(char *, char *); integer isave[3]; doublereal anorm; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zgetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zgetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_gerfsx_extended.c b/lapack-netlib/SRC/zla_gerfsx_extended.c index 879f79f1c..34703a163 100644 --- a/lapack-netlib/SRC/zla_gerfsx_extended.c +++ b/lapack-netlib/SRC/zla_gerfsx_extended.c @@ -907,7 +907,7 @@ fsx_extended.f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_gerfsx_extended_(integer *prec_type__, integer * +/* Subroutine */ void zla_gerfsx_extended_(integer *prec_type__, integer * trans_type__, integer *n, integer *nrhs, doublecomplex *a, integer * lda, doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, @@ -926,36 +926,36 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__, ymin; - extern /* Subroutine */ int zla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void zla_lin_berr_(integer *, integer *, integer * , doublecomplex *, doublereal *, doublereal *); doublereal dxratmax, dzratmax; - extern /* Subroutine */ int blas_zgemv_x_(integer *, integer *, integer * + extern /* Subroutine */ void blas_zgemv_x_(integer *, integer *, integer * , doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *) ; integer y_prec_state__, i__, j; - extern /* Subroutine */ int blas_zgemv2_x_(integer *, integer *, integer + extern /* Subroutine */ void blas_zgemv2_x_(integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal dxrat; logical incr_prec__; doublereal dzrat; - extern /* Subroutine */ int zla_geamv_(integer *, integer *, integer *, + extern /* Subroutine */ void zla_geamv_(integer *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *); char trans[1]; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublereal normx, normy; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal myhugeval, prev_dz_z__; extern doublereal dlamch_(char *); doublereal yk, final_dx_x__, final_dz_z__, normdx; - extern /* Subroutine */ int zgetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zgetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zla_wwaddw_(integer *, doublecomplex *, doublecomplex *, doublecomplex *); @@ -1005,7 +1005,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } chla_transtype_(ch__1, trans_type__); *(unsigned char *)trans = *(unsigned char *)&ch__1[0]; @@ -1250,6 +1250,6 @@ L666: } - return 0; + return; } /* zla_gerfsx_extended__ */ diff --git a/lapack-netlib/SRC/zla_heamv.c b/lapack-netlib/SRC/zla_heamv.c index d68cf5b1c..d76bb993c 100644 --- a/lapack-netlib/SRC/zla_heamv.c +++ b/lapack-netlib/SRC/zla_heamv.c @@ -687,7 +687,7 @@ mv.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zla_heamv_(integer *uplo, integer *n, doublereal *alpha, +/* Subroutine */ void zla_heamv_(integer *uplo, integer *n, doublereal *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublereal *beta, doublereal *y, integer *incy) { @@ -740,13 +740,13 @@ mv.f"> */ } if (info != 0) { xerbla_("ZHEMV ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || *alpha == 0. && *beta == 1.) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -959,7 +959,7 @@ mv.f"> */ } } - return 0; + return; /* End of ZLA_HEAMV */ diff --git a/lapack-netlib/SRC/zla_hercond_c.c b/lapack-netlib/SRC/zla_hercond_c.c index a986dd262..bb5e2fe4d 100644 --- a/lapack-netlib/SRC/zla_hercond_c.c +++ b/lapack-netlib/SRC/zla_hercond_c.c @@ -668,12 +668,12 @@ doublereal zla_hercond_c_(char *uplo, integer *n, doublecomplex *a, integer * integer isave[3]; doublereal anorm; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zhetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_hercond_x.c b/lapack-netlib/SRC/zla_hercond_x.c index 35396ef96..879164bd3 100644 --- a/lapack-netlib/SRC/zla_hercond_x.c +++ b/lapack-netlib/SRC/zla_hercond_x.c @@ -660,12 +660,12 @@ doublereal zla_hercond_x_(char *uplo, integer *n, doublecomplex *a, integer * integer isave[3]; doublereal anorm; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zhetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_herfsx_extended.c b/lapack-netlib/SRC/zla_herfsx_extended.c index c42514190..2b4145e8e 100644 --- a/lapack-netlib/SRC/zla_herfsx_extended.c +++ b/lapack-netlib/SRC/zla_herfsx_extended.c @@ -907,7 +907,7 @@ fsx_extended.f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_herfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void zla_herfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, @@ -925,31 +925,31 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__, ymin; - extern /* Subroutine */ int zla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void zla_lin_berr_(integer *, integer *, integer * , doublecomplex *, doublereal *, doublereal *); doublereal dxratmax, dzratmax; integer y_prec_state__; - extern /* Subroutine */ int blas_zhemv_x_(integer *, integer *, + extern /* Subroutine */ void blas_zhemv_x_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *) ; integer uplo2, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int blas_zhemv2_x_(integer *, integer *, + extern /* Subroutine */ void blas_zhemv2_x_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal dxrat; logical incr_prec__; doublereal dzrat; - extern /* Subroutine */ int zla_heamv_(integer *, integer *, doublereal * + extern /* Subroutine */ void zla_heamv_(integer *, integer *, doublereal * , doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *), zhemv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; doublereal normx, normy; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal myhugeval, prev_dz_z__; @@ -957,7 +957,7 @@ fsx_extended.f"> */ doublereal yk; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal final_dx_x__, final_dz_z__, normdx; - extern /* Subroutine */ int zhetrs_(char *, integer *, integer *, + extern /* Subroutine */ void zhetrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zla_wwaddw_(integer *, doublecomplex *, doublecomplex *, doublecomplex *); @@ -1026,7 +1026,7 @@ fsx_extended.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLA_HERFSX_EXTENDED", &i__1, (ftnlen)19); - return 0; + return; } eps = dlamch_("Epsilon"); myhugeval = dlamch_("Overflow"); @@ -1260,6 +1260,6 @@ L666: } - return 0; + return; } /* zla_herfsx_extended__ */ diff --git a/lapack-netlib/SRC/zla_lin_berr.c b/lapack-netlib/SRC/zla_lin_berr.c index c44ab42ed..3a64125e8 100644 --- a/lapack-netlib/SRC/zla_lin_berr.c +++ b/lapack-netlib/SRC/zla_lin_berr.c @@ -610,7 +610,7 @@ _berr.f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_lin_berr_(integer *n, integer *nz, integer *nrhs, +/* Subroutine */ void zla_lin_berr_(integer *n, integer *nz, integer *nrhs, doublecomplex *res, doublereal *ayb, doublereal *berr) { /* System generated locals */ @@ -675,6 +675,6 @@ _berr.f"> */ } } - return 0; + return; } /* zla_lin_berr__ */ diff --git a/lapack-netlib/SRC/zla_porcond_c.c b/lapack-netlib/SRC/zla_porcond_c.c index 3b64bbf0e..d5c914b40 100644 --- a/lapack-netlib/SRC/zla_porcond_c.c +++ b/lapack-netlib/SRC/zla_porcond_c.c @@ -659,12 +659,12 @@ doublereal zla_porcond_c_(char *uplo, integer *n, doublecomplex *a, integer * integer isave[3]; doublereal anorm; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zpotrs_(char *, integer *, integer *, + extern /* Subroutine */ void zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_porcond_x.c b/lapack-netlib/SRC/zla_porcond_x.c index 98f95157f..50fe97806 100644 --- a/lapack-netlib/SRC/zla_porcond_x.c +++ b/lapack-netlib/SRC/zla_porcond_x.c @@ -652,12 +652,12 @@ doublereal zla_porcond_x_(char *uplo, integer *n, doublecomplex *a, integer * integer isave[3]; doublereal anorm; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zpotrs_(char *, integer *, integer *, + extern /* Subroutine */ void zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_porfsx_extended.c b/lapack-netlib/SRC/zla_porfsx_extended.c index 2aed20726..47982e658 100644 --- a/lapack-netlib/SRC/zla_porfsx_extended.c +++ b/lapack-netlib/SRC/zla_porfsx_extended.c @@ -900,7 +900,7 @@ fsx_extended.f"> */ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_porfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void zla_porfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, logical *colequ, doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, integer *ldy, @@ -918,36 +918,36 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__, ymin; - extern /* Subroutine */ int zla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void zla_lin_berr_(integer *, integer *, integer * , doublecomplex *, doublereal *, doublereal *); doublereal dxratmax, dzratmax; integer y_prec_state__; - extern /* Subroutine */ int blas_zhemv_x_(integer *, integer *, + extern /* Subroutine */ void blas_zhemv_x_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *) ; integer uplo2, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int blas_zhemv2_x_(integer *, integer *, + extern /* Subroutine */ void blas_zhemv2_x_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal dxrat; logical incr_prec__; doublereal dzrat; - extern /* Subroutine */ int zla_heamv_(integer *, integer *, doublereal * + extern /* Subroutine */ void zla_heamv_(integer *, integer *, doublereal * , doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *), zhemv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublereal normx, normy; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal myhugeval, prev_dz_z__; extern doublereal dlamch_(char *); doublereal yk, final_dx_x__, final_dz_z__, normdx; - extern /* Subroutine */ int zla_wwaddw_(integer *, doublecomplex *, + extern /* Subroutine */ void zla_wwaddw_(integer *, doublecomplex *, doublecomplex *, doublecomplex *), zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -996,7 +996,7 @@ fsx_extended.f"> */ /* Function Body */ if (*info != 0) { - return 0; + return; } eps = dlamch_("Epsilon"); myhugeval = dlamch_("Overflow"); @@ -1229,6 +1229,6 @@ L666: } - return 0; + return; } /* zla_porfsx_extended__ */ diff --git a/lapack-netlib/SRC/zla_syamv.c b/lapack-netlib/SRC/zla_syamv.c index 17ca5cfd3..f6a0c7784 100644 --- a/lapack-netlib/SRC/zla_syamv.c +++ b/lapack-netlib/SRC/zla_syamv.c @@ -688,7 +688,7 @@ mv.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zla_syamv_(integer *uplo, integer *n, doublereal *alpha, +/* Subroutine */ void zla_syamv_(integer *uplo, integer *n, doublereal *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublereal *beta, doublereal *y, integer *incy) { @@ -741,13 +741,13 @@ mv.f"> */ } if (info != 0) { xerbla_("ZLA_SYAMV", &info, (ftnlen)9); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || *alpha == 0. && *beta == 1.) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -960,7 +960,7 @@ mv.f"> */ } } - return 0; + return; /* End of ZLA_SYAMV */ diff --git a/lapack-netlib/SRC/zla_syrcond_c.c b/lapack-netlib/SRC/zla_syrcond_c.c index d3beb3a4b..988a63713 100644 --- a/lapack-netlib/SRC/zla_syrcond_c.c +++ b/lapack-netlib/SRC/zla_syrcond_c.c @@ -668,12 +668,12 @@ doublereal zla_syrcond_c_(char *uplo, integer *n, doublecomplex *a, integer * integer isave[3]; doublereal anorm; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void zsytrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_syrcond_x.c b/lapack-netlib/SRC/zla_syrcond_x.c index b4c25c2ad..7b771f144 100644 --- a/lapack-netlib/SRC/zla_syrcond_x.c +++ b/lapack-netlib/SRC/zla_syrcond_x.c @@ -660,12 +660,12 @@ doublereal zla_syrcond_x_(char *uplo, integer *n, doublecomplex *a, integer * integer isave[3]; doublereal anorm; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void zsytrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal tmp; diff --git a/lapack-netlib/SRC/zla_syrfsx_extended.c b/lapack-netlib/SRC/zla_syrfsx_extended.c index fc1dc5491..8e5b40297 100644 --- a/lapack-netlib/SRC/zla_syrfsx_extended.c +++ b/lapack-netlib/SRC/zla_syrfsx_extended.c @@ -907,7 +907,7 @@ fsx_extended.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_syrfsx_extended_(integer *prec_type__, char *uplo, +/* Subroutine */ void zla_syrfsx_extended_(integer *prec_type__, char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, @@ -925,11 +925,11 @@ fsx_extended.f"> */ /* Local variables */ doublereal dx_x__, dz_z__, ymin; - extern /* Subroutine */ int zla_lin_berr_(integer *, integer *, integer * + extern /* Subroutine */ void zla_lin_berr_(integer *, integer *, integer * , doublecomplex *, doublereal *, doublereal *); doublereal dxratmax, dzratmax; integer y_prec_state__, uplo2, i__, j; - extern /* Subroutine */ int blas_zsymv_x_(integer *, integer *, + extern /* Subroutine */ void blas_zsymv_x_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *) ; @@ -938,16 +938,16 @@ fsx_extended.f"> */ logical incr_prec__; doublereal dzrat; logical upper; - extern /* Subroutine */ int blas_zsymv2_x_(integer *, integer *, + extern /* Subroutine */ void blas_zsymv2_x_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal normx, normy; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal myhugeval, prev_dz_z__; - extern /* Subroutine */ int zla_syamv_(integer *, integer *, doublereal * + extern /* Subroutine */ void zla_syamv_(integer *, integer *, doublereal * , doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *), zsymv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -956,7 +956,7 @@ fsx_extended.f"> */ doublereal yk; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal final_dx_x__, final_dz_z__, normdx; - extern /* Subroutine */ int zla_wwaddw_(integer *, doublecomplex *, + extern /* Subroutine */ void zla_wwaddw_(integer *, doublecomplex *, doublecomplex *, doublecomplex *), zsytrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); @@ -1025,7 +1025,7 @@ fsx_extended.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLA_HERFSX_EXTENDED", &i__1, (ftnlen)19); - return 0; + return; } eps = dlamch_("Epsilon"); myhugeval = dlamch_("Overflow"); @@ -1259,6 +1259,6 @@ L666: } - return 0; + return; } /* zla_syrfsx_extended__ */ diff --git a/lapack-netlib/SRC/zla_wwaddw.c b/lapack-netlib/SRC/zla_wwaddw.c index 9247e16cc..63a8542b6 100644 --- a/lapack-netlib/SRC/zla_wwaddw.c +++ b/lapack-netlib/SRC/zla_wwaddw.c @@ -590,7 +590,7 @@ ddw.f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zla_wwaddw_(integer *n, doublecomplex *x, doublecomplex +/* Subroutine */ void zla_wwaddw_(integer *n, doublecomplex *x, doublecomplex *y, doublecomplex *w) { /* System generated locals */ @@ -637,6 +637,6 @@ ddw.f"> */ x[i__2].r = s.r, x[i__2].i = s.i; /* L10: */ } - return 0; + return; } /* zla_wwaddw__ */ diff --git a/lapack-netlib/SRC/zlabrd.c b/lapack-netlib/SRC/zlabrd.c index 4655c0e76..208655c58 100644 --- a/lapack-netlib/SRC/zlabrd.c +++ b/lapack-netlib/SRC/zlabrd.c @@ -726,7 +726,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb, +/* Subroutine */ void zlabrd_(integer *m, integer *n, integer *nb, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer * ldx, doublecomplex *y, integer *ldy) @@ -739,7 +739,7 @@ f"> */ /* Local variables */ integer i__; doublecomplex alpha; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), @@ -775,7 +775,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } if (*m >= *n) { @@ -1070,7 +1070,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of ZLABRD */ diff --git a/lapack-netlib/SRC/zlacgv.c b/lapack-netlib/SRC/zlacgv.c index 0ea47da7d..13809ceb4 100644 --- a/lapack-netlib/SRC/zlacgv.c +++ b/lapack-netlib/SRC/zlacgv.c @@ -583,7 +583,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx) +/* Subroutine */ void zlacgv_(integer *n, doublecomplex *x, integer *incx) { /* System generated locals */ integer i__1, i__2; @@ -628,7 +628,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of ZLACGV */ diff --git a/lapack-netlib/SRC/zlacn2.c b/lapack-netlib/SRC/zlacn2.c index 0bbd32c89..8984c8bd1 100644 --- a/lapack-netlib/SRC/zlacn2.c +++ b/lapack-netlib/SRC/zlacn2.c @@ -647,7 +647,7 @@ f"> */ /* > ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlacn2_(integer *n, doublecomplex *v, doublecomplex *x, +/* Subroutine */ void zlacn2_(integer *n, doublecomplex *v, doublecomplex *x, doublereal *est, integer *kase, integer *isave) { /* System generated locals */ @@ -660,7 +660,7 @@ f"> */ integer i__; doublereal absxi; integer jlast; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern integer izmax1_(integer *, doublecomplex *, integer *); extern doublereal dzsum1_(integer *, doublecomplex *, integer *), dlamch_( @@ -695,7 +695,7 @@ f"> */ } *kase = 1; isave[1] = 1; - return 0; + return; } switch (isave[1]) { @@ -736,7 +736,7 @@ L20: } *kase = 2; isave[1] = 2; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 2) */ /* FIRST ITERATION. X HAS BEEN OVERWRITTEN BY CTRANS(A)*X. */ @@ -758,7 +758,7 @@ L50: x[i__1].r = 1., x[i__1].i = 0.; *kase = 1; isave[1] = 3; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 3) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -791,7 +791,7 @@ L70: } *kase = 2; isave[1] = 4; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 4) */ /* X HAS BEEN OVERWRITTEN BY CTRANS(A)*X. */ @@ -819,7 +819,7 @@ L100: } *kase = 1; isave[1] = 5; - return 0; + return; /* ................ ENTRY (ISAVE( 1 ) = 5) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -833,7 +833,7 @@ L120: L130: *kase = 0; - return 0; + return; /* End of ZLACN2 */ diff --git a/lapack-netlib/SRC/zlacon.c b/lapack-netlib/SRC/zlacon.c index ac0e9e151..09aed340f 100644 --- a/lapack-netlib/SRC/zlacon.c +++ b/lapack-netlib/SRC/zlacon.c @@ -628,7 +628,7 @@ f"> */ /* > ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, +/* Subroutine */ void zlacon_(integer *n, doublecomplex *v, doublecomplex *x, doublereal *est, integer *kase) { /* System generated locals */ @@ -642,7 +642,7 @@ f"> */ static integer jump, i__, j; static doublereal absxi; static integer jlast; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern integer izmax1_(integer *, doublecomplex *, integer *); extern doublereal dzsum1_(integer *, doublecomplex *, integer *), dlamch_( @@ -676,7 +676,7 @@ f"> */ } *kase = 1; jump = 1; - return 0; + return; } switch (jump) { @@ -717,7 +717,7 @@ L20: } *kase = 2; jump = 2; - return 0; + return; /* ................ ENTRY (JUMP = 2) */ /* FIRST ITERATION. X HAS BEEN OVERWRITTEN BY CTRANS(A)*X. */ @@ -739,7 +739,7 @@ L50: x[i__1].r = 1., x[i__1].i = 0.; *kase = 1; jump = 3; - return 0; + return; /* ................ ENTRY (JUMP = 3) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -772,7 +772,7 @@ L70: } *kase = 2; jump = 4; - return 0; + return; /* ................ ENTRY (JUMP = 4) */ /* X HAS BEEN OVERWRITTEN BY CTRANS(A)*X. */ @@ -800,7 +800,7 @@ L100: } *kase = 1; jump = 5; - return 0; + return; /* ................ ENTRY (JUMP = 5) */ /* X HAS BEEN OVERWRITTEN BY A*X. */ @@ -814,7 +814,7 @@ L120: L130: *kase = 0; - return 0; + return; /* End of ZLACON */ diff --git a/lapack-netlib/SRC/zlacp2.c b/lapack-netlib/SRC/zlacp2.c index 5dfbf3458..86f6db0c2 100644 --- a/lapack-netlib/SRC/zlacp2.c +++ b/lapack-netlib/SRC/zlacp2.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal * +/* Subroutine */ void zlacp2_(char *uplo, integer *m, integer *n, doublereal * a, integer *lda, doublecomplex *b, integer *ldb) { /* System generated locals */ @@ -682,7 +682,7 @@ f"> */ } } - return 0; + return; /* End of ZLACP2 */ diff --git a/lapack-netlib/SRC/zlacpy.c b/lapack-netlib/SRC/zlacpy.c index ed6708016..3db74dbfa 100644 --- a/lapack-netlib/SRC/zlacpy.c +++ b/lapack-netlib/SRC/zlacpy.c @@ -612,7 +612,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n, +/* Subroutine */ void zlacpy_(char *uplo, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb) { /* System generated locals */ @@ -681,7 +681,7 @@ f"> */ } } - return 0; + return; /* End of ZLACPY */ diff --git a/lapack-netlib/SRC/zlacrm.c b/lapack-netlib/SRC/zlacrm.c index 4fa719d6d..842ad2bfd 100644 --- a/lapack-netlib/SRC/zlacrm.c +++ b/lapack-netlib/SRC/zlacrm.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zlacrm_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *rwork) { @@ -640,7 +640,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); @@ -670,7 +670,7 @@ f"> */ /* Function Body */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *n; @@ -725,7 +725,7 @@ f"> */ /* L80: */ } - return 0; + return; /* End of ZLACRM */ diff --git a/lapack-netlib/SRC/zlacrt.c b/lapack-netlib/SRC/zlacrt.c index 5389b4569..587630d43 100644 --- a/lapack-netlib/SRC/zlacrt.c +++ b/lapack-netlib/SRC/zlacrt.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx, +/* Subroutine */ void zlacrt_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex * s) { @@ -643,7 +643,7 @@ f"> */ /* Function Body */ if (*n <= 0) { - return 0; + return; } if (*incx == 1 && *incy == 1) { goto L20; @@ -684,7 +684,7 @@ f"> */ iy += *incy; /* L10: */ } - return 0; + return; /* Code for both increments equal to 1 */ @@ -712,6 +712,6 @@ L20: cx[i__2].r = ctemp.r, cx[i__2].i = ctemp.i; /* L30: */ } - return 0; + return; } /* zlacrt_ */ diff --git a/lapack-netlib/SRC/zladiv.c b/lapack-netlib/SRC/zladiv.c index 3780f24fd..82c963534 100644 --- a/lapack-netlib/SRC/zladiv.c +++ b/lapack-netlib/SRC/zladiv.c @@ -584,7 +584,7 @@ f"> */ /* Local variables */ doublereal zi; - extern /* Subroutine */ int dladiv_(doublereal *, doublereal *, + extern /* Subroutine */ void dladiv_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal zr; diff --git a/lapack-netlib/SRC/zlaed0.c b/lapack-netlib/SRC/zlaed0.c index 2b25f6e4e..a904235fc 100644 --- a/lapack-netlib/SRC/zlaed0.c +++ b/lapack-netlib/SRC/zlaed0.c @@ -660,7 +660,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__, +/* Subroutine */ void zlaed0_(integer *qsiz, integer *n, doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, integer *ldqs, doublereal *rwork, integer *iwork, integer *info) { @@ -671,10 +671,10 @@ f"> */ /* Local variables */ doublereal temp; integer curr, i__, j, k, iperm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer indxq, iwrem, iqptr, tlvls; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaed7_(integer *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, integer *, doublereal *, @@ -685,11 +685,11 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlacrm_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zlacrm_(integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, doublecomplex *, integer *, doublereal *); integer igivnm, submat, curprb, subpbs, igivpt; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *); integer curlvl, matsiz, iprmpt, smlsiz, lgn, msd2, smm1, spm1, spm2; @@ -738,13 +738,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLAED0", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } smlsiz = ilaenv_(&c__9, "ZLAED0", " ", &c__0, &c__0, &c__0, &c__0, ( @@ -844,7 +844,7 @@ L10: ++curr; if (*info > 0) { *info = submat * (*n + 1) + submat + matsiz - 1; - return 0; + return; } k = 1; i__2 = iwork[i__ + 1]; @@ -894,7 +894,7 @@ L80: q_dim1 + 1], &rwork[iwrem], &iwork[subpbs + 1], info); if (*info > 0) { *info = submat * (*n + 1) + submat + matsiz - 1; - return 0; + return; } iwork[i__ / 2 + 1] = iwork[i__ + 2]; /* L90: */ @@ -919,7 +919,7 @@ L80: } dcopy_(n, &rwork[1], &c__1, &d__[1], &c__1); - return 0; + return; /* End of ZLAED0 */ diff --git a/lapack-netlib/SRC/zlaed7.c b/lapack-netlib/SRC/zlaed7.c index 8665ee12c..78c21aa2e 100644 --- a/lapack-netlib/SRC/zlaed7.c +++ b/lapack-netlib/SRC/zlaed7.c @@ -761,7 +761,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz, +/* Subroutine */ void zlaed7_(integer *n, integer *cutpnt, integer *qsiz, integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq, doublereal *qstore, integer *qptr, integer *prmptr, integer *perm, @@ -773,7 +773,7 @@ f"> */ /* Local variables */ integer indx, curr, i__, k, indxc, indxp, n1, n2; - extern /* Subroutine */ int dlaed9_(integer *, integer *, integer *, + extern /* Subroutine */ void dlaed9_(integer *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *), zlaed8_(integer *, integer *, integer *, doublecomplex *, integer @@ -785,8 +785,10 @@ f"> */ doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer idlmda, iq, iw, iz; - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, - integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen), zlacrm_(integer *, integer *, doublecomplex *, integer *, + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlacrm_(integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, doublecomplex *, integer *, doublereal * ); integer coltyp, ptr; @@ -838,13 +840,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLAED7", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* The following values are for bookkeeping purposes only. They are */ @@ -906,7 +908,7 @@ f"> */ i__1 = k; qptr[curr + 1] = qptr[curr] + i__1 * i__1; if (*info != 0) { - return 0; + return; } /* Prepare the INDXQ sorting premutation. */ @@ -923,7 +925,7 @@ f"> */ } } - return 0; + return; /* End of ZLAED7 */ diff --git a/lapack-netlib/SRC/zlaed8.c b/lapack-netlib/SRC/zlaed8.c index 1838507f3..54edb64f9 100644 --- a/lapack-netlib/SRC/zlaed8.c +++ b/lapack-netlib/SRC/zlaed8.c @@ -741,7 +741,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz, +/* Subroutine */ void zlaed8_(integer *k, integer *n, integer *qsiz, doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex * q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx, @@ -757,19 +757,21 @@ f"> */ doublereal c__; integer i__, j; doublereal s, t; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *), dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer k2, n1, n2; - extern /* Subroutine */ int zdrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zdrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *), zcopy_( integer *, doublecomplex *, integer *, doublecomplex *, integer *) ; extern doublereal dlapy2_(doublereal *, doublereal *), dlamch_(char *); integer jp; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int dlamrg_(integer *, integer *, doublereal *, - integer *, integer *, integer *), xerbla_(char *, integer *, ftnlen), zlacpy_(char *, integer *, integer *, doublecomplex *, + extern /* Subroutine */ void dlamrg_(integer *, integer *, doublereal *, + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer n1p1; doublereal eps, tau, tol; @@ -821,7 +823,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLAED8", &i__1, (ftnlen)6); - return 0; + return; } /* Need to initialize GIVPTR to O here in case of quick exit */ @@ -834,7 +836,7 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } n1 = *cutpnt; @@ -900,7 +902,7 @@ f"> */ /* L50: */ } zlacpy_("A", qsiz, n, &q2[q2_dim1 + 1], ldq2, &q[q_dim1 + 1], ldq); - return 0; + return; } /* If there are multiple eigenvalues then the problem deflates. Here */ @@ -1034,7 +1036,7 @@ L100: 1) * q_dim1 + 1], ldq); } - return 0; + return; /* End of ZLAED8 */ diff --git a/lapack-netlib/SRC/zlaein.c b/lapack-netlib/SRC/zlaein.c index 49e970e43..eaa156ecd 100644 --- a/lapack-netlib/SRC/zlaein.c +++ b/lapack-netlib/SRC/zlaein.c @@ -662,7 +662,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n, +/* Subroutine */ void zlaein_(logical *rightv, logical *noinit, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v, doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3, doublereal *smlnum, integer *info) @@ -682,7 +682,7 @@ f"> */ doublereal rtemp, rootn, vnorm; extern doublereal dznrm2_(integer *, doublecomplex *, integer *); doublecomplex ei, ej; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); extern integer izamax_(integer *, doublecomplex *, integer *); extern /* Double Complex */ VOID zladiv_(doublecomplex *, doublecomplex *, @@ -690,7 +690,7 @@ f"> */ char normin[1]; extern doublereal dzasum_(integer *, doublecomplex *, integer *); doublereal nrmsml; - extern /* Subroutine */ int zlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatrs_(char *, char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *); doublereal growto; @@ -958,7 +958,7 @@ L120: d__2))); zdscal_(n, &d__3, &v[1], &c__1); - return 0; + return; /* End of ZLAEIN */ diff --git a/lapack-netlib/SRC/zlaesy.c b/lapack-netlib/SRC/zlaesy.c index 85151d916..33cc23005 100644 --- a/lapack-netlib/SRC/zlaesy.c +++ b/lapack-netlib/SRC/zlaesy.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup complex16SYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b, +/* Subroutine */ void zlaesy_(doublecomplex *a, doublecomplex *b, doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2, doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1) { @@ -753,7 +753,7 @@ f"> */ evscal->r = 0., evscal->i = 0.; } } - return 0; + return; /* End of ZLAESY */ diff --git a/lapack-netlib/SRC/zlaev2.c b/lapack-netlib/SRC/zlaev2.c index 0bcd2fb90..a25e05633 100644 --- a/lapack-netlib/SRC/zlaev2.c +++ b/lapack-netlib/SRC/zlaev2.c @@ -632,7 +632,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b, +/* Subroutine */ void zlaev2_(doublecomplex *a, doublecomplex *b, doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublecomplex *sn1) { @@ -643,7 +643,7 @@ f"> */ /* Local variables */ doublereal t; doublecomplex w; - extern /* Subroutine */ int dlaev2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlaev2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -671,7 +671,7 @@ f"> */ dlaev2_(&d__1, &d__2, &d__3, rt1, rt2, cs1, &t); z__1.r = t * w.r, z__1.i = t * w.i; sn1->r = z__1.r, sn1->i = z__1.i; - return 0; + return; /* End of ZLAEV2 */ diff --git a/lapack-netlib/SRC/zlag2c.c b/lapack-netlib/SRC/zlag2c.c index 82a463d39..60d24d21c 100644 --- a/lapack-netlib/SRC/zlag2c.c +++ b/lapack-netlib/SRC/zlag2c.c @@ -616,7 +616,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlag2c_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zlag2c_(integer *m, integer *n, doublecomplex *a, integer *lda, complex *sa, integer *ldsa, integer *info) { /* System generated locals */ @@ -667,7 +667,7 @@ f"> */ } *info = 0; L30: - return 0; + return; /* End of ZLAG2C */ diff --git a/lapack-netlib/SRC/zlags2.c b/lapack-netlib/SRC/zlags2.c index c8bc8e901..9ddde74f6 100644 --- a/lapack-netlib/SRC/zlags2.c +++ b/lapack-netlib/SRC/zlags2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex * +/* Subroutine */ void zlags2_(logical *upper, doublereal *a1, doublecomplex * a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3, doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex * snv, doublereal *csq, doublecomplex *snq) @@ -684,11 +684,11 @@ f"> */ doublereal d__; doublecomplex r__, d1; doublereal s1, s2; - extern /* Subroutine */ int dlasv2_(doublereal *, doublereal *, + extern /* Subroutine */ void dlasv2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal fb, fc; - extern /* Subroutine */ int zlartg_(doublecomplex *, doublecomplex *, + extern /* Subroutine */ void zlartg_(doublecomplex *, doublecomplex *, doublereal *, doublecomplex *, doublecomplex *); doublecomplex ua11, ua12, ua21, ua22, vb11, vb12, vb21, vb22; doublereal csl, csr, snl, snr; @@ -1032,7 +1032,7 @@ f"> */ } - return 0; + return; /* End of ZLAGS2 */ diff --git a/lapack-netlib/SRC/zlagtm.c b/lapack-netlib/SRC/zlagtm.c index 5607cacb4..c15790904 100644 --- a/lapack-netlib/SRC/zlagtm.c +++ b/lapack-netlib/SRC/zlagtm.c @@ -654,7 +654,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs, +/* Subroutine */ void zlagtm_(char *trans, integer *n, integer *nrhs, doublereal *alpha, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta, doublecomplex *b, integer *ldb) @@ -691,7 +691,7 @@ f"> */ /* Function Body */ if (*n == 0) { - return 0; + return; } /* Multiply B by BETA if BETA.NE.1. */ @@ -1161,7 +1161,7 @@ f"> */ } } } - return 0; + return; /* End of ZLAGTM */ diff --git a/lapack-netlib/SRC/zlahef.c b/lapack-netlib/SRC/zlahef.c index 19ba4caa5..466b0ed73 100644 --- a/lapack-netlib/SRC/zlahef.c +++ b/lapack-netlib/SRC/zlahef.c @@ -692,7 +692,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb, +/* Subroutine */ void zlahef_(char *uplo, integer *n, integer *nb, integer *kb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, integer *ldw, integer *info) { @@ -705,26 +705,26 @@ f"> */ integer imax, jmax, j, k; doublereal t, alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublereal r1; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d21, d22; integer jb, jj, kk, jp, kp; doublereal absakk; integer kw; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal colmax; - extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *) + extern /* Subroutine */ void zlacgv_(integer *, doublecomplex *, integer *) ; extern integer izamax_(integer *, doublecomplex *, integer *); doublereal rowmax; @@ -1733,7 +1733,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of ZLAHEF */ diff --git a/lapack-netlib/SRC/zlahef_aa.c b/lapack-netlib/SRC/zlahef_aa.c index cf2cd3bc4..10b77518a 100644 --- a/lapack-netlib/SRC/zlahef_aa.c +++ b/lapack-netlib/SRC/zlahef_aa.c @@ -658,7 +658,7 @@ aa.f"> */ /* > \ingroup complex16HEcomputational */ /* ===================================================================== */ -/* Subroutine */ int zlahef_aa_(char *uplo, integer *j1, integer *m, integer +/* Subroutine */ void zlahef_aa_(char *uplo, integer *j1, integer *m, integer *nb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex * h__, integer *ldh, doublecomplex *work) { @@ -671,21 +671,21 @@ aa.f"> */ integer j, k; doublecomplex alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer i1, k1, i2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer mj; - extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *) + extern /* Subroutine */ void zlacgv_(integer *, doublecomplex *, integer *) ; extern integer izamax_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); doublecomplex piv; @@ -1100,7 +1100,7 @@ L30: L40: ; } - return 0; + return; /* End of ZLAHEF_AA */ diff --git a/lapack-netlib/SRC/zlahef_rk.c b/lapack-netlib/SRC/zlahef_rk.c index b1dc03b33..05f455b77 100644 --- a/lapack-netlib/SRC/zlahef_rk.c +++ b/lapack-netlib/SRC/zlahef_rk.c @@ -776,7 +776,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zlahef_rk_(char *uplo, integer *n, integer *nb, integer +/* Subroutine */ void zlahef_rk_(char *uplo, integer *n, integer *nb, integer *kb, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *w, integer *ldw, integer *info) { @@ -792,16 +792,16 @@ rk.f"> */ extern logical lsame_(char *, char *); doublereal dtemp, sfmin; integer itemp; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublereal r1; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d21, d22; @@ -810,10 +810,10 @@ rk.f"> */ integer kp; doublereal absakk; integer kw; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal colmax; - extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *) + extern /* Subroutine */ void zlacgv_(integer *, doublecomplex *, integer *) ; extern integer izamax_(integer *, doublecomplex *, integer *); doublereal rowmax; @@ -2030,7 +2030,7 @@ L90: *kb = k - 1; } - return 0; + return; /* End of ZLAHEF_RK */ diff --git a/lapack-netlib/SRC/zlahef_rook.c b/lapack-netlib/SRC/zlahef_rook.c index 608b1d662..6172edfd2 100644 --- a/lapack-netlib/SRC/zlahef_rook.c +++ b/lapack-netlib/SRC/zlahef_rook.c @@ -698,7 +698,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zlahef_rook_(char *uplo, integer *n, integer *nb, +/* Subroutine */ void zlahef_rook_(char *uplo, integer *n, integer *nb, integer *kb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, integer *ldw, integer *info) { @@ -714,16 +714,16 @@ rook.f"> */ extern logical lsame_(char *, char *); doublereal dtemp, sfmin; integer itemp; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublereal r1; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d21, d22; @@ -732,10 +732,10 @@ rook.f"> */ integer kp; doublereal absakk; integer kw; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal colmax; - extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *) + extern /* Subroutine */ void zlacgv_(integer *, doublecomplex *, integer *) ; extern integer izamax_(integer *, doublecomplex *, integer *); integer jp1, jp2; @@ -1973,7 +1973,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of ZLAHEF_ROOK */ diff --git a/lapack-netlib/SRC/zlahqr.c b/lapack-netlib/SRC/zlahqr.c index 22089322f..8436315e0 100644 --- a/lapack-netlib/SRC/zlahqr.c +++ b/lapack-netlib/SRC/zlahqr.c @@ -709,7 +709,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void zlahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, integer *ldz, integer *info) @@ -724,18 +724,18 @@ f"> */ integer i__, j, k, l, m; doublereal s; doublecomplex t, u, v[2], x, y; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer itmax; doublereal rtemp; integer i1, i2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex t1; doublereal t2; doublecomplex v2; doublereal aa, ab, ba, bb; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); doublereal h10; doublecomplex h11; doublereal h21; @@ -744,7 +744,7 @@ f"> */ extern doublereal dlamch_(char *); integer nz; doublereal sx, safmin, safmax; - extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); extern /* Double Complex */ VOID zladiv_(doublecomplex *, doublecomplex *, doublecomplex *); @@ -781,13 +781,13 @@ f"> */ /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*ilo == *ihi) { i__1 = *ilo; i__2 = *ilo + *ilo * h_dim1; w[i__1].r = h__[i__2].r, w[i__1].i = h__[i__2].i; - return 0; + return; } /* ==== clear out the trash ==== */ @@ -1302,7 +1302,7 @@ L70: /* Failure to converge in remaining number of iterations */ *info = i__; - return 0; + return; L140: @@ -1318,7 +1318,7 @@ L140: goto L30; L150: - return 0; + return; /* End of ZLAHQR */ diff --git a/lapack-netlib/SRC/zlahr2.c b/lapack-netlib/SRC/zlahr2.c index a52036244..c04c53d91 100644 --- a/lapack-netlib/SRC/zlahr2.c +++ b/lapack-netlib/SRC/zlahr2.c @@ -699,7 +699,7 @@ f"> */ /* > Mathematical Software, 32(2):180-194, June 2006. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlahr2_(integer *n, integer *k, integer *nb, +/* Subroutine */ void zlahr2_(integer *n, integer *k, integer *nb, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, integer *ldt, doublecomplex *y, integer *ldy) { @@ -710,7 +710,7 @@ f"> */ /* Local variables */ integer i__; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -725,7 +725,7 @@ f"> */ doublecomplex *, integer *), ztrmv_(char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ei; - extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -756,7 +756,7 @@ f"> */ /* Function Body */ if (*n <= 1) { - return 0; + return; } i__1 = *nb; @@ -899,7 +899,7 @@ f"> */ ztrmm_("RIGHT", "Upper", "NO TRANSPOSE", "NON-UNIT", k, nb, &c_b2, &t[ t_offset], ldt, &y[y_offset], ldy); - return 0; + return; /* End of ZLAHR2 */ diff --git a/lapack-netlib/SRC/zlaic1.c b/lapack-netlib/SRC/zlaic1.c index 9a09702c7..dcb06dc7c 100644 --- a/lapack-netlib/SRC/zlaic1.c +++ b/lapack-netlib/SRC/zlaic1.c @@ -648,7 +648,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x, +/* Subroutine */ void zlaic1_(integer *job, integer *j, doublecomplex *x, doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal * sestpr, doublecomplex *s, doublecomplex *c__) { @@ -724,7 +724,7 @@ f"> */ c__->r = z__1.r, c__->i = z__1.i; *sestpr = s1 * tmp; } - return 0; + return; } else if (absgam <= eps * absest) { s->r = 1., s->i = 0.; c__->r = 0., c__->i = 0.; @@ -732,7 +732,7 @@ f"> */ s1 = absest / tmp; s2 = absalp / tmp; *sestpr = tmp * sqrt(s1 * s1 + s2 * s2); - return 0; + return; } else if (absalp <= eps * absest) { s1 = absgam; s2 = absest; @@ -745,7 +745,7 @@ f"> */ c__->r = 1., c__->i = 0.; *sestpr = s1; } - return 0; + return; } else if (absest <= eps * absalp || absest <= eps * absgam) { s1 = absgam; s2 = absalp; @@ -770,7 +770,7 @@ f"> */ z__1.r = z__2.r / scl, z__1.i = z__2.i / scl; c__->r = z__1.r, c__->i = z__1.i; } - return 0; + return; } else { /* normal case */ @@ -819,7 +819,7 @@ f"> */ z__1.r = cosine.r / tmp, z__1.i = cosine.i / tmp; c__->r = z__1.r, c__->i = z__1.i; *sestpr = sqrt(t + 1.) * absest; - return 0; + return; } } else if (*job == 2) { @@ -860,12 +860,12 @@ f"> */ s->r = z__1.r, s->i = z__1.i; z__1.r = c__->r / tmp, z__1.i = c__->i / tmp; c__->r = z__1.r, c__->i = z__1.i; - return 0; + return; } else if (absgam <= eps * absest) { s->r = 0., s->i = 0.; c__->r = 1., c__->i = 0.; *sestpr = absgam; - return 0; + return; } else if (absalp <= eps * absest) { s1 = absgam; s2 = absest; @@ -878,7 +878,7 @@ f"> */ c__->r = 0., c__->i = 0.; *sestpr = s2; } - return 0; + return; } else if (absest <= eps * absalp || absest <= eps * absgam) { s1 = absgam; s2 = absalp; @@ -909,7 +909,7 @@ f"> */ z__1.r = z__2.r / scl, z__1.i = z__2.i / scl; c__->r = z__1.r, c__->i = z__1.i; } - return 0; + return; } else { /* normal case */ @@ -992,11 +992,11 @@ f"> */ s->r = z__1.r, s->i = z__1.i; z__1.r = cosine.r / tmp, z__1.i = cosine.i / tmp; c__->r = z__1.r, c__->i = z__1.i; - return 0; + return; } } - return 0; + return; /* End of ZLAIC1 */ diff --git a/lapack-netlib/SRC/zlals0.c b/lapack-netlib/SRC/zlals0.c index 598cc23a4..3a3dc3fad 100644 --- a/lapack-netlib/SRC/zlals0.c +++ b/lapack-netlib/SRC/zlals0.c @@ -786,7 +786,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr, +/* Subroutine */ void zlals0_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, @@ -808,18 +808,18 @@ f"> */ extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j, m, n; doublereal diflj, difrj, dsigj; - extern /* Subroutine */ int dgemv_(char *, integer *, integer *, + extern /* Subroutine */ void dgemv_(char *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *), zdrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *); extern doublereal dlamc3_(doublereal *, doublereal *); - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal dj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal dsigjp; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex * , integer *, integer *), zlacpy_(char *, integer *, @@ -893,7 +893,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLALS0", &i__1, (ftnlen)6); - return 0; + return; } m = n + *sqre; @@ -1161,7 +1161,7 @@ f"> */ } } - return 0; + return; /* End of ZLALS0 */ diff --git a/lapack-netlib/SRC/zlalsa.c b/lapack-netlib/SRC/zlalsa.c index cd0819c3d..0452472c6 100644 --- a/lapack-netlib/SRC/zlalsa.c +++ b/lapack-netlib/SRC/zlalsa.c @@ -779,7 +779,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n, +/* Subroutine */ void zlalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx, integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer * k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal * @@ -797,11 +797,11 @@ f"> */ /* Local variables */ integer jcol, nlvl, sqre, jrow, i__, j, jimag; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer jreal, inode, ndiml, ndimr, i1; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlals0_(integer *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, integer *, @@ -809,9 +809,9 @@ f"> */ doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *); integer ic, lf, nd, ll, nl, nr; - extern /* Subroutine */ int dlasdt_(integer *, integer *, integer *, - integer *, integer *, integer *, integer *), xerbla_(char *, - integer *, ftnlen); + extern /* Subroutine */ void dlasdt_(integer *, integer *, integer *, + integer *, integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer im1, nlf, nrf, lvl, ndb1, nlp1, lvl2, nrp1; @@ -890,7 +890,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLALSA", &i__1, (ftnlen)6); - return 0; + return; } /* Book-keeping and setting up the computation tree. */ @@ -1270,7 +1270,7 @@ L170: L330: - return 0; + return; /* End of ZLALSA */ diff --git a/lapack-netlib/SRC/zlalsd.c b/lapack-netlib/SRC/zlalsd.c index df0842062..1f2c72a91 100644 --- a/lapack-netlib/SRC/zlalsd.c +++ b/lapack-netlib/SRC/zlalsd.c @@ -703,7 +703,7 @@ f"> */ /* > Osni Marques, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer +/* Subroutine */ void zlalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublecomplex *b, integer *ldb, doublereal *rcond, integer *rank, doublecomplex *work, doublereal * rwork, integer *iwork, integer *info) @@ -720,18 +720,18 @@ f"> */ k; doublereal r__; integer s, u, jimag; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer z__, jreal, irwib, poles, sizei, irwrb, nsize; - extern /* Subroutine */ int zdrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zdrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *), zcopy_( integer *, doublecomplex *, integer *, doublecomplex *, integer *) ; integer irwvt, icmpq1, icmpq2; doublereal cs; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlasda_(integer *, integer *, integer *, + extern /* Subroutine */ void dlasda_(integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *, @@ -739,23 +739,24 @@ f"> */ integer *); integer bx; doublereal sn; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); extern integer idamax_(integer *, doublereal *, integer *); integer st; - extern /* Subroutine */ int dlasdq_(char *, integer *, integer *, integer + extern /* Subroutine */ void dlasdq_(char *, integer *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *); integer vt; - extern /* Subroutine */ int dlaset_(char *, integer *, integer *, + extern /* Subroutine */ void dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *, ftnlen); + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); integer givcol; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int zlalsa_(integer *, integer *, integer *, + extern /* Subroutine */ void zlalsa_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, @@ -808,7 +809,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLALSD", &i__1, (ftnlen)6); - return 0; + return; } eps = dlamch_("Epsilon"); @@ -826,7 +827,7 @@ f"> */ /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } else if (*n == 1) { if (d__[1] == 0.) { zlaset_("A", &c__1, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); @@ -836,7 +837,7 @@ f"> */ b_offset], ldb, info); d__[1] = abs(d__[1]); } - return 0; + return; } /* Rotate the matrix if it is lower bidiagonal. */ @@ -879,7 +880,7 @@ f"> */ orgnrm = dlanst_("M", n, &d__[1], &e[1]); if (orgnrm == 0.) { zlaset_("A", n, nrhs, &c_b1, &c_b1, &b[b_offset], ldb); - return 0; + return; } dlascl_("G", &c__0, &c__0, &orgnrm, &c_b10, n, &c__1, &d__[1], n, info); @@ -901,7 +902,7 @@ f"> */ dlasdq_("U", &c__0, n, n, n, &c__0, &d__[1], &e[1], &rwork[irwvt], n, &rwork[irwu], n, &rwork[irwwrk], &c__1, &rwork[irwwrk], info); if (*info != 0) { - return 0; + return; } /* In the real version, B is passed to DLASDQ and multiplied */ @@ -1026,7 +1027,7 @@ f"> */ zlascl_("G", &c__0, &c__0, &orgnrm, &c_b10, n, nrhs, &b[b_offset], ldb, info); - return 0; + return; } /* Book-keeping and setting up some constants. */ @@ -1127,7 +1128,7 @@ f"> */ rwork[nrwork], &c__1, &rwork[nrwork], info) ; if (*info != 0) { - return 0; + return; } /* In the real version, B is passed to DLASDQ and multiplied */ @@ -1195,7 +1196,7 @@ f"> */ givnum + st1], &rwork[c__ + st1], &rwork[s + st1], & rwork[nrwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } bxst = bx + st1; zlalsa_(&icmpq2, smlsiz, &nsize, nrhs, &b[st + b_dim1], ldb, & @@ -1206,7 +1207,7 @@ f"> */ st1], &rwork[givnum + st1], &rwork[c__ + st1], &rwork[ s + st1], &rwork[nrwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } } st = i__ + 1; @@ -1312,7 +1313,7 @@ f"> */ givnum + st1], &rwork[c__ + st1], &rwork[s + st1], &rwork[ nrwork], &iwork[iwk], info); if (*info != 0) { - return 0; + return; } } /* L320: */ @@ -1325,7 +1326,7 @@ f"> */ zlascl_("G", &c__0, &c__0, &orgnrm, &c_b10, n, nrhs, &b[b_offset], ldb, info); - return 0; + return; /* End of ZLALSD */ diff --git a/lapack-netlib/SRC/zlamswlq.c b/lapack-netlib/SRC/zlamswlq.c index 2394ebbdd..af40d70f5 100644 --- a/lapack-netlib/SRC/zlamswlq.c +++ b/lapack-netlib/SRC/zlamswlq.c @@ -713,7 +713,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlamswlq_(char *side, char *trans, integer *m, integer * +/* Subroutine */ void zlamswlq_(char *side, char *trans, integer *m, integer * n, integer *k, integer *mb, integer *nb, doublecomplex *a, integer * lda, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -731,7 +731,7 @@ static integer c__0 = 0; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; integer ctr; - extern /* Subroutine */ int zgemlqt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemlqt_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztpmlqt_(char *, char *, integer *, integer *, @@ -800,10 +800,10 @@ static integer c__0 = 0; i__1 = -(*info); xerbla_("ZLAMSWLQ", &i__1, (ftnlen)8); work[1].r = (doublereal) lw, work[1].i = 0.; - return 0; + return; } else if (lquery) { work[1].r = (doublereal) lw, work[1].i = 0.; - return 0; + return; } /* Quick return if possible */ @@ -811,7 +811,7 @@ static integer c__0 = 0; /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -819,7 +819,7 @@ static integer c__0 = 0; if (*nb <= *k || *nb >= f2cmax(i__1,*k)) { zgemlqt_(side, trans, m, n, k, mb, &a[a_offset], lda, &t[t_offset], ldt, &c__[c_offset], ldc, &work[1], info); - return 0; + return; } if (left && tran) { @@ -962,7 +962,7 @@ static integer c__0 = 0; } work[1].r = (doublereal) lw, work[1].i = 0.; - return 0; + return; /* End of ZLAMSWLQ */ diff --git a/lapack-netlib/SRC/zlamtsqr.c b/lapack-netlib/SRC/zlamtsqr.c index 5c16c8785..cf2fd49e3 100644 --- a/lapack-netlib/SRC/zlamtsqr.c +++ b/lapack-netlib/SRC/zlamtsqr.c @@ -706,7 +706,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlamtsqr_(char *side, char *trans, integer *m, integer * +/* Subroutine */ void zlamtsqr_(char *side, char *trans, integer *m, integer * n, integer *k, integer *mb, integer *nb, doublecomplex *a, integer * lda, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -716,7 +716,7 @@ static integer c__0 = 0; i__3; /* Local variables */ - extern /* Subroutine */ int ztpmqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ztpmqrt_(char *, char *, integer *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -728,7 +728,7 @@ static integer c__0 = 0; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran, lquery; integer ctr; - extern /* Subroutine */ int zgemqrt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemqrt_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -799,9 +799,9 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("ZLAMTSQR", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -809,7 +809,7 @@ static integer c__0 = 0; /* Computing MIN */ i__1 = f2cmin(*m,*n); if (f2cmin(i__1,*k) == 0) { - return 0; + return; } /* Computing MAX */ @@ -817,7 +817,7 @@ static integer c__0 = 0; if (*mb <= *k || *mb >= f2cmax(i__1,*k)) { zgemqrt_(side, trans, m, n, k, nb, &a[a_offset], lda, &t[t_offset], ldt, &c__[c_offset], ldc, &work[1], info); - return 0; + return; } if (left && notran) { @@ -959,7 +959,7 @@ static integer c__0 = 0; } work[1].r = (doublereal) lw, work[1].i = 0.; - return 0; + return; /* End of ZLAMTSQR */ diff --git a/lapack-netlib/SRC/zlangb.c b/lapack-netlib/SRC/zlangb.c index db5a323dc..6cd82d7ad 100644 --- a/lapack-netlib/SRC/zlangb.c +++ b/lapack-netlib/SRC/zlangb.c @@ -647,13 +647,13 @@ doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku, /* Local variables */ doublereal temp; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, k, l; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlange.c b/lapack-netlib/SRC/zlange.c index 8166ec0aa..4d5c75539 100644 --- a/lapack-netlib/SRC/zlange.c +++ b/lapack-netlib/SRC/zlange.c @@ -638,13 +638,13 @@ doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, /* Local variables */ doublereal temp; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlangt.c b/lapack-netlib/SRC/zlangt.c index 98c9a4172..ef6b240a6 100644 --- a/lapack-netlib/SRC/zlangt.c +++ b/lapack-netlib/SRC/zlangt.c @@ -634,7 +634,7 @@ doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex * extern logical lsame_(char *, char *); doublereal anorm; extern logical disnan_(doublereal *); - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum; diff --git a/lapack-netlib/SRC/zlanhb.c b/lapack-netlib/SRC/zlanhb.c index a9ad39a75..9187e2fd9 100644 --- a/lapack-netlib/SRC/zlanhb.c +++ b/lapack-netlib/SRC/zlanhb.c @@ -654,13 +654,13 @@ doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k, /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, l; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlanhe.c b/lapack-netlib/SRC/zlanhe.c index ed494b948..4e4392f44 100644 --- a/lapack-netlib/SRC/zlanhe.c +++ b/lapack-netlib/SRC/zlanhe.c @@ -647,13 +647,13 @@ doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a, /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlanhf.c b/lapack-netlib/SRC/zlanhf.c index dd23ad40e..cce5b2bd5 100644 --- a/lapack-netlib/SRC/zlanhf.c +++ b/lapack-netlib/SRC/zlanhf.c @@ -776,7 +776,7 @@ doublereal zlanhf_(char *norm, char *transr, char *uplo, integer *n, integer n1; doublereal aa; extern logical disnan_(doublereal *); - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); integer lda, ifm, noe, ilu; diff --git a/lapack-netlib/SRC/zlanhp.c b/lapack-netlib/SRC/zlanhp.c index 52239c1e0..753514afb 100644 --- a/lapack-netlib/SRC/zlanhp.c +++ b/lapack-netlib/SRC/zlanhp.c @@ -640,13 +640,13 @@ doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap, /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, k; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlanhs.c b/lapack-netlib/SRC/zlanhs.c index d5de0e08c..a6d952e98 100644 --- a/lapack-netlib/SRC/zlanhs.c +++ b/lapack-netlib/SRC/zlanhs.c @@ -631,13 +631,13 @@ doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal ret_val; /* Local variables */ - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlanht.c b/lapack-netlib/SRC/zlanht.c index c7b2552ea..b47df2e45 100644 --- a/lapack-netlib/SRC/zlanht.c +++ b/lapack-netlib/SRC/zlanht.c @@ -627,7 +627,7 @@ doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e) extern logical lsame_(char *, char *); doublereal anorm; extern logical disnan_(doublereal *); - extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dlassq_(integer *, doublereal *, integer *, doublereal *, doublereal *), zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum; diff --git a/lapack-netlib/SRC/zlansb.c b/lapack-netlib/SRC/zlansb.c index a012be6a8..c1291302b 100644 --- a/lapack-netlib/SRC/zlansb.c +++ b/lapack-netlib/SRC/zlansb.c @@ -652,13 +652,13 @@ doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k, /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, l; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlansp.c b/lapack-netlib/SRC/zlansp.c index 3356a767b..a27b7d730 100644 --- a/lapack-netlib/SRC/zlansp.c +++ b/lapack-netlib/SRC/zlansp.c @@ -638,13 +638,13 @@ doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap, /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, k; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlansy.c b/lapack-netlib/SRC/zlansy.c index b5d808437..536511c94 100644 --- a/lapack-netlib/SRC/zlansy.c +++ b/lapack-netlib/SRC/zlansy.c @@ -646,13 +646,13 @@ doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a, /* Local variables */ doublereal absa; - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlantb.c b/lapack-netlib/SRC/zlantb.c index 957a99330..076dcc380 100644 --- a/lapack-netlib/SRC/zlantb.c +++ b/lapack-netlib/SRC/zlantb.c @@ -662,14 +662,14 @@ doublereal zlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, doublereal ret_val; /* Local variables */ - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, l; logical udiag; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlantp.c b/lapack-netlib/SRC/zlantp.c index c7f8eaafb..6e504eb69 100644 --- a/lapack-netlib/SRC/zlantp.c +++ b/lapack-netlib/SRC/zlantp.c @@ -647,14 +647,14 @@ doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal ret_val; /* Local variables */ - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j, k; logical udiag; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlantr.c b/lapack-netlib/SRC/zlantr.c index bfd89e657..778689d9a 100644 --- a/lapack-netlib/SRC/zlantr.c +++ b/lapack-netlib/SRC/zlantr.c @@ -663,14 +663,14 @@ doublereal zlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, doublereal ret_val; /* Local variables */ - extern /* Subroutine */ int dcombssq_(doublereal *, doublereal *); + extern /* Subroutine */ void dcombssq_(doublereal *, doublereal *); integer i__, j; logical udiag; extern logical lsame_(char *, char *); doublereal value; extern logical disnan_(doublereal *); doublereal colssq[2]; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal sum, ssq[2]; diff --git a/lapack-netlib/SRC/zlapll.c b/lapack-netlib/SRC/zlapll.c index 903303418..7eb7598ce 100644 --- a/lapack-netlib/SRC/zlapll.c +++ b/lapack-netlib/SRC/zlapll.c @@ -609,7 +609,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx, +/* Subroutine */ void zlapll_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *ssmin) { /* System generated locals */ @@ -618,16 +618,16 @@ f"> */ doublecomplex z__1, z__2, z__3, z__4; /* Local variables */ - extern /* Subroutine */ int dlas2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlas2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublecomplex c__; extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal ssmax; - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex a11, a12, a22; - extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); doublecomplex tau; @@ -650,7 +650,7 @@ f"> */ /* Function Body */ if (*n <= 1) { *ssmin = 0.; - return 0; + return; } /* Compute the QR factorization of the N-by-2 matrix ( X Y ) */ @@ -681,7 +681,7 @@ f"> */ d__3 = z_abs(&a22); dlas2_(&d__1, &d__2, &d__3, ssmin, &ssmax); - return 0; + return; /* End of ZLAPLL */ diff --git a/lapack-netlib/SRC/zlapmr.c b/lapack-netlib/SRC/zlapmr.c index 794de8c4a..3895f6519 100644 --- a/lapack-netlib/SRC/zlapmr.c +++ b/lapack-netlib/SRC/zlapmr.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlapmr_(logical *forwrd, integer *m, integer *n, +/* Subroutine */ void zlapmr_(logical *forwrd, integer *m, integer *n, doublecomplex *x, integer *ldx, integer *k) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ /* Function Body */ if (*m <= 1) { - return 0; + return; } i__1 = *m; @@ -735,7 +735,7 @@ L80: } - return 0; + return; /* End of ZLAPMT */ diff --git a/lapack-netlib/SRC/zlapmt.c b/lapack-netlib/SRC/zlapmt.c index d3359be4c..93a398986 100644 --- a/lapack-netlib/SRC/zlapmt.c +++ b/lapack-netlib/SRC/zlapmt.c @@ -613,7 +613,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n, +/* Subroutine */ void zlapmt_(logical *forwrd, integer *m, integer *n, doublecomplex *x, integer *ldx, integer *k) { /* System generated locals */ @@ -641,7 +641,7 @@ f"> */ /* Function Body */ if (*n <= 1) { - return 0; + return; } i__1 = *n; @@ -735,7 +735,7 @@ L80: } - return 0; + return; /* End of ZLAPMT */ diff --git a/lapack-netlib/SRC/zlaqgb.c b/lapack-netlib/SRC/zlaqgb.c index 0ca7d57ec..f27b90096 100644 --- a/lapack-netlib/SRC/zlaqgb.c +++ b/lapack-netlib/SRC/zlaqgb.c @@ -669,7 +669,7 @@ f"> */ /* > \ingroup complex16GBauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku, +/* Subroutine */ void zlaqgb_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed) { @@ -705,7 +705,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -793,7 +793,7 @@ f"> */ *(unsigned char *)equed = 'B'; } - return 0; + return; /* End of ZLAQGB */ diff --git a/lapack-netlib/SRC/zlaqge.c b/lapack-netlib/SRC/zlaqge.c index f5a8368a9..3842ed5c9 100644 --- a/lapack-netlib/SRC/zlaqge.c +++ b/lapack-netlib/SRC/zlaqge.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup complex16GEauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void zlaqge_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed) { @@ -688,7 +688,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -764,7 +764,7 @@ f"> */ *(unsigned char *)equed = 'B'; } - return 0; + return; /* End of ZLAQGE */ diff --git a/lapack-netlib/SRC/zlaqhb.c b/lapack-netlib/SRC/zlaqhb.c index 36b4a9f22..bc31968c0 100644 --- a/lapack-netlib/SRC/zlaqhb.c +++ b/lapack-netlib/SRC/zlaqhb.c @@ -650,7 +650,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void zlaqhb_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { @@ -687,7 +687,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -756,7 +756,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of ZLAQHB */ diff --git a/lapack-netlib/SRC/zlaqhe.c b/lapack-netlib/SRC/zlaqhe.c index 90deb53d3..994097638 100644 --- a/lapack-netlib/SRC/zlaqhe.c +++ b/lapack-netlib/SRC/zlaqhe.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complex16HEauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zlaqhe_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { @@ -680,7 +680,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -745,7 +745,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of ZLAQHE */ diff --git a/lapack-netlib/SRC/zlaqhp.c b/lapack-netlib/SRC/zlaqhp.c index 3d5ff6278..843d69036 100644 --- a/lapack-netlib/SRC/zlaqhp.c +++ b/lapack-netlib/SRC/zlaqhp.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zlaqhp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { /* System generated locals */ @@ -671,7 +671,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -740,7 +740,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of ZLAQHP */ diff --git a/lapack-netlib/SRC/zlaqp2.c b/lapack-netlib/SRC/zlaqp2.c index 5519f7520..a85160bbc 100644 --- a/lapack-netlib/SRC/zlaqp2.c +++ b/lapack-netlib/SRC/zlaqp2.c @@ -661,7 +661,7 @@ f"> */ /* > \endhtmlonly */ /* ===================================================================== */ -/* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset, +/* Subroutine */ void zlaqp2_(integer *m, integer *n, integer *offset, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *work) { @@ -675,7 +675,7 @@ f"> */ integer i__, j; doublereal tol3z; integer offpi, itemp; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -683,7 +683,7 @@ f"> */ char *); integer mn; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); doublecomplex aii; integer pvt; @@ -800,7 +800,7 @@ f"> */ /* L20: */ } - return 0; + return; /* End of ZLAQP2 */ diff --git a/lapack-netlib/SRC/zlaqps.c b/lapack-netlib/SRC/zlaqps.c index e1f3beaa0..19fda2a09 100644 --- a/lapack-netlib/SRC/zlaqps.c +++ b/lapack-netlib/SRC/zlaqps.c @@ -692,7 +692,7 @@ f"> */ /* > \endhtmlonly */ /* ===================================================================== */ -/* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer +/* Subroutine */ void zlaqps_(integer *m, integer *n, integer *offset, integer *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex * auxv, doublecomplex *f, integer *ldf) @@ -707,7 +707,7 @@ f"> */ integer j, k; doublereal tol3z; integer itemp; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, @@ -720,7 +720,7 @@ f"> */ integer rk; extern integer idamax_(integer *, doublereal *, integer *); integer lsticc; - extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer lastrk; doublecomplex akk; @@ -939,7 +939,7 @@ L60: goto L60; } - return 0; + return; /* End of ZLAQPS */ diff --git a/lapack-netlib/SRC/zlaqr0.c b/lapack-netlib/SRC/zlaqr0.c index 06b58fd1f..4c8ece372 100644 --- a/lapack-netlib/SRC/zlaqr0.c +++ b/lapack-netlib/SRC/zlaqr0.c @@ -762,7 +762,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaqr0_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void zlaqr0_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, integer *info) @@ -781,7 +781,7 @@ f"> */ doublereal s; integer itmax, nsmax, nwmax, kwtop; doublecomplex aa, bb, cc, dd; - extern /* Subroutine */ int zlaqr3_(logical *, logical *, integer *, + extern /* Subroutine */ void zlaqr3_(logical *, logical *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, @@ -802,7 +802,7 @@ f"> */ doublecomplex rtdisc; integer nwupbd; logical sorted; - extern /* Subroutine */ int zlahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void zlahqr_(logical *, logical *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, @@ -852,7 +852,7 @@ f"> */ if (*n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } if (*n <= 15) { @@ -936,7 +936,7 @@ f"> */ d__1 = (doublereal) lwkopt; z__1.r = d__1, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* ==== ZLAHQR/ZLAQR0 crossover point ==== */ @@ -1365,6 +1365,6 @@ L80: /* ==== End of ZLAQR0 ==== */ - return 0; + return; } /* zlaqr0_ */ diff --git a/lapack-netlib/SRC/zlaqr1.c b/lapack-netlib/SRC/zlaqr1.c index 2232d286b..c0b702645 100644 --- a/lapack-netlib/SRC/zlaqr1.c +++ b/lapack-netlib/SRC/zlaqr1.c @@ -617,7 +617,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaqr1_(integer *n, doublecomplex *h__, integer *ldh, +/* Subroutine */ void zlaqr1_(integer *n, doublecomplex *h__, integer *ldh, doublecomplex *s1, doublecomplex *s2, doublecomplex *v) { /* System generated locals */ @@ -649,7 +649,7 @@ f"> */ /* Function Body */ if (*n != 2 && *n != 3) { - return 0; + return; } if (*n == 2) { @@ -754,6 +754,6 @@ f"> */ v[3].r = z__1.r, v[3].i = z__1.i; } } - return 0; + return; } /* zlaqr1_ */ diff --git a/lapack-netlib/SRC/zlaqr2.c b/lapack-netlib/SRC/zlaqr2.c index e7c352293..dee1cf49b 100644 --- a/lapack-netlib/SRC/zlaqr2.c +++ b/lapack-netlib/SRC/zlaqr2.c @@ -786,7 +786,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaqr2_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void zlaqr2_(logical *wantt, logical *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, integer *ldz, integer *ns, integer *nd, doublecomplex *sh, @@ -804,21 +804,21 @@ f"> */ doublecomplex beta; integer kcol, info, ifst, ilst, ltop, krow, i__, j; doublecomplex s; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer infqr; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kwtop; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); integer jw; doublereal safmin, safmax; - extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void zgehrd_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlahqr_(logical *, @@ -829,11 +829,11 @@ f"> */ zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int ztrexc_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void ztrexc_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, integer *); integer lwkopt; - extern /* Subroutine */ int zunmhr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmhr_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ); @@ -908,7 +908,7 @@ f"> */ d__1 = (doublereal) lwkopt; z__1.r = d__1, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* ==== Nothing to do ... */ @@ -917,11 +917,11 @@ f"> */ *nd = 0; work[1].r = 1., work[1].i = 0.; if (*ktop > *kbot) { - return 0; + return; } /* ... nor for an empty deflation window. ==== */ if (*nw < 1) { - return 0; + return; } /* ==== Machine constants ==== */ @@ -968,7 +968,7 @@ f"> */ } } work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* ==== Convert to spike-triangular form. (In case of a */ @@ -1214,6 +1214,6 @@ f"> */ /* ==== End of ZLAQR2 ==== */ - return 0; + return; } /* zlaqr2_ */ diff --git a/lapack-netlib/SRC/zlaqr3.c b/lapack-netlib/SRC/zlaqr3.c index 8ac0b9a29..a07baaa37 100644 --- a/lapack-netlib/SRC/zlaqr3.c +++ b/lapack-netlib/SRC/zlaqr3.c @@ -784,7 +784,7 @@ f"> */ /* > University of Kansas, USA */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaqr3_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void zlaqr3_(logical *wantt, logical *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, integer *ldz, integer *ns, integer *nd, doublecomplex *sh, @@ -802,16 +802,16 @@ f"> */ doublecomplex beta; integer kcol, info, nmin, ifst, ilst, ltop, krow, i__, j; doublecomplex s; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer infqr; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kwtop; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *), zlaqr4_(logical *, logical *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, @@ -822,7 +822,7 @@ f"> */ doublereal safmin, safmax; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *, + extern /* Subroutine */ void zgehrd_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlahqr_(logical *, @@ -833,11 +833,11 @@ f"> */ zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int ztrexc_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void ztrexc_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, integer *); integer lwkopt; - extern /* Subroutine */ int zunmhr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmhr_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer * ); @@ -920,7 +920,7 @@ f"> */ d__1 = (doublereal) lwkopt; z__1.r = d__1, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* ==== Nothing to do ... */ @@ -929,11 +929,11 @@ f"> */ *nd = 0; work[1].r = 1., work[1].i = 0.; if (*ktop > *kbot) { - return 0; + return; } /* ... nor for an empty deflation window. ==== */ if (*nw < 1) { - return 0; + return; } /* ==== Machine constants ==== */ @@ -980,7 +980,7 @@ f"> */ } } work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* ==== Convert to spike-triangular form. (In case of a */ @@ -1234,6 +1234,6 @@ f"> */ /* ==== End of ZLAQR3 ==== */ - return 0; + return; } /* zlaqr3_ */ diff --git a/lapack-netlib/SRC/zlaqr4.c b/lapack-netlib/SRC/zlaqr4.c index 999bdc91e..97be063dc 100644 --- a/lapack-netlib/SRC/zlaqr4.c +++ b/lapack-netlib/SRC/zlaqr4.c @@ -768,7 +768,7 @@ f"> */ /* > of Matrix Analysis, volume 23, pages 948--973, 2002. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaqr4_(logical *wantt, logical *wantz, integer *n, +/* Subroutine */ void zlaqr4_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, integer *info) @@ -787,7 +787,7 @@ f"> */ doublereal s; integer itmax, nsmax, nwmax, kwtop; doublecomplex aa, bb, cc, dd; - extern /* Subroutine */ int zlaqr2_(logical *, logical *, integer *, + extern /* Subroutine */ void zlaqr2_(logical *, logical *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, @@ -805,7 +805,7 @@ f"> */ doublecomplex rtdisc; integer nwupbd; logical sorted; - extern /* Subroutine */ int zlahqr_(logical *, logical *, integer *, + extern /* Subroutine */ void zlahqr_(logical *, logical *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, @@ -855,7 +855,7 @@ f"> */ if (*n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } if (*n <= 15) { @@ -939,7 +939,7 @@ f"> */ d__1 = (doublereal) lwkopt; z__1.r = d__1, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* ==== ZLAHQR/ZLAQR0 crossover point ==== */ @@ -1362,6 +1362,6 @@ L80: /* ==== End of ZLAQR4 ==== */ - return 0; + return; } /* zlaqr4_ */ diff --git a/lapack-netlib/SRC/zlaqr5.c b/lapack-netlib/SRC/zlaqr5.c index 408698968..1aacd4c7e 100644 --- a/lapack-netlib/SRC/zlaqr5.c +++ b/lapack-netlib/SRC/zlaqr5.c @@ -773,7 +773,7 @@ f"> */ /* > ACM Trans. Math. Softw. 40, 2, Article 12 (February 2014). */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaqr5_(logical *wantt, logical *wantz, integer *kacc22, +/* Subroutine */ void zlaqr5_(logical *wantt, logical *wantz, integer *kacc22, integer *n, integer *ktop, integer *kbot, integer *nshfts, doublecomplex *s, doublecomplex *h__, integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, integer *ldz, doublecomplex *v, @@ -795,24 +795,24 @@ f"> */ doublecomplex alpha; logical accum; integer ndcol, incol, krcol, nbmps; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer i2, k1, i4; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); doublereal h11, h12, h21, h22; - extern /* Subroutine */ int zlaqr1_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlaqr1_(integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *); integer m22; extern doublereal dlamch_(char *); integer ns, nu; doublecomplex vt[3]; doublereal safmin, safmax; - extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); doublecomplex refsum; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); @@ -856,14 +856,14 @@ f"> */ /* Function Body */ if (*nshfts < 2) { - return 0; + return; } /* ==== If the active block is empty or 1-by-1, then there */ /* . is nothing to do. ==== */ if (*ktop >= *kbot) { - return 0; + return; } /* ==== NSHFTS is supposed to be even, but if it is odd, */ @@ -1904,6 +1904,6 @@ f"> */ /* ==== End of ZLAQR5 ==== */ - return 0; + return; } /* zlaqr5_ */ diff --git a/lapack-netlib/SRC/zlaqsb.c b/lapack-netlib/SRC/zlaqsb.c index 42622920f..eac534754 100644 --- a/lapack-netlib/SRC/zlaqsb.c +++ b/lapack-netlib/SRC/zlaqsb.c @@ -650,7 +650,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void zlaqsb_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { @@ -687,7 +687,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -748,7 +748,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of ZLAQSB */ diff --git a/lapack-netlib/SRC/zlaqsp.c b/lapack-netlib/SRC/zlaqsp.c index 7db6a0d61..22758cefa 100644 --- a/lapack-netlib/SRC/zlaqsp.c +++ b/lapack-netlib/SRC/zlaqsp.c @@ -636,7 +636,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zlaqsp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { /* System generated locals */ @@ -672,7 +672,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -733,7 +733,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of ZLAQSP */ diff --git a/lapack-netlib/SRC/zlaqsy.c b/lapack-netlib/SRC/zlaqsy.c index 6ac767d91..8089d2eb6 100644 --- a/lapack-netlib/SRC/zlaqsy.c +++ b/lapack-netlib/SRC/zlaqsy.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complex16SYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zlaqsy_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed) { @@ -680,7 +680,7 @@ f"> */ /* Function Body */ if (*n <= 0) { *(unsigned char *)equed = 'N'; - return 0; + return; } /* Initialize LARGE and SMALL. */ @@ -737,7 +737,7 @@ f"> */ *(unsigned char *)equed = 'Y'; } - return 0; + return; /* End of ZLAQSY */ diff --git a/lapack-netlib/SRC/zlar1v.c b/lapack-netlib/SRC/zlar1v.c index 0d13d45b1..fa9c6147a 100644 --- a/lapack-netlib/SRC/zlar1v.c +++ b/lapack-netlib/SRC/zlar1v.c @@ -738,7 +738,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal +/* Subroutine */ void zlar1v_(integer *n, integer *b1, integer *bn, doublereal *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal * lld, doublereal *pivmin, doublereal *gaptol, doublecomplex *z__, logical *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, @@ -1091,7 +1091,7 @@ L280: *rqcorr = *mingma * tmp; - return 0; + return; /* End of ZLAR1V */ diff --git a/lapack-netlib/SRC/zlar2v.c b/lapack-netlib/SRC/zlar2v.c index 0b03b91d1..8654cdde4 100644 --- a/lapack-netlib/SRC/zlar2v.c +++ b/lapack-netlib/SRC/zlar2v.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, +/* Subroutine */ void zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s, integer *incc) { @@ -709,7 +709,7 @@ f"> */ ic += *incc; /* L10: */ } - return 0; + return; /* End of ZLAR2V */ diff --git a/lapack-netlib/SRC/zlarcm.c b/lapack-netlib/SRC/zlarcm.c index c2f784dd8..5ce71fdf9 100644 --- a/lapack-netlib/SRC/zlarcm.c +++ b/lapack-netlib/SRC/zlarcm.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer * +/* Subroutine */ void zlarcm_(integer *m, integer *n, doublereal *a, integer * lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *rwork) { @@ -640,7 +640,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void dgemm_(char *, char *, integer *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); @@ -670,7 +670,7 @@ f"> */ /* Function Body */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *n; @@ -725,7 +725,7 @@ f"> */ /* L80: */ } - return 0; + return; /* End of ZLARCM */ diff --git a/lapack-netlib/SRC/zlarf.c b/lapack-netlib/SRC/zlarf.c index 8269b3499..67f8c9756 100644 --- a/lapack-netlib/SRC/zlarf.c +++ b/lapack-netlib/SRC/zlarf.c @@ -643,7 +643,7 @@ static integer c__1 = 1; /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex +/* Subroutine */ void zlarf_(char *side, integer *m, integer *n, doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer * ldc, doublecomplex *work) { @@ -655,7 +655,7 @@ static integer c__1 = 1; integer i__; extern logical lsame_(char *, char *); integer lastc; - extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -752,7 +752,7 @@ static integer c__1 = 1; c_offset], ldc); } } - return 0; + return; /* End of ZLARF */ diff --git a/lapack-netlib/SRC/zlarfb.c b/lapack-netlib/SRC/zlarfb.c index bb1bfea3b..14d36bc1b 100644 --- a/lapack-netlib/SRC/zlarfb.c +++ b/lapack-netlib/SRC/zlarfb.c @@ -710,7 +710,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void zlarfb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, doublecomplex *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer * ldc, doublecomplex *work, integer *ldwork) @@ -723,7 +723,7 @@ f"> */ /* Local variables */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, @@ -761,7 +761,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } if (lsame_(trans, "N")) { @@ -1382,7 +1382,7 @@ f"> */ } } - return 0; + return; /* End of ZLARFB */ diff --git a/lapack-netlib/SRC/zlarfb_gett.c b/lapack-netlib/SRC/zlarfb_gett.c index 14f4bd66d..71f4a749d 100644 --- a/lapack-netlib/SRC/zlarfb_gett.c +++ b/lapack-netlib/SRC/zlarfb_gett.c @@ -903,7 +903,7 @@ gett.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlarfb_gett_(char *ident, integer *m, integer *n, +/* Subroutine */ void zlarfb_gett_(char *ident, integer *m, integer *n, integer *k, doublecomplex *t, integer *ldt, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *work, integer * ldwork) @@ -916,7 +916,7 @@ gett.f"> */ /* Local variables */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, @@ -952,7 +952,7 @@ gett.f"> */ /* Function Body */ if (*m < 0 || *n <= 0 || *k == 0 || *k > *n) { - return 0; + return; } lnotident = ! lsame_(ident, "I"); @@ -1149,7 +1149,7 @@ gett.f"> */ } } - return 0; + return; /* End of ZLARFB_GETT */ diff --git a/lapack-netlib/SRC/zlarfg.c b/lapack-netlib/SRC/zlarfg.c index 3e1171350..9696b3ef4 100644 --- a/lapack-netlib/SRC/zlarfg.c +++ b/lapack-netlib/SRC/zlarfg.c @@ -619,7 +619,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex * +/* Subroutine */ void zlarfg_(integer *n, doublecomplex *alpha, doublecomplex * x, integer *incx, doublecomplex *tau) { /* System generated locals */ @@ -631,13 +631,13 @@ f"> */ doublereal beta; integer j; doublereal alphi, alphr; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); doublereal xnorm; extern doublereal dlapy3_(doublereal *, doublereal *, doublereal *), dznrm2_(integer *, doublecomplex *, integer *), dlamch_(char *); doublereal safmin; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal rsafmn; extern /* Double Complex */ VOID zladiv_(doublecomplex *, doublecomplex *, @@ -660,7 +660,7 @@ f"> */ /* Function Body */ if (*n <= 0) { tau->r = 0., tau->i = 0.; - return 0; + return; } i__1 = *n - 1; @@ -727,7 +727,7 @@ L10: alpha->r = beta, alpha->i = 0.; } - return 0; + return; /* End of ZLARFG */ diff --git a/lapack-netlib/SRC/zlarfgp.c b/lapack-netlib/SRC/zlarfgp.c index e8ae91592..00d3f2042 100644 --- a/lapack-netlib/SRC/zlarfgp.c +++ b/lapack-netlib/SRC/zlarfgp.c @@ -617,7 +617,7 @@ static doublecomplex c_b5 = {1.,0.}; /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlarfgp_(integer *n, doublecomplex *alpha, doublecomplex +/* Subroutine */ void zlarfgp_(integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *tau) { /* System generated locals */ @@ -629,14 +629,14 @@ static doublecomplex c_b5 = {1.,0.}; doublereal beta; integer j; doublereal alphi, alphr; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); doublecomplex savealpha; doublereal xnorm; extern doublereal dlapy2_(doublereal *, doublereal *), dlapy3_(doublereal *, doublereal *, doublereal *), dznrm2_(integer *, doublecomplex * , integer *), dlamch_(char *); - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); doublereal bignum; extern /* Double Complex */ VOID zladiv_(doublecomplex *, doublecomplex *, @@ -660,7 +660,7 @@ static doublecomplex c_b5 = {1.,0.}; /* Function Body */ if (*n <= 0) { tau->r = 0., tau->i = 0.; - return 0; + return; } i__1 = *n - 1; @@ -817,7 +817,7 @@ L10: alpha->r = beta, alpha->i = 0.; } - return 0; + return; /* End of ZLARFGP */ diff --git a/lapack-netlib/SRC/zlarft.c b/lapack-netlib/SRC/zlarft.c index e6a90565a..f24e62d38 100644 --- a/lapack-netlib/SRC/zlarft.c +++ b/lapack-netlib/SRC/zlarft.c @@ -677,7 +677,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer * +/* Subroutine */ void zlarft_(char *direct, char *storev, integer *n, integer * k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex * t, integer *ldt) { @@ -688,17 +688,17 @@ f"> */ /* Local variables */ integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lastv; - extern /* Subroutine */ int ztrmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztrmv_(char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer prevlastv; - extern /* Subroutine */ int mecago_(); + extern /* Subroutine */ void mecago_(); /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -723,7 +723,7 @@ f"> */ /* Function Body */ if (*n == 0) { - return 0; + return; } if (lsame_(direct, "F")) { @@ -925,7 +925,7 @@ f"> */ } } } - return 0; + return; /* End of ZLARFT */ diff --git a/lapack-netlib/SRC/zlarfx.c b/lapack-netlib/SRC/zlarfx.c index 84944c44f..782699a66 100644 --- a/lapack-netlib/SRC/zlarfx.c +++ b/lapack-netlib/SRC/zlarfx.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlarfx_(char *side, integer *m, integer *n, +/* Subroutine */ void zlarfx_(char *side, integer *m, integer *n, doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer * ldc, doublecomplex *work) { @@ -646,7 +646,7 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); doublecomplex t1, t2, t3, t4, t5, t6, t7, t8, t9, v1, v2, v3, v4, v5, v6, @@ -671,7 +671,7 @@ f"> */ /* Function Body */ if (tau->r == 0. && tau->i == 0.) { - return 0; + return; } if (lsame_(side, "L")) { @@ -2595,7 +2595,7 @@ L390: goto L410; } L410: - return 0; + return; /* End of ZLARFX */ diff --git a/lapack-netlib/SRC/zlarfy.c b/lapack-netlib/SRC/zlarfy.c index 14675aa2e..e5df36f34 100644 --- a/lapack-netlib/SRC/zlarfy.c +++ b/lapack-netlib/SRC/zlarfy.c @@ -620,7 +620,7 @@ static integer c__1 = 1; /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlarfy_(char *uplo, integer *n, doublecomplex *v, +/* Subroutine */ void zlarfy_(char *uplo, integer *n, doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work) { @@ -629,13 +629,13 @@ static integer c__1 = 1; doublecomplex z__1, z__2, z__3, z__4; /* Local variables */ - extern /* Subroutine */ int zher2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zher2_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex alpha; extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zhemv_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhemv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_( integer *, doublecomplex *, doublecomplex *, integer *, @@ -660,7 +660,7 @@ static integer c__1 = 1; /* Function Body */ if (tau->r == 0. && tau->i == 0.) { - return 0; + return; } /* Form w:= C * v */ @@ -682,7 +682,7 @@ static integer c__1 = 1; z__1.r = -tau->r, z__1.i = -tau->i; zher2_(uplo, n, &z__1, &v[1], incv, &work[1], &c__1, &c__[c_offset], ldc); - return 0; + return; /* End of ZLARFY */ diff --git a/lapack-netlib/SRC/zlargv.c b/lapack-netlib/SRC/zlargv.c index ac437252d..2fc7080e2 100644 --- a/lapack-netlib/SRC/zlargv.c +++ b/lapack-netlib/SRC/zlargv.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx, +/* Subroutine */ void zlargv_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *c__, integer *incc) { /* System generated locals */ @@ -870,7 +870,7 @@ L50: ix += *incx; /* L60: */ } - return 0; + return; /* End of ZLARGV */ diff --git a/lapack-netlib/SRC/zlarnv.c b/lapack-netlib/SRC/zlarnv.c index 3da6ebf74..9b7d4b173 100644 --- a/lapack-netlib/SRC/zlarnv.c +++ b/lapack-netlib/SRC/zlarnv.c @@ -608,7 +608,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n, +/* Subroutine */ void zlarnv_(integer *idist, integer *iseed, integer *n, doublecomplex *x) { /* System generated locals */ @@ -620,7 +620,7 @@ f"> */ integer i__; doublereal u[128]; integer il, iv; - extern /* Subroutine */ int dlaruv_(integer *, integer *, doublereal *); + extern /* Subroutine */ void dlaruv_(integer *, integer *, doublereal *); /* -- LAPACK auxiliary routine (version 3.7.0) -- */ @@ -723,7 +723,7 @@ f"> */ } /* L60: */ } - return 0; + return; /* End of ZLARNV */ diff --git a/lapack-netlib/SRC/zlarrv.c b/lapack-netlib/SRC/zlarrv.c index 7960a3bbd..8dda3d097 100644 --- a/lapack-netlib/SRC/zlarrv.c +++ b/lapack-netlib/SRC/zlarrv.c @@ -799,7 +799,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int zlarrv_(integer *n, doublereal *vl, doublereal *vu, +/* Subroutine */ void zlarrv_(integer *n, doublereal *vl, doublereal *vu, doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, integer *m, integer *dol, integer *dou, doublereal *minrgp, doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr, @@ -828,13 +828,13 @@ f"> */ doublereal resid; logical eskip; doublereal right; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer nclus, zfrom; doublereal rqtol; integer iindc1, iindc2, indin1, indin2, miniwsize; logical stp2ii; - extern /* Subroutine */ int zlar1v_(integer *, integer *, integer *, + extern /* Subroutine */ void zlar1v_(integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublecomplex *, logical *, integer *, doublereal *, doublereal *, integer *, @@ -850,7 +850,7 @@ f"> */ logical needbs; integer indlld; doublereal sgndef, mingma; - extern /* Subroutine */ int dlarrb_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarrb_(integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *); @@ -860,7 +860,7 @@ f"> */ doublereal savgap; integer ndepth; doublereal ssigma; - extern /* Subroutine */ int dlarrf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarrf_(integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, @@ -868,7 +868,7 @@ f"> */ logical usedbs; integer iindwk, offset; doublereal gaptol; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); integer newcls, oldfst, indwrk, windex, oldlst; logical usedrq; @@ -879,7 +879,7 @@ f"> */ logical tryrqc; integer isupmx; doublereal rqcorr; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); doublereal gap, eps, tau, tol, tmp; integer zto; @@ -917,7 +917,7 @@ f"> */ /* Quick return if possible */ if (*n <= 0 || *m <= 0) { - return 0; + return; } /* The first N entries of WORK are reserved for the eigenvalues */ @@ -1070,7 +1070,7 @@ L40: /* This is a crude protection against infinitely deep trees */ if (ndepth > *m) { *info = -2; - return 0; + return; } /* breadth first processing of the current level of the representation */ /* tree: OLDNCL = number of clusters on current level */ @@ -1156,7 +1156,7 @@ L40: iindwk], pivmin, &spdiam, &in, &iinfo); if (iinfo != 0) { *info = -1; - return 0; + return; } /* We also recompute the extremal gaps. W holds all eigenvalues */ /* of the unshifted matrix and must be used for computation */ @@ -1343,7 +1343,7 @@ L40: iwork[k] = newlst; } else { *info = -2; - return 0; + return; } } else { @@ -1447,7 +1447,7 @@ L120: iindwk], pivmin, &spdiam, &itmp1, &iinfo); if (iinfo != 0) { *info = -3; - return 0; + return; } lambda = work[windex]; /* Reset twist index from inaccurate LAMBDA to */ @@ -1542,7 +1542,7 @@ L120: goto L120; } else { *info = 5; - return 0; + return; } } else { stp2ii = FALSE_; @@ -1637,7 +1637,7 @@ L170: ; } - return 0; + return; /* End of ZLARRV */ diff --git a/lapack-netlib/SRC/zlarscl2.c b/lapack-netlib/SRC/zlarscl2.c index 1f7be77b2..2493468e7 100644 --- a/lapack-netlib/SRC/zlarscl2.c +++ b/lapack-netlib/SRC/zlarscl2.c @@ -600,7 +600,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zlarscl2_(integer *m, integer *n, doublereal *d__, +/* Subroutine */ void zlarscl2_(integer *m, integer *n, doublereal *d__, doublecomplex *x, integer *ldx) { /* System generated locals */ @@ -638,6 +638,6 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ x[i__3].r = z__1.r, x[i__3].i = z__1.i; } } - return 0; + return; } /* zlarscl2_ */ diff --git a/lapack-netlib/SRC/zlartg.c b/lapack-netlib/SRC/zlartg.c index b0b5621d1..f8f726025 100644 --- a/lapack-netlib/SRC/zlartg.c +++ b/lapack-netlib/SRC/zlartg.c @@ -614,7 +614,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal * +/* Subroutine */ void zlartg_(doublecomplex *f, doublecomplex *g, doublereal * cs, doublecomplex *sn, doublecomplex *r__) { /* System generated locals */ @@ -681,7 +681,7 @@ L10: *cs = 1.; sn->r = 0., sn->i = 0.; r__->r = f->r, r__->i = f->i; - return 0; + return; } L20: --count; @@ -722,7 +722,7 @@ L20: d__2 = -d_imag(&gs) / d__; z__1.r = d__1, z__1.i = d__2; sn->r = z__1.r, sn->i = z__1.i; - return 0; + return; } d__1 = fs.r; d__2 = d_imag(&fs); @@ -811,7 +811,7 @@ L20: } } } - return 0; + return; /* End of ZLARTG */ diff --git a/lapack-netlib/SRC/zlartv.c b/lapack-netlib/SRC/zlartv.c index 850e0934f..b578b8bf7 100644 --- a/lapack-netlib/SRC/zlartv.c +++ b/lapack-netlib/SRC/zlartv.c @@ -617,7 +617,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx, +/* Subroutine */ void zlartv_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s, integer *incc) { @@ -676,7 +676,7 @@ f"> */ ic += *incc; /* L10: */ } - return 0; + return; /* End of ZLARTV */ diff --git a/lapack-netlib/SRC/zlarz.c b/lapack-netlib/SRC/zlarz.c index 805720445..e4a4ea254 100644 --- a/lapack-netlib/SRC/zlarz.c +++ b/lapack-netlib/SRC/zlarz.c @@ -661,7 +661,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l, +/* Subroutine */ void zlarz_(char *side, integer *m, integer *n, integer *l, doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex * c__, integer *ldc, doublecomplex *work) { @@ -671,7 +671,7 @@ static integer c__1 = 1; /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -762,7 +762,7 @@ static integer c__1 = 1; } - return 0; + return; /* End of ZLARZ */ diff --git a/lapack-netlib/SRC/zlarzb.c b/lapack-netlib/SRC/zlarzb.c index fbfaad6d3..5416b5e34 100644 --- a/lapack-netlib/SRC/zlarzb.c +++ b/lapack-netlib/SRC/zlarzb.c @@ -696,7 +696,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void zlarzb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, integer *l, doublecomplex *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *ldwork) @@ -709,14 +709,15 @@ f"> */ /* Local variables */ integer info, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, - doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen), - zlacgv_(integer *, doublecomplex *, integer *); + doublecomplex *, integer *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_(integer *, doublecomplex *, integer *); char transt[1]; @@ -747,7 +748,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0) { - return 0; + return; } /* Check for currently supported options */ @@ -761,7 +762,7 @@ f"> */ if (info != 0) { i__1 = -info; xerbla_("ZLARZB", &i__1, (ftnlen)6); - return 0; + return; } if (lsame_(trans, "N")) { @@ -902,7 +903,7 @@ f"> */ } - return 0; + return; /* End of ZLARZB */ diff --git a/lapack-netlib/SRC/zlarzt.c b/lapack-netlib/SRC/zlarzt.c index 80533ff39..036c7209e 100644 --- a/lapack-netlib/SRC/zlarzt.c +++ b/lapack-netlib/SRC/zlarzt.c @@ -699,7 +699,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer * +/* Subroutine */ void zlarzt_(char *direct, char *storev, integer *n, integer * k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex * t, integer *ldt) { @@ -710,13 +710,13 @@ f"> */ /* Local variables */ integer info, i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), ztrmv_(char *, char *, char *, integer *, doublecomplex *, - integer *, doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen), zlacgv_(integer *, - doublecomplex *, integer *); + integer *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_(integer *, doublecomplex *, integer *); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -749,7 +749,7 @@ f"> */ if (info != 0) { i__1 = -info; xerbla_("ZLARZT", &i__1, (ftnlen)6); - return 0; + return; } for (i__ = *k; i__ >= 1; --i__) { @@ -794,7 +794,7 @@ f"> */ } /* L20: */ } - return 0; + return; /* End of ZLARZT */ diff --git a/lapack-netlib/SRC/zlascl.c b/lapack-netlib/SRC/zlascl.c index 4845cdb95..73b2f29ff 100644 --- a/lapack-netlib/SRC/zlascl.c +++ b/lapack-netlib/SRC/zlascl.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku, +/* Subroutine */ void zlascl_(char *type__, integer *kl, integer *ku, doublereal *cfrom, doublereal *cto, integer *m, integer *n, doublecomplex *a, integer *lda, integer *info) { @@ -744,13 +744,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLASCL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } /* Get machine parameters */ @@ -934,7 +934,7 @@ L10: goto L10; } - return 0; + return; /* End of ZLASCL */ diff --git a/lapack-netlib/SRC/zlascl2.c b/lapack-netlib/SRC/zlascl2.c index 8c095dca0..076bab027 100644 --- a/lapack-netlib/SRC/zlascl2.c +++ b/lapack-netlib/SRC/zlascl2.c @@ -600,7 +600,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zlascl2_(integer *m, integer *n, doublereal *d__, +/* Subroutine */ void zlascl2_(integer *m, integer *n, doublereal *d__, doublecomplex *x, integer *ldx) { /* System generated locals */ @@ -638,6 +638,6 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ x[i__3].r = z__1.r, x[i__3].i = z__1.i; } } - return 0; + return; } /* zlascl2_ */ diff --git a/lapack-netlib/SRC/zlaset.c b/lapack-netlib/SRC/zlaset.c index eabfe2a79..9e3f21d72 100644 --- a/lapack-netlib/SRC/zlaset.c +++ b/lapack-netlib/SRC/zlaset.c @@ -616,7 +616,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n, +/* Subroutine */ void zlaset_(char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer * lda) { @@ -712,7 +712,7 @@ f"> */ } } - return 0; + return; /* End of ZLASET */ diff --git a/lapack-netlib/SRC/zlasr.c b/lapack-netlib/SRC/zlasr.c index c1d8fc5b4..983f7b3d3 100644 --- a/lapack-netlib/SRC/zlasr.c +++ b/lapack-netlib/SRC/zlasr.c @@ -709,7 +709,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m, +/* Subroutine */ void zlasr_(char *side, char *pivot, char *direct, integer *m, integer *n, doublereal *c__, doublereal *s, doublecomplex *a, integer *lda) { @@ -763,13 +763,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("ZLASR ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (lsame_(side, "L")) { @@ -1161,7 +1161,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of ZLASR */ diff --git a/lapack-netlib/SRC/zlassq.c b/lapack-netlib/SRC/zlassq.c index 480673c16..5e9fade41 100644 --- a/lapack-netlib/SRC/zlassq.c +++ b/lapack-netlib/SRC/zlassq.c @@ -615,7 +615,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx, +/* Subroutine */ void zlassq_(integer *n, doublecomplex *x, integer *incx, doublereal *scale, doublereal *sumsq) { /* System generated locals */ @@ -676,7 +676,7 @@ f"> */ } } - return 0; + return; /* End of ZLASSQ */ diff --git a/lapack-netlib/SRC/zlaswlq.c b/lapack-netlib/SRC/zlaswlq.c index 14cebe5bf..aa46bfa29 100644 --- a/lapack-netlib/SRC/zlaswlq.c +++ b/lapack-netlib/SRC/zlaswlq.c @@ -671,7 +671,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaswlq_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void zlaswlq_(integer *m, integer *n, integer *mb, integer * nb, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, doublecomplex *work, integer *lwork, integer *info) { @@ -680,11 +680,12 @@ static integer c__0 = 0; /* Local variables */ integer i__, ii, kk; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zgelqt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zgelqt_( integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical lquery; - extern /* Subroutine */ int ztplqt_(integer *, integer *, integer *, + extern /* Subroutine */ void ztplqt_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ctr; @@ -738,15 +739,15 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("ZLASWLQ", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The LQ Decomposition */ @@ -754,7 +755,7 @@ static integer c__0 = 0; if (*m >= *n || *nb <= *m || *nb >= *n) { zgelqt_(m, n, mb, &a[a_offset], lda, &t[t_offset], ldt, &work[1], info); - return 0; + return; } kk = (*n - *m) % (*nb - *m); @@ -787,7 +788,7 @@ static integer c__0 = 0; i__2 = *m * *mb; work[1].r = (doublereal) i__2, work[1].i = 0.; - return 0; + return; /* End of ZLASWLQ */ diff --git a/lapack-netlib/SRC/zlaswp.c b/lapack-netlib/SRC/zlaswp.c index cc1aab79a..84616be2b 100644 --- a/lapack-netlib/SRC/zlaswp.c +++ b/lapack-netlib/SRC/zlaswp.c @@ -624,7 +624,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda, +/* Subroutine */ void zlaswp_(integer *n, doublecomplex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx) { /* System generated locals */ @@ -665,7 +665,7 @@ f"> */ i2 = *k1; inc = -1; } else { - return 0; + return; } n32 = *n / 32 << 5; @@ -722,7 +722,7 @@ f"> */ } } - return 0; + return; /* End of ZLASWP */ diff --git a/lapack-netlib/SRC/zlasyf.c b/lapack-netlib/SRC/zlasyf.c index e414864be..f52e18b6a 100644 --- a/lapack-netlib/SRC/zlasyf.c +++ b/lapack-netlib/SRC/zlasyf.c @@ -692,7 +692,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb, +/* Subroutine */ void zlasyf_(char *uplo, integer *n, integer *nb, integer *kb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, integer *ldw, integer *info) { @@ -706,17 +706,17 @@ f"> */ doublecomplex t; doublereal alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublecomplex r1; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d21, d22; @@ -1538,7 +1538,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of ZLASYF */ diff --git a/lapack-netlib/SRC/zlasyf_aa.c b/lapack-netlib/SRC/zlasyf_aa.c index d9b7b267a..6a769f996 100644 --- a/lapack-netlib/SRC/zlasyf_aa.c +++ b/lapack-netlib/SRC/zlasyf_aa.c @@ -659,7 +659,7 @@ aa.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zlasyf_aa_(char *uplo, integer *j1, integer *m, integer +/* Subroutine */ void zlasyf_aa_(char *uplo, integer *j1, integer *m, integer *nb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex * h__, integer *ldh, doublecomplex *work) { @@ -671,19 +671,19 @@ aa.f"> */ integer j, k; doublecomplex alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer i1, k1, i2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer mj; extern integer izamax_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); doublecomplex piv; @@ -1078,7 +1078,7 @@ L30: L40: ; } - return 0; + return; /* End of ZLASYF_AA */ diff --git a/lapack-netlib/SRC/zlasyf_rk.c b/lapack-netlib/SRC/zlasyf_rk.c index f12fa9c9a..a8690e3b0 100644 --- a/lapack-netlib/SRC/zlasyf_rk.c +++ b/lapack-netlib/SRC/zlasyf_rk.c @@ -776,7 +776,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zlasyf_rk_(char *uplo, integer *n, integer *nb, integer +/* Subroutine */ void zlasyf_rk_(char *uplo, integer *n, integer *nb, integer *kb, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *w, integer *ldw, integer *info) { @@ -792,19 +792,19 @@ rk.f"> */ doublereal alpha; extern logical lsame_(char *, char *); doublereal dtemp, sfmin; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer itemp; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublecomplex r1; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d12, d21, d22; @@ -1713,7 +1713,7 @@ L90: } - return 0; + return; /* End of ZLASYF_RK */ diff --git a/lapack-netlib/SRC/zlasyf_rook.c b/lapack-netlib/SRC/zlasyf_rook.c index 9abebc804..09ff4c304 100644 --- a/lapack-netlib/SRC/zlasyf_rook.c +++ b/lapack-netlib/SRC/zlasyf_rook.c @@ -698,7 +698,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zlasyf_rook_(char *uplo, integer *n, integer *nb, +/* Subroutine */ void zlasyf_rook_(char *uplo, integer *n, integer *nb, integer *kb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, integer *ldw, integer *info) { @@ -714,19 +714,19 @@ rook.f"> */ doublereal alpha; extern logical lsame_(char *, char *); doublereal dtemp, sfmin; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer itemp; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublecomplex r1; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d12, d21, d22; @@ -1638,7 +1638,7 @@ L120: *kb = k - 1; } - return 0; + return; /* End of ZLASYF_ROOK */ diff --git a/lapack-netlib/SRC/zlat2c.c b/lapack-netlib/SRC/zlat2c.c index dd70c7e6f..a11ce7f97 100644 --- a/lapack-netlib/SRC/zlat2c.c +++ b/lapack-netlib/SRC/zlat2c.c @@ -620,7 +620,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlat2c_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zlat2c_(char *uplo, integer *n, doublecomplex *a, integer *lda, complex *sa, integer *ldsa, integer *info) { /* System generated locals */ @@ -697,7 +697,7 @@ f"> */ } L50: - return 0; + return; /* End of ZLAT2C */ diff --git a/lapack-netlib/SRC/zlatbs.c b/lapack-netlib/SRC/zlatbs.c index 04925e90c..f862c1488 100644 --- a/lapack-netlib/SRC/zlatbs.c +++ b/lapack-netlib/SRC/zlatbs.c @@ -756,7 +756,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void zlatbs_(char *uplo, char *trans, char *diag, char * normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info) { @@ -773,7 +773,7 @@ f"> */ doublecomplex tjjs; doublereal xmax, grow; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer maind; extern logical lsame_(char *, char *); @@ -786,14 +786,15 @@ f"> */ logical upper; extern /* Double Complex */ VOID zdotu_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int ztbsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztbsv_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_( doublereal *, doublereal *); extern doublereal dlamch_(char *); doublereal xj; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal bignum; extern integer izamax_(integer *, doublecomplex *, integer *); @@ -851,13 +852,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLATBS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1752,7 +1753,7 @@ L210: dscal_(n, &d__1, &cnorm[1], &c__1); } - return 0; + return; /* End of ZLATBS */ diff --git a/lapack-netlib/SRC/zlatdf.c b/lapack-netlib/SRC/zlatdf.c index 7debf0ecc..125fc1752 100644 --- a/lapack-netlib/SRC/zlatdf.c +++ b/lapack-netlib/SRC/zlatdf.c @@ -685,7 +685,7 @@ f"> */ /* > 1995. */ /* ===================================================================== */ -/* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__, +/* Subroutine */ void zlatdf_(integer *ijob, integer *n, doublecomplex *z__, integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal * rdscal, integer *ipiv, integer *jpiv) { @@ -698,26 +698,27 @@ f"> */ doublecomplex temp, work[8]; integer i__, j, k; doublereal scale; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); doublecomplex pmone; extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal rtemp, sminu, rwork[2]; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal splus; - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zgesc2_( integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublereal *); doublecomplex bm, bp, xm[2], xp[2]; - extern /* Subroutine */ int zgecon_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zgecon_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublereal *, integer *); extern doublereal dzasum_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, - doublereal *, doublereal *), zlaswp_(integer *, doublecomplex *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, + doublereal *, doublereal *); + extern int zlaswp_(integer *, doublecomplex *, integer *, integer *, integer *, integer *, integer *); @@ -878,7 +879,7 @@ f"> */ /* Compute the sum of squares */ zlassq_(n, &rhs[1], &c__1, rdscal, rdsum); - return 0; + return; } /* ENTRY IJOB = 2 */ @@ -910,7 +911,7 @@ f"> */ /* Compute the sum of squares */ zlassq_(n, &rhs[1], &c__1, rdscal, rdsum); - return 0; + return; /* End of ZLATDF */ diff --git a/lapack-netlib/SRC/zlatps.c b/lapack-netlib/SRC/zlatps.c index 0319be7db..f73d72e71 100644 --- a/lapack-netlib/SRC/zlatps.c +++ b/lapack-netlib/SRC/zlatps.c @@ -744,7 +744,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void zlatps_(char *uplo, char *trans, char *diag, char * normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal * scale, doublereal *cnorm, integer *info) { @@ -761,7 +761,7 @@ f"> */ doublecomplex tjjs; doublereal xmax, grow; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal tscal; @@ -773,7 +773,7 @@ f"> */ logical upper; extern /* Double Complex */ VOID zdotu_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztpsv_( char *, char *, char *, integer *, doublecomplex *, doublecomplex *, integer *), dlabad_(doublereal *, @@ -782,7 +782,8 @@ f"> */ integer ip; doublereal xj; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal bignum; extern integer izamax_(integer *, doublecomplex *, integer *); @@ -834,13 +835,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLATPS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1715,7 +1716,7 @@ L210: dscal_(n, &d__1, &cnorm[1], &c__1); } - return 0; + return; /* End of ZLATPS */ diff --git a/lapack-netlib/SRC/zlatrd.c b/lapack-netlib/SRC/zlatrd.c index 581211ac0..81a3479f7 100644 --- a/lapack-netlib/SRC/zlatrd.c +++ b/lapack-netlib/SRC/zlatrd.c @@ -715,7 +715,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb, +/* Subroutine */ void zlatrd_(char *uplo, integer *n, integer *nb, doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau, doublecomplex *w, integer *ldw) { @@ -728,11 +728,11 @@ f"> */ integer i__; doublecomplex alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zhemv_(char *, integer *, doublecomplex *, doublecomplex *, @@ -741,7 +741,7 @@ f"> */ doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer iw; - extern /* Subroutine */ int zlarfg_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *); @@ -769,7 +769,7 @@ f"> */ /* Function Body */ if (*n <= 0) { - return 0; + return; } if (lsame_(uplo, "U")) { @@ -976,7 +976,7 @@ f"> */ } } - return 0; + return; /* End of ZLATRD */ diff --git a/lapack-netlib/SRC/zlatrs.c b/lapack-netlib/SRC/zlatrs.c index eec839a77..71122e2cc 100644 --- a/lapack-netlib/SRC/zlatrs.c +++ b/lapack-netlib/SRC/zlatrs.c @@ -753,7 +753,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void zlatrs_(char *uplo, char *trans, char *diag, char * normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info) { @@ -770,7 +770,7 @@ f"> */ doublecomplex tjjs; doublereal xmax, grow; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); extern logical lsame_(char *, char *); doublereal tscal; @@ -782,7 +782,7 @@ f"> */ logical upper; extern /* Double Complex */ VOID zdotu_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsv_( char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_( @@ -790,7 +790,8 @@ f"> */ extern doublereal dlamch_(char *); doublereal xj; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal bignum; extern integer izamax_(integer *, doublecomplex *, integer *); @@ -846,13 +847,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLATRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine machine dependent parameters to control overflow. */ @@ -1705,7 +1706,7 @@ L210: dscal_(n, &d__1, &cnorm[1], &c__1); } - return 0; + return; /* End of ZLATRS */ diff --git a/lapack-netlib/SRC/zlatrs3.c b/lapack-netlib/SRC/zlatrs3.c index 0cb1cda54..0afc8d26c 100644 --- a/lapack-netlib/SRC/zlatrs3.c +++ b/lapack-netlib/SRC/zlatrs3.c @@ -742,7 +742,7 @@ static integer c_n1 = -1; /* Angelika Schwarz, Umea University, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int zlatrs3_(char *uplo, char *trans, char *diag, char * +/* Subroutine */ void zlatrs3_(char *uplo, char *trans, char *diag, char * normin, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *x, integer *ldx, doublereal *scale, doublereal *cnorm, doublereal *work, integer *lwork, integer *info) @@ -763,7 +763,7 @@ static integer c_n1 = -1; extern logical lsame_(char *, char *); doublereal rscal; integer lanrm, ilast, jlast; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -774,20 +774,20 @@ static integer c_n1 = -1; integer lscale; doublereal scaloc, scamin; extern doublereal dlarmm_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen ); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); integer ifirst; logical notran; integer jfirst; doublereal smlnum; logical nounit; - extern /* Subroutine */ int zlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatrs_(char *, char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *); logical lquery; @@ -875,10 +875,10 @@ static integer c_n1 = -1; } if (*info != 0) { i__1 = -(*info); - xerbla_("ZLATRS3", &i__1); - return 0; + xerbla_("ZLATRS3", &i__1, 7); + return; } else if (lquery) { - return 0; + return; } /* Initialize scaling factors */ @@ -891,7 +891,7 @@ static integer c_n1 = -1; /* Quick return if possible */ if (f2cmin(*n,*nrhs) == 0) { - return 0; + return; } /* Determine machine dependent constant to control overflow. */ @@ -909,7 +909,7 @@ static integer c_n1 = -1; zlatrs_(uplo, trans, diag, "Y", n, &a[a_offset], lda, &x[k * x_dim1 + 1], &scale[k], &cnorm[1], info); } - return 0; + return; } /* Compute norms of blocks of A excluding diagonal blocks and find */ @@ -969,7 +969,7 @@ static integer c_n1 = -1; zlatrs_(uplo, trans, diag, "N", n, &a[a_offset], lda, &x[k * x_dim1 + 1], &scale[k], &cnorm[1], info); } - return 0; + return; } /* Every right-hand side requires workspace to store NBA local scale */ @@ -1275,7 +1275,7 @@ static integer c_n1 = -1; } } } - return 0; + return; /* End of ZLATRS3 */ diff --git a/lapack-netlib/SRC/zlatrz.c b/lapack-netlib/SRC/zlatrz.c index 870dae0ed..69be8eaa8 100644 --- a/lapack-netlib/SRC/zlatrz.c +++ b/lapack-netlib/SRC/zlatrz.c @@ -649,7 +649,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l, +/* Subroutine */ void zlatrz_(integer *m, integer *n, integer *l, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work) { @@ -660,7 +660,7 @@ f"> */ /* Local variables */ integer i__; doublecomplex alpha; - extern /* Subroutine */ int zlarz_(char *, integer *, integer *, integer * + extern /* Subroutine */ void zlarz_(char *, integer *, integer *, integer * , doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), @@ -687,7 +687,7 @@ f"> */ /* Function Body */ if (*m == 0) { - return 0; + return; } else if (*m == *n) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -695,7 +695,7 @@ f"> */ tau[i__2].r = 0., tau[i__2].i = 0.; /* L10: */ } - return 0; + return; } for (i__ = *m; i__ >= 1; --i__) { @@ -727,7 +727,7 @@ f"> */ /* L20: */ } - return 0; + return; /* End of ZLATRZ */ diff --git a/lapack-netlib/SRC/zlatsqr.c b/lapack-netlib/SRC/zlatsqr.c index 4c95d337d..7e98a6203 100644 --- a/lapack-netlib/SRC/zlatsqr.c +++ b/lapack-netlib/SRC/zlatsqr.c @@ -673,7 +673,7 @@ static integer c__0 = 0; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zlatsqr_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void zlatsqr_(integer *m, integer *n, integer *mb, integer * nb, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, doublecomplex *work, integer *lwork, integer *info) { @@ -682,11 +682,12 @@ static integer c__0 = 0; /* Local variables */ integer i__, ii, kk; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zgeqrt_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zgeqrt_( integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical lquery; - extern /* Subroutine */ int ztpqrt_(integer *, integer *, integer *, + extern /* Subroutine */ void ztpqrt_(integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ctr; @@ -739,15 +740,15 @@ static integer c__0 = 0; if (*info != 0) { i__1 = -(*info); xerbla_("ZLATSQR", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* The QR Decomposition */ @@ -755,7 +756,7 @@ static integer c__0 = 0; if (*mb <= *n || *mb >= *m) { zgeqrt_(m, n, nb, &a[a_offset], lda, &t[t_offset], ldt, &work[1], info); - return 0; + return; } kk = (*m - *n) % (*mb - *n); ii = *m - kk + 1; @@ -787,7 +788,7 @@ static integer c__0 = 0; i__2 = *n * *nb; work[1].r = (doublereal) i__2, work[1].i = 0.; - return 0; + return; /* End of ZLATSQR */ diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp.c b/lapack-netlib/SRC/zlaunhr_col_getrfnp.c index e05223596..ed22ca82e 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp.c +++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp.c @@ -661,7 +661,7 @@ _col_getrfnp.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zlaunhr_col_getrfnp_(integer *m, integer *n, +/* Subroutine */ void zlaunhr_col_getrfnp_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *d__, integer *info) { /* System generated locals */ @@ -669,10 +669,10 @@ _col_getrfnp.f"> */ doublecomplex z__1; /* Local variables */ - extern /* Subroutine */ int zlaunhr_col_getrfnp2_(integer *, integer *, + extern /* Subroutine */ void zlaunhr_col_getrfnp2_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer j, iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, @@ -713,13 +713,13 @@ _col_getrfnp.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLAUNHR_COL_GETRFNP", &i__1, (ftnlen)19); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -771,7 +771,7 @@ _col_getrfnp.f"> */ } } } - return 0; + return; /* End of ZLAUNHR_COL_GETRFNP */ diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c index b2c9989c9..acf267024 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c @@ -682,7 +682,7 @@ _col_getrfnp2.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zlaunhr_col_getrfnp2_(integer *m, integer *n, +/* Subroutine */ void zlaunhr_col_getrfnp2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *d__, integer *info) { /* System generated locals */ @@ -693,13 +693,13 @@ _col_getrfnp2.f"> */ /* Local variables */ integer i__, iinfo; doublereal sfmin; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer n1, n2; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); @@ -735,13 +735,13 @@ _col_getrfnp2.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLAUNHR_COL_GETRFNP2", &i__1, (ftnlen)20); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } if (*m == 1) { @@ -844,7 +844,7 @@ _col_getrfnp2.f"> */ lda, &d__[n1 + 1], &iinfo); } - return 0; + return; /* End of ZLAUNHR_COL_GETRFNP2 */ diff --git a/lapack-netlib/SRC/zlauu2.c b/lapack-netlib/SRC/zlauu2.c index 434b278b5..9a8dbea6d 100644 --- a/lapack-netlib/SRC/zlauu2.c +++ b/lapack-netlib/SRC/zlauu2.c @@ -618,7 +618,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zlauu2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -631,11 +631,12 @@ f"> */ extern logical lsame_(char *, char *); extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublereal aii; @@ -670,13 +671,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLAUU2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -742,7 +743,7 @@ f"> */ } } - return 0; + return; /* End of ZLAUU2 */ diff --git a/lapack-netlib/SRC/zlauum.c b/lapack-netlib/SRC/zlauum.c index 71d003eb4..b8331beee 100644 --- a/lapack-netlib/SRC/zlauum.c +++ b/lapack-netlib/SRC/zlauum.c @@ -619,7 +619,7 @@ f"> */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zlauum_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -628,19 +628,20 @@ f"> */ /* Local variables */ integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zherk_(char *, char *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer ib, nb; - extern /* Subroutine */ int zlauu2_(char *, integer *, doublecomplex *, - integer *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void zlauu2_(char *, integer *, doublecomplex *, + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); @@ -674,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZLAUUM", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -758,7 +759,7 @@ f"> */ } } - return 0; + return; /* End of ZLAUUM */ diff --git a/lapack-netlib/SRC/zpbcon.c b/lapack-netlib/SRC/zpbcon.c index 228ab1cbe..36d2dac74 100644 --- a/lapack-netlib/SRC/zpbcon.c +++ b/lapack-netlib/SRC/zpbcon.c @@ -645,7 +645,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void zpbcon_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal * rcond, doublecomplex *work, doublereal *rwork, integer *info) { @@ -659,7 +659,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -667,7 +667,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; extern integer izamax_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zlatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatbs_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *), zdrscl_(integer *, doublereal *, doublecomplex *, integer *); @@ -710,7 +710,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -718,9 +718,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -781,7 +781,7 @@ L10: L20: - return 0; + return; /* End of ZPBCON */ diff --git a/lapack-netlib/SRC/zpbequ.c b/lapack-netlib/SRC/zpbequ.c index 386cf5543..eecf4b2f8 100644 --- a/lapack-netlib/SRC/zpbequ.c +++ b/lapack-netlib/SRC/zpbequ.c @@ -639,7 +639,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void zpbequ_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, integer *info) { @@ -687,7 +687,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -695,7 +695,7 @@ f"> */ if (*n == 0) { *scond = 1.; *amax = 0.; - return 0; + return; } if (upper) { @@ -734,7 +734,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.) { *info = i__; - return 0; + return; } /* L20: */ } @@ -753,7 +753,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of ZPBEQU */ diff --git a/lapack-netlib/SRC/zpbrfs.c b/lapack-netlib/SRC/zpbrfs.c index acd0e1f80..7e1166d9d 100644 --- a/lapack-netlib/SRC/zpbrfs.c +++ b/lapack-netlib/SRC/zpbrfs.c @@ -702,7 +702,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void zpbrfs_(char *uplo, integer *n, integer *kd, integer * nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer * ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * @@ -721,12 +721,12 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3]; - extern /* Subroutine */ int zhbmv_(char *, integer *, integer *, + extern /* Subroutine */ void zhbmv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer count; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zlacn2_( integer *, doublecomplex *, doublecomplex *, doublereal *, @@ -737,7 +737,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int zpbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void zpbtrs_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -795,7 +795,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -807,7 +807,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1051,7 +1051,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZPBRFS */ diff --git a/lapack-netlib/SRC/zpbstf.c b/lapack-netlib/SRC/zpbstf.c index e4002b19f..c46dcb8c3 100644 --- a/lapack-netlib/SRC/zpbstf.c +++ b/lapack-netlib/SRC/zpbstf.c @@ -667,7 +667,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void zpbstf_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -675,13 +675,14 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int zher_(char *, integer *, doublereal *, + extern /* Subroutine */ void zher_(char *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); integer j, m; extern logical lsame_(char *, char *); logical upper; integer km; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublereal ajj; @@ -719,13 +720,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBSTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Computing MAX */ @@ -871,11 +872,11 @@ f"> */ /* L40: */ } } - return 0; + return; L50: *info = j; - return 0; + return; /* End of ZPBSTF */ diff --git a/lapack-netlib/SRC/zpbsv.c b/lapack-netlib/SRC/zpbsv.c index 5dae2eda2..a9a19b714 100644 --- a/lapack-netlib/SRC/zpbsv.c +++ b/lapack-netlib/SRC/zpbsv.c @@ -673,7 +673,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void zpbsv_(char *uplo, integer *n, integer *kd, integer * nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer * ldb, integer *info) { @@ -682,7 +682,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zpbtrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zpbtrf_( char *, integer *, integer *, doublecomplex *, integer *, integer *), zpbtrs_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -725,7 +726,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**H *U or A = L*L**H. */ @@ -739,7 +740,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ info); } - return 0; + return; /* End of ZPBSV */ diff --git a/lapack-netlib/SRC/zpbsvx.c b/lapack-netlib/SRC/zpbsvx.c index 8d61aca13..83b923883 100644 --- a/lapack-netlib/SRC/zpbsvx.c +++ b/lapack-netlib/SRC/zpbsvx.c @@ -853,7 +853,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd, +/* Subroutine */ void zpbsvx_(char *fact, char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal * @@ -873,7 +873,7 @@ f"> */ doublereal scond, anorm; logical equil, rcequ, upper; integer j1, j2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); logical nofact; @@ -881,11 +881,11 @@ f"> */ extern doublereal zlanhb_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zlaqhb_(char *, integer *, integer *, + extern /* Subroutine */ void zlaqhb_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, char *); integer infequ; - extern /* Subroutine */ int zpbcon_(char *, integer *, integer *, + extern /* Subroutine */ void zpbcon_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublereal *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex * @@ -898,7 +898,7 @@ f"> */ integer *), zpbtrf_(char *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal smlnum; - extern /* Subroutine */ int zpbtrs_(char *, integer *, integer *, integer + extern /* Subroutine */ void zpbtrs_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -998,7 +998,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -1069,7 +1069,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -1125,7 +1125,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of ZPBSVX */ diff --git a/lapack-netlib/SRC/zpbtf2.c b/lapack-netlib/SRC/zpbtf2.c index 3b5c34545..f050b9602 100644 --- a/lapack-netlib/SRC/zpbtf2.c +++ b/lapack-netlib/SRC/zpbtf2.c @@ -657,7 +657,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void zpbtf2_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -665,13 +665,14 @@ f"> */ doublereal d__1; /* Local variables */ - extern /* Subroutine */ int zher_(char *, integer *, doublereal *, + extern /* Subroutine */ void zher_(char *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *); integer j; extern logical lsame_(char *, char *); logical upper; integer kn; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublereal ajj; @@ -709,13 +710,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Computing MAX */ @@ -793,11 +794,11 @@ f"> */ /* L20: */ } } - return 0; + return; L30: *info = j; - return 0; + return; /* End of ZPBTF2 */ diff --git a/lapack-netlib/SRC/zpbtrf.c b/lapack-netlib/SRC/zpbtrf.c index 04fa2320c..268d1c101 100644 --- a/lapack-netlib/SRC/zpbtrf.c +++ b/lapack-netlib/SRC/zpbtrf.c @@ -660,7 +660,7 @@ f"> */ /* > Peter Mayes and Giuseppe Radicati, IBM ECSEC, Rome, March 23, 1989 */ /* ===================================================================== */ -/* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd, +/* Subroutine */ void zpbtrf_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info) { /* System generated locals */ @@ -671,21 +671,22 @@ f"> */ doublecomplex work[1056] /* was [33][32] */; integer i__, j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zherk_(char *, char *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); integer i2, i3; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zpbtf2_(char *, integer *, integer *, doublecomplex *, integer *, integer *); integer ib, nb, ii, jj; extern /* Subroutine */ int zpotf2_(char *, integer *, doublecomplex *, - integer *, integer *), xerbla_(char *, integer *, ftnlen); + integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); @@ -720,13 +721,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment */ @@ -1035,10 +1036,10 @@ f"> */ } } } - return 0; + return; L150: - return 0; + return; /* End of ZPBTRF */ diff --git a/lapack-netlib/SRC/zpbtrs.c b/lapack-netlib/SRC/zpbtrs.c index 9bbda7bb5..3e8d2cf79 100644 --- a/lapack-netlib/SRC/zpbtrs.c +++ b/lapack-netlib/SRC/zpbtrs.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer * +/* Subroutine */ void zpbtrs_(char *uplo, integer *n, integer *kd, integer * nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer * ldb, integer *info) { @@ -645,8 +645,8 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ztbsv_(char *, char *, char *, integer *, - integer *, doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void ztbsv_(char *, char *, char *, integer *, + integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -687,13 +687,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -734,7 +734,7 @@ f"> */ } } - return 0; + return; /* End of ZPBTRS */ diff --git a/lapack-netlib/SRC/zpftrf.c b/lapack-netlib/SRC/zpftrf.c index a5a334889..f2231e331 100644 --- a/lapack-netlib/SRC/zpftrf.c +++ b/lapack-netlib/SRC/zpftrf.c @@ -727,7 +727,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpftrf_(char *transr, char *uplo, integer *n, +/* Subroutine */ void zpftrf_(char *transr, char *uplo, integer *n, doublecomplex *a, integer *info) { /* System generated locals */ @@ -737,15 +737,15 @@ f"> */ integer k; logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zherk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zherk_(char *, char *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); logical lower; integer n1, n2; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen); + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nisodd; extern /* Subroutine */ int zpotrf_(char *, integer *, doublecomplex *, integer *, integer *); @@ -775,13 +775,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPFTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -822,7 +822,7 @@ f"> */ zpotrf_("L", &n1, a, n, info); if (*info > 0) { - return 0; + return; } ztrsm_("R", "L", "C", "N", &n2, &n1, &c_b1, a, n, &a[n1], n); zherk_("U", "N", &n2, &n1, &c_b15, &a[n1], n, &c_b16, &a[*n], @@ -840,7 +840,7 @@ f"> */ zpotrf_("L", &n1, &a[n2], n, info); if (*info > 0) { - return 0; + return; } ztrsm_("L", "L", "N", "N", &n1, &n2, &c_b1, &a[n2], n, a, n); zherk_("U", "C", &n2, &n1, &c_b15, a, n, &c_b16, &a[n1], n); @@ -863,7 +863,7 @@ f"> */ zpotrf_("U", &n1, a, &n1, info); if (*info > 0) { - return 0; + return; } ztrsm_("L", "U", "C", "N", &n1, &n2, &c_b1, a, &n1, &a[n1 * n1], &n1); @@ -882,7 +882,7 @@ f"> */ zpotrf_("U", &n1, &a[n2 * n2], &n2, info); if (*info > 0) { - return 0; + return; } ztrsm_("R", "U", "N", "N", &n2, &n1, &c_b1, &a[n2 * n2], &n2, a, &n2); @@ -914,7 +914,7 @@ f"> */ i__1 = *n + 1; zpotrf_("L", &k, &a[1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -939,7 +939,7 @@ f"> */ i__1 = *n + 1; zpotrf_("L", &k, &a[k + 1], &i__1, info); if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -969,7 +969,7 @@ f"> */ zpotrf_("U", &k, &a[k], &k, info); if (*info > 0) { - return 0; + return; } ztrsm_("L", "U", "C", "N", &k, &k, &c_b1, &a[k], &n1, &a[k * ( k + 1)], &k); @@ -988,7 +988,7 @@ f"> */ zpotrf_("U", &k, &a[k * (k + 1)], &k, info); if (*info > 0) { - return 0; + return; } ztrsm_("R", "U", "N", "N", &k, &k, &c_b1, &a[k * (k + 1)], &k, a, &k); @@ -1004,7 +1004,7 @@ f"> */ } - return 0; + return; /* End of ZPFTRF */ diff --git a/lapack-netlib/SRC/zpftri.c b/lapack-netlib/SRC/zpftri.c index dc931ef70..52ab6aff5 100644 --- a/lapack-netlib/SRC/zpftri.c +++ b/lapack-netlib/SRC/zpftri.c @@ -727,7 +727,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zpftri_(char *transr, char *uplo, integer *n, +/* Subroutine */ void zpftri_(char *transr, char *uplo, integer *n, doublecomplex *a, integer *info) { /* System generated locals */ @@ -737,18 +737,19 @@ f"> */ integer k; logical normaltransr; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zherk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zherk_(char *, char *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); logical lower; integer n1, n2; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen); + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nisodd; extern /* Subroutine */ int zlauum_(char *, integer *, doublecomplex *, - integer *, integer *), ztftri_(char *, char *, char *, + integer *, integer *); + extern void ztftri_(char *, char *, char *, integer *, doublecomplex *, integer *); @@ -776,20 +777,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPFTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ ztftri_(transr, uplo, "N", n, a, info); if (*info > 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -964,7 +965,7 @@ f"> */ } - return 0; + return; /* End of ZPFTRI */ diff --git a/lapack-netlib/SRC/zpftrs.c b/lapack-netlib/SRC/zpftrs.c index 8e7cc1fc0..26aaaa61c 100644 --- a/lapack-netlib/SRC/zpftrs.c +++ b/lapack-netlib/SRC/zpftrs.c @@ -733,7 +733,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zpftrs_(char *transr, char *uplo, integer *n, integer * +/* Subroutine */ void zpftrs_(char *transr, char *uplo, integer *n, integer * nrhs, doublecomplex *a, doublecomplex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -743,9 +743,10 @@ f"> */ logical normaltransr; extern logical lsame_(char *, char *); logical lower; - extern /* Subroutine */ int ztfsm_(char *, char *, char *, char *, char *, + extern /* Subroutine */ void ztfsm_(char *, char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, - doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen); + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -782,13 +783,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPFTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* start execution: there are two triangular solves */ @@ -805,7 +806,7 @@ f"> */ ldb); } - return 0; + return; /* End of ZPFTRS */ diff --git a/lapack-netlib/SRC/zpocon.c b/lapack-netlib/SRC/zpocon.c index a54c42c8a..4eecb1316 100644 --- a/lapack-netlib/SRC/zpocon.c +++ b/lapack-netlib/SRC/zpocon.c @@ -633,7 +633,7 @@ f"> */ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zpocon_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex * work, doublereal *rwork, integer *info) { @@ -647,7 +647,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -655,11 +655,11 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; extern integer izamax_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zdrscl_(integer *, doublereal *, + extern /* Subroutine */ void zdrscl_(integer *, doublereal *, doublecomplex *, integer *); char normin[1]; doublereal smlnum; - extern /* Subroutine */ int zlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatrs_(char *, char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *); @@ -697,7 +697,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -705,9 +705,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -767,7 +767,7 @@ L10: } L20: - return 0; + return; /* End of ZPOCON */ diff --git a/lapack-netlib/SRC/zpoequ.c b/lapack-netlib/SRC/zpoequ.c index f8a6c8dcb..e3fcc4892 100644 --- a/lapack-netlib/SRC/zpoequ.c +++ b/lapack-netlib/SRC/zpoequ.c @@ -622,7 +622,7 @@ f"> */ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda, +/* Subroutine */ void zpoequ_(integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info) { /* System generated locals */ @@ -662,7 +662,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -670,7 +670,7 @@ f"> */ if (*n == 0) { *scond = 1.; *amax = 0.; - return 0; + return; } /* Find the minimum and maximum diagonal elements. */ @@ -700,7 +700,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.) { *info = i__; - return 0; + return; } /* L20: */ } @@ -719,7 +719,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of ZPOEQU */ diff --git a/lapack-netlib/SRC/zpoequb.c b/lapack-netlib/SRC/zpoequb.c index 0ea3bb04c..54c36e772 100644 --- a/lapack-netlib/SRC/zpoequb.c +++ b/lapack-netlib/SRC/zpoequb.c @@ -628,7 +628,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpoequb_(integer *n, doublecomplex *a, integer *lda, +/* Subroutine */ void zpoequb_(integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info) { /* System generated locals */ @@ -672,7 +672,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOEQUB", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible. */ @@ -680,7 +680,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*n == 0) { *scond = 1.; *amax = 0.; - return 0; + return; } base = dlamch_("B"); tmp = -.5 / log(base); @@ -713,7 +713,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.) { *info = i__; - return 0; + return; } /* L20: */ } @@ -734,7 +734,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of ZPOEQUB */ diff --git a/lapack-netlib/SRC/zporfs.c b/lapack-netlib/SRC/zporfs.c index 4685fe16e..9b963c44a 100644 --- a/lapack-netlib/SRC/zporfs.c +++ b/lapack-netlib/SRC/zporfs.c @@ -696,7 +696,7 @@ f"> */ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zporfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * @@ -715,11 +715,11 @@ f"> */ doublereal s; extern logical lsame_(char *, char *); integer isave[3], count; - extern /* Subroutine */ int zhemv_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zhemv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zlacn2_( integer *, doublecomplex *, doublecomplex *, doublereal *, @@ -730,7 +730,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int zpotrs_(char *, integer *, integer *, + extern /* Subroutine */ void zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -785,7 +785,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPORFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -797,7 +797,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1030,7 +1030,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZPORFS */ diff --git a/lapack-netlib/SRC/zposv.c b/lapack-netlib/SRC/zposv.c index cdd420cbc..a577d5315 100644 --- a/lapack-netlib/SRC/zposv.c +++ b/lapack-netlib/SRC/zposv.c @@ -639,7 +639,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16POsolve */ /* ===================================================================== */ -/* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zposv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info) { @@ -648,9 +648,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zpotrf_( - char *, integer *, doublecomplex *, integer *, integer *), - zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int zpotrf_( + char *, integer *, doublecomplex *, integer *, integer *); + extern void zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -689,7 +690,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**H *U or A = L*L**H. */ @@ -702,7 +703,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zpotrs_(uplo, n, nrhs, &a[a_offset], lda, &b[b_offset], ldb, info); } - return 0; + return; /* End of ZPOSV */ diff --git a/lapack-netlib/SRC/zposvx.c b/lapack-netlib/SRC/zposvx.c index a2adfa4c8..10032d758 100644 --- a/lapack-netlib/SRC/zposvx.c +++ b/lapack-netlib/SRC/zposvx.c @@ -813,7 +813,7 @@ f"> */ /* > \ingroup complex16POsolve */ /* ===================================================================== */ -/* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zposvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, @@ -838,23 +838,24 @@ f"> */ doublereal bignum; extern doublereal zlanhe_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zlaqhe_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zlaqhe_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, char *); integer infequ; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zpocon_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublereal *, integer *) ; doublereal smlnum; - extern /* Subroutine */ int zpoequ_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zpoequ_(integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, integer *), zporfs_( char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, - doublecomplex *, doublereal *, integer *), zpotrf_(char *, - integer *, doublecomplex *, integer *, integer *), - zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, + doublecomplex *, doublereal *, integer *); + extern int zpotrf_(char *, + integer *, doublecomplex *, integer *, integer *); + extern void zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -951,7 +952,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -997,7 +998,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -1052,7 +1053,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of ZPOSVX */ diff --git a/lapack-netlib/SRC/zposvxx.c b/lapack-netlib/SRC/zposvxx.c index c27adcb1b..b6473cf98 100644 --- a/lapack-netlib/SRC/zposvxx.c +++ b/lapack-netlib/SRC/zposvxx.c @@ -999,7 +999,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16POsolve */ /* ===================================================================== */ -/* Subroutine */ int zposvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zposvxx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, @@ -1025,13 +1025,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ logical nofact; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; - extern /* Subroutine */ int zlaqhe_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zlaqhe_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, char *); integer infequ; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int zpotrf_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zpotrf_(char *, integer *, doublecomplex *, integer *, integer *), zpotrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zlascl2_(integer *, integer *, doublereal *, @@ -1150,7 +1150,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1190,7 +1190,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = zla_porpvgrw_(uplo, n, &a[a_offset], lda, &af[ af_offset], ldaf, &rwork[1]); - return 0; + return; } } @@ -1219,7 +1219,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zlascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of ZPOSVXX */ diff --git a/lapack-netlib/SRC/zpotf2.c b/lapack-netlib/SRC/zpotf2.c index 1d84397cc..594f33802 100644 --- a/lapack-netlib/SRC/zpotf2.c +++ b/lapack-netlib/SRC/zpotf2.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zpotf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -637,12 +637,13 @@ f"> */ extern logical lsame_(char *, char *); extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; extern logical disnan_(doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublereal ajj; @@ -677,13 +678,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -780,7 +781,7 @@ L30: *info = j; L40: - return 0; + return; /* End of ZPOTF2 */ diff --git a/lapack-netlib/SRC/zpotrf.c b/lapack-netlib/SRC/zpotrf.c index 91590a111..99dd13bde 100644 --- a/lapack-netlib/SRC/zpotrf.c +++ b/lapack-netlib/SRC/zpotrf.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zpotrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -634,21 +634,21 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zherk_(char *, char *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer jb, nb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zpotrf2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zpotrf2_(char *, integer *, doublecomplex *, integer *, integer *); @@ -681,13 +681,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Determine the block size for this environment. */ @@ -789,7 +789,7 @@ L30: *info = *info + j - 1; L40: - return 0; + return; /* End of ZPOTRF */ diff --git a/lapack-netlib/SRC/zpotrf2.c b/lapack-netlib/SRC/zpotrf2.c index e0529676c..0b773aae6 100644 --- a/lapack-netlib/SRC/zpotrf2.c +++ b/lapack-netlib/SRC/zpotrf2.c @@ -618,7 +618,7 @@ static doublereal c_b12 = 1.; /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpotrf2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zpotrf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -628,12 +628,12 @@ static doublereal c_b12 = 1.; /* Local variables */ extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zherk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zherk_(char *, char *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *); logical upper; integer n1, n2; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); extern logical disnan_(doublereal *); @@ -670,13 +670,13 @@ static doublereal c_b12 = 1.; if (*info != 0) { i__1 = -(*info); xerbla_("ZPOTRF2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* N=1 case */ @@ -689,7 +689,7 @@ static doublereal c_b12 = 1.; ajj = a[i__1].r; if (ajj <= 0. || disnan_(&ajj)) { *info = 1; - return 0; + return; } /* Factor */ @@ -709,7 +709,7 @@ static doublereal c_b12 = 1.; zpotrf2_(uplo, &n1, &a[a_dim1 + 1], lda, &iinfo); if (iinfo != 0) { *info = iinfo; - return 0; + return; } /* Compute the Cholesky factorization A = U**H*U */ @@ -728,7 +728,7 @@ static doublereal c_b12 = 1.; zpotrf2_(uplo, &n2, &a[n1 + 1 + (n1 + 1) * a_dim1], lda, &iinfo); if (iinfo != 0) { *info = iinfo + n1; - return 0; + return; } /* Compute the Cholesky factorization A = L*L**H */ @@ -747,11 +747,11 @@ static doublereal c_b12 = 1.; zpotrf2_(uplo, &n2, &a[n1 + 1 + (n1 + 1) * a_dim1], lda, &iinfo); if (iinfo != 0) { *info = iinfo + n1; - return 0; + return; } } } - return 0; + return; /* End of ZPOTRF2 */ diff --git a/lapack-netlib/SRC/zpotri.c b/lapack-netlib/SRC/zpotri.c index fdafb8368..92b0f844b 100644 --- a/lapack-netlib/SRC/zpotri.c +++ b/lapack-netlib/SRC/zpotri.c @@ -604,7 +604,7 @@ f"> */ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zpotri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -612,9 +612,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlauum_( - char *, integer *, doublecomplex *, integer *, integer *), - ztrtri_(char *, char *, integer *, doublecomplex *, integer *, + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int zlauum_( + char *, integer *, doublecomplex *, integer *, integer *); + extern int ztrtri_(char *, char *, integer *, doublecomplex *, integer *, integer *); @@ -646,27 +647,27 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ ztrtri_(uplo, "Non-unit", n, &a[a_offset], lda, info); if (*info > 0) { - return 0; + return; } /* Form inv(U) * inv(U)**H or inv(L)**H * inv(L). */ zlauum_(uplo, n, &a[a_offset], lda, info); - return 0; + return; /* End of ZPOTRI */ diff --git a/lapack-netlib/SRC/zpotrs.c b/lapack-netlib/SRC/zpotrs.c index 8a6f598b4..ddbe496e5 100644 --- a/lapack-netlib/SRC/zpotrs.c +++ b/lapack-netlib/SRC/zpotrs.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complex16POcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zpotrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info) { @@ -633,10 +633,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen); + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -675,13 +675,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPOTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -712,7 +712,7 @@ f"> */ c_b1, &a[a_offset], lda, &b[b_offset], ldb); } - return 0; + return; /* End of ZPOTRS */ diff --git a/lapack-netlib/SRC/zppcon.c b/lapack-netlib/SRC/zppcon.c index cc1931f5e..541c330af 100644 --- a/lapack-netlib/SRC/zppcon.c +++ b/lapack-netlib/SRC/zppcon.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zppcon_(char *uplo, integer *n, doublecomplex *ap, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info) { @@ -645,7 +645,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -653,11 +653,11 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; extern integer izamax_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zdrscl_(integer *, doublereal *, + extern /* Subroutine */ void zdrscl_(integer *, doublereal *, doublecomplex *, integer *); char normin[1]; doublereal smlnum; - extern /* Subroutine */ int zlatps_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatps_(char *, char *, char *, char *, integer *, doublecomplex *, doublecomplex *, doublereal *, doublereal *, integer *); @@ -691,7 +691,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -699,9 +699,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } smlnum = dlamch_("Safe minimum"); @@ -761,7 +761,7 @@ L10: } L20: - return 0; + return; /* End of ZPPCON */ diff --git a/lapack-netlib/SRC/zppequ.c b/lapack-netlib/SRC/zppequ.c index 57b6e3189..7b7d7be22 100644 --- a/lapack-netlib/SRC/zppequ.c +++ b/lapack-netlib/SRC/zppequ.c @@ -626,7 +626,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zppequ_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, integer *info) { /* System generated locals */ @@ -668,7 +668,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPPEQU", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -676,7 +676,7 @@ f"> */ if (*n == 0) { *scond = 1.; *amax = 0.; - return 0; + return; } /* Initialize SMIN and AMAX. */ @@ -734,7 +734,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { if (s[i__] <= 0.) { *info = i__; - return 0; + return; } /* L30: */ } @@ -753,7 +753,7 @@ f"> */ *scond = sqrt(smin) / sqrt(*amax); } - return 0; + return; /* End of ZPPEQU */ diff --git a/lapack-netlib/SRC/zpprfs.c b/lapack-netlib/SRC/zpprfs.c index b079c2209..652d53cbc 100644 --- a/lapack-netlib/SRC/zpprfs.c +++ b/lapack-netlib/SRC/zpprfs.c @@ -684,7 +684,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zpprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info) @@ -702,7 +702,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3], count; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zhpmv_(char *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_( @@ -716,7 +716,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int zpptrs_(char *, integer *, integer *, + extern /* Subroutine */ void zpptrs_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal eps; @@ -763,7 +763,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -775,7 +775,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1015,7 +1015,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZPPRFS */ diff --git a/lapack-netlib/SRC/zppsv.c b/lapack-netlib/SRC/zppsv.c index 4fe6b8655..4788368fc 100644 --- a/lapack-netlib/SRC/zppsv.c +++ b/lapack-netlib/SRC/zppsv.c @@ -653,7 +653,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zppsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -661,7 +661,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zpptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zpptrf_( char *, integer *, doublecomplex *, integer *), zpptrs_( char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); @@ -698,7 +699,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZPPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the Cholesky factorization A = U**H *U or A = L*L**H. */ @@ -711,7 +712,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zpptrs_(uplo, n, nrhs, &ap[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of ZPPSV */ diff --git a/lapack-netlib/SRC/zppsvx.c b/lapack-netlib/SRC/zppsvx.c index 448854e55..ff1cb299e 100644 --- a/lapack-netlib/SRC/zppsvx.c +++ b/lapack-netlib/SRC/zppsvx.c @@ -823,7 +823,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zppsvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal * s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * @@ -840,7 +840,7 @@ f"> */ extern logical lsame_(char *, char *); doublereal scond, anorm; logical equil, rcequ; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); logical nofact; @@ -849,14 +849,14 @@ f"> */ integer infequ; extern doublereal zlanhp_(char *, char *, integer *, doublecomplex *, doublereal *); - extern /* Subroutine */ int zlaqhp_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zlaqhp_(char *, integer *, doublecomplex *, doublereal *, doublereal *, doublereal *, char *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zppcon_(char *, integer *, doublecomplex *, doublereal *, doublereal *, doublecomplex *, doublereal *, integer *); doublereal smlnum; - extern /* Subroutine */ int zppequ_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zppequ_(char *, integer *, doublecomplex *, doublereal *, doublereal *, doublereal *, integer *), zpprfs_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -951,7 +951,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (equil) { @@ -998,7 +998,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -1051,7 +1051,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of ZPPSVX */ diff --git a/lapack-netlib/SRC/zpptrf.c b/lapack-netlib/SRC/zpptrf.c index 885e0c2b1..8e099c203 100644 --- a/lapack-netlib/SRC/zpptrf.c +++ b/lapack-netlib/SRC/zpptrf.c @@ -633,7 +633,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zpptrf_(char *uplo, integer *n, doublecomplex *ap, integer *info) { /* System generated locals */ @@ -642,17 +642,18 @@ f"> */ doublecomplex z__1, z__2; /* Local variables */ - extern /* Subroutine */ int zhpr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zhpr_(char *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *); integer j; extern logical lsame_(char *, char *); extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztpsv_(char *, char *, char *, integer *, doublecomplex *, doublecomplex *, integer *); integer jc, jj; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); doublereal ajj; @@ -682,13 +683,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -769,7 +770,7 @@ L30: *info = j; L40: - return 0; + return; /* End of ZPPTRF */ diff --git a/lapack-netlib/SRC/zpptri.c b/lapack-netlib/SRC/zpptri.c index b9095bc1c..215e34379 100644 --- a/lapack-netlib/SRC/zpptri.c +++ b/lapack-netlib/SRC/zpptri.c @@ -607,7 +607,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zpptri_(char *uplo, integer *n, doublecomplex *ap, integer *info) { /* System generated locals */ @@ -616,17 +616,18 @@ f"> */ doublecomplex z__1; /* Local variables */ - extern /* Subroutine */ int zhpr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zhpr_(char *, integer *, doublereal *, doublecomplex *, integer *, doublecomplex *); integer j; extern logical lsame_(char *, char *); extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztpmv_(char *, char *, char *, integer *, doublecomplex *, doublecomplex *, integer *); integer jc, jj; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), ztptri_( char *, char *, integer *, doublecomplex *, integer *); doublereal ajj; @@ -658,20 +659,20 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Invert the triangular Cholesky factor U or L. */ ztptri_(uplo, "Non-unit", n, &ap[1], info); if (*info > 0) { - return 0; + return; } if (upper) { @@ -715,7 +716,7 @@ f"> */ } } - return 0; + return; /* End of ZPPTRI */ diff --git a/lapack-netlib/SRC/zpptrs.c b/lapack-netlib/SRC/zpptrs.c index 2f1f09167..4ede1c717 100644 --- a/lapack-netlib/SRC/zpptrs.c +++ b/lapack-netlib/SRC/zpptrs.c @@ -621,7 +621,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zpptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info) { /* System generated locals */ @@ -631,8 +631,9 @@ f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ztpsv_(char *, char *, char *, integer *, - doublecomplex *, doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void ztpsv_(char *, char *, char *, integer *, + doublecomplex *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -667,13 +668,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -714,7 +715,7 @@ f"> */ } } - return 0; + return; /* End of ZPPTRS */ diff --git a/lapack-netlib/SRC/zpstf2.c b/lapack-netlib/SRC/zpstf2.c index ad3f89b2d..9fa691324 100644 --- a/lapack-netlib/SRC/zpstf2.c +++ b/lapack-netlib/SRC/zpstf2.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpstf2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zpstf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, integer *info) { @@ -673,17 +673,18 @@ f"> */ extern logical lsame_(char *, char *); doublereal dtemp; integer itemp; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublereal dstop; logical upper; doublecomplex ztemp; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); extern logical disnan_(doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlacgv_( integer *, doublecomplex *, integer *); doublereal ajj; @@ -721,13 +722,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPSTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Initialize PIV */ @@ -996,7 +997,7 @@ L190: *info = 1; L200: - return 0; + return; /* End of ZPSTF2 */ diff --git a/lapack-netlib/SRC/zpstrf.c b/lapack-netlib/SRC/zpstrf.c index d84e7566b..056f93b46 100644 --- a/lapack-netlib/SRC/zpstrf.c +++ b/lapack-netlib/SRC/zpstrf.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpstrf_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zpstrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, integer *info) { @@ -676,7 +676,7 @@ f"> */ extern logical lsame_(char *, char *); doublereal dtemp; integer itemp; - extern /* Subroutine */ int zherk_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zherk_(char *, char *, integer *, integer *, doublereal *, doublecomplex *, integer *, doublereal *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, @@ -685,18 +685,18 @@ f"> */ doublereal dstop; logical upper; doublecomplex ztemp; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer jb, nb; extern doublereal dlamch_(char *); - extern /* Subroutine */ int zpstf2_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zpstf2_(char *, integer *, doublecomplex *, integer *, integer *, integer *, doublereal *, doublereal *, integer *); extern logical disnan_(doublereal *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *), zlacgv_(integer *, doublecomplex *, integer *); doublereal ajj; @@ -734,13 +734,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPSTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get block size */ @@ -1081,7 +1081,7 @@ L220: *info = 1; L230: - return 0; + return; /* End of ZPSTRF */ diff --git a/lapack-netlib/SRC/zptcon.c b/lapack-netlib/SRC/zptcon.c index d764fcf2f..45e748a6b 100644 --- a/lapack-netlib/SRC/zptcon.c +++ b/lapack-netlib/SRC/zptcon.c @@ -632,7 +632,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e, +/* Subroutine */ void zptcon_(integer *n, doublereal *d__, doublecomplex *e, doublereal *anorm, doublereal *rcond, doublereal *rwork, integer * info) { @@ -673,7 +673,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPTCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -681,9 +681,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm == 0.) { - return 0; + return; } /* Check that D(1:N) is positive. */ @@ -691,7 +691,7 @@ f"> */ i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { if (d__[i__] <= 0.) { - return 0; + return; } /* L10: */ } @@ -731,7 +731,7 @@ f"> */ *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZPTCON */ diff --git a/lapack-netlib/SRC/zpteqr.c b/lapack-netlib/SRC/zpteqr.c index 9c88679ba..e557bcc7c 100644 --- a/lapack-netlib/SRC/zpteqr.c +++ b/lapack-netlib/SRC/zpteqr.c @@ -661,7 +661,7 @@ f"> */ /* > \ingroup complex16PTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpteqr_(char *compz, integer *n, doublereal *d__, +/* Subroutine */ void zpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, integer *info) { @@ -675,7 +675,7 @@ f"> */ doublecomplex vt[1] /* was [1][1] */; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer icompz; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *), dpttrf_(integer *, doublereal *, doublereal *, integer *) , zbdsqr_(char *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, @@ -725,13 +725,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPTEQR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -739,7 +739,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } if (icompz == 2) { zlaset_("Full", n, n, &c_b1, &c_b2, &z__[z_offset], ldz); @@ -749,7 +749,7 @@ f"> */ dpttrf_(n, &d__[1], &e[1], info); if (*info != 0) { - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -785,7 +785,7 @@ f"> */ *info = *n + *info; } - return 0; + return; /* End of ZPTEQR */ diff --git a/lapack-netlib/SRC/zptrfs.c b/lapack-netlib/SRC/zptrfs.c index 6f1c83b17..3bf491577 100644 --- a/lapack-netlib/SRC/zptrfs.c +++ b/lapack-netlib/SRC/zptrfs.c @@ -696,7 +696,7 @@ f"> */ /* > \ingroup complex16PTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zptrfs_(char *uplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * @@ -716,7 +716,7 @@ f"> */ extern logical lsame_(char *, char *); integer count; logical upper; - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex bi; extern doublereal dlamch_(char *); @@ -727,7 +727,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int zpttrs_(char *, integer *, integer *, + extern /* Subroutine */ void zpttrs_(char *, integer *, integer *, doublereal *, doublecomplex *, doublecomplex *, integer *, integer *); doublereal eps; @@ -777,7 +777,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPTRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -789,7 +789,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1146,7 +1146,7 @@ L20: /* L100: */ } - return 0; + return; /* End of ZPTRFS */ diff --git a/lapack-netlib/SRC/zptsv.c b/lapack-netlib/SRC/zptsv.c index 96447a554..37e853465 100644 --- a/lapack-netlib/SRC/zptsv.c +++ b/lapack-netlib/SRC/zptsv.c @@ -624,14 +624,15 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16PTsolve */ /* ===================================================================== */ -/* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__, +/* Subroutine */ void zptsv_(integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, integer *info) { /* System generated locals */ integer b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zpttrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zpttrf_( integer *, doublereal *, doublecomplex *, integer *), zpttrs_( char *, integer *, integer *, doublereal *, doublecomplex *, doublecomplex *, integer *, integer *); @@ -667,7 +668,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZPTSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the L*D*L**H (or U**H*D*U) factorization of A. */ @@ -679,7 +680,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zpttrs_("Lower", n, nrhs, &d__[1], &e[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of ZPTSV */ diff --git a/lapack-netlib/SRC/zptsvx.c b/lapack-netlib/SRC/zptsvx.c index 713766cce..3ab57d235 100644 --- a/lapack-netlib/SRC/zptsvx.c +++ b/lapack-netlib/SRC/zptsvx.c @@ -746,7 +746,7 @@ f"> */ /* > \ingroup complex16PTsolve */ /* ===================================================================== */ -/* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs, +/* Subroutine */ void zptsvx_(char *fact, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * @@ -758,7 +758,7 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); doublereal anorm; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); @@ -766,7 +766,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal zlanht_(char *, integer *, doublereal *, doublecomplex * ); - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zptcon_(integer *, doublereal *, doublecomplex *, doublereal *, doublereal *, doublereal *, integer *), zptrfs_(char *, integer *, @@ -823,7 +823,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPTSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -841,7 +841,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -871,7 +871,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of ZPTSVX */ diff --git a/lapack-netlib/SRC/zpttrf.c b/lapack-netlib/SRC/zpttrf.c index b9d1c48af..e2c271f90 100644 --- a/lapack-netlib/SRC/zpttrf.c +++ b/lapack-netlib/SRC/zpttrf.c @@ -601,7 +601,7 @@ f"> */ /* > \ingroup complex16PTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e, +/* Subroutine */ void zpttrf_(integer *n, doublereal *d__, doublecomplex *e, integer *info) { /* System generated locals */ @@ -636,13 +636,13 @@ f"> */ *info = -1; i__1 = -(*info); xerbla_("ZPTTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Compute the L*D*L**H (or U**H *D*U) factorization of A. */ @@ -749,7 +749,7 @@ f"> */ } L30: - return 0; + return; /* End of ZPTTRF */ diff --git a/lapack-netlib/SRC/zpttrs.c b/lapack-netlib/SRC/zpttrs.c index 7933361c5..c9a0336fa 100644 --- a/lapack-netlib/SRC/zpttrs.c +++ b/lapack-netlib/SRC/zpttrs.c @@ -635,7 +635,7 @@ f"> */ /* > \ingroup complex16PTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zpttrs_(char *uplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, integer *info) { @@ -646,9 +646,9 @@ f"> */ integer j, iuplo; logical upper; integer jb, nb; - extern /* Subroutine */ int zptts2_(integer *, integer *, integer *, - doublereal *, doublecomplex *, doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void zptts2_(integer *, integer *, integer *, + doublereal *, doublecomplex *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); @@ -687,13 +687,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZPTTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Determine the number of right-hand sides to solve at a time. */ @@ -729,7 +729,7 @@ f"> */ } } - return 0; + return; /* End of ZPTTRS */ diff --git a/lapack-netlib/SRC/zptts2.c b/lapack-netlib/SRC/zptts2.c index f69b0ad2a..9b6d2fb9f 100644 --- a/lapack-netlib/SRC/zptts2.c +++ b/lapack-netlib/SRC/zptts2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complex16PTcomputational */ /* ===================================================================== */ -/* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs, +/* Subroutine */ void zptts2_(integer *iuplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb) { /* System generated locals */ @@ -633,7 +633,7 @@ f"> */ /* Local variables */ integer i__, j; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); @@ -661,7 +661,7 @@ f"> */ d__1 = 1. / d__[1]; zdscal_(nrhs, &d__1, &b[b_offset], ldb); } - return 0; + return; } if (*iuplo == 1) { @@ -860,7 +860,7 @@ L80: } } - return 0; + return; /* End of ZPTTS2 */ diff --git a/lapack-netlib/SRC/zrot.c b/lapack-netlib/SRC/zrot.c index 04cefe53d..da9b20037 100644 --- a/lapack-netlib/SRC/zrot.c +++ b/lapack-netlib/SRC/zrot.c @@ -613,7 +613,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx, +/* Subroutine */ void zrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s) { /* System generated locals */ @@ -641,7 +641,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Function Body */ if (*n <= 0) { - return 0; + return; } if (*incx == 1 && *incy == 1) { goto L20; @@ -681,7 +681,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ iy += *incy; /* L10: */ } - return 0; + return; /* Code for both increments equal to 1 */ @@ -708,6 +708,6 @@ L20: cx[i__2].r = stemp.r, cx[i__2].i = stemp.i; /* L30: */ } - return 0; + return; } /* zrot_ */ diff --git a/lapack-netlib/SRC/zspcon.c b/lapack-netlib/SRC/zspcon.c index a2cb64d81..21cc74cdb 100644 --- a/lapack-netlib/SRC/zspcon.c +++ b/lapack-netlib/SRC/zspcon.c @@ -631,7 +631,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zspcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex * work, integer *info) { @@ -643,12 +643,12 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zsptrs_(char *, integer *, integer *, + extern /* Subroutine */ void zsptrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -681,7 +681,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -689,9 +689,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -704,7 +704,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = ip; if (ipiv[i__] > 0 && (ap[i__1].r == 0. && ap[i__1].i == 0.)) { - return 0; + return; } ip -= i__; /* L10: */ @@ -718,7 +718,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = ip; if (ipiv[i__] > 0 && (ap[i__2].r == 0. && ap[i__2].i == 0.)) { - return 0; + return; } ip = ip + *n - i__ + 1; /* L20: */ @@ -744,7 +744,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZSPCON */ diff --git a/lapack-netlib/SRC/zspmv.c b/lapack-netlib/SRC/zspmv.c index 3fe5eb751..e0bd139b5 100644 --- a/lapack-netlib/SRC/zspmv.c +++ b/lapack-netlib/SRC/zspmv.c @@ -661,7 +661,7 @@ rix */ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha, +/* Subroutine */ void zspmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex * beta, doublecomplex *y, integer *incy) { @@ -707,14 +707,14 @@ rix */ } if (info != 0) { xerbla_("ZSPMV ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || alpha->r == 0. && alpha->i == 0. && (beta->r == 1. && beta->i == 0.)) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -782,7 +782,7 @@ rix */ } } if (alpha->r == 0. && alpha->i == 0.) { - return 0; + return; } kk = 1; if (lsame_(uplo, "U")) { @@ -983,7 +983,7 @@ rix */ } } - return 0; + return; /* End of ZSPMV */ diff --git a/lapack-netlib/SRC/zspr.c b/lapack-netlib/SRC/zspr.c index 2e7b5e871..9aa4b9b03 100644 --- a/lapack-netlib/SRC/zspr.c +++ b/lapack-netlib/SRC/zspr.c @@ -641,7 +641,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16OTHERauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha, +/* Subroutine */ void zspr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *ap) { /* System generated locals */ @@ -683,13 +683,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("ZSPR ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || alpha->r == 0. && alpha->i == 0.) { - return 0; + return; } /* Set the start point in X if the increment is not unity. */ @@ -884,7 +884,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of ZSPR */ diff --git a/lapack-netlib/SRC/zsprfs.c b/lapack-netlib/SRC/zsprfs.c index d3372722f..2a8b99582 100644 --- a/lapack-netlib/SRC/zsprfs.c +++ b/lapack-netlib/SRC/zsprfs.c @@ -693,7 +693,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex * b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer * @@ -712,7 +712,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3], count; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zspmv_( char *, integer *, doublecomplex *, doublecomplex *, @@ -726,7 +726,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int zsptrs_(char *, integer *, integer *, + extern /* Subroutine */ void zsptrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -774,7 +774,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -786,7 +786,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1026,7 +1026,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZSPRFS */ diff --git a/lapack-netlib/SRC/zspsv.c b/lapack-netlib/SRC/zspsv.c index 4798081b2..31c89538e 100644 --- a/lapack-netlib/SRC/zspsv.c +++ b/lapack-netlib/SRC/zspsv.c @@ -671,7 +671,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zspsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -680,7 +680,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zsptrf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zsptrf_( char *, integer *, doublecomplex *, integer *, integer *), zsptrs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -718,7 +719,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZSPSV ", &i__1, (ftnlen)6); - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -731,7 +732,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zsptrs_(uplo, n, nrhs, &ap[1], &ipiv[1], &b[b_offset], ldb, info); } - return 0; + return; /* End of ZSPSV */ diff --git a/lapack-netlib/SRC/zspsvx.c b/lapack-netlib/SRC/zspsvx.c index ceb5b014d..f51ca179e 100644 --- a/lapack-netlib/SRC/zspsvx.c +++ b/lapack-netlib/SRC/zspsvx.c @@ -789,7 +789,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zspsvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * @@ -801,16 +801,17 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); doublereal anorm; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dlamch_(char *); logical nofact; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacpy_( char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal zlansp_(char *, char *, integer *, doublecomplex *, doublereal *); - extern /* Subroutine */ int zspcon_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zspcon_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, integer *), zsprfs_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, @@ -866,7 +867,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSPSVX", &i__1, (ftnlen)6); - return 0; + return; } if (nofact) { @@ -881,7 +882,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -910,7 +911,7 @@ f"> */ *info = *n + 1; } - return 0; + return; /* End of ZSPSVX */ diff --git a/lapack-netlib/SRC/zsptrf.c b/lapack-netlib/SRC/zsptrf.c index d3623c7fd..e423f831e 100644 --- a/lapack-netlib/SRC/zsptrf.c +++ b/lapack-netlib/SRC/zsptrf.c @@ -672,7 +672,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zsptrf_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, integer *info) { /* System generated locals */ @@ -682,18 +682,18 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int zspr_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zspr_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer i__, j, k; doublecomplex t; doublereal alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; logical upper; doublecomplex r1; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d12, d21, d22; integer kc, kk, kp; @@ -734,7 +734,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSPTRF", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1296,7 +1296,7 @@ L60: } L110: - return 0; + return; /* End of ZSPTRF */ diff --git a/lapack-netlib/SRC/zsptri.c b/lapack-netlib/SRC/zsptri.c index 1c537f14b..7a3d97631 100644 --- a/lapack-netlib/SRC/zsptri.c +++ b/lapack-netlib/SRC/zsptri.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zsptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublecomplex *work, integer *info) { /* System generated locals */ @@ -638,11 +638,11 @@ f"> */ extern logical lsame_(char *, char *); integer kstep; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern /* Double Complex */ VOID zdotu_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zspmv_(char *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -680,13 +680,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -699,7 +699,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = kp; if (ipiv[*info] > 0 && (ap[i__1].r == 0. && ap[i__1].i == 0.)) { - return 0; + return; } kp -= *info; /* L10: */ @@ -713,7 +713,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = kp; if (ipiv[*info] > 0 && (ap[i__2].r == 0. && ap[i__2].i == 0.)) { - return 0; + return; } kp = kp + *n - *info + 1; /* L20: */ @@ -1047,7 +1047,7 @@ L80: ; } - return 0; + return; /* End of ZSPTRI */ diff --git a/lapack-netlib/SRC/zsptrs.c b/lapack-netlib/SRC/zsptrs.c index e6e76a793..45cb7a79a 100644 --- a/lapack-netlib/SRC/zsptrs.c +++ b/lapack-netlib/SRC/zsptrs.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -642,12 +642,12 @@ f"> */ integer j, k; extern logical lsame_(char *, char *); doublecomplex denom; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -688,13 +688,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1049,7 +1049,7 @@ L100: ; } - return 0; + return; /* End of ZSPTRS */ diff --git a/lapack-netlib/SRC/zstedc.c b/lapack-netlib/SRC/zstedc.c index 55baba2d7..b75747133 100644 --- a/lapack-netlib/SRC/zstedc.c +++ b/lapack-netlib/SRC/zstedc.c @@ -728,7 +728,7 @@ f"> */ /* > at Berkeley, USA */ /* ===================================================================== */ -/* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__, +/* Subroutine */ void zstedc_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info) @@ -743,36 +743,37 @@ f"> */ doublereal p; extern logical lsame_(char *, char *); integer lwmin, start; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaed0_(integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *, integer *); integer ii, ll; extern doublereal dlamch_(char *); - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dstedc_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, integer *), dlaset_( char *, integer *, integer *, doublereal *, doublereal *, - doublereal *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer finish; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dsterf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dsterf_(integer *, doublereal *, doublereal *, integer *), zlacrm_(integer *, integer *, doublecomplex *, integer *, doublereal *, integer *, doublecomplex *, integer *, doublereal *); integer liwmin, icompz; - extern /* Subroutine */ int dsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void dsteqr_(char *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal orgnrm; integer lrwmin; logical lquery; integer smlsiz; - extern /* Subroutine */ int zsteqr_(char *, integer *, doublereal *, + extern /* Subroutine */ void zsteqr_(char *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublereal *, integer *); integer lgn; doublereal eps; @@ -870,22 +871,22 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSTEDC", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (icompz != 0) { i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* If the following conditional clause is removed, then the routine */ @@ -1050,7 +1051,7 @@ L70: rwork[1] = (doublereal) lrwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZSTEDC */ diff --git a/lapack-netlib/SRC/zstegr.c b/lapack-netlib/SRC/zstegr.c index 6d5961e61..d685404cd 100644 --- a/lapack-netlib/SRC/zstegr.c +++ b/lapack-netlib/SRC/zstegr.c @@ -772,7 +772,7 @@ f"> */ /* > Christof Voemel, LBNL/NERSC, USA \n */ /* ===================================================================== */ -/* Subroutine */ int zstegr_(char *jobz, char *range, integer *n, doublereal * +/* Subroutine */ void zstegr_(char *jobz, char *range, integer *n, doublereal * d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, @@ -783,7 +783,7 @@ f"> */ /* Local variables */ logical tryrac; - extern /* Subroutine */ int zstemr_(char *, char *, integer *, doublereal + extern /* Subroutine */ void zstemr_(char *, char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, doublereal *, doublecomplex *, integer *, integer *, integer *, logical *, doublereal *, integer *, integer *, integer @@ -818,6 +818,6 @@ f"> */ /* End of ZSTEGR */ - return 0; + return; } /* zstegr_ */ diff --git a/lapack-netlib/SRC/zstein.c b/lapack-netlib/SRC/zstein.c index 4f47b75d8..bbe439c48 100644 --- a/lapack-netlib/SRC/zstein.c +++ b/lapack-netlib/SRC/zstein.c @@ -696,7 +696,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e, +/* Subroutine */ void zstein_(integer *n, doublereal *d__, doublereal *e, integer *m, doublereal *w, integer *iblock, integer *isplit, doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info) @@ -710,26 +710,27 @@ f"> */ integer jblk, nblk, jmax; extern doublereal dnrm2_(integer *, doublereal *, integer *); integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); integer iseed[4], gpind, iinfo; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer b1, j1; doublereal ortol; integer indrv1, indrv2, indrv3, indrv4, indrv5, bn; extern doublereal dlamch_(char *); integer jr; - extern /* Subroutine */ int dlagtf_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlagtf_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer * , integer *); doublereal xj; extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlagts_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void dlagts_( integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, integer *); integer nrmchk; - extern /* Subroutine */ int dlarnv_(integer *, integer *, integer *, + extern /* Subroutine */ void dlarnv_(integer *, integer *, integer *, doublereal *); integer blksiz; doublereal onenrm, dtpcrt, pertol, scl, eps, sep, nrm, tol; @@ -795,17 +796,17 @@ L30: if (*info != 0) { i__1 = -(*info); xerbla_("ZSTEIN", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } else if (*n == 1) { i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; - return 0; + return; } /* Get machine constants. */ @@ -1033,7 +1034,7 @@ L180: ; } - return 0; + return; /* End of ZSTEIN */ diff --git a/lapack-netlib/SRC/zstemr.c b/lapack-netlib/SRC/zstemr.c index dc594da6d..28af7cff5 100644 --- a/lapack-netlib/SRC/zstemr.c +++ b/lapack-netlib/SRC/zstemr.c @@ -850,7 +850,7 @@ f"> */ /* > Christof Voemel, University of California, Berkeley, USA \n */ /* ===================================================================== */ -/* Subroutine */ int zstemr_(char *jobz, char *range, integer *n, doublereal * +/* Subroutine */ void zstemr_(char *jobz, char *range, integer *n, doublereal * d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, integer *m, doublereal *w, doublecomplex *z__, integer * ldz, integer *nzc, integer *isuppz, logical *tryrac, doublereal *work, @@ -865,23 +865,23 @@ f"> */ doublereal rmin, rmax; integer itmp; doublereal tnrm; - extern /* Subroutine */ int dlae2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlae2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); integer inde2, itmp2; doublereal rtol1, rtol2; integer i__, j; - extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dscal_(integer *, doublereal *, doublereal *, integer *); doublereal scale; integer indgp; extern logical lsame_(char *, char *); integer iinfo, iindw, ilast; - extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, + extern /* Subroutine */ void dcopy_(integer *, doublereal *, integer *, doublereal *, integer *); integer lwmin; logical wantz; doublereal r1, r2; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlaev2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -893,7 +893,7 @@ f"> */ integer ibegin, iindbl; doublereal sn, wl; logical valeig; - extern /* Subroutine */ int dlarrc_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlarrc_(char *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *), dlarre_(char *, integer *, doublereal *, doublereal *, integer *, integer *, @@ -903,21 +903,22 @@ f"> */ doublereal *, doublereal *, doublereal *, integer *, integer *); integer wbegin; doublereal safmin, wu; - extern /* Subroutine */ int dlarrj_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarrj_(integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer inderr, iindwk, indgrs, offset; extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dlarrr_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void dlarrr_(integer *, doublereal *, doublereal *, integer *), dlasrt_(char *, integer *, doublereal *, integer *); doublereal thresh; integer iinspl, indwrk, ifirst, liwmin, nzcmin; doublereal pivmin; integer nsplit; doublereal smlnum; - extern /* Subroutine */ int zlarrv_(integer *, doublereal *, doublereal *, + extern /* Subroutine */ void zlarrv_(integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, integer *, @@ -1045,16 +1046,16 @@ f"> */ i__1 = -(*info); xerbla_("ZSTEMR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery || zquery) { - return 0; + return; } /* Handle N = 0, 1, and 2 cases immediately */ *m = 0; if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -1073,7 +1074,7 @@ f"> */ isuppz[1] = 1; isuppz[2] = 1; } - return 0; + return; } if (*n == 2) { @@ -1226,7 +1227,7 @@ f"> */ work[indgrs], &pivmin, &work[indwrk], &iwork[iindwk], &iinfo); if (iinfo != 0) { *info = abs(iinfo) + 10; - return 0; + return; } /* Note that if RANGE .NE. 'V', DLARRE computes bounds on the desired */ /* part of the spectrum. All desired eigenvalues are contained in */ @@ -1243,7 +1244,7 @@ f"> */ iindwk], &iinfo); if (iinfo != 0) { *info = abs(iinfo) + 20; - return 0; + return; } } else { /* DLARRE computes eigenvalues of the (shifted) root representation */ @@ -1312,7 +1313,7 @@ L39: dlasrt_("I", m, &w[1], &iinfo); if (iinfo != 0) { *info = 3; - return 0; + return; } } else { i__1 = *m - 1; @@ -1349,7 +1350,7 @@ L39: work[1] = (doublereal) lwmin; iwork[1] = liwmin; - return 0; + return; /* End of ZSTEMR */ diff --git a/lapack-netlib/SRC/zsteqr.c b/lapack-netlib/SRC/zsteqr.c index 486596f91..42782baab 100644 --- a/lapack-netlib/SRC/zsteqr.c +++ b/lapack-netlib/SRC/zsteqr.c @@ -650,7 +650,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__, +/* Subroutine */ void zsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, integer *info) { @@ -660,17 +660,17 @@ f"> */ /* Local variables */ integer lend, jtot; - extern /* Subroutine */ int dlae2_(doublereal *, doublereal *, doublereal + extern /* Subroutine */ void dlae2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal b, c__, f, g; integer i__, j, k, l, m; doublereal p, r__, s; extern logical lsame_(char *, char *); doublereal anorm; - extern /* Subroutine */ int zlasr_(char *, char *, char *, integer *, + extern /* Subroutine */ void zlasr_(char *, char *, char *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *); integer l1; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlaev2_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); @@ -679,22 +679,22 @@ f"> */ integer ii; extern doublereal dlamch_(char *); integer mm, iscale; - extern /* Subroutine */ int dlascl_(char *, integer *, integer *, + extern /* Subroutine */ void dlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *); doublereal safmin; - extern /* Subroutine */ int dlartg_(doublereal *, doublereal *, + extern /* Subroutine */ void dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, doublereal *); doublereal safmax; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal dlanst_(char *, integer *, doublereal *, doublereal *); - extern /* Subroutine */ int dlasrt_(char *, integer *, doublereal *, + extern /* Subroutine */ void dlasrt_(char *, integer *, doublereal *, integer *); integer lendsv; doublereal ssfmin; integer nmaxit, icompz; doublereal ssfmax; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer lm1, mm1, nm1; doublereal rt1, rt2, eps; @@ -743,13 +743,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSTEQR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -757,7 +757,7 @@ f"> */ i__1 = z_dim1 + 1; z__[i__1].r = 1., z__[i__1].i = 0.; } - return 0; + return; } /* Determine the unit roundoff and over/underflow thresholds. */ @@ -1130,7 +1130,7 @@ L140: } /* L150: */ } - return 0; + return; } goto L10; @@ -1169,7 +1169,7 @@ L160: /* L180: */ } } - return 0; + return; /* End of ZSTEQR */ diff --git a/lapack-netlib/SRC/zsycon.c b/lapack-netlib/SRC/zsycon.c index 0fa46d844..2842546af 100644 --- a/lapack-netlib/SRC/zsycon.c +++ b/lapack-netlib/SRC/zsycon.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsycon_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info) { @@ -649,11 +649,11 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; - extern /* Subroutine */ int zsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void zsytrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); @@ -691,7 +691,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -699,9 +699,9 @@ f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -713,7 +713,7 @@ f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } /* L10: */ } @@ -725,7 +725,7 @@ f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } /* L20: */ } @@ -751,7 +751,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZSYCON */ diff --git a/lapack-netlib/SRC/zsycon_3.c b/lapack-netlib/SRC/zsycon_3.c index 41454b37b..cd0bf7f96 100644 --- a/lapack-netlib/SRC/zsycon_3.c +++ b/lapack-netlib/SRC/zsycon_3.c @@ -678,7 +678,7 @@ static integer c__1 = 1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsycon_3_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsycon_3_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info) { @@ -687,16 +687,16 @@ static integer c__1 = 1; /* Local variables */ integer kase; - extern /* Subroutine */ int zsytrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void zsytrs_3_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_( char *, integer *, ftnlen); doublereal ainvnm; @@ -734,7 +734,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZSYCON_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ @@ -742,9 +742,9 @@ static integer c__1 = 1; *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -756,7 +756,7 @@ static integer c__1 = 1; for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } } } else { @@ -767,7 +767,7 @@ static integer c__1 = 1; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } } } @@ -792,7 +792,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZSYCON_3 */ diff --git a/lapack-netlib/SRC/zsycon_rook.c b/lapack-netlib/SRC/zsycon_rook.c index 2c2b6aea9..0fe88cbdb 100644 --- a/lapack-netlib/SRC/zsycon_rook.c +++ b/lapack-netlib/SRC/zsycon_rook.c @@ -651,7 +651,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsycon_rook_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsycon_rook_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info) { @@ -660,16 +660,16 @@ rook.f"> */ /* Local variables */ integer kase; - extern /* Subroutine */ int zsytrs_rook_(char *, integer *, integer *, + extern /* Subroutine */ void zsytrs_rook_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); integer i__; extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, - doublecomplex *, doublereal *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, + doublecomplex *, doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); doublereal ainvnm; @@ -706,7 +706,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYCON_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ @@ -714,9 +714,9 @@ rook.f"> */ *rcond = 0.; if (*n == 0) { *rcond = 1.; - return 0; + return; } else if (*anorm <= 0.) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -728,7 +728,7 @@ rook.f"> */ for (i__ = *n; i__ >= 1; --i__) { i__1 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } /* L10: */ } @@ -740,7 +740,7 @@ rook.f"> */ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__ + i__ * a_dim1; if (ipiv[i__] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } /* L20: */ } @@ -766,7 +766,7 @@ L30: *rcond = 1. / ainvnm / *anorm; } - return 0; + return; /* End of ZSYCON_ROOK */ diff --git a/lapack-netlib/SRC/zsyconv.c b/lapack-netlib/SRC/zsyconv.c index c8afcec2d..b0acec29a 100644 --- a/lapack-netlib/SRC/zsyconv.c +++ b/lapack-netlib/SRC/zsyconv.c @@ -623,7 +623,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsyconv_(char *uplo, char *way, integer *n, +/* Subroutine */ void zsyconv_(char *uplo, char *way, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *e, integer *info) { @@ -673,13 +673,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYCONV", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -930,7 +930,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of ZSYCONV */ diff --git a/lapack-netlib/SRC/zsyconvf.c b/lapack-netlib/SRC/zsyconvf.c index 927199525..1313bb4e6 100644 --- a/lapack-netlib/SRC/zsyconvf.c +++ b/lapack-netlib/SRC/zsyconvf.c @@ -718,7 +718,7 @@ f.f"> */ /* > */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsyconvf_(char *uplo, char *way, integer *n, +/* Subroutine */ void zsyconvf_(char *uplo, char *way, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, integer *info) { @@ -729,7 +729,7 @@ f.f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -769,13 +769,13 @@ f.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYCONVF", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -1091,7 +1091,7 @@ f.f"> */ /* End A is LOWER */ } - return 0; + return; /* End of ZSYCONVF */ diff --git a/lapack-netlib/SRC/zsyconvf_rook.c b/lapack-netlib/SRC/zsyconvf_rook.c index 3362b91e0..05cefa81a 100644 --- a/lapack-netlib/SRC/zsyconvf_rook.c +++ b/lapack-netlib/SRC/zsyconvf_rook.c @@ -709,7 +709,7 @@ f_rook.f"> */ /* > */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsyconvf_rook_(char *uplo, char *way, integer *n, +/* Subroutine */ void zsyconvf_rook_(char *uplo, char *way, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, integer *info) { @@ -720,7 +720,7 @@ f_rook.f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ip; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -761,13 +761,13 @@ f_rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYCONVF_ROOK", &i__1, (ftnlen)13); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -1081,7 +1081,7 @@ f_rook.f"> */ /* End A is LOWER */ } - return 0; + return; /* End of ZSYCONVF_ROOK */ diff --git a/lapack-netlib/SRC/zsyequb.c b/lapack-netlib/SRC/zsyequb.c index c047b320e..9f740710f 100644 --- a/lapack-netlib/SRC/zsyequb.c +++ b/lapack-netlib/SRC/zsyequb.c @@ -645,7 +645,7 @@ static integer c__1 = 1; /* > Tech report version: http://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.3.1679 */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zsyequb_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsyequb_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, doublecomplex *work, integer *info) { @@ -667,7 +667,7 @@ static integer c__1 = 1; logical up; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum, smlnum; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal avg, std, tol; @@ -702,7 +702,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZSYEQUB", &i__1, (ftnlen)7); - return 0; + return; } up = lsame_(uplo, "U"); *amax = 0.; @@ -711,7 +711,7 @@ static integer c__1 = 1; if (*n == 0) { *scond = 1.; - return 0; + return; } i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -906,7 +906,7 @@ static integer c__1 = 1; d__ = c1 * c1 - c0 * 4 * c2; if (d__ <= 0.) { *info = -1; - return 0; + return; } si = c0 * -2 / (c1 + sqrt(d__)); d__ = si - s[i__]; @@ -993,6 +993,6 @@ L999: } *scond = f2cmax(smin,smlnum) / f2cmin(smax,bignum); - return 0; + return; } /* zsyequb_ */ diff --git a/lapack-netlib/SRC/zsymv.c b/lapack-netlib/SRC/zsymv.c index a14c33cd2..7729d3f43 100644 --- a/lapack-netlib/SRC/zsymv.c +++ b/lapack-netlib/SRC/zsymv.c @@ -666,7 +666,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16SYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha, +/* Subroutine */ void zsymv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy) { @@ -716,14 +716,14 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("ZSYMV ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || alpha->r == 0. && alpha->i == 0. && (beta->r == 1. && beta->i == 0.)) { - return 0; + return; } /* Set up the start points in X and Y. */ @@ -792,7 +792,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } if (alpha->r == 0. && alpha->i == 0.) { - return 0; + return; } if (lsame_(uplo, "U")) { @@ -984,7 +984,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of ZSYMV */ diff --git a/lapack-netlib/SRC/zsyr.c b/lapack-netlib/SRC/zsyr.c index 6a2d5f8ba..bacc1cf54 100644 --- a/lapack-netlib/SRC/zsyr.c +++ b/lapack-netlib/SRC/zsyr.c @@ -644,7 +644,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16SYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha, +/* Subroutine */ void zsyr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *a, integer *lda) { /* System generated locals */ @@ -690,13 +690,13 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } if (info != 0) { xerbla_("ZSYR ", &info, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0 || alpha->r == 0. && alpha->i == 0.) { - return 0; + return; } /* Set the start point in X if the increment is not unity. */ @@ -835,7 +835,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } } - return 0; + return; /* End of ZSYR */ diff --git a/lapack-netlib/SRC/zsyrfs.c b/lapack-netlib/SRC/zsyrfs.c index c445301ac..31a54c120 100644 --- a/lapack-netlib/SRC/zsyrfs.c +++ b/lapack-netlib/SRC/zsyrfs.c @@ -705,7 +705,7 @@ f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsyrfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, @@ -725,7 +725,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3], count; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zsymv_( char *, integer *, doublecomplex *, doublecomplex *, integer *, @@ -738,7 +738,7 @@ f"> */ doublereal safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal lstres; - extern /* Subroutine */ int zsytrs_(char *, integer *, integer *, + extern /* Subroutine */ void zsytrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); doublereal eps; @@ -795,7 +795,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -807,7 +807,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } /* NZ = maximum number of nonzero elements in each row of A, plus 1 */ @@ -1043,7 +1043,7 @@ L100: /* L140: */ } - return 0; + return; /* End of ZSYRFS */ diff --git a/lapack-netlib/SRC/zsysv.c b/lapack-netlib/SRC/zsysv.c index b42cb23c5..ffa5a09f9 100644 --- a/lapack-netlib/SRC/zsysv.c +++ b/lapack-netlib/SRC/zsysv.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \ingroup complex16SYsolve */ /* ===================================================================== */ -/* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsysv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -695,7 +695,7 @@ static integer c_n1 = -1; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int zsytrf_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsytrf_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zsytrs_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zsytrs2_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -754,9 +754,9 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZSYSV ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -786,7 +786,7 @@ static integer c_n1 = -1; work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYSV */ diff --git a/lapack-netlib/SRC/zsysv_aa.c b/lapack-netlib/SRC/zsysv_aa.c index 2b0760570..2b226200e 100644 --- a/lapack-netlib/SRC/zsysv_aa.c +++ b/lapack-netlib/SRC/zsysv_aa.c @@ -674,7 +674,7 @@ a.f"> */ /* > \ingroup complex16SYsolve */ /* ===================================================================== */ -/* Subroutine */ int zsysv_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsysv_aa_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -684,10 +684,11 @@ a.f"> */ /* Local variables */ extern logical lsame_(char *, char *); integer lwkopt_sytrf__, lwkopt_sytrs__; - extern /* Subroutine */ int zsytrf_aa_(char *, integer *, doublecomplex * + extern /* Subroutine */ void zsytrf_aa_(char *, integer *, doublecomplex * , integer *, integer *, doublecomplex *, integer *, integer *), zsytrs_aa_(char *, integer *, integer *, doublecomplex * , integer *, integer *, doublecomplex *, integer *, doublecomplex - *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -748,9 +749,9 @@ a.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYSV_AA ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U**T*T*U or A = L*T*L**T. */ @@ -767,7 +768,7 @@ a.f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYSV_AA */ diff --git a/lapack-netlib/SRC/zsysv_aa_2stage.c b/lapack-netlib/SRC/zsysv_aa_2stage.c index 542cd702c..d2ed5e3c8 100644 --- a/lapack-netlib/SRC/zsysv_aa_2stage.c +++ b/lapack-netlib/SRC/zsysv_aa_2stage.c @@ -698,7 +698,7 @@ asen_2stage.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsysv_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsysv_aa_2stage_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *tb, integer *ltb, integer *ipiv, integer *ipiv2, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) @@ -707,7 +707,7 @@ asen_2stage.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int zsytrf_aa_2stage_(char *, integer *, + extern /* Subroutine */ void zsytrf_aa_2stage_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, doublecomplex *, integer *, integer *), zsytrs_aa_2stage_(char *, integer *, integer *, doublecomplex *, @@ -774,9 +774,9 @@ asen_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYSV_AA_2STAGE", &i__1, (ftnlen)15); - return 0; + return; } else if (wquery || tquery) { - return 0; + return; } @@ -797,6 +797,6 @@ asen_2stage.f"> */ /* End of ZSYSV_AA_2STAGE */ - return 0; + return; } /* zsysv_aa_2stage__ */ diff --git a/lapack-netlib/SRC/zsysv_rk.c b/lapack-netlib/SRC/zsysv_rk.c index 82eef5a43..01a75aaec 100644 --- a/lapack-netlib/SRC/zsysv_rk.c +++ b/lapack-netlib/SRC/zsysv_rk.c @@ -740,7 +740,7 @@ k.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsysv_rk_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsysv_rk_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) @@ -749,13 +749,14 @@ k.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int zsytrs_3_(char *, integer *, integer *, + extern /* Subroutine */ void zsytrs_3_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); extern logical lsame_(char *, char *); - extern /* Subroutine */ int zsytrf_rk_(char *, integer *, doublecomplex * + extern /* Subroutine */ void zsytrf_rk_(char *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, doublecomplex *, integer - *, integer *), xerbla_(char *, integer *, ftnlen); + *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; @@ -813,9 +814,9 @@ k.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYSV_RK ", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = P*U*D*(U**T)*(P**T) or */ @@ -835,7 +836,7 @@ k.f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYSV_RK */ diff --git a/lapack-netlib/SRC/zsysv_rook.c b/lapack-netlib/SRC/zsysv_rook.c index 8ddf820e4..c0ea7bb1f 100644 --- a/lapack-netlib/SRC/zsysv_rook.c +++ b/lapack-netlib/SRC/zsysv_rook.c @@ -717,7 +717,7 @@ ook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsysv_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsysv_rook_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -725,7 +725,7 @@ ook.f"> */ integer a_dim1, a_offset, b_dim1, b_offset, i__1; /* Local variables */ - extern /* Subroutine */ int zsytrf_rook_(char *, integer *, + extern /* Subroutine */ void zsytrf_rook_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zsytrs_rook_(char *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, @@ -788,9 +788,9 @@ ook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYSV_ROOK ", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Compute the factorization A = U*D*U**T or A = L*D*L**T. */ @@ -809,7 +809,7 @@ ook.f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYSV_ROOK */ diff --git a/lapack-netlib/SRC/zsysvx.c b/lapack-netlib/SRC/zsysvx.c index 2d0b3ec97..29302ff76 100644 --- a/lapack-netlib/SRC/zsysvx.c +++ b/lapack-netlib/SRC/zsysvx.c @@ -797,7 +797,7 @@ f"> */ /* > \ingroup complex16SYsolve */ /* ===================================================================== */ -/* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zsysvx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, @@ -816,13 +816,13 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lwkopt; logical lquery; extern doublereal zlansy_(char *, char *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int zsycon_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsycon_(char *, integer *, doublecomplex *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *), zsyrfs_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, @@ -909,9 +909,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYSVX", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } if (nofact) { @@ -926,7 +926,7 @@ f"> */ if (*info > 0) { *rcond = 0.; - return 0; + return; } } @@ -960,7 +960,7 @@ f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYSVX */ diff --git a/lapack-netlib/SRC/zsysvxx.c b/lapack-netlib/SRC/zsysvxx.c index 2968791ee..ff18cc709 100644 --- a/lapack-netlib/SRC/zsysvxx.c +++ b/lapack-netlib/SRC/zsysvxx.c @@ -1012,7 +1012,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16SYsolve */ /* ===================================================================== */ -/* Subroutine */ int zsysvxx_(char *fact, char *uplo, integer *n, integer * +/* Subroutine */ void zsysvxx_(char *fact, char *uplo, integer *n, integer * nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, @@ -1028,7 +1028,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ doublereal d__1, d__2; /* Local variables */ - extern /* Subroutine */ int zsyrfsx_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zsyrfsx_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer * , doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, integer *, doublereal *, @@ -1047,10 +1047,10 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; integer infequ; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int zlaqsy_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zlaqsy_(char *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, char *), zsytrf_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *), zlascl2_(integer *, integer *, doublereal *, doublecomplex *, integer *), zsytrs_(char *, integer *, integer *, @@ -1166,7 +1166,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYSVXX", &i__1, (ftnlen)7); - return 0; + return; } if (equil) { @@ -1211,7 +1211,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ *rpvgrw = zla_syrpvgrw_(uplo, n, info, &a[a_offset], lda, & af[af_offset], ldaf, &ipiv[1], &rwork[1]); } - return 0; + return; } } @@ -1243,7 +1243,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ zlascl2_(n, nrhs, &s[1], &x[x_offset], ldx); } - return 0; + return; /* End of ZSYSVXX */ diff --git a/lapack-netlib/SRC/zsyswapr.c b/lapack-netlib/SRC/zsyswapr.c index bc80be4ee..86f925d1a 100644 --- a/lapack-netlib/SRC/zsyswapr.c +++ b/lapack-netlib/SRC/zsyswapr.c @@ -616,7 +616,7 @@ r.f"> */ /* > \ingroup complex16SYauxiliary */ /* ===================================================================== */ -/* Subroutine */ int zsyswapr_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsyswapr_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *i1, integer *i2) { /* System generated locals */ @@ -626,7 +626,7 @@ r.f"> */ integer i__; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex tmp; @@ -736,6 +736,6 @@ r.f"> */ } } - return 0; + return; } /* zsyswapr_ */ diff --git a/lapack-netlib/SRC/zsytf2.c b/lapack-netlib/SRC/zsytf2.c index ffc53186c..7d84395df 100644 --- a/lapack-netlib/SRC/zsytf2.c +++ b/lapack-netlib/SRC/zsytf2.c @@ -706,7 +706,7 @@ f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -716,18 +716,18 @@ f"> */ /* Local variables */ integer imax, jmax; - extern /* Subroutine */ int zsyr_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsyr_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer i__, j, k; doublecomplex t; doublereal alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; logical upper; doublecomplex r1; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d12, d21, d22; integer kk, kp; @@ -771,7 +771,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTF2", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1286,7 +1286,7 @@ L40: } L70: - return 0; + return; /* End of ZSYTF2 */ diff --git a/lapack-netlib/SRC/zsytf2_rk.c b/lapack-netlib/SRC/zsytf2_rk.c index 7be53b3c5..61596a996 100644 --- a/lapack-netlib/SRC/zsytf2_rk.c +++ b/lapack-netlib/SRC/zsytf2_rk.c @@ -756,7 +756,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytf2_rk_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytf2_rk_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, integer *info) { /* System generated locals */ @@ -767,7 +767,7 @@ rk.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int zsyr_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsyr_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer i__, j, k, p; doublecomplex t; @@ -775,11 +775,11 @@ rk.f"> */ extern logical lsame_(char *, char *); doublereal dtemp, sfmin; integer itemp; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer kstep; logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d12, d21, d22; integer ii, kk; @@ -825,7 +825,7 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTF2_RK", &i__1, (ftnlen)9); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1683,7 +1683,7 @@ L64: ; } - return 0; + return; /* End of ZSYTF2_RK */ diff --git a/lapack-netlib/SRC/zsytf2_rook.c b/lapack-netlib/SRC/zsytf2_rook.c index 0087987e8..0ffd6dd78 100644 --- a/lapack-netlib/SRC/zsytf2_rook.c +++ b/lapack-netlib/SRC/zsytf2_rook.c @@ -709,7 +709,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytf2_rook_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytf2_rook_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info) { /* System generated locals */ @@ -720,18 +720,18 @@ rook.f"> */ /* Local variables */ logical done; integer imax, jmax; - extern /* Subroutine */ int zsyr_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsyr_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer i__, j, k, p; doublecomplex t; doublereal alpha; extern logical lsame_(char *, char *); doublereal dtemp, sfmin; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer itemp, kstep; logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex d11, d12, d21, d22; integer ii, kk; @@ -776,7 +776,7 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTF2_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Initialize ALPHA for use in choosing pivot block size. */ @@ -1525,7 +1525,7 @@ L42: L70: - return 0; + return; /* End of ZSYTF2_ROOK */ diff --git a/lapack-netlib/SRC/zsytrf.c b/lapack-netlib/SRC/zsytrf.c index 465eff88b..9aac589ad 100644 --- a/lapack-netlib/SRC/zsytrf.c +++ b/lapack-netlib/SRC/zsytrf.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -710,13 +710,13 @@ f"> */ integer nbmin, iinfo; logical upper; integer kb, nb; - extern /* Subroutine */ int zsytf2_(char *, integer *, doublecomplex *, - integer *, integer *, integer *), xerbla_(char *, integer - *, ftnlen); + extern /* Subroutine */ void zsytf2_(char *, integer *, doublecomplex *, + integer *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ldwork; - extern /* Subroutine */ int zlasyf_(char *, integer *, integer *, integer + extern /* Subroutine */ void zlasyf_(char *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); integer lwkopt; @@ -769,9 +769,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -898,7 +898,7 @@ L20: L40: work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYTRF */ diff --git a/lapack-netlib/SRC/zsytrf_aa.c b/lapack-netlib/SRC/zsytrf_aa.c index 7a506a940..29a3dcb7c 100644 --- a/lapack-netlib/SRC/zsytrf_aa.c +++ b/lapack-netlib/SRC/zsytrf_aa.c @@ -648,7 +648,7 @@ aa.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytrf_aa_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytrf_aa_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -659,7 +659,7 @@ aa.f"> */ integer j; doublecomplex alpha; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -671,7 +671,7 @@ aa.f"> */ doublecomplex *, integer *); logical upper; integer k1, k2, j1, j2, j3; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer jb, nb, mj, nj; @@ -732,19 +732,19 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRF_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } ipiv[1] = 1; if (*n == 1) { - return 0; + return; } /* Adjust block size based on the workspace size */ @@ -1038,7 +1038,7 @@ L11: } L20: - return 0; + return; /* End of ZSYTRF_AA */ diff --git a/lapack-netlib/SRC/zsytrf_aa_2stage.c b/lapack-netlib/SRC/zsytrf_aa_2stage.c index 328fdb5eb..a3d6a39b6 100644 --- a/lapack-netlib/SRC/zsytrf_aa_2stage.c +++ b/lapack-netlib/SRC/zsytrf_aa_2stage.c @@ -675,7 +675,7 @@ aa_2stage.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytrf_aa_2stage_(char *uplo, integer *n, doublecomplex +/* Subroutine */ void zsytrf_aa_2stage_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *tb, integer *ltb, integer *ipiv, integer *ipiv2, doublecomplex *work, integer *lwork, integer *info) { @@ -687,14 +687,14 @@ aa_2stage.f"> */ integer ldtb, i__, j, k; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer i1; logical upper; integer i2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, @@ -703,10 +703,11 @@ aa_2stage.f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zgbtrf_(integer *, integer *, integer *, - integer *, doublecomplex *, integer *, integer *, integer *), - zgetrf_(integer *, integer *, doublecomplex *, integer *, integer - *, integer *), zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zgbtrf_(integer *, integer *, integer *, + integer *, doublecomplex *, integer *, integer *, integer *); + extern int zgetrf_(integer *, integer *, doublecomplex *, integer *, integer + *, integer *); + extern void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); @@ -755,7 +756,7 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRF_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Answer the query */ @@ -773,13 +774,13 @@ aa_2stage.f"> */ } } if (tquery || wquery) { - return 0; + return; } /* Quick return */ if (*n == 0) { - return 0; + return; } /* Determine the number of the block size */ @@ -1280,7 +1281,7 @@ aa_2stage.f"> */ /* Factor the band matrix */ zgbtrf_(n, n, &nb, &nb, &tb[1], &ldtb, &ipiv2[1], info); - return 0; + return; /* End of ZSYTRF_AA_2STAGE */ diff --git a/lapack-netlib/SRC/zsytrf_rk.c b/lapack-netlib/SRC/zsytrf_rk.c index 232cab0bb..a87821837 100644 --- a/lapack-netlib/SRC/zsytrf_rk.c +++ b/lapack-netlib/SRC/zsytrf_rk.c @@ -774,7 +774,7 @@ rk.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytrf_rk_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytrf_rk_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -785,10 +785,10 @@ rk.f"> */ integer i__, k; extern logical lsame_(char *, char *); integer nbmin, iinfo; - extern /* Subroutine */ int zsytf2_rk_(char *, integer *, doublecomplex * + extern /* Subroutine */ void zsytf2_rk_(char *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, integer *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlasyf_rk_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -847,9 +847,9 @@ rk.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRF_RK", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -1035,7 +1035,7 @@ L35: } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYTRF_RK */ diff --git a/lapack-netlib/SRC/zsytrf_rook.c b/lapack-netlib/SRC/zsytrf_rook.c index 28a5cb7e3..6c02245a2 100644 --- a/lapack-netlib/SRC/zsytrf_rook.c +++ b/lapack-netlib/SRC/zsytrf_rook.c @@ -723,7 +723,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytrf_rook_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytrf_rook_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -731,7 +731,7 @@ rook.f"> */ integer a_dim1, a_offset, i__1, i__2; /* Local variables */ - extern /* Subroutine */ int zlasyf_rook_(char *, integer *, integer *, + extern /* Subroutine */ void zlasyf_rook_(char *, integer *, integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); integer j, k; @@ -745,7 +745,7 @@ rook.f"> */ integer ldwork, lwkopt; logical lquery; integer iws; - extern /* Subroutine */ int zsytf2_rook_(char *, integer *, + extern /* Subroutine */ void zsytf2_rook_(char *, integer *, doublecomplex *, integer *, integer *, integer *); @@ -796,9 +796,9 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRF_ROOK", &i__1, (ftnlen)11); - return 0; + return; } else if (lquery) { - return 0; + return; } nbmin = 2; @@ -928,7 +928,7 @@ L20: L40: work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYTRF_ROOK */ diff --git a/lapack-netlib/SRC/zsytri.c b/lapack-netlib/SRC/zsytri.c index 78df5e9a1..cf9a70251 100644 --- a/lapack-netlib/SRC/zsytri.c +++ b/lapack-netlib/SRC/zsytri.c @@ -629,7 +629,7 @@ f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info) { /* System generated locals */ @@ -643,11 +643,11 @@ f"> */ extern logical lsame_(char *, char *); integer kstep; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern /* Double Complex */ VOID zdotu_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zsymv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -688,13 +688,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -706,7 +706,7 @@ f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } /* L10: */ } @@ -718,7 +718,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } /* L20: */ } @@ -1031,7 +1031,7 @@ L60: ; } - return 0; + return; /* End of ZSYTRI */ diff --git a/lapack-netlib/SRC/zsytri2.c b/lapack-netlib/SRC/zsytri2.c index d0cdd02b1..31f65bdac 100644 --- a/lapack-netlib/SRC/zsytri2.c +++ b/lapack-netlib/SRC/zsytri2.c @@ -641,7 +641,7 @@ static integer c_n1 = -1; /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytri2_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytri2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -649,7 +649,7 @@ static integer c_n1 = -1; integer a_dim1, a_offset, i__1; /* Local variables */ - extern /* Subroutine */ int zsytri2x_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsytri2x_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, integer *); extern logical lsame_(char *, char *); integer nbmax; @@ -658,7 +658,7 @@ static integer c_n1 = -1; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical lquery; - extern /* Subroutine */ int zsytri_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsytri_(char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *); integer minsize; @@ -710,13 +710,13 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRI2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { work[1].r = (doublereal) minsize, work[1].i = 0.; - return 0; + return; } if (*n == 0) { - return 0; + return; } if (nbmax >= *n) { zsytri_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], info); @@ -724,7 +724,7 @@ static integer c_n1 = -1; zsytri2x_(uplo, n, &a[a_offset], lda, &ipiv[1], &work[1], &nbmax, info); } - return 0; + return; /* End of ZSYTRI2 */ diff --git a/lapack-netlib/SRC/zsytri2x.c b/lapack-netlib/SRC/zsytri2x.c index f4a1d3b58..cacd30379 100644 --- a/lapack-netlib/SRC/zsytri2x.c +++ b/lapack-netlib/SRC/zsytri2x.c @@ -634,7 +634,7 @@ x.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytri2x_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytri2x_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *nb, integer *info) { @@ -647,29 +647,30 @@ x.f"> */ integer invd; doublecomplex akkp1, d__; integer i__, j, k; - extern /* Subroutine */ int zsyswapr_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsyswapr_(char *, integer *, doublecomplex *, integer *, integer *, integer *); doublecomplex t; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer count; logical upper; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ak, u01_i_j__; integer u11; doublecomplex u11_i_j__; integer ip; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ztrtri_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern int ztrtri_( char *, char *, integer *, doublecomplex *, integer *, integer *); integer nnb, cut; doublecomplex akp1, u01_ip1_j__, u11_ip1_j__; - extern /* Subroutine */ int zsyconv_(char *, char *, integer *, + extern /* Subroutine */ void zsyconv_(char *, char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *); @@ -710,10 +711,10 @@ x.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRI2X", &i__1, (ftnlen)8); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Convert A */ @@ -731,7 +732,7 @@ x.f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } } } else { @@ -742,7 +743,7 @@ x.f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } } } @@ -1373,7 +1374,7 @@ x.f"> */ } } - return 0; + return; /* End of ZSYTRI2X */ diff --git a/lapack-netlib/SRC/zsytri_3.c b/lapack-netlib/SRC/zsytri_3.c index 655a2ae73..9a1fe7b6d 100644 --- a/lapack-netlib/SRC/zsytri_3.c +++ b/lapack-netlib/SRC/zsytri_3.c @@ -683,7 +683,7 @@ static integer c_n1 = -1; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytri_3_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytri_3_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *work, integer *lwork, integer *info) { @@ -693,7 +693,7 @@ static integer c_n1 = -1; /* Local variables */ extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int zsytri_3x_(char *, integer *, doublecomplex * + extern /* Subroutine */ void zsytri_3x_(char *, integer *, doublecomplex * , integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer nb; @@ -749,16 +749,16 @@ static integer c_n1 = -1; if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRI_3", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } zsytri_3x_(uplo, n, &a[a_offset], lda, &e[1], &ipiv[1], &work[1], &nb, @@ -766,7 +766,7 @@ static integer c_n1 = -1; work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZSYTRI_3 */ diff --git a/lapack-netlib/SRC/zsytri_3x.c b/lapack-netlib/SRC/zsytri_3x.c index f5647906f..e5575d293 100644 --- a/lapack-netlib/SRC/zsytri_3x.c +++ b/lapack-netlib/SRC/zsytri_3x.c @@ -673,7 +673,7 @@ static doublecomplex c_b2 = {0.,0.}; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytri_3x_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytri_3x_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *work, integer *nb, integer *info) { @@ -686,16 +686,16 @@ static doublecomplex c_b2 = {0.,0.}; integer invd; doublecomplex akkp1, d__; integer i__, j, k; - extern /* Subroutine */ int zsyswapr_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void zsyswapr_(char *, integer *, doublecomplex *, integer *, integer *, integer *); doublecomplex t; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex ak, u01_i_j__; @@ -747,10 +747,10 @@ static doublecomplex c_b2 = {0.,0.}; if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRI_3X", &i__1, (ftnlen)9); - return 0; + return; } if (*n == 0) { - return 0; + return; } /* Workspace got Non-diag elements of D */ @@ -771,7 +771,7 @@ static doublecomplex c_b2 = {0.,0.}; for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } } } else { @@ -782,7 +782,7 @@ static doublecomplex c_b2 = {0.,0.}; for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } } } @@ -1422,7 +1422,7 @@ static doublecomplex c_b2 = {0.,0.}; } - return 0; + return; /* End of ZSYTRI_3X */ diff --git a/lapack-netlib/SRC/zsytri_rook.c b/lapack-netlib/SRC/zsytri_rook.c index b4e38bfb8..2899d12f0 100644 --- a/lapack-netlib/SRC/zsytri_rook.c +++ b/lapack-netlib/SRC/zsytri_rook.c @@ -644,7 +644,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytri_rook_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zsytri_rook_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info) { /* System generated locals */ @@ -658,11 +658,11 @@ rook.f"> */ extern logical lsame_(char *, char *); integer kstep; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); extern /* Double Complex */ VOID zdotu_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zsymv_(char *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -703,13 +703,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRI_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check that the diagonal matrix D is nonsingular. */ @@ -721,7 +721,7 @@ rook.f"> */ for (*info = *n; *info >= 1; --(*info)) { i__1 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__1].r == 0. && a[i__1].i == 0.)) { - return 0; + return; } /* L10: */ } @@ -733,7 +733,7 @@ rook.f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (ipiv[*info] > 0 && (a[i__2].r == 0. && a[i__2].i == 0.)) { - return 0; + return; } /* L20: */ } @@ -1136,7 +1136,7 @@ L60: ; } - return 0; + return; /* End of ZSYTRI_ROOK */ diff --git a/lapack-netlib/SRC/zsytrs.c b/lapack-netlib/SRC/zsytrs.c index 2c65b83f7..a31b3e9f2 100644 --- a/lapack-netlib/SRC/zsytrs.c +++ b/lapack-netlib/SRC/zsytrs.c @@ -634,7 +634,7 @@ f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsytrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -647,12 +647,12 @@ f"> */ integer j, k; extern logical lsame_(char *, char *); doublecomplex denom; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -697,13 +697,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1051,7 +1051,7 @@ L100: ; } - return 0; + return; /* End of ZSYTRS */ diff --git a/lapack-netlib/SRC/zsytrs2.c b/lapack-netlib/SRC/zsytrs2.c index 6a458f3d6..b377b7f5d 100644 --- a/lapack-netlib/SRC/zsytrs2.c +++ b/lapack-netlib/SRC/zsytrs2.c @@ -644,7 +644,7 @@ static doublecomplex c_b1 = {1.,0.}; /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytrs2_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsytrs2_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *info) { @@ -658,10 +658,10 @@ static doublecomplex c_b1 = {1.,0.}; extern logical lsame_(char *, char *); doublecomplex denom; integer iinfo; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char * , integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -669,7 +669,7 @@ static doublecomplex c_b1 = {1.,0.}; integer kp; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublecomplex akm1, bkm1; - extern /* Subroutine */ int zsyconv_(char *, char *, integer *, + extern /* Subroutine */ void zsyconv_(char *, char *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *); @@ -709,13 +709,13 @@ static doublecomplex c_b1 = {1.,0.}; if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRS2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Convert A */ @@ -936,7 +936,7 @@ static doublecomplex c_b1 = {1.,0.}; zsyconv_(uplo, "R", n, &a[a_offset], lda, &ipiv[1], &work[1], &iinfo); - return 0; + return; /* End of ZSYTRS2 */ diff --git a/lapack-netlib/SRC/zsytrs_3.c b/lapack-netlib/SRC/zsytrs_3.c index 388a28c8c..7d1763c04 100644 --- a/lapack-netlib/SRC/zsytrs_3.c +++ b/lapack-netlib/SRC/zsytrs_3.c @@ -677,7 +677,7 @@ static doublecomplex c_b1 = {1.,0.}; /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytrs_3_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsytrs_3_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -690,10 +690,10 @@ static doublecomplex c_b1 = {1.,0.}; integer i__, j, k; extern logical lsame_(char *, char *); doublecomplex denom; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char * , integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -739,13 +739,13 @@ static doublecomplex c_b1 = {1.,0.}; if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRS_3", &i__1, (ftnlen)8); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -933,7 +933,7 @@ static doublecomplex c_b1 = {1.,0.}; } - return 0; + return; /* End of ZSYTRS_3 */ diff --git a/lapack-netlib/SRC/zsytrs_aa.c b/lapack-netlib/SRC/zsytrs_aa.c index 66aca9b2d..7983cd087 100644 --- a/lapack-netlib/SRC/zsytrs_aa.c +++ b/lapack-netlib/SRC/zsytrs_aa.c @@ -644,7 +644,7 @@ aa.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytrs_aa_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsytrs_aa_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info) { @@ -655,14 +655,15 @@ aa.f"> */ integer k; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int zswap_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgtsv_(integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex * , integer *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer kp; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacpy_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacpy_( char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lwkopt; @@ -713,17 +714,17 @@ aa.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRS_AA", &i__1, (ftnlen)9); - return 0; + return; } else if (lquery) { lwkopt = *n * 3 - 2; work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -855,7 +856,7 @@ aa.f"> */ } - return 0; + return; /* End of ZSYTRS_AA */ diff --git a/lapack-netlib/SRC/zsytrs_aa_2stage.c b/lapack-netlib/SRC/zsytrs_aa_2stage.c index 025cdacc6..0bb91f940 100644 --- a/lapack-netlib/SRC/zsytrs_aa_2stage.c +++ b/lapack-netlib/SRC/zsytrs_aa_2stage.c @@ -653,7 +653,7 @@ aa_2stage.f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int zsytrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsytrs_aa_2stage_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *tb, integer *ltb, integer *ipiv, integer *ipiv2, doublecomplex *b, integer *ldb, integer *info) @@ -665,13 +665,15 @@ aa_2stage.f"> */ integer ldtb; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zgbtrs_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zgbtrs_( char *, integer *, integer *, integer *, integer *, doublecomplex - *, integer *, integer *, doublecomplex *, integer *, integer *), zlaswp_(integer *, doublecomplex *, integer *, integer *, + *, integer *, integer *, doublecomplex *, integer *, integer *); + extern int zlaswp_(integer *, doublecomplex *, integer *, integer *, integer *, integer *, integer *); @@ -715,13 +717,13 @@ aa_2stage.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRS_AA_2STAGE", &i__1, (ftnlen)16); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } /* Read NB and compute LDTB */ @@ -806,7 +808,7 @@ aa_2stage.f"> */ } } - return 0; + return; /* End of ZSYTRS_AA_2STAGE */ diff --git a/lapack-netlib/SRC/zsytrs_rook.c b/lapack-netlib/SRC/zsytrs_rook.c index 2e2f44b6d..2a01c9461 100644 --- a/lapack-netlib/SRC/zsytrs_rook.c +++ b/lapack-netlib/SRC/zsytrs_rook.c @@ -649,7 +649,7 @@ rook.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zsytrs_rook_(char *uplo, integer *n, integer *nrhs, +/* Subroutine */ void zsytrs_rook_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info) { @@ -662,12 +662,12 @@ rook.f"> */ integer j, k; extern logical lsame_(char *, char *); doublecomplex denom; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int zgeru_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgeru_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zswap_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -712,13 +712,13 @@ rook.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZSYTRS_ROOK", &i__1, (ftnlen)11); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *nrhs == 0) { - return 0; + return; } if (upper) { @@ -1093,7 +1093,7 @@ L100: ; } - return 0; + return; /* End of ZSYTRS_ROOK */ diff --git a/lapack-netlib/SRC/ztbcon.c b/lapack-netlib/SRC/ztbcon.c index 556fa23a5..5fcd4e0b2 100644 --- a/lapack-netlib/SRC/ztbcon.c +++ b/lapack-netlib/SRC/ztbcon.c @@ -655,7 +655,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void ztbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info) { @@ -671,7 +671,7 @@ f"> */ doublereal anorm; logical upper; doublereal xnorm; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -681,7 +681,7 @@ f"> */ extern doublereal zlantb_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *); logical onenrm; - extern /* Subroutine */ int zlatbs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatbs_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *), zdrscl_(integer *, doublereal *, doublecomplex *, integer *); @@ -730,14 +730,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTBCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.; - return 0; + return; } *rcond = 0.; @@ -802,7 +802,7 @@ L10: } L20: - return 0; + return; /* End of ZTBCON */ diff --git a/lapack-netlib/SRC/ztbrfs.c b/lapack-netlib/SRC/ztbrfs.c index 80b96ad0c..a34d2fae8 100644 --- a/lapack-netlib/SRC/ztbrfs.c +++ b/lapack-netlib/SRC/ztbrfs.c @@ -700,7 +700,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ztbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * @@ -720,7 +720,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int ztbmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztbmv_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztbsv_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, @@ -794,7 +794,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTBRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -806,7 +806,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1151,7 +1151,7 @@ L210: /* L250: */ } - return 0; + return; /* End of ZTBRFS */ diff --git a/lapack-netlib/SRC/ztbtrs.c b/lapack-netlib/SRC/ztbtrs.c index 17de520b1..25c365744 100644 --- a/lapack-netlib/SRC/ztbtrs.c +++ b/lapack-netlib/SRC/ztbtrs.c @@ -658,7 +658,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ztbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, integer *info) { @@ -669,8 +669,9 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ztbsv_(char *, char *, char *, integer *, - integer *, doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void ztbsv_(char *, char *, char *, integer *, + integer *, doublecomplex *, integer *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; @@ -718,13 +719,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTBTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -735,7 +736,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *kd + 1 + *info * ab_dim1; if (ab[i__2].r == 0. && ab[i__2].i == 0.) { - return 0; + return; } /* L10: */ } @@ -744,7 +745,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info * ab_dim1 + 1; if (ab[i__2].r == 0. && ab[i__2].i == 0.) { - return 0; + return; } /* L20: */ } @@ -761,7 +762,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of ZTBTRS */ diff --git a/lapack-netlib/SRC/ztfsm.c b/lapack-netlib/SRC/ztfsm.c index 542c4df87..f96df7d01 100644 --- a/lapack-netlib/SRC/ztfsm.c +++ b/lapack-netlib/SRC/ztfsm.c @@ -810,7 +810,7 @@ static doublecomplex c_b1 = {1.,0.}; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztfsm_(char *transr, char *side, char *uplo, char *trans, +/* Subroutine */ void ztfsm_(char *transr, char *side, char *uplo, char *trans, char *diag, integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, doublecomplex *b, integer *ldb) { @@ -822,16 +822,16 @@ static doublecomplex c_b1 = {1.,0.}; integer info, i__, j, k; logical normaltransr, lside; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical lower; integer m1, m2, n1, n2; - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen); + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical misodd, nisodd, notrans; @@ -877,13 +877,13 @@ static doublecomplex c_b1 = {1.,0.}; if (info != 0) { i__1 = -info; xerbla_("ZTFSM ", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return when ( (N.EQ.0).OR.(M.EQ.0) ) */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Quick return when ALPHA.EQ.(0D+0,0D+0) */ @@ -899,7 +899,7 @@ static doublecomplex c_b1 = {1.,0.}; } /* L20: */ } - return 0; + return; } if (lside) { @@ -1580,7 +1580,7 @@ static doublecomplex c_b1 = {1.,0.}; } } - return 0; + return; /* End of ZTFSM */ diff --git a/lapack-netlib/SRC/ztftri.c b/lapack-netlib/SRC/ztftri.c index ccea628e4..8a69fb313 100644 --- a/lapack-netlib/SRC/ztftri.c +++ b/lapack-netlib/SRC/ztftri.c @@ -734,7 +734,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztftri_(char *transr, char *uplo, char *diag, integer *n, +/* Subroutine */ void ztftri_(char *transr, char *uplo, char *diag, integer *n, doublecomplex *a, integer *info) { /* System generated locals */ @@ -747,10 +747,10 @@ f"> */ extern logical lsame_(char *, char *); logical lower; integer n1, n2; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen); + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nisodd; extern /* Subroutine */ int ztrtri_(char *, char *, integer *, doublecomplex *, integer *, integer *); @@ -783,13 +783,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTFTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* If N is odd, set NISODD = .TRUE. */ @@ -831,7 +831,7 @@ f"> */ ztrtri_("L", diag, &n1, a, n, info); if (*info > 0) { - return 0; + return; } z__1.r = -1., z__1.i = 0.; ztrmm_("R", "L", "N", diag, &n2, &n1, &z__1, a, n, &a[n1], n); @@ -841,7 +841,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } ztrmm_("L", "U", "C", diag, &n2, &n1, &c_b1, &a[*n], n, &a[n1] , n); @@ -855,7 +855,7 @@ f"> */ ztrtri_("L", diag, &n1, &a[n2], n, info) ; if (*info > 0) { - return 0; + return; } z__1.r = -1., z__1.i = 0.; ztrmm_("L", "L", "C", diag, &n1, &n2, &z__1, &a[n2], n, a, n); @@ -865,7 +865,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } ztrmm_("R", "U", "N", diag, &n1, &n2, &c_b1, &a[n1], n, a, n); @@ -882,7 +882,7 @@ f"> */ ztrtri_("U", diag, &n1, a, &n1, info); if (*info > 0) { - return 0; + return; } z__1.r = -1., z__1.i = 0.; ztrmm_("L", "U", "N", diag, &n1, &n2, &z__1, a, &n1, &a[n1 * @@ -892,7 +892,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } ztrmm_("R", "L", "C", diag, &n1, &n2, &c_b1, &a[1], &n1, &a[ n1 * n1], &n1); @@ -904,7 +904,7 @@ f"> */ ztrtri_("U", diag, &n1, &a[n2 * n2], &n2, info); if (*info > 0) { - return 0; + return; } z__1.r = -1., z__1.i = 0.; ztrmm_("R", "U", "C", diag, &n2, &n1, &z__1, &a[n2 * n2], &n2, @@ -914,7 +914,7 @@ f"> */ *info += n1; } if (*info > 0) { - return 0; + return; } ztrmm_("L", "L", "N", diag, &n2, &n1, &c_b1, &a[n1 * n2], &n2, a, &n2); @@ -939,7 +939,7 @@ f"> */ i__1 = *n + 1; ztrtri_("L", diag, &k, &a[1], &i__1, info); if (*info > 0) { - return 0; + return; } z__1.r = -1., z__1.i = 0.; i__1 = *n + 1; @@ -952,7 +952,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -968,7 +968,7 @@ f"> */ i__1 = *n + 1; ztrtri_("L", diag, &k, &a[k + 1], &i__1, info); if (*info > 0) { - return 0; + return; } z__1.r = -1., z__1.i = 0.; i__1 = *n + 1; @@ -981,7 +981,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } i__1 = *n + 1; i__2 = *n + 1; @@ -1000,7 +1000,7 @@ f"> */ ztrtri_("U", diag, &k, &a[k], &k, info); if (*info > 0) { - return 0; + return; } z__1.r = -1., z__1.i = 0.; ztrmm_("L", "U", "N", diag, &k, &k, &z__1, &a[k], &k, &a[k * ( @@ -1010,7 +1010,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } ztrmm_("R", "L", "C", diag, &k, &k, &c_b1, a, &k, &a[k * (k + 1)], &k); @@ -1022,7 +1022,7 @@ f"> */ ztrtri_("U", diag, &k, &a[k * (k + 1)], &k, info); if (*info > 0) { - return 0; + return; } z__1.r = -1., z__1.i = 0.; ztrmm_("R", "U", "C", diag, &k, &k, &z__1, &a[k * (k + 1)], & @@ -1032,7 +1032,7 @@ f"> */ *info += k; } if (*info > 0) { - return 0; + return; } ztrmm_("L", "L", "N", diag, &k, &k, &c_b1, &a[k * k], &k, a, & k); @@ -1040,7 +1040,7 @@ f"> */ } } - return 0; + return; /* End of ZTFTRI */ diff --git a/lapack-netlib/SRC/ztfttp.c b/lapack-netlib/SRC/ztfttp.c index 98d2566af..4b5372f9e 100644 --- a/lapack-netlib/SRC/ztfttp.c +++ b/lapack-netlib/SRC/ztfttp.c @@ -718,7 +718,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztfttp_(char *transr, char *uplo, integer *n, +/* Subroutine */ void ztfttp_(char *transr, char *uplo, integer *n, doublecomplex *arf, doublecomplex *ap, integer *info) { /* System generated locals */ @@ -760,13 +760,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTFTTP", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -776,7 +776,7 @@ f"> */ d_cnjg(&z__1, arf); ap[0].r = z__1.r, ap[0].i = z__1.i; } - return 0; + return; } /* Size of array ARF(0:NT-1) */ @@ -1112,7 +1112,7 @@ f"> */ } - return 0; + return; /* End of ZTFTTP */ diff --git a/lapack-netlib/SRC/ztfttr.c b/lapack-netlib/SRC/ztfttr.c index bc2b168b1..fd4be1edc 100644 --- a/lapack-netlib/SRC/ztfttr.c +++ b/lapack-netlib/SRC/ztfttr.c @@ -726,7 +726,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztfttr_(char *transr, char *uplo, integer *n, +/* Subroutine */ void ztfttr_(char *transr, char *uplo, integer *n, doublecomplex *arf, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -776,7 +776,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTFTTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -790,7 +790,7 @@ f"> */ a[0].r = z__1.r, a[0].i = z__1.i; } } - return 0; + return; } /* Size of array ARF(1:2,0:nt-1) */ @@ -1122,7 +1122,7 @@ f"> */ } - return 0; + return; /* End of ZTFTTR */ diff --git a/lapack-netlib/SRC/ztgevc.c b/lapack-netlib/SRC/ztgevc.c index 9f2c3af38..b9af414f8 100644 --- a/lapack-netlib/SRC/ztgevc.c +++ b/lapack-netlib/SRC/ztgevc.c @@ -733,7 +733,7 @@ f"> */ /* > \ingroup complex16GEcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select, +/* Subroutine */ void ztgevc_(char *side, char *howmny, logical *select, integer *n, doublecomplex *s, integer *lds, doublecomplex *p, integer *ldp, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer * ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, @@ -763,11 +763,11 @@ f"> */ logical compl; doublereal anorm, bnorm; logical compr; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); doublecomplex ca, cb; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); logical ilbbad; doublereal acoefa; integer je; @@ -869,7 +869,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGEVC", &i__1, (ftnlen)6); - return 0; + return; } /* Count the number of eigenvectors */ @@ -910,14 +910,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGEVC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *m = im; if (*n == 0) { - return 0; + return; } /* Machine Constants */ @@ -1546,7 +1546,7 @@ L250: } } - return 0; + return; /* End of ZTGEVC */ diff --git a/lapack-netlib/SRC/ztgex2.c b/lapack-netlib/SRC/ztgex2.c index 8e8f1ea74..c11096b23 100644 --- a/lapack-netlib/SRC/ztgex2.c +++ b/lapack-netlib/SRC/ztgex2.c @@ -704,7 +704,7 @@ f"> */ /* > Numerical Algorithms, 1996. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n, +/* Subroutine */ void ztgex2_(logical *wantq, logical *wantz, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, integer *j1, integer *info) @@ -718,7 +718,7 @@ f"> */ /* Local variables */ logical weak; doublecomplex cdum, work[8]; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); doublecomplex f, g; integer i__, m; @@ -731,12 +731,12 @@ f"> */ doublecomplex sz; logical dtrong; doublereal thresh; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlartg_(doublecomplex *, doublecomplex *, doublereal *, doublecomplex *, doublecomplex *); doublereal smlnum; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal eps, sum; @@ -770,7 +770,7 @@ f"> */ /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } m = 2; @@ -941,13 +941,13 @@ f"> */ /* Exit with INFO = 0 if swap was successfully performed. */ - return 0; + return; /* Exit with INFO = 1 if swap was rejected. */ L20: *info = 1; - return 0; + return; /* End of ZTGEX2 */ diff --git a/lapack-netlib/SRC/ztgexc.c b/lapack-netlib/SRC/ztgexc.c index dadf10057..9b0a524a8 100644 --- a/lapack-netlib/SRC/ztgexc.c +++ b/lapack-netlib/SRC/ztgexc.c @@ -708,7 +708,7 @@ f"> */ /* > 1996. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n, +/* Subroutine */ void ztgexc_(logical *wantq, logical *wantz, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, integer *ifst, integer *ilst, integer *info) @@ -719,10 +719,11 @@ f"> */ /* Local variables */ integer here; - extern /* Subroutine */ int ztgex2_(logical *, logical *, integer *, + extern /* Subroutine */ void ztgex2_(logical *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.1) -- */ @@ -769,16 +770,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGEXC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 1) { - return 0; + return; } if (*ifst == *ilst) { - return 0; + return; } if (*ifst < *ilst) { @@ -793,7 +794,7 @@ L10: q_offset], ldq, &z__[z_offset], ldz, &here, info); if (*info != 0) { *ilst = here; - return 0; + return; } ++here; if (here < *ilst) { @@ -811,7 +812,7 @@ L20: q_offset], ldq, &z__[z_offset], ldz, &here, info); if (*info != 0) { *ilst = here; - return 0; + return; } --here; if (here >= *ilst) { @@ -820,7 +821,7 @@ L20: ++here; } *ilst = here; - return 0; + return; /* End of ZTGEXC */ diff --git a/lapack-netlib/SRC/ztgsen.c b/lapack-netlib/SRC/ztgsen.c index 912342129..8484a391b 100644 --- a/lapack-netlib/SRC/ztgsen.c +++ b/lapack-netlib/SRC/ztgsen.c @@ -944,7 +944,7 @@ f"> */ /* > 1996. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz, +/* Subroutine */ void ztgsen_(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex * beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer * @@ -963,13 +963,13 @@ f"> */ logical swap; doublecomplex temp1, temp2; integer i__, k, isave[3]; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); logical wantd; integer lwmin; logical wantp; integer n1, n2; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); logical wantd1, wantd2; extern doublereal dlamch_(char *); @@ -978,16 +978,16 @@ f"> */ doublereal rdscal, safmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer liwmin; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztgexc_(logical *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, integer *); integer mn2; - extern /* Subroutine */ int zlassq_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); logical lquery; - extern /* Subroutine */ int ztgsyl_(char *, integer *, integer *, integer + extern /* Subroutine */ void ztgsyl_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -1048,7 +1048,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGSEN", &i__1, (ftnlen)6); - return 0; + return; } ierr = 0; @@ -1116,9 +1116,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGSEN", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ @@ -1373,7 +1373,7 @@ L70: work[1].r = (doublereal) lwmin, work[1].i = 0.; iwork[1] = liwmin; - return 0; + return; /* End of ZTGSEN */ diff --git a/lapack-netlib/SRC/ztgsja.c b/lapack-netlib/SRC/ztgsja.c index a3f02bfa8..e2253749f 100644 --- a/lapack-netlib/SRC/ztgsja.c +++ b/lapack-netlib/SRC/ztgsja.c @@ -895,7 +895,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m, +/* Subroutine */ void ztgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *tola, doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex * @@ -910,7 +910,7 @@ f"> */ doublecomplex z__1; /* Local variables */ - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); integer kcallmycycle, i__, j; doublereal gamma; @@ -922,18 +922,20 @@ f"> */ logical wantu, wantv; doublereal ssmin; doublecomplex a2, b2; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlags2_(logical *, doublereal *, doublecomplex *, doublereal *, doublereal *, doublecomplex *, doublereal *, doublereal *, doublecomplex *, doublereal *, doublecomplex *, doublereal *, doublecomplex *), dlartg_( doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *, ftnlen), zdscal_( + doublereal *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *), zlapll_( integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *); // extern integer myhuge_(doublereal *); - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); doublereal csq, csu, csv; doublecomplex snq; @@ -1012,7 +1014,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGSJA", &i__1, (ftnlen)6); - return 0; + return; } /* Initialize U, V and Q, if necessary */ @@ -1289,7 +1291,7 @@ L50: L100: *ncallmycycle = kcallmycycle; - return 0; + return; /* End of ZTGSJA */ diff --git a/lapack-netlib/SRC/ztgsna.c b/lapack-netlib/SRC/ztgsna.c index 56755d209..797943f44 100644 --- a/lapack-netlib/SRC/ztgsna.c +++ b/lapack-netlib/SRC/ztgsna.c @@ -826,7 +826,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select, +/* Subroutine */ void ztgsna_(char *job, char *howmny, logical *select, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer * ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m, @@ -851,14 +851,14 @@ f"> */ extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lwmin; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical wants; doublecomplex dummy[1]; integer n1, n2; extern doublereal dlapy2_(doublereal *, doublereal *); - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); doublecomplex dummy1[1]; extern doublereal dznrm2_(integer *, doublecomplex *, integer *), dlamch_( char *); @@ -866,14 +866,14 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal bignum; logical wantbh, wantdf, somcon; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztgexc_(logical *, logical *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, integer *); doublereal smlnum; logical lquery; - extern /* Subroutine */ int ztgsyl_(char *, integer *, integer *, integer + extern /* Subroutine */ void ztgsyl_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -974,15 +974,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGSNA", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Get machine constants */ @@ -1082,7 +1082,7 @@ L20: ; } work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZTGSNA */ diff --git a/lapack-netlib/SRC/ztgsy2.c b/lapack-netlib/SRC/ztgsy2.c index 459bbdbac..0dab49991 100644 --- a/lapack-netlib/SRC/ztgsy2.c +++ b/lapack-netlib/SRC/ztgsy2.c @@ -771,7 +771,7 @@ f"> */ /* > Umea University, S-901 87 Umea, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer * +/* Subroutine */ void ztgsy2_(char *trans, integer *ijob, integer *m, integer * n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, @@ -788,14 +788,15 @@ f"> */ integer ierr, ipiv[2], jpiv[2], i__, j, k; doublecomplex alpha, z__[4] /* was [2][2] */; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), zgesc2_( integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublereal *), zgetc2_(integer *, doublecomplex *, integer *, integer *, integer *, integer *); doublereal scaloc; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlatdf_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlatdf_( integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *, integer *); logical notran; @@ -866,7 +867,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGSY2", &i__1, (ftnlen)6); - return 0; + return; } if (notran) { @@ -1057,7 +1058,7 @@ f"> */ /* L80: */ } } - return 0; + return; /* End of ZTGSY2 */ diff --git a/lapack-netlib/SRC/ztgsyl.c b/lapack-netlib/SRC/ztgsyl.c index d7d6d2484..3b11a13ac 100644 --- a/lapack-netlib/SRC/ztgsyl.c +++ b/lapack-netlib/SRC/ztgsyl.c @@ -812,7 +812,7 @@ f"> */ /* > July 1989, pp 745-751. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer * +/* Subroutine */ void ztgsyl_(char *trans, integer *ijob, integer *m, integer * n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, @@ -830,7 +830,7 @@ f"> */ integer i__, j, k, p, q; extern logical lsame_(char *, char *); integer ifunc, linfo; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -840,7 +840,7 @@ f"> */ integer ie, je, mb, nb; doublereal dscale; integer is, js, pq; - extern /* Subroutine */ int ztgsy2_(char *, integer *, integer *, integer + extern /* Subroutine */ void ztgsy2_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -852,7 +852,7 @@ f"> */ integer iround; logical notran; integer isolve; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); @@ -948,9 +948,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTGSYL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -962,7 +962,7 @@ f"> */ *dif = 0.; } } - return 0; + return; } /* Determine optimal block sizes MB and NB */ @@ -1024,7 +1024,7 @@ f"> */ /* L30: */ } - return 0; + return; } @@ -1294,7 +1294,7 @@ L70: work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZTGSYL */ diff --git a/lapack-netlib/SRC/ztpcon.c b/lapack-netlib/SRC/ztpcon.c index bc5753f4c..2224c2cef 100644 --- a/lapack-netlib/SRC/ztpcon.c +++ b/lapack-netlib/SRC/ztpcon.c @@ -642,7 +642,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void ztpcon_(char *norm, char *uplo, char *diag, integer *n, doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info) { @@ -658,7 +658,7 @@ f"> */ doublereal anorm; logical upper; doublereal xnorm; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -666,14 +666,14 @@ f"> */ doublereal ainvnm; extern integer izamax_(integer *, doublecomplex *, integer *); logical onenrm; - extern /* Subroutine */ int zdrscl_(integer *, doublereal *, + extern /* Subroutine */ void zdrscl_(integer *, doublereal *, doublecomplex *, integer *); char normin[1]; extern doublereal zlantp_(char *, char *, char *, integer *, doublecomplex *, doublereal *); doublereal smlnum; logical nounit; - extern /* Subroutine */ int zlatps_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatps_(char *, char *, char *, char *, integer *, doublecomplex *, doublecomplex *, doublereal *, doublereal *, integer *); @@ -712,14 +712,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.; - return 0; + return; } *rcond = 0.; @@ -784,7 +784,7 @@ L10: } L20: - return 0; + return; /* End of ZTPCON */ diff --git a/lapack-netlib/SRC/ztplqt.c b/lapack-netlib/SRC/ztplqt.c index dbcada52a..c21618cfe 100644 --- a/lapack-netlib/SRC/ztplqt.c +++ b/lapack-netlib/SRC/ztplqt.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztplqt_(integer *m, integer *n, integer *l, integer *mb, +/* Subroutine */ void ztplqt_(integer *m, integer *n, integer *l, integer *mb, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *t, integer *ldt, doublecomplex *work, integer *info) { @@ -707,7 +707,8 @@ f"> */ /* Local variables */ integer i__, iinfo, ib, lb, nb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ztprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void ztprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -760,13 +761,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPLQT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *m; @@ -800,7 +801,7 @@ f"> */ a_dim1], lda, &b[i__ + ib + b_dim1], ldb, &work[1], &i__4); } } - return 0; + return; /* End of ZTPLQT */ diff --git a/lapack-netlib/SRC/ztplqt2.c b/lapack-netlib/SRC/ztplqt2.c index 9190db5f7..ac9a4a100 100644 --- a/lapack-netlib/SRC/ztplqt2.c +++ b/lapack-netlib/SRC/ztplqt2.c @@ -693,7 +693,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztplqt2_(integer *m, integer *n, integer *l, +/* Subroutine */ void ztplqt2_(integer *m, integer *n, integer *l, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *t, integer *ldt, integer *info) { @@ -705,7 +705,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* Local variables */ integer i__, j, p; doublecomplex alpha; - extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -713,7 +713,8 @@ is composed of a triangular block and a pentagonal block, using the compact WY r ztrmv_(char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer mp, np; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarfg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_( integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -758,13 +759,13 @@ is composed of a triangular block and a pentagonal block, using the compact WY r if (*info != 0) { i__1 = -(*info); xerbla_("ZTPLQT2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } i__1 = *m; @@ -928,6 +929,6 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* End of ZTPLQT2 */ - return 0; + return; } /* ztplqt2_ */ diff --git a/lapack-netlib/SRC/ztpmlqt.c b/lapack-netlib/SRC/ztpmlqt.c index 5f8dd74a4..10adc30cc 100644 --- a/lapack-netlib/SRC/ztpmlqt.c +++ b/lapack-netlib/SRC/ztpmlqt.c @@ -724,7 +724,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztpmlqt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void ztpmlqt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, integer *mb, doublecomplex *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *work, integer *info) @@ -742,7 +742,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer ib, lb, nb, kf; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran; - extern /* Subroutine */ int ztprfb_(char *, char *, char *, char *, + extern /* Subroutine */ void ztprfb_(char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -812,12 +812,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPMLQT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran) { @@ -906,7 +906,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of ZTPMLQT */ diff --git a/lapack-netlib/SRC/ztpmqrt.c b/lapack-netlib/SRC/ztpmqrt.c index 777fccae4..7118487bd 100644 --- a/lapack-netlib/SRC/ztpmqrt.c +++ b/lapack-netlib/SRC/ztpmqrt.c @@ -724,7 +724,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztpmqrt_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void ztpmqrt_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, integer *nb, doublecomplex *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *work, integer *info) @@ -742,7 +742,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer ib, lb, mb, kf; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran; - extern /* Subroutine */ int ztprfb_(char *, char *, char *, char *, + extern /* Subroutine */ void ztprfb_(char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -814,12 +814,12 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPMQRT", &i__1, (ftnlen)7); - return 0; + return; } if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && tran) { @@ -908,7 +908,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ } - return 0; + return; /* End of ZTPMQRT */ diff --git a/lapack-netlib/SRC/ztpqrt.c b/lapack-netlib/SRC/ztpqrt.c index f53e081af..ce4688f95 100644 --- a/lapack-netlib/SRC/ztpqrt.c +++ b/lapack-netlib/SRC/ztpqrt.c @@ -697,7 +697,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztpqrt_(integer *m, integer *n, integer *l, integer *nb, +/* Subroutine */ void ztpqrt_(integer *m, integer *n, integer *l, integer *nb, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *t, integer *ldt, doublecomplex *work, integer *info) { @@ -707,7 +707,8 @@ f"> */ /* Local variables */ integer i__, iinfo, ib, lb, mb; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), ztprfb_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void ztprfb_( char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -760,13 +761,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPQRT", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } i__1 = *n; @@ -800,7 +801,7 @@ f"> */ , &ib); } } - return 0; + return; /* End of ZTPQRT */ diff --git a/lapack-netlib/SRC/ztpqrt2.c b/lapack-netlib/SRC/ztpqrt2.c index 36e082d58..659937549 100644 --- a/lapack-netlib/SRC/ztpqrt2.c +++ b/lapack-netlib/SRC/ztpqrt2.c @@ -690,7 +690,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztpqrt2_(integer *m, integer *n, integer *l, +/* Subroutine */ void ztpqrt2_(integer *m, integer *n, integer *l, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *t, integer *ldt, integer *info) { @@ -702,7 +702,7 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* Local variables */ integer i__, j, p; doublecomplex alpha; - extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, + extern /* Subroutine */ void zgerc_(integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, @@ -710,7 +710,8 @@ is composed of a triangular block and a pentagonal block, using the compact WY r ztrmv_(char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer mp, np; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarfg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlarfg_( integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -755,13 +756,13 @@ is composed of a triangular block and a pentagonal block, using the compact WY r if (*info != 0) { i__1 = -(*info); xerbla_("ZTPQRT2", &i__1, (ftnlen)7); - return 0; + return; } /* Quick return if possible */ if (*n == 0 || *m == 0) { - return 0; + return; } i__1 = *n; @@ -875,6 +876,6 @@ is composed of a triangular block and a pentagonal block, using the compact WY r /* End of ZTPQRT2 */ - return 0; + return; } /* ztpqrt2_ */ diff --git a/lapack-netlib/SRC/ztprfb.c b/lapack-netlib/SRC/ztprfb.c index eebe038ba..558b6e0d1 100644 --- a/lapack-netlib/SRC/ztprfb.c +++ b/lapack-netlib/SRC/ztprfb.c @@ -766,7 +766,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztprfb_(char *side, char *trans, char *direct, char * +/* Subroutine */ void ztprfb_(char *side, char *trans, char *direct, char * storev, integer *m, integer *n, integer *k, integer *l, doublecomplex *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *work, @@ -782,7 +782,7 @@ f"> */ integer i__, j; extern logical lsame_(char *, char *); logical right; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), ztrmm_(char *, char *, char *, char *, @@ -822,7 +822,7 @@ f"> */ /* Function Body */ if (*m <= 0 || *n <= 0 || *k <= 0 || *l < 0) { - return 0; + return; } if (lsame_(storev, "C")) { @@ -1609,7 +1609,7 @@ f"> */ } - return 0; + return; /* End of ZTPRFB */ diff --git a/lapack-netlib/SRC/ztprfs.c b/lapack-netlib/SRC/ztprfs.c index 884935f8d..a979964b1 100644 --- a/lapack-netlib/SRC/ztprfs.c +++ b/lapack-netlib/SRC/ztprfs.c @@ -686,7 +686,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ztprfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info) @@ -704,7 +704,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztpmv_( char *, char *, char *, integer *, doublecomplex *, doublecomplex @@ -772,7 +772,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -784,7 +784,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1118,7 +1118,7 @@ L210: /* L250: */ } - return 0; + return; /* End of ZTPRFS */ diff --git a/lapack-netlib/SRC/ztptri.c b/lapack-netlib/SRC/ztptri.c index 950162caf..1778f4fdd 100644 --- a/lapack-netlib/SRC/ztptri.c +++ b/lapack-netlib/SRC/ztptri.c @@ -631,7 +631,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n, +/* Subroutine */ void ztptri_(char *uplo, char *diag, integer *n, doublecomplex *ap, integer *info) { /* System generated locals */ @@ -641,10 +641,10 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztpmv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztpmv_(char *, char *, char *, integer *, doublecomplex *, doublecomplex *, integer *); integer jc, jj; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -681,7 +681,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Check for singularity if non-unit. */ @@ -694,7 +694,7 @@ f"> */ jj += *info; i__2 = jj; if (ap[i__2].r == 0. && ap[i__2].i == 0.) { - return 0; + return; } /* L10: */ } @@ -704,7 +704,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = jj; if (ap[i__2].r == 0. && ap[i__2].i == 0.) { - return 0; + return; } jj = jj + *n - *info + 1; /* L20: */ @@ -776,7 +776,7 @@ f"> */ } } - return 0; + return; /* End of ZTPTRI */ diff --git a/lapack-netlib/SRC/ztptrs.c b/lapack-netlib/SRC/ztptrs.c index 0bda75131..072b8dcd2 100644 --- a/lapack-netlib/SRC/ztptrs.c +++ b/lapack-netlib/SRC/ztptrs.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ztptrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info) { @@ -654,7 +654,7 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ztpsv_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztpsv_(char *, char *, char *, integer *, doublecomplex *, doublecomplex *, integer *); integer jc; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); @@ -699,13 +699,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -717,7 +717,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = jc + *info - 1; if (ap[i__2].r == 0. && ap[i__2].i == 0.) { - return 0; + return; } jc += *info; /* L10: */ @@ -728,7 +728,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = jc; if (ap[i__2].r == 0. && ap[i__2].i == 0.) { - return 0; + return; } jc = jc + *n - *info + 1; /* L20: */ @@ -745,7 +745,7 @@ f"> */ /* L30: */ } - return 0; + return; /* End of ZTPTRS */ diff --git a/lapack-netlib/SRC/ztpttf.c b/lapack-netlib/SRC/ztpttf.c index d7da0a712..420fa0275 100644 --- a/lapack-netlib/SRC/ztpttf.c +++ b/lapack-netlib/SRC/ztpttf.c @@ -718,7 +718,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztpttf_(char *transr, char *uplo, integer *n, +/* Subroutine */ void ztpttf_(char *transr, char *uplo, integer *n, doublecomplex *ap, doublecomplex *arf, integer *info) { /* System generated locals */ @@ -760,13 +760,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPTTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { @@ -776,7 +776,7 @@ f"> */ d_cnjg(&z__1, ap); arf[0].r = z__1.r, arf[0].i = z__1.i; } - return 0; + return; } /* Size of array ARF(0:NT-1) */ @@ -1112,7 +1112,7 @@ f"> */ } - return 0; + return; /* End of ZTPTTF */ diff --git a/lapack-netlib/SRC/ztpttr.c b/lapack-netlib/SRC/ztpttr.c index 62c5dbbe9..0f1255854 100644 --- a/lapack-netlib/SRC/ztpttr.c +++ b/lapack-netlib/SRC/ztpttr.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztpttr_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void ztpttr_(char *uplo, integer *n, doublecomplex *ap, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTPTTR", &i__1, (ftnlen)6); - return 0; + return; } if (lower) { @@ -687,7 +687,7 @@ f"> */ } - return 0; + return; /* End of ZTPTTR */ diff --git a/lapack-netlib/SRC/ztrcon.c b/lapack-netlib/SRC/ztrcon.c index 8824cbf5b..1f5e58fe4 100644 --- a/lapack-netlib/SRC/ztrcon.c +++ b/lapack-netlib/SRC/ztrcon.c @@ -649,7 +649,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n, +/* Subroutine */ void ztrcon_(char *norm, char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex * work, doublereal *rwork, integer *info) { @@ -665,7 +665,7 @@ f"> */ doublereal anorm; logical upper; doublereal xnorm; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); extern doublereal dlamch_(char *); integer ix; @@ -673,14 +673,14 @@ f"> */ doublereal ainvnm; extern integer izamax_(integer *, doublecomplex *, integer *); logical onenrm; - extern /* Subroutine */ int zdrscl_(integer *, doublereal *, + extern /* Subroutine */ void zdrscl_(integer *, doublereal *, doublecomplex *, integer *); char normin[1]; extern doublereal zlantr_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal smlnum; logical nounit; - extern /* Subroutine */ int zlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatrs_(char *, char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *); @@ -723,14 +723,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRCON", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { *rcond = 1.; - return 0; + return; } *rcond = 0.; @@ -795,7 +795,7 @@ L10: } L20: - return 0; + return; /* End of ZTRCON */ diff --git a/lapack-netlib/SRC/ztrevc.c b/lapack-netlib/SRC/ztrevc.c index b530b6adc..3f1b5a96e 100644 --- a/lapack-netlib/SRC/ztrevc.c +++ b/lapack-netlib/SRC/ztrevc.c @@ -731,7 +731,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select, +/* Subroutine */ void ztrevc_(char *side, char *howmny, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, integer *info) @@ -751,22 +751,23 @@ f"> */ extern logical lsame_(char *, char *); doublereal remax; logical leftv, bothv; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical somev; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); integer ii, ki; extern doublereal dlamch_(char *); integer is; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zdscal_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zdscal_( integer *, doublereal *, doublecomplex *, integer *); extern integer izamax_(integer *, doublecomplex *, integer *); logical rightv; extern doublereal dzasum_(integer *, doublecomplex *, integer *); doublereal smlnum; - extern /* Subroutine */ int zlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatrs_(char *, char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *); doublereal ulp; @@ -841,13 +842,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTREVC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Set the constants to control overflow. */ @@ -1101,7 +1102,7 @@ L130: } } - return 0; + return; /* End of ZTREVC */ diff --git a/lapack-netlib/SRC/ztrevc3.c b/lapack-netlib/SRC/ztrevc3.c index 8a1906f2b..8a4e723f8 100644 --- a/lapack-netlib/SRC/ztrevc3.c +++ b/lapack-netlib/SRC/ztrevc3.c @@ -762,7 +762,7 @@ static integer c__2 = 2; /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztrevc3_(char *side, char *howmny, logical *select, +/* Subroutine */ void ztrevc3_(char *side, char *howmny, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer *m, doublecomplex *work, integer *lwork, doublereal *rwork, integer * @@ -784,16 +784,16 @@ static integer c__2 = 2; doublereal scale; extern logical lsame_(char *, char *); doublereal remax; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical leftv, bothv; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical somev; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); integer nb, ii, ki; extern doublereal dlamch_(char *); @@ -801,18 +801,18 @@ static integer c__2 = 2; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); extern integer izamax_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); logical rightv; extern doublereal dzasum_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer maxwrk; doublereal smlnum; - extern /* Subroutine */ int zlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatrs_(char *, char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *); logical lquery; @@ -906,15 +906,15 @@ static integer c__2 = 2; if (*info != 0) { i__1 = -(*info); xerbla_("ZTREVC3", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible. */ if (*n == 0) { - return 0; + return; } /* Use blocked version of back-transformation if sufficient workspace. */ @@ -1272,7 +1272,7 @@ L130: } } - return 0; + return; /* End of ZTREVC3 */ diff --git a/lapack-netlib/SRC/ztrexc.c b/lapack-netlib/SRC/ztrexc.c index ed8fd1dd2..aac01362c 100644 --- a/lapack-netlib/SRC/ztrexc.c +++ b/lapack-netlib/SRC/ztrexc.c @@ -639,7 +639,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t, +/* Subroutine */ void ztrexc_(char *compq, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer * ilst, integer *info) { @@ -649,7 +649,7 @@ f"> */ /* Local variables */ doublecomplex temp; - extern /* Subroutine */ int zrot_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublecomplex *); integer k; extern logical lsame_(char *, char *); @@ -657,7 +657,8 @@ f"> */ integer m1, m2, m3; doublereal cs; doublecomplex t11, t22, sn; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlartg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlartg_( doublecomplex *, doublecomplex *, doublereal *, doublecomplex *, doublecomplex *); @@ -700,13 +701,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTREXC", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 1 || *ifst == *ilst) { - return 0; + return; } if (*ifst < *ilst) { @@ -770,7 +771,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of ZTREXC */ diff --git a/lapack-netlib/SRC/ztrrfs.c b/lapack-netlib/SRC/ztrrfs.c index 21a5a23d8..e7b8020de 100644 --- a/lapack-netlib/SRC/ztrrfs.c +++ b/lapack-netlib/SRC/ztrrfs.c @@ -694,7 +694,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ztrrfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer * @@ -714,7 +714,7 @@ f"> */ extern logical lsame_(char *, char *); integer isave[3]; logical upper; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrmv_( char *, char *, char *, integer *, doublecomplex *, integer *, @@ -787,7 +787,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRRFS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -799,7 +799,7 @@ f"> */ berr[j] = 0.; /* L10: */ } - return 0; + return; } if (notran) { @@ -1127,7 +1127,7 @@ L210: /* L250: */ } - return 0; + return; /* End of ZTRRFS */ diff --git a/lapack-netlib/SRC/ztrsen.c b/lapack-netlib/SRC/ztrsen.c index 0881026ae..117e56249 100644 --- a/lapack-netlib/SRC/ztrsen.c +++ b/lapack-netlib/SRC/ztrsen.c @@ -776,7 +776,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer +/* Subroutine */ void ztrsen_(char *job, char *compq, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, doublecomplex *w, integer *m, doublereal *s, doublereal *sep, doublecomplex *work, integer *lwork, integer *info) @@ -793,21 +793,21 @@ f"> */ doublereal rnorm; integer n1, n2; doublereal rwork[1]; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *); integer nn, ks; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); logical wantbh; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical wantsp; - extern /* Subroutine */ int ztrexc_(char *, integer *, doublecomplex *, + extern /* Subroutine */ void ztrexc_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, integer *); logical lquery; - extern /* Subroutine */ int ztrsyl_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ztrsyl_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *); doublereal est; @@ -890,9 +890,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRSEN", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ @@ -990,7 +990,7 @@ L40: work[1].r = (doublereal) lwmin, work[1].i = 0.; - return 0; + return; /* End of ZTRSEN */ diff --git a/lapack-netlib/SRC/ztrsna.c b/lapack-netlib/SRC/ztrsna.c index 92e6c3916..26b8bdc0c 100644 --- a/lapack-netlib/SRC/ztrsna.c +++ b/lapack-netlib/SRC/ztrsna.c @@ -760,7 +760,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select, +/* Subroutine */ void ztrsna_(char *job, char *howmny, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s, doublereal *sep, integer *mm, integer *m, doublecomplex *work, @@ -785,7 +785,7 @@ f"> */ doublecomplex dummy[1]; logical wants; doublereal xnorm; - extern /* Subroutine */ int zlacn2_(integer *, doublecomplex *, + extern /* Subroutine */ void zlacn2_(integer *, doublecomplex *, doublecomplex *, doublereal *, integer *, integer *), dlabad_( doublereal *, doublereal *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *), dlamch_( @@ -796,14 +796,14 @@ f"> */ logical wantbh; extern integer izamax_(integer *, doublecomplex *, integer *); logical somcon; - extern /* Subroutine */ int zdrscl_(integer *, doublereal *, + extern /* Subroutine */ void zdrscl_(integer *, doublereal *, doublecomplex *, integer *); char normin[1]; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); doublereal smlnum; logical wantsp; - extern /* Subroutine */ int zlatrs_(char *, char *, char *, char *, + extern /* Subroutine */ void zlatrs_(char *, char *, char *, char *, integer *, doublecomplex *, integer *, doublecomplex *, doublereal *, doublereal *, integer *), ztrexc_(char *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, integer *, integer *); @@ -883,19 +883,19 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRSNA", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (*n == 1) { if (somcon) { if (! select[1]) { - return 0; + return; } } if (wants) { @@ -904,7 +904,7 @@ f"> */ if (wantsp) { sep[1] = z_abs(&t[t_dim1 + 1]); } - return 0; + return; } /* Get machine constants */ @@ -1021,7 +1021,7 @@ L40: L50: ; } - return 0; + return; /* End of ZTRSNA */ diff --git a/lapack-netlib/SRC/ztrsyl.c b/lapack-netlib/SRC/ztrsyl.c index eff366e3b..af8f9e761 100644 --- a/lapack-netlib/SRC/ztrsyl.c +++ b/lapack-netlib/SRC/ztrsyl.c @@ -669,7 +669,7 @@ f"> */ /* > \ingroup complex16SYcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer +/* Subroutine */ void ztrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, integer *info) @@ -691,7 +691,7 @@ f"> */ doublecomplex *, integer *); doublecomplex a11; doublereal db; - extern /* Subroutine */ int dlabad_(doublereal *, doublereal *); + extern /* Subroutine */ void dlabad_(doublereal *, doublereal *); extern doublereal dlamch_(char *); doublecomplex x11; doublereal scaloc; @@ -699,7 +699,7 @@ f"> */ extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *); extern /* Double Complex */ VOID zladiv_(doublecomplex *, doublecomplex *, doublecomplex *); @@ -756,14 +756,14 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRSYL", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ *scale = 1.; if (*m == 0 || *n == 0) { - return 0; + return; } /* Set constants to control overflow */ @@ -1103,7 +1103,7 @@ f"> */ } - return 0; + return; /* End of ZTRSYL */ diff --git a/lapack-netlib/SRC/ztrsyl3.c b/lapack-netlib/SRC/ztrsyl3.c index 314b0f98d..09719e1d9 100644 --- a/lapack-netlib/SRC/ztrsyl3.c +++ b/lapack-netlib/SRC/ztrsyl3.c @@ -678,7 +678,7 @@ static doublereal c_b106 = 1.; /* Angelika Schwarz, Umea University, Sweden. */ /* ===================================================================== */ -/* Subroutine */ int ztrsyl3_(char *trana, char *tranb, integer *isgn, +/* Subroutine */ void ztrsyl3_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, doublereal *swork, integer *ldswork, integer *info) @@ -698,7 +698,7 @@ static doublereal c_b106 = 1.; integer i__, j, k, l; extern logical lsame_(char *, char *); integer iinfo; - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); @@ -708,20 +708,20 @@ static doublereal c_b106 = 1.; extern doublereal dlamch_(char *); doublereal scaloc, scamin; extern doublereal dlarmm_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen ); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; - extern /* Subroutine */ int zdscal_(integer *, doublereal *, + extern /* Subroutine */ void zdscal_(integer *, doublereal *, doublecomplex *, integer *), zlascl_(char *, integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublecomplex * , integer *, integer *); logical notrna, notrnb; doublereal smlnum; logical lquery; - extern /* Subroutine */ int ztrsyl_(char *, char *, integer *, integer *, + extern /* Subroutine */ void ztrsyl_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, integer *); integer nba, nbb; @@ -796,17 +796,17 @@ static doublereal c_b106 = 1.; } if (*info != 0) { i__1 = -(*info); - xerbla_("ZTRSYL3", &i__1); - return 0; + xerbla_("ZTRSYL3", &i__1, 7); + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ *scale = 1.; if (*m == 0 || *n == 0) { - return 0; + return; } wnrm = (doublereal*)malloc(f2cmax(*m,*n)*sizeof(doublereal)); @@ -816,7 +816,7 @@ static doublereal c_b106 = 1.; if (f2cmin(nba,nbb) == 1 || *ldswork < f2cmax(nba,nbb)) { ztrsyl_(trana, tranb, isgn, m, n, &a[a_offset], lda, &b[b_offset], ldb, &c__[c_offset], ldc, scale, info); - return 0; + return; } /* Set constants to control overflow */ @@ -1932,7 +1932,7 @@ static doublereal c_b106 = 1.; swork[swork_dim1 + 1] = (doublereal) f2cmax(nba,nbb); swork[swork_dim1 + 2] = (doublereal) ((nbb << 1) + nba); - return 0; + return; } /* Realize consistent scaling */ @@ -2019,7 +2019,7 @@ static doublereal c_b106 = 1.; swork[swork_dim1 + 1] = (doublereal) f2cmax(nba,nbb); swork[swork_dim1 + 2] = (doublereal) ((nbb << 1) + nba); - return 0; + return; /* End of ZTRSYL3 */ diff --git a/lapack-netlib/SRC/ztrti2.c b/lapack-netlib/SRC/ztrti2.c index a710e1d7b..dbd3db68e 100644 --- a/lapack-netlib/SRC/ztrti2.c +++ b/lapack-netlib/SRC/ztrti2.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n, +/* Subroutine */ void ztrti2_(char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -634,11 +634,12 @@ f"> */ /* Local variables */ integer j; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); logical upper; - extern /* Subroutine */ int ztrmv_(char *, char *, char *, integer *, - doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen); + extern /* Subroutine */ void ztrmv_(char *, char *, char *, integer *, + doublecomplex *, integer *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; doublecomplex ajj; @@ -675,7 +676,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRTI2", &i__1, (ftnlen)6); - return 0; + return; } if (upper) { @@ -735,7 +736,7 @@ f"> */ } } - return 0; + return; /* End of ZTRTI2 */ diff --git a/lapack-netlib/SRC/ztrtri.c b/lapack-netlib/SRC/ztrtri.c index 2c9310634..be2f6acbb 100644 --- a/lapack-netlib/SRC/ztrtri.c +++ b/lapack-netlib/SRC/ztrtri.c @@ -625,7 +625,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n, +/* Subroutine */ void ztrtri_(char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, integer *info) { /* System generated locals */ @@ -638,16 +638,16 @@ f"> */ integer j; extern logical lsame_(char *, char *); logical upper; - extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrmm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer jb, nb, nn; - extern /* Subroutine */ int ztrti2_(char *, char *, integer *, - doublecomplex *, integer *, integer *), xerbla_( - char *, integer *, ftnlen); + extern /* Subroutine */ void ztrti2_(char *, char *, integer *, + doublecomplex *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); logical nounit; @@ -685,13 +685,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRTRI", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity if non-unit. */ @@ -701,7 +701,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (a[i__2].r == 0. && a[i__2].i == 0.) { - return 0; + return; } /* L10: */ } @@ -785,7 +785,7 @@ f"> */ } } - return 0; + return; /* End of ZTRTRI */ diff --git a/lapack-netlib/SRC/ztrtrs.c b/lapack-netlib/SRC/ztrtrs.c index 19058a3ea..6d1f71a04 100644 --- a/lapack-netlib/SRC/ztrtrs.c +++ b/lapack-netlib/SRC/ztrtrs.c @@ -652,7 +652,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n, +/* Subroutine */ void ztrtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info) { @@ -661,10 +661,10 @@ f"> */ /* Local variables */ extern logical lsame_(char *, char *); - extern /* Subroutine */ int ztrsm_(char *, char *, char *, char *, + extern /* Subroutine */ void ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, - doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen); + doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); logical nounit; @@ -709,13 +709,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRTRS", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } /* Check for singularity. */ @@ -725,7 +725,7 @@ f"> */ for (*info = 1; *info <= i__1; ++(*info)) { i__2 = *info + *info * a_dim1; if (a[i__2].r == 0. && a[i__2].i == 0.) { - return 0; + return; } /* L10: */ } @@ -737,7 +737,7 @@ f"> */ ztrsm_("Left", uplo, trans, diag, n, nrhs, &c_b2, &a[a_offset], lda, &b[ b_offset], ldb); - return 0; + return; /* End of ZTRTRS */ diff --git a/lapack-netlib/SRC/ztrttf.c b/lapack-netlib/SRC/ztrttf.c index 453fe099d..692e5e845 100644 --- a/lapack-netlib/SRC/ztrttf.c +++ b/lapack-netlib/SRC/ztrttf.c @@ -726,7 +726,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztrttf_(char *transr, char *uplo, integer *n, +/* Subroutine */ void ztrttf_(char *transr, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *arf, integer *info) { /* System generated locals */ @@ -776,7 +776,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRTTF", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ @@ -790,7 +790,7 @@ f"> */ arf[0].r = z__1.r, arf[0].i = z__1.i; } } - return 0; + return; } /* Size of array ARF(1:2,0:nt-1) */ @@ -1122,7 +1122,7 @@ f"> */ } - return 0; + return; /* End of ZTRTTF */ diff --git a/lapack-netlib/SRC/ztrttp.c b/lapack-netlib/SRC/ztrttp.c index 8416e609e..95624b1db 100644 --- a/lapack-netlib/SRC/ztrttp.c +++ b/lapack-netlib/SRC/ztrttp.c @@ -614,7 +614,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int ztrttp_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void ztrttp_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *ap, integer *info) { /* System generated locals */ @@ -657,7 +657,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTRTTP", &i__1, (ftnlen)6); - return 0; + return; } if (lower) { @@ -687,7 +687,7 @@ f"> */ } - return 0; + return; /* End of ZTRTTP */ diff --git a/lapack-netlib/SRC/ztzrzf.c b/lapack-netlib/SRC/ztzrzf.c index 453c18ea1..6d03d2d54 100644 --- a/lapack-netlib/SRC/ztzrzf.c +++ b/lapack-netlib/SRC/ztzrzf.c @@ -667,7 +667,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a, +/* Subroutine */ void ztzrzf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info) { @@ -680,13 +680,13 @@ f"> */ extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer lwkmin, ldwork; - extern /* Subroutine */ int zlarzb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarzb_(char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int zlarzt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarzt_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), zlatrz_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *); @@ -745,15 +745,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZTZRZF", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0) { - return 0; + return; } else if (*m == *n) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { @@ -761,7 +761,7 @@ f"> */ tau[i__2].r = 0., tau[i__2].i = 0.; /* L10: */ } - return 0; + return; } nbmin = 2; @@ -859,7 +859,7 @@ f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZTZRZF */ diff --git a/lapack-netlib/SRC/zunbdb.c b/lapack-netlib/SRC/zunbdb.c index 3ccb43733..5d9d3541a 100644 --- a/lapack-netlib/SRC/zunbdb.c +++ b/lapack-netlib/SRC/zunbdb.c @@ -798,7 +798,7 @@ f"> */ /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zunbdb_(char *trans, char *signs, integer *m, integer *p, +/* Subroutine */ void zunbdb_(char *trans, char *signs, integer *m, integer *p, integer *q, doublecomplex *x11, integer *ldx11, doublecomplex *x12, integer *ldx12, doublecomplex *x21, integer *ldx21, doublecomplex * x22, integer *ldx22, doublereal *theta, doublereal *phi, @@ -816,18 +816,19 @@ f"> */ logical colmajor; integer lworkmin, lworkopt, i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); doublereal z1, z2, z3, z4; - extern /* Subroutine */ int zaxpy_(integer *, doublecomplex *, + extern /* Subroutine */ void zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); logical lquery; - extern /* Subroutine */ int zlarfgp_(integer *, doublecomplex *, + extern /* Subroutine */ void zlarfgp_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -933,9 +934,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("xORBDB", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Handle column-major and row-major separately */ @@ -1427,7 +1428,7 @@ f"> */ } - return 0; + return; /* End of ZUNBDB */ diff --git a/lapack-netlib/SRC/zunbdb1.c b/lapack-netlib/SRC/zunbdb1.c index 73378a73a..1759c2602 100644 --- a/lapack-netlib/SRC/zunbdb1.c +++ b/lapack-netlib/SRC/zunbdb1.c @@ -715,7 +715,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zunbdb1_(integer *m, integer *p, integer *q, +/* Subroutine */ void zunbdb1_(integer *m, integer *p, integer *q, doublecomplex *x11, integer *ldx11, doublecomplex *x21, integer * ldx21, doublereal *theta, doublereal *phi, doublecomplex *taup1, doublecomplex *taup2, doublecomplex *tauq1, doublecomplex *work, @@ -733,17 +733,18 @@ static integer c__1 = 1; integer i__; doublereal s; integer ilarf, llarf, childinfo; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zdrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); logical lquery; integer iorbdb5, lorbdb5; - extern /* Subroutine */ int zunbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void zunbdb5_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zlarfgp_(integer *, @@ -817,9 +818,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZUNBDB1", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce columns 1, ..., Q of X11 and X21 */ @@ -899,7 +900,7 @@ static integer c__1 = 1; } - return 0; + return; /* End of ZUNBDB1 */ diff --git a/lapack-netlib/SRC/zunbdb2.c b/lapack-netlib/SRC/zunbdb2.c index 0277fe21b..0b0f9e6cd 100644 --- a/lapack-netlib/SRC/zunbdb2.c +++ b/lapack-netlib/SRC/zunbdb2.c @@ -714,7 +714,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zunbdb2_(integer *m, integer *p, integer *q, +/* Subroutine */ void zunbdb2_(integer *m, integer *p, integer *q, doublecomplex *x11, integer *ldx11, doublecomplex *x21, integer * ldx21, doublereal *theta, doublereal *phi, doublecomplex *taup1, doublecomplex *taup2, doublecomplex *tauq1, doublecomplex *work, @@ -732,20 +732,21 @@ static integer c__1 = 1; integer i__; doublereal s; integer ilarf, llarf; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer childinfo; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zdrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); logical lquery; integer iorbdb5, lorbdb5; - extern /* Subroutine */ int zunbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void zunbdb5_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zlarfgp_(integer *, @@ -818,9 +819,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZUNBDB2", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce rows 1, ..., P of X11 and X21 */ @@ -916,7 +917,7 @@ static integer c__1 = 1; x21[i__ + (i__ + 1) * x21_dim1], ldx21, &work[ilarf]); } - return 0; + return; /* End of ZUNBDB2 */ diff --git a/lapack-netlib/SRC/zunbdb3.c b/lapack-netlib/SRC/zunbdb3.c index 2dab207a5..4c6354a74 100644 --- a/lapack-netlib/SRC/zunbdb3.c +++ b/lapack-netlib/SRC/zunbdb3.c @@ -713,7 +713,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zunbdb3_(integer *m, integer *p, integer *q, +/* Subroutine */ void zunbdb3_(integer *m, integer *p, integer *q, doublecomplex *x11, integer *ldx11, doublecomplex *x21, integer * ldx21, doublereal *theta, doublereal *phi, doublecomplex *taup1, doublecomplex *taup2, doublecomplex *tauq1, doublecomplex *work, @@ -731,17 +731,18 @@ static integer c__1 = 1; integer i__; doublereal s; integer ilarf, llarf, childinfo; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zdrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); logical lquery; integer iorbdb5, lorbdb5; - extern /* Subroutine */ int zunbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void zunbdb5_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zlarfgp_(integer *, @@ -814,9 +815,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZUNBDB3", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce rows 1, ..., M-P of X11 and X21 */ @@ -911,7 +912,7 @@ static integer c__1 = 1; x11[i__ + (i__ + 1) * x11_dim1], ldx11, &work[ilarf]); } - return 0; + return; /* End of ZUNBDB3 */ diff --git a/lapack-netlib/SRC/zunbdb4.c b/lapack-netlib/SRC/zunbdb4.c index cdb8d7c0c..db8bb894e 100644 --- a/lapack-netlib/SRC/zunbdb4.c +++ b/lapack-netlib/SRC/zunbdb4.c @@ -725,7 +725,7 @@ static integer c__1 = 1; /* > Algorithms, 50(1):33-65, 2009. */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zunbdb4_(integer *m, integer *p, integer *q, +/* Subroutine */ void zunbdb4_(integer *m, integer *p, integer *q, doublecomplex *x11, integer *ldx11, doublecomplex *x21, integer * ldx21, doublereal *theta, doublereal *phi, doublecomplex *taup1, doublecomplex *taup2, doublecomplex *tauq1, doublecomplex *phantom, @@ -743,20 +743,21 @@ static integer c__1 = 1; integer i__, j; doublereal s; integer ilarf, llarf; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *); integer childinfo; - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zdrot_(integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *); extern doublereal dznrm2_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); logical lquery; integer iorbdb5, lorbdb5; - extern /* Subroutine */ int zunbdb5_(integer *, integer *, integer *, + extern /* Subroutine */ void zunbdb5_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zlarfgp_(integer *, @@ -832,9 +833,9 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZUNBDB4", &i__1, (ftnlen)7); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Reduce columns 1, ..., M-Q of X11 and X21 */ @@ -986,7 +987,7 @@ static integer c__1 = 1; zlacgv_(&i__2, &x21[*m - *q + i__ - *p + i__ * x21_dim1], ldx21); } - return 0; + return; /* End of ZUNBDB4 */ diff --git a/lapack-netlib/SRC/zunbdb5.c b/lapack-netlib/SRC/zunbdb5.c index f0fd4fbdf..c92452ad2 100644 --- a/lapack-netlib/SRC/zunbdb5.c +++ b/lapack-netlib/SRC/zunbdb5.c @@ -664,7 +664,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunbdb5_(integer *m1, integer *m2, integer *n, +/* Subroutine */ void zunbdb5_(integer *m1, integer *m2, integer *n, doublecomplex *x1, integer *incx1, doublecomplex *x2, integer *incx2, doublecomplex *q1, integer *ldq1, doublecomplex *q2, integer *ldq2, doublecomplex *work, integer *lwork, integer *info) @@ -676,7 +676,8 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ /* Local variables */ integer i__, j, childinfo; extern doublereal dznrm2_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zunbdb6_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zunbdb6_( integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *) @@ -728,7 +729,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNBDB5", &i__1, (ftnlen)7); - return 0; + return; } /* Project X onto the orthogonal complement of Q */ @@ -741,7 +742,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ d__1 = dznrm2_(m1, &x1[1], incx1); d__2 = dznrm2_(m2, &x2[1], incx2); if (d__1 != 0. || d__2 != 0.) { - return 0; + return; } /* Project each standard basis vector e_1,...,e_M1 in turn, stopping */ @@ -766,7 +767,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ d__1 = dznrm2_(m1, &x1[1], incx1); d__2 = dznrm2_(m2, &x2[1], incx2); if (d__1 != 0. || d__2 != 0.) { - return 0; + return; } } @@ -792,11 +793,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ d__1 = dznrm2_(m1, &x1[1], incx1); d__2 = dznrm2_(m2, &x2[1], incx2); if (d__1 != 0. || d__2 != 0.) { - return 0; + return; } } - return 0; + return; /* End of ZUNBDB5 */ diff --git a/lapack-netlib/SRC/zunbdb6.c b/lapack-netlib/SRC/zunbdb6.c index a41ccd341..e68eb562b 100644 --- a/lapack-netlib/SRC/zunbdb6.c +++ b/lapack-netlib/SRC/zunbdb6.c @@ -669,7 +669,7 @@ static integer c__1 = 1; /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunbdb6_(integer *m1, integer *m2, integer *n, +/* Subroutine */ void zunbdb6_(integer *m1, integer *m2, integer *n, doublecomplex *x1, integer *incx1, doublecomplex *x2, integer *incx2, doublecomplex *q1, integer *ldq1, doublecomplex *q2, integer *ldq2, doublecomplex *work, integer *lwork, integer *info) @@ -680,10 +680,11 @@ static integer c__1 = 1; /* Local variables */ integer i__; - extern /* Subroutine */ int zgemv_(char *, integer *, integer *, + extern /* Subroutine */ void zgemv_(char *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, - integer *, doublecomplex *, doublecomplex *, integer *), - xerbla_(char *, integer *, ftnlen), zlassq_(integer *, + integer *, doublecomplex *, doublecomplex *, integer *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlassq_(integer *, doublecomplex *, integer *, doublereal *, doublereal *); doublereal normsq1, normsq2, scl1, scl2, ssq1, ssq2; @@ -733,7 +734,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); xerbla_("ZUNBDB6", &i__1, (ftnlen)7); - return 0; + return; } /* First, project X onto the orthogonal complement of Q's column */ @@ -787,11 +788,11 @@ static integer c__1 = 1; /* Otherwise, project again. */ if (normsq2 >= normsq1 * .01) { - return 0; + return; } if (normsq2 == 0.) { - return 0; + return; } normsq1 = normsq2; @@ -850,7 +851,7 @@ static integer c__1 = 1; } } - return 0; + return; /* End of ZUNBDB6 */ diff --git a/lapack-netlib/SRC/zuncsd.c b/lapack-netlib/SRC/zuncsd.c index b487a0f8b..2e8cef799 100644 --- a/lapack-netlib/SRC/zuncsd.c +++ b/lapack-netlib/SRC/zuncsd.c @@ -829,7 +829,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zuncsd_(char *jobu1, char *jobu2, char *jobv1t, char * +/* Subroutine */ void zuncsd_(char *jobu1, char *jobu2, char *jobv1t, char * jobv2t, char *trans, char *signs, integer *m, integer *p, integer *q, doublecomplex *x11, integer *ldx11, doublecomplex *x12, integer * ldx12, doublecomplex *x21, integer *ldx21, doublecomplex *x22, @@ -856,7 +856,7 @@ f"> */ lorbdbworkmin, lrworkmin, lbbcsdworkopt; logical wantu1, wantu2; integer lrworkopt, ibbcsd, lorbdbworkopt, iorbdb, lorglqworkmin; - extern /* Subroutine */ int zbbcsd_(char *, char *, char *, char *, char * + extern /* Subroutine */ void zbbcsd_(char *, char *, char *, char *, char * , integer *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, @@ -866,29 +866,29 @@ f"> */ integer lorgqrworkmin; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer lorglqworkopt; - extern /* Subroutine */ int zunbdb_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunbdb_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, integer *); integer lorgqrworkopt, iorglq; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer iorgqr; - extern /* Subroutine */ int zlapmr_(logical *, integer *, integer *, + extern /* Subroutine */ void zlapmr_(logical *, integer *, integer *, doublecomplex *, integer *, integer *); char signst[1]; - extern /* Subroutine */ int zlapmt_(logical *, integer *, integer *, + extern /* Subroutine */ void zlapmt_(logical *, integer *, integer *, doublecomplex *, integer *, integer *); char transt[1]; integer lbbcsdwork; logical lquery; - extern /* Subroutine */ int zunglq_(integer *, integer *, integer *, + extern /* Subroutine */ void zunglq_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer lorbdbwork; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); integer lorglqwork, lorgqrwork; @@ -1017,7 +1017,7 @@ f"> */ ldv1t, &v2t[v2t_offset], ldv2t, &u1[u1_offset], ldu1, &u2[ u2_offset], ldu2, &work[1], lwork, &rwork[1], lrwork, &iwork[ 1], info); - return 0; + return; } /* Work with permutation [ 0 I; I 0 ] * X * [ 0 I; I 0 ] if */ @@ -1037,7 +1037,7 @@ f"> */ u2_offset], ldu2, &u1[u1_offset], ldu1, &v2t[v2t_offset], ldv2t, &v1t[v1t_offset], ldv1t, &work[1], lwork, &rwork[1], lrwork, &iwork[1], info); - return 0; + return; } /* Compute workspace */ @@ -1153,9 +1153,9 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNCSD", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery || lrquery) { - return 0; + return; } /* Transform to bidiagonal block form */ @@ -1334,7 +1334,7 @@ f"> */ } } - return 0; + return; /* End ZUNCSD */ diff --git a/lapack-netlib/SRC/zuncsd2by1.c b/lapack-netlib/SRC/zuncsd2by1.c index 82e996435..23b894d9a 100644 --- a/lapack-netlib/SRC/zuncsd2by1.c +++ b/lapack-netlib/SRC/zuncsd2by1.c @@ -766,7 +766,7 @@ by1.f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zuncsd2by1_(char *jobu1, char *jobu2, char *jobv1t, +/* Subroutine */ void zuncsd2by1_(char *jobu1, char *jobu2, char *jobv1t, integer *m, integer *p, integer *q, doublecomplex *x11, integer * ldx11, doublecomplex *x21, integer *ldx21, doublereal *theta, doublecomplex *u1, integer *ldu1, doublecomplex *u2, integer *ldu2, @@ -784,30 +784,31 @@ by1.f"> */ integer iphi, lworkmin, lworkopt, i__, j, r__; extern logical lsame_(char *, char *); integer childinfo; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lorglqmin, lorgqrmin, lorglqopt, lrworkmin, itaup1, itaup2, itauq1, lorgqropt; logical wantu1, wantu2; integer lrworkopt, ibbcsd, lbbcsd, iorbdb, lorbdb; - extern /* Subroutine */ int zbbcsd_(char *, char *, char *, char *, char * + extern /* Subroutine */ void zbbcsd_(char *, char *, char *, char *, char * , integer *, integer *, integer *, doublereal *, doublereal *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *, integer *, integer *), xerbla_(char *, integer *, ftnlen); + doublereal *, integer *, integer *); + extern int xerbla_(char *, integer *, ftnlen); integer iorglq, lorglq; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer iorgqr; - extern /* Subroutine */ int zlapmr_(logical *, integer *, integer *, + extern /* Subroutine */ void zlapmr_(logical *, integer *, integer *, doublecomplex *, integer *, integer *); integer lorgqr; - extern /* Subroutine */ int zlapmt_(logical *, integer *, integer *, + extern /* Subroutine */ void zlapmt_(logical *, integer *, integer *, doublecomplex *, integer *, integer *); logical lquery; - extern /* Subroutine */ int zunglq_(integer *, integer *, integer *, + extern /* Subroutine */ void zunglq_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -1155,9 +1156,9 @@ by1.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNCSD2BY1", &i__1, (ftnlen)10); - return 0; + return; } else if (lquery) { - return 0; + return; } lorgqr = *lwork - iorgqr + 1; lorglq = *lwork - iorglq + 1; @@ -1481,7 +1482,7 @@ by1.f"> */ } } - return 0; + return; /* End of ZUNCSD2BY1 */ diff --git a/lapack-netlib/SRC/zung2l.c b/lapack-netlib/SRC/zung2l.c index a0ecf4be4..fccecb341 100644 --- a/lapack-netlib/SRC/zung2l.c +++ b/lapack-netlib/SRC/zung2l.c @@ -628,7 +628,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zung2l_(integer *m, integer *n, integer *k, +/* Subroutine */ void zung2l_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *info) { @@ -638,7 +638,7 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); @@ -678,13 +678,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNG2L", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Initialise columns 1:n-k to columns of the unit matrix */ @@ -733,7 +733,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of ZUNG2L */ diff --git a/lapack-netlib/SRC/zung2r.c b/lapack-netlib/SRC/zung2r.c index ea2914908..75d48a91a 100644 --- a/lapack-netlib/SRC/zung2r.c +++ b/lapack-netlib/SRC/zung2r.c @@ -627,7 +627,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zung2r_(integer *m, integer *n, integer *k, +/* Subroutine */ void zung2r_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *info) { @@ -637,10 +637,11 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen); + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -675,13 +676,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNG2R", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } /* Initialise columns k+1:n to columns of the unit matrix */ @@ -732,7 +733,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of ZUNG2R */ diff --git a/lapack-netlib/SRC/zungbr.c b/lapack-netlib/SRC/zungbr.c index 61b335d63..7033dc2bf 100644 --- a/lapack-netlib/SRC/zungbr.c +++ b/lapack-netlib/SRC/zungbr.c @@ -670,7 +670,7 @@ f"> */ /* > \ingroup complex16GBcomputational */ /* ===================================================================== */ -/* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k, +/* Subroutine */ void zungbr_(char *vect, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *lwork, integer *info) { @@ -686,7 +686,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int zunglq_(integer *, integer *, integer *, + extern /* Subroutine */ void zunglq_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -767,17 +767,17 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGBR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } if (wantq) { @@ -884,7 +884,7 @@ f"> */ } } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNGBR */ diff --git a/lapack-netlib/SRC/zunghr.c b/lapack-netlib/SRC/zunghr.c index 817acaa71..b0b60567d 100644 --- a/lapack-netlib/SRC/zunghr.c +++ b/lapack-netlib/SRC/zunghr.c @@ -640,7 +640,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi, +/* Subroutine */ void zunghr_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *lwork, integer *info) { @@ -654,7 +654,7 @@ f"> */ integer *, integer *, ftnlen, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int zungqr_(integer *, integer *, integer *, + extern /* Subroutine */ void zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *); @@ -703,16 +703,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGHR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Shift the vectors which define the elementary reflectors one */ @@ -775,7 +775,7 @@ f"> */ ilo], &work[1], lwork, &iinfo); } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNGHR */ diff --git a/lapack-netlib/SRC/zungl2.c b/lapack-netlib/SRC/zungl2.c index d870af12c..ea0fe66fc 100644 --- a/lapack-netlib/SRC/zungl2.c +++ b/lapack-netlib/SRC/zungl2.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zungl2_(integer *m, integer *n, integer *k, +/* Subroutine */ void zungl2_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *info) { @@ -633,10 +633,12 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *, doublecomplex *), xerbla_(char *, integer *, ftnlen), zlacgv_(integer *, doublecomplex *, integer *); + integer *, doublecomplex *); + extern int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_(integer *, doublecomplex *, integer *); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -671,13 +673,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGL2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } if (*k < *m) { @@ -738,7 +740,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of ZUNGL2 */ diff --git a/lapack-netlib/SRC/zunglq.c b/lapack-netlib/SRC/zunglq.c index 67e5f4649..2075177a7 100644 --- a/lapack-netlib/SRC/zunglq.c +++ b/lapack-netlib/SRC/zunglq.c @@ -643,7 +643,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunglq_(integer *m, integer *n, integer *k, +/* Subroutine */ void zunglq_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *lwork, integer *info) { @@ -652,19 +652,19 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo, ib, nb; - extern /* Subroutine */ int zungl2_(integer *, integer *, integer *, + extern /* Subroutine */ void zungl2_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer ki, kk, nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical lquery; @@ -709,16 +709,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } nbmin = 2; @@ -839,7 +839,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZUNGLQ */ diff --git a/lapack-netlib/SRC/zungql.c b/lapack-netlib/SRC/zungql.c index 39d990d4e..0d5fa891f 100644 --- a/lapack-netlib/SRC/zungql.c +++ b/lapack-netlib/SRC/zungql.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zungql_(integer *m, integer *n, integer *k, +/* Subroutine */ void zungql_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *lwork, integer *info) { @@ -653,19 +653,19 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo, ib, nb; - extern /* Subroutine */ int zung2l_(integer *, integer *, integer *, + extern /* Subroutine */ void zung2l_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer kk, nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); logical lquery; @@ -721,15 +721,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGQL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { - return 0; + return; } nbmin = 2; @@ -849,7 +849,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZUNGQL */ diff --git a/lapack-netlib/SRC/zungqr.c b/lapack-netlib/SRC/zungqr.c index 35f8d06c5..74c6b3cf6 100644 --- a/lapack-netlib/SRC/zungqr.c +++ b/lapack-netlib/SRC/zungqr.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zungqr_(integer *m, integer *n, integer *k, +/* Subroutine */ void zungqr_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *lwork, integer *info) { @@ -653,19 +653,19 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo, ib, nb, ki, kk; - extern /* Subroutine */ int zung2r_(integer *, integer *, integer *, + extern /* Subroutine */ void zung2r_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; @@ -711,16 +711,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n <= 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } nbmin = 2; @@ -841,7 +841,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZUNGQR */ diff --git a/lapack-netlib/SRC/zungr2.c b/lapack-netlib/SRC/zungr2.c index 980b67446..e527607f9 100644 --- a/lapack-netlib/SRC/zungr2.c +++ b/lapack-netlib/SRC/zungr2.c @@ -624,7 +624,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zungr2_(integer *m, integer *n, integer *k, +/* Subroutine */ void zungr2_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *info) { @@ -634,12 +634,13 @@ f"> */ /* Local variables */ integer i__, j, l; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer ii; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); @@ -675,13 +676,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGR2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } if (*k < *m) { @@ -740,7 +741,7 @@ f"> */ } /* L40: */ } - return 0; + return; /* End of ZUNGR2 */ diff --git a/lapack-netlib/SRC/zungrq.c b/lapack-netlib/SRC/zungrq.c index 66d296605..03f8b67a9 100644 --- a/lapack-netlib/SRC/zungrq.c +++ b/lapack-netlib/SRC/zungrq.c @@ -644,7 +644,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zungrq_(integer *m, integer *n, integer *k, +/* Subroutine */ void zungrq_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * work, integer *lwork, integer *info) { @@ -653,19 +653,19 @@ f"> */ /* Local variables */ integer i__, j, l, nbmin, iinfo, ib, nb, ii, kk; - extern /* Subroutine */ int zungr2_(integer *, integer *, integer *, + extern /* Subroutine */ void zungr2_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer nx; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; @@ -722,15 +722,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGRQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m <= 0) { - return 0; + return; } nbmin = 2; @@ -850,7 +850,7 @@ f"> */ } work[1].r = (doublereal) iws, work[1].i = 0.; - return 0; + return; /* End of ZUNGRQ */ diff --git a/lapack-netlib/SRC/zungtr.c b/lapack-netlib/SRC/zungtr.c index b9ba88865..d42c84c75 100644 --- a/lapack-netlib/SRC/zungtr.c +++ b/lapack-netlib/SRC/zungtr.c @@ -637,7 +637,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a, +/* Subroutine */ void zungtr_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info) { @@ -655,7 +655,7 @@ f"> */ integer *, integer *, ftnlen, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int zungql_(integer *, integer *, integer *, + extern /* Subroutine */ void zungql_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, integer *), zungqr_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, @@ -721,16 +721,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGTR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } if (upper) { @@ -811,7 +811,7 @@ f"> */ } } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNGTR */ diff --git a/lapack-netlib/SRC/zungtsqr.c b/lapack-netlib/SRC/zungtsqr.c index 5e8c70b37..5b49a37ce 100644 --- a/lapack-netlib/SRC/zungtsqr.c +++ b/lapack-netlib/SRC/zungtsqr.c @@ -688,7 +688,7 @@ r.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zungtsqr_(integer *m, integer *n, integer *mb, integer * +/* Subroutine */ void zungtsqr_(integer *m, integer *n, integer *mb, integer * nb, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, doublecomplex *work, integer *lwork, integer *info) { @@ -697,15 +697,16 @@ r.f"> */ doublecomplex z__1; /* Local variables */ - extern /* Subroutine */ int zlamtsqr_(char *, char *, integer *, integer * + extern /* Subroutine */ void zlamtsqr_(char *, char *, integer *, integer * , integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer lworkopt, j, iinfo; - extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, + extern /* Subroutine */ void zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lc, lw; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlaset_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlaset_( char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); logical lquery; @@ -787,11 +788,11 @@ r.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGTSQR", &i__1, (ftnlen)8); - return 0; + return; } else if (lquery) { z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* Quick return if possible */ @@ -799,7 +800,7 @@ r.f"> */ if (f2cmin(*m,*n) == 0) { z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* (1) Form explicitly the tall-skinny M-by-N left submatrix Q1_in */ @@ -834,7 +835,7 @@ r.f"> */ z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZUNGTSQR */ diff --git a/lapack-netlib/SRC/zungtsqr_row.c b/lapack-netlib/SRC/zungtsqr_row.c index dbbcdc933..d23eac0cc 100644 --- a/lapack-netlib/SRC/zungtsqr_row.c +++ b/lapack-netlib/SRC/zungtsqr_row.c @@ -701,7 +701,7 @@ qr_row.f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zungtsqr_row_(integer *m, integer *n, integer *mb, +/* Subroutine */ void zungtsqr_row_(integer *m, integer *n, integer *mb, integer *nb, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, doublecomplex *work, integer *lwork, integer *info) { @@ -715,12 +715,12 @@ qr_row.f"> */ integer ib_bottom__, ib, kb; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); integer mb1, mb2; - extern /* Subroutine */ int zlaset_(char *, integer *, integer *, + extern /* Subroutine */ void zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); integer m_plus_one__; logical lquery; integer num_all_row_blocks__, imb, knb, nblocal, kb_last__; - extern /* Subroutine */ int zlarfb_gett_(char *, integer *, integer *, + extern /* Subroutine */ void zlarfb_gett_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); @@ -782,11 +782,11 @@ qr_row.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNGTSQR_ROW", &i__1, (ftnlen)12); - return 0; + return; } else if (lquery) { z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* Quick return if possible */ @@ -794,7 +794,7 @@ qr_row.f"> */ if (f2cmin(*m,*n) == 0) { z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; } /* (0) Set the upper-triangular part of the matrix A to zero and */ @@ -917,7 +917,7 @@ qr_row.f"> */ z__1.r = (doublereal) lworkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZUNGTSQR_ROW */ diff --git a/lapack-netlib/SRC/zunhr_col.c b/lapack-netlib/SRC/zunhr_col.c index fc0cdb3f6..935a0c769 100644 --- a/lapack-netlib/SRC/zunhr_col.c +++ b/lapack-netlib/SRC/zunhr_col.c @@ -772,7 +772,7 @@ ol.f"> */ /* > \endverbatim */ /* ===================================================================== */ -/* Subroutine */ int zunhr_col_(integer *m, integer *n, integer *nb, +/* Subroutine */ void zunhr_col_(integer *m, integer *n, integer *nb, doublecomplex *a, integer *lda, doublecomplex *t, integer *ldt, doublecomplex *d__, integer *info) { @@ -781,10 +781,10 @@ ol.f"> */ doublecomplex z__1; /* Local variables */ - extern /* Subroutine */ int zlaunhr_col_getrfnp_(integer *, integer *, + extern /* Subroutine */ void zlaunhr_col_getrfnp_(integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer nplusone, i__, j, iinfo; - extern /* Subroutine */ int zscal_(integer *, doublecomplex *, + extern /* Subroutine */ void zscal_(integer *, doublecomplex *, doublecomplex *, integer *), zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), ztrsm_(char *, char *, char *, char *, integer *, integer *, doublecomplex *, @@ -837,13 +837,13 @@ ol.f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNHR_COL", &i__1, (ftnlen)9); - return 0; + return; } /* Quick return if possible */ if (f2cmin(*m,*n) == 0) { - return 0; + return; } /* On input, the M-by-N matrix A contains the unitary */ @@ -975,7 +975,7 @@ ol.f"> */ } - return 0; + return; /* End of ZUNHR_COL */ diff --git a/lapack-netlib/SRC/zunm22.c b/lapack-netlib/SRC/zunm22.c index 8fd3646e2..1d07b5632 100644 --- a/lapack-netlib/SRC/zunm22.c +++ b/lapack-netlib/SRC/zunm22.c @@ -674,7 +674,7 @@ f"> */ /* > \ingroup complexOTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunm22_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunm22_(char *side, char *trans, integer *m, integer *n, integer *n1, integer *n2, doublecomplex *q, integer *ldq, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -687,7 +687,7 @@ f"> */ logical left; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zgemm_(char *, char *, integer *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *), ztrmm_(char *, char *, char *, char *, @@ -697,7 +697,7 @@ f"> */ extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical notran; integer ldwork; - extern /* Subroutine */ int zlacpy_(char *, integer *, integer *, + extern /* Subroutine */ void zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); integer lwkopt; logical lquery; @@ -774,16 +774,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNM22", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Degenerate cases (N1 = 0 or N2 = 0) are handled using ZTRMM. */ @@ -792,12 +792,12 @@ f"> */ ztrmm_(side, "Upper", trans, "Non-Unit", m, n, &c_b1, &q[q_offset], ldq, &c__[c_offset], ldc); work[1].r = 1., work[1].i = 0.; - return 0; + return; } else if (*n2 == 0) { ztrmm_(side, "Lower", trans, "Non-Unit", m, n, &c_b1, &q[q_offset], ldq, &c__[c_offset], ldc); work[1].r = 1., work[1].i = 0.; - return 0; + return; } /* Compute the largest chunk size available from the workspace. */ @@ -982,7 +982,7 @@ f"> */ z__1.r = (doublereal) lwkopt, z__1.i = 0.; work[1].r = z__1.r, work[1].i = z__1.i; - return 0; + return; /* End of ZUNM22 */ diff --git a/lapack-netlib/SRC/zunm2l.c b/lapack-netlib/SRC/zunm2l.c index 959cc0b5d..9748d4d21 100644 --- a/lapack-netlib/SRC/zunm2l.c +++ b/lapack-netlib/SRC/zunm2l.c @@ -672,7 +672,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunm2l_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunm2l_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info) { @@ -685,7 +685,7 @@ f"> */ doublecomplex taui; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer i1, i2, i3, mi, ni, nq; @@ -745,13 +745,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNM2L", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran || ! left && ! notran) { @@ -804,7 +804,7 @@ f"> */ a[i__3].r = aii.r, a[i__3].i = aii.i; /* L10: */ } - return 0; + return; /* End of ZUNM2L */ diff --git a/lapack-netlib/SRC/zunm2r.c b/lapack-netlib/SRC/zunm2r.c index 1a20bed0b..9e4e90ecb 100644 --- a/lapack-netlib/SRC/zunm2r.c +++ b/lapack-netlib/SRC/zunm2r.c @@ -672,7 +672,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunm2r_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunm2r_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info) { @@ -685,7 +685,7 @@ f"> */ doublecomplex taui; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer i1, i2, i3, ic, jc, mi, ni, nq; @@ -745,13 +745,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNM2R", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -808,7 +808,7 @@ f"> */ a[i__3].r = aii.r, a[i__3].i = aii.i; /* L10: */ } - return 0; + return; /* End of ZUNM2R */ diff --git a/lapack-netlib/SRC/zunmbr.c b/lapack-netlib/SRC/zunmbr.c index 283af0992..5fb8cbe05 100644 --- a/lapack-netlib/SRC/zunmbr.c +++ b/lapack-netlib/SRC/zunmbr.c @@ -710,7 +710,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m, +/* Subroutine */ void zunmbr_(char *vect, char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * lwork, integer *info) @@ -731,7 +731,7 @@ f"> */ char transt[1]; integer lwkopt; logical lquery; - extern /* Subroutine */ int zunmlq_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmlq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -857,15 +857,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNMBR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (applyq) { @@ -934,7 +934,7 @@ f"> */ } } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNMBR */ diff --git a/lapack-netlib/SRC/zunmhr.c b/lapack-netlib/SRC/zunmhr.c index 9680b2375..76e8aad0c 100644 --- a/lapack-netlib/SRC/zunmhr.c +++ b/lapack-netlib/SRC/zunmhr.c @@ -692,7 +692,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunmhr_(char *side, char *trans, integer *m, integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex * work, integer *lwork, integer *info) @@ -711,7 +711,7 @@ f"> */ integer *, integer *, ftnlen, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int zunmqr_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); @@ -796,16 +796,16 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("ZUNMHR", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || nh == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } if (left) { @@ -824,7 +824,7 @@ f"> */ tau[*ilo], &c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo); work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNMHR */ diff --git a/lapack-netlib/SRC/zunml2.c b/lapack-netlib/SRC/zunml2.c index a33d19b08..e4d071d29 100644 --- a/lapack-netlib/SRC/zunml2.c +++ b/lapack-netlib/SRC/zunml2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunml2_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunml2_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info) { @@ -681,11 +681,12 @@ f"> */ doublecomplex taui; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer i1, i2, i3, ic, jc, mi, ni, nq; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); logical notran; doublecomplex aii; @@ -742,13 +743,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNML2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && notran || ! left && ! notran) { @@ -813,7 +814,7 @@ f"> */ } /* L10: */ } - return 0; + return; /* End of ZUNML2 */ diff --git a/lapack-netlib/SRC/zunmlq.c b/lapack-netlib/SRC/zunmlq.c index fa902c43e..b9e8e0262 100644 --- a/lapack-netlib/SRC/zunmlq.c +++ b/lapack-netlib/SRC/zunmlq.c @@ -682,7 +682,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunmlq_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -698,20 +698,20 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, ic, jc, nb, mi, ni; - extern /* Subroutine */ int zunml2_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunml2_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer nq, nw; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical notran; integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); char transt[1]; @@ -793,16 +793,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNMLQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } nbmin = 2; @@ -892,7 +892,7 @@ f"> */ } } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNMLQ */ diff --git a/lapack-netlib/SRC/zunmql.c b/lapack-netlib/SRC/zunmql.c index 35b4b80e1..da7c16c61 100644 --- a/lapack-netlib/SRC/zunmql.c +++ b/lapack-netlib/SRC/zunmql.c @@ -682,7 +682,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunmql_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -698,20 +698,20 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, nb, mi, ni; - extern /* Subroutine */ int zunm2l_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunm2l_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer nq, nw; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical notran; integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; @@ -796,15 +796,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNMQL", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } nbmin = 2; @@ -884,7 +884,7 @@ f"> */ } } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNMQL */ diff --git a/lapack-netlib/SRC/zunmqr.c b/lapack-netlib/SRC/zunmqr.c index f7e866bff..b3470b9c1 100644 --- a/lapack-netlib/SRC/zunmqr.c +++ b/lapack-netlib/SRC/zunmqr.c @@ -682,7 +682,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunmqr_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -698,20 +698,20 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, ic, jc, nb, mi, ni; - extern /* Subroutine */ int zunm2r_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunm2r_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer nq, nw; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical notran; integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer lwkopt; @@ -792,16 +792,16 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNMQR", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } nbmin = 2; @@ -885,7 +885,7 @@ f"> */ } } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNMQR */ diff --git a/lapack-netlib/SRC/zunmr2.c b/lapack-netlib/SRC/zunmr2.c index d2cadca74..cf0cd013d 100644 --- a/lapack-netlib/SRC/zunmr2.c +++ b/lapack-netlib/SRC/zunmr2.c @@ -668,7 +668,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunmr2_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info) { @@ -681,11 +681,12 @@ f"> */ doublecomplex taui; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer i1, i2, i3, mi, ni, nq; - extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); + extern void zlacgv_( integer *, doublecomplex *, integer *); logical notran; doublecomplex aii; @@ -742,13 +743,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNMR2", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -805,7 +806,7 @@ f"> */ zlacgv_(&i__3, &a[i__ + a_dim1], lda); /* L10: */ } - return 0; + return; /* End of ZUNMR2 */ diff --git a/lapack-netlib/SRC/zunmr3.c b/lapack-netlib/SRC/zunmr3.c index 804fde3f0..0ca68e2a5 100644 --- a/lapack-netlib/SRC/zunmr3.c +++ b/lapack-netlib/SRC/zunmr3.c @@ -687,7 +687,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunmr3_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * info) @@ -702,7 +702,7 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer i1, i2, i3; - extern /* Subroutine */ int zlarz_(char *, integer *, integer *, integer * + extern /* Subroutine */ void zlarz_(char *, integer *, integer *, integer * , doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer ja, ic, jc, mi, ni, nq; @@ -763,13 +763,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNMR3", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || *k == 0) { - return 0; + return; } if (left && ! notran || ! left && notran) { @@ -824,7 +824,7 @@ f"> */ /* L10: */ } - return 0; + return; /* End of ZUNMR3 */ diff --git a/lapack-netlib/SRC/zunmrq.c b/lapack-netlib/SRC/zunmrq.c index 028688862..30ccf40df 100644 --- a/lapack-netlib/SRC/zunmrq.c +++ b/lapack-netlib/SRC/zunmrq.c @@ -682,7 +682,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunmrq_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -698,20 +698,20 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, nb, mi, ni; - extern /* Subroutine */ int zunmr2_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmr2_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer nq, nw; extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); - extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarfb_(char *, char *, char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical notran; integer ldwork; - extern /* Subroutine */ int zlarft_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarft_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); char transt[1]; @@ -797,15 +797,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNMRQ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } nbmin = 2; @@ -891,7 +891,7 @@ f"> */ } } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNMRQ */ diff --git a/lapack-netlib/SRC/zunmrz.c b/lapack-netlib/SRC/zunmrz.c index 301307fd4..728db22d0 100644 --- a/lapack-netlib/SRC/zunmrz.c +++ b/lapack-netlib/SRC/zunmrz.c @@ -702,7 +702,7 @@ f"> */ /* > \endverbatim */ /* > */ /* ===================================================================== */ -/* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n, +/* Subroutine */ void zunmrz_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * lwork, integer *info) @@ -718,7 +718,7 @@ f"> */ integer i__; extern logical lsame_(char *, char *); integer nbmin, iinfo, i1, i2, i3, ib, ic, ja, jc, nb, mi, ni; - extern /* Subroutine */ int zunmr3_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmr3_(char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); integer nq, nw; @@ -727,14 +727,14 @@ f"> */ integer *, integer *, ftnlen, ftnlen); logical notran; integer ldwork; - extern /* Subroutine */ int zlarzb_(char *, char *, char *, char *, + extern /* Subroutine */ void zlarzb_(char *, char *, char *, char *, integer *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); char transt[1]; integer lwkopt; logical lquery; - extern /* Subroutine */ int zlarzt_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zlarzt_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer iwt; @@ -819,15 +819,15 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUNMRZ", &i__1, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } /* Determine the block size. NB may be at most NBMAX, where NBMAX */ @@ -933,7 +933,7 @@ f"> */ work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNMRZ */ diff --git a/lapack-netlib/SRC/zunmtr.c b/lapack-netlib/SRC/zunmtr.c index 74d5182f9..55b93d334 100644 --- a/lapack-netlib/SRC/zunmtr.c +++ b/lapack-netlib/SRC/zunmtr.c @@ -685,7 +685,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m, +/* Subroutine */ void zunmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info) @@ -706,7 +706,7 @@ f"> */ integer *, integer *, ftnlen, ftnlen); integer lwkopt; logical lquery; - extern /* Subroutine */ int zunmql_(char *, char *, integer *, integer *, + extern /* Subroutine */ void zunmql_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -817,16 +817,16 @@ f"> */ if (*info != 0) { i__2 = -(*info); xerbla_("ZUNMTR", &i__2, (ftnlen)6); - return 0; + return; } else if (lquery) { - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0 || nq == 1) { work[1].r = 1., work[1].i = 0.; - return 0; + return; } if (left) { @@ -860,7 +860,7 @@ f"> */ c__[i1 + i2 * c_dim1], ldc, &work[1], lwork, &iinfo); } work[1].r = (doublereal) lwkopt, work[1].i = 0.; - return 0; + return; /* End of ZUNMTR */ diff --git a/lapack-netlib/SRC/zupgtr.c b/lapack-netlib/SRC/zupgtr.c index 3daebc3cc..671de3e58 100644 --- a/lapack-netlib/SRC/zupgtr.c +++ b/lapack-netlib/SRC/zupgtr.c @@ -623,7 +623,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap, +/* Subroutine */ void zupgtr_(char *uplo, integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex * work, integer *info) { @@ -635,13 +635,14 @@ f"> */ extern logical lsame_(char *, char *); integer iinfo; logical upper; - extern /* Subroutine */ int zung2l_(integer *, integer *, integer *, + extern /* Subroutine */ void zung2l_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *); integer ij; - extern /* Subroutine */ int zung2r_(integer *, integer *, integer *, + extern /* Subroutine */ void zung2r_(integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, - integer *), xerbla_(char *, integer *, ftnlen); + integer *); + extern int xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -676,13 +677,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUPGTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*n == 0) { - return 0; + return; } if (upper) { @@ -769,7 +770,7 @@ f"> */ &work[1], &iinfo); } } - return 0; + return; /* End of ZUPGTR */ diff --git a/lapack-netlib/SRC/zupmtr.c b/lapack-netlib/SRC/zupmtr.c index 47cebe548..2a67a791b 100644 --- a/lapack-netlib/SRC/zupmtr.c +++ b/lapack-netlib/SRC/zupmtr.c @@ -662,7 +662,7 @@ f"> */ /* > \ingroup complex16OTHERcomputational */ /* ===================================================================== */ -/* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m, +/* Subroutine */ void zupmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info) { @@ -675,7 +675,7 @@ f"> */ doublecomplex taui; integer i__; extern logical lsame_(char *, char *); - extern /* Subroutine */ int zlarf_(char *, integer *, integer *, + extern /* Subroutine */ void zlarf_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); integer i1; @@ -734,13 +734,13 @@ f"> */ if (*info != 0) { i__1 = -(*info); xerbla_("ZUPMTR", &i__1, (ftnlen)6); - return 0; + return; } /* Quick return if possible */ if (*m == 0 || *n == 0) { - return 0; + return; } if (upper) { @@ -876,7 +876,7 @@ f"> */ /* L20: */ } } - return 0; + return; /* End of ZUPMTR */