&quot；Fortran常用算法程序集&quot；（清华大学出版社），等。

徐士良 《Fortran常用算法程序集》(清华大学出版社)的源程序-"Fortran algorithms procedures Set" (Tsinghua University Press), the source

CH1
ABAND.FOR
ABAND0.FOR
ABINT.FOR
ABINT0.FOR
ACGAS.FOR
ACGAS0.FOR
ACHOL.FOR
ACHOL0.FOR
ACJDN.FOR
ACJDN0.FOR
AGAUS.FOR
AGAUS0.FOR
AGGJE.FOR
AGGJE0.FOR
AGJDN.FOR
AGJDN0.FOR
AGMIV.FOR
AGMIV0.FOR
AGMQR.FOR
AGMQR0.FOR
AGRAD.FOR
AGRAD0.FOR
AGSDL.FOR
AGSDL0.FOR
ALDLE.FOR
ALDLE0.FOR
ATLVS.FOR
ATLVS0.FOR
ATRDE.FOR
ATRDE0.FOR
CH10
JCPLX.FOR
JCPLX0.FOR
JJSIM.FOR
JJSIM0.FOR
JLPLQ.FOR
JLPLQ0.FOR
JMAX1.FOR
JMAX10.FOR
JMAXN.FOR
JMAXN0.FOR
CH11
KFOUR.FOR
KFOUR0.FOR
KKABG.FOR
KKABG0.FOR
KKFFT.FOR
KKFFT0.FOR
KKFWT.FOR
KKFWT0.FOR
KKSPT.FOR
KKSPT0.FOR
KLMAN.FOR
KLMAN0.FOR
CH12
LCBUB.FOR
LCBUB0.FOR
LCHAP.FOR
LCHAP0.FOR
LCQCK.FOR
LCQCK0.FOR
LCSHL.FOR
LCSHL0.FOR
LIBSR.FOR
LIBSR0.FOR
LIBUB.FOR
LIBUB0.FOR
LIHAP.FOR
LIHAP0.FOR
LIQCK.FOR
LIQCK0.FOR
LISHL.FOR
LISHL0.FOR
LISRH.FOR
LISRH0.FOR
LRBSR.FOR
LRBSR0.FOR
LRBUB.FOR
LRBUB0.FOR
LRHAP.FOR
LRHAP0.FOR
LRQCK.FOR
LRQCK0.FOR
LRSHL.FOR
LRSHL0.FOR
LRSRH.FOR
LRSRH0.FOR
CH13
MBETA.FOR
MBETA0.FOR
MBSL1.FOR
MBSL10.FOR
MBSL2.FOR
MBSL20.FOR
MBSL3.FOR
MBSL30.FOR
MBSL4.FOR
MBSL40.FOR
MCHII.FOR
MCHII0.FOR
MCOSS.FOR
MCOSS0.FOR
MELP1.FOR
MELP10.FOR
MELP2.FOR
MELP20.FOR
MERRF.FOR
MERRF0.FOR
MEXPP.FOR
MEXPP0.FOR
MFFFF.FOR
MFFFF0.FOR
MGAM1.FOR
MGAM10.FOR
MGAM2.FOR
MGAM20.FOR
MGASS.FOR
MGASS0.FOR
MSINN.FOR
MSINN0.FOR
MSTDT.FOR
MSTDT0.FOR
CH14
NGRN1.FOR
NGRN10.FOR
NGRNS.FOR
NGRNS0.FOR
NRAB1.FOR
NRAB10.FOR
NRABS.FOR
NRABS0.FOR
NRND1.FOR
NRND10.FOR
NRNDS.FOR
NRNDS0.FOR
CH15
OBPLY.FOR
OBPLY0.FOR
OCDIV.FOR
OCDIV0.FOR
OCMUL.FOR
OCMUL0.FOR
OCPLY.FOR
OCPLY0.FOR
OFCUR.FOR
OFCUR0.FOR
OFPQV.FOR
OFPQV0.FOR
OPDIV.FOR
OPDIV0.FOR
OPLYS.FOR
OPLYS0.FOR
OPLYS1.FOR
OPLYV.FOR
OPLYV0.FOR
OPMUL.FOR
OPMUL0.FOR
CH16
PCCOS.FOR
PCCOS0.FOR
PCDIV.FOR
PCDIV0.FOR
PCEXP.FOR
PCEXP0.FOR
PCLOG.FOR
PCLOG0.FOR
PCMUL.FOR
PCMUL0.FOR
PCSIN.FOR
PCSIN0.FOR
PNTRT.FOR
PNTRT0.FOR
PPLOT.FOR
PPLOT0.FOR
PPOWR.FOR
PPOWR0.FOR
CH2
BCHOL.FOR
BCHOL0.FOR
BCINV.FOR
BCINV0.FOR
BCMUL.FOR
BCMUL0.FOR
BGINV.FOR
BGINV0.FOR
BLLUU.FOR
BLLUU0.FOR
BMAQR.FOR
BMAQR0.FOR
BMUAV.FOR
BMUAV0.FOR
BMUAV1.FOR
BRANK.FOR
BRANK0.FOR
BRINV.FOR
BRINV0.FOR
BRMUL.FOR
BRMUL0.FOR
BSDET.FOR
BSDET0.FOR
BSDET1.FOR
BSSGJ.FOR
BSSGJ0.FOR
BTRCH.FOR
BTRCH0.FOR
CH3
CHHBG.FOR
CHHBG0.FOR
CHHQR.FOR
CHHQR0.FOR
CJCBI.FOR
CJCBI0.FOR
CJCBJ.FOR
CJCBJ0.FOR
CSSTQ.FOR
CSSTQ0.FOR
CSTRQ.FOR
CSTRQ0.FOR
CH4
DATKN.FOR
DATKN0.FOR
DCMTC.FOR
DCMTC0.FOR
DCMTC1.FOR
DCSRT.FOR
DCSRT0.FOR
DDHRT.FOR
DDHRT0.FOR
DMTCL.FOR
DMTCL0.FOR
DNETN.FOR
DNETN0.FOR
DNEWT.FOR
DNEWT0.FOR
DNGIN.FOR
DNGIN0.FOR
DNGIN1.FOR
DNMTC.FOR
DNMTC0.FOR
DPQRT.FOR
DPQRT0.FOR
DQRRT.FOR
DQRRT0.FOR
DSNSE.FOR
DSNSE0.FOR
DSRRT.FOR
DSRRT0.FOR
CH5
EEATK.FOR
EEATK0.FOR
EEHMT.FOR
EEHMT0.FOR
EELG3.FOR
EELG30.FOR
EELGR.FOR
EELGR0.FOR
EEPQS.FOR
EEPQS0.FOR
EESPL.FOR
EESPL0.FOR
ENATK.FOR
ENATK0.FOR
ENHMT.FOR
ENHMT0.FOR
ENLG3.FOR
ENLG30.FOR
ENLGR.FOR
ENLGR0.FOR
ENPQS.FOR
ENPQS0.FOR
ENSPL.FOR
ENSPL0.FOR
ESLGQ.FOR
ESLGQ0.FOR
ESLQ3.FOR
ESLQ30.FOR
ESPL1.FOR
ESPL10.FOR
ESPL2.FOR
ESPL20.FOR
ESPL3.FOR
ESPL30.FOR
CH6
FCBSV.FOR
FCBSV0.FOR
FFFTS.FOR
FFFTS0.FOR
FFPQG.FOR
FFPQG0.FOR
FFPTS.FOR
FFPTS0.FOR
FGAUS.FOR
FGAUS0.FOR
FHMGS.FOR
FHMGS0.FOR
FLAGS.FOR
FLAGS0.FOR
FLRGS.FOR
FLRGS0.FOR
FMTCL.FOR
FMTCL0.FOR
FMTML.FOR
FMTML0.FOR
FPART.FOR
FPART0.FOR
FPQG2.FOR
FPQG20.FOR
FROMB.FOR
FROMB0.FOR
FSIM2.FOR
FSIM20.FOR
FSIMP.FOR
FSIMP0.FOR
CH7
GADMS.FOR
GADMS0.FOR
GDFTE.FOR
GDFTE0.FOR
GELR1.FOR
GELR10.FOR
GELR2.FOR
GELR20.FOR
GGEAR.FOR
GGEAR0.FOR
GGIL1.FOR
GGIL10.FOR
GGIL2.FOR
GGIL20.FOR
GGJFQ.FOR
GGJFQ0.FOR
GHAMG.FOR
GHAMG0.FOR
GMRSN.FOR
GMRSN0.FOR
GPBS1.FOR
GPBS10.FOR
GPBS2.FOR
GPBS20.FOR
GRKT1.FOR
GRKT10.FOR
GRKT2.FOR
GRKT20.FOR
GTNR1.FOR
GTNR10.FOR
GTNR2.FOR
GTNR20.FOR
GWITY.FOR
GWITY0.FOR
CH8
HCHIR.FOR
HCHIR0.FOR
HPIR1.FOR
HPIR10.FOR
HPIR2.FOR
HPIR20.FOR
HPIR3.FOR
HPIR30.FOR
HREMZ.FOR
HREMZ0.FOR
CH9
ILOG1.FOR
ILOG10.FOR
ILOG2.FOR
ILOG20.FOR
IRHIS.FOR
IRHIS0.FOR
ISQT1.FOR
ISQT10.FOR
ISQT2.FOR
ISQT20.FOR
ISQT3.FOR
ISQT30.FOR