====================LAPACK 3.1.1====================发布日期:2007年2月26日。基于2006年11月12日发布的LAPACK 3.1。(见下文)*LAPACK 3.1.1:新增功能*错误修复=================================LAPACK 3.1.1:新增功能=================================1) 添加blas例程,以便提供完整的blas根据LAPACK邮件列表上Tobias Burns的问题以及之前关于提供通过LAPACK完成参考BLAS。BLAS/SRC目录中缺少的例程有:CSROT公司DROTM公司DROTMG公司DSDOT(位于LAPACK/SRC目录中)SDSDOT公司SROTM公司SROTMG公司ZDROT(位于LAPACK/SRC目录中)取自***NETLIB BLAS***网站的新例程,采用Lapack编码风格:-sdsdot.f公司-srotmg公司。F类-srotm.f公司-drotmg.f型-数据点.f-drotm.f公司将2个例程从SRC移动到BLAS/SRC:-zdrot.f公司-csrot.f型2) 提供5种口味的SECOND和DSECNDsecond_EXT_ETIME.f:second将使用对EXTERNAL FUNCTION ETIME的调用[Default]second_EXT_ETIME_.f:second将使用对EXTERNAL FUNCTION ETIME_[RS6K]的调用second_INT_ETIME.f:second将使用内部函数ETIME[gfortran]second_INT_CPU_TIME.f:second将使用对INTERNAL FUNCTION CPU\_TIME[Nag Compiler,etc.]的调用second_NONE.f:second将始终返回0在make.inc中添加TIMER变量以选择要使用的例程#默认值:SECOND和DSECND将使用对EXTERNAL FUNCTION ETIME的调用计时器=EXT_ETIME#对于RS6K:SECOND和DSECND将使用对EXTERNAL FUNCTION ETIME的调用_#计时器=EXT_ETIME_#对于gfortran编译器:SECOND和DSECND将使用对内部函数ETIME的调用#计时器=INT_ETIME#如果您的Fortran编译器不提供etime(如Nag Fortran编译程序等…)#SECOND和DSECND将使用对内部功能CPU_TIME的调用#计时器=INT_CPU_TIME#如果这两者都不起作用。。。您可以使用NONE值。。。在这种情况下,SECOND和DSECND将始终返回0#计时器=无===============================错误修复===============================从3.1.0更改为3.1.1------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/SRC/ctgsen.fM/branchs/june-release/lapack/SRC/ctgsyl.fM/branchs/june-release/lapack/SRC/dtgsen.fM/branchs/june-release/lapack/SRC/stgsen.f分行M/branches/june-release/lapack/SRC/ztgsen.fM/branchs/june-release/lapack/SRC/ztgsyl.f来自Sven Hammarling,在Michael Wimmer的错误报告之后(参见下面的电子邮件)我看过迈克尔·威默报告的错误,并同意他的说法。我还更正了s/dtgsen中的注释。我附上我修改过的文件。s/dtgsen-删除注释“如果IJOB=0,则不引用WORK”c/ztgsen-在DO 60循环中,用TEMP1和TEMP2替换对WORK(1)和WARK(2)的引用,以便在IJOB=0时不引用WORK。c/ztgsyl-删除注释“如果IJOB=0,则不引用IWORK。”斯文。迈克尔·威默写道:尊敬的LAPACK团队:,我想报告LAPACK函数ZTGSEN和ZTGSYL中的错误。受影响的是ZTGSEN和ZTGSYL的文档以及工作区ZTGSEN中的查询。我的观察结果基于今日可用的LAPACK来源,202006年9月,www.netlib.org:..........ZTGSEN子程序(IJOB、WANTQ、WANTZ、SELECT、N、A、LDA、B、LDB、,$ALPHA、BETA、Q、LDQ、Z、LDZ、M、PL、PR、DIF、,$WORK、LWORK(工作、工作、生活、信息)** . LAPACK例程(版本3.0)。*田纳西大学、加州大学伯克利分校、NAG有限公司。,*科朗研究所、阿贡国家实验室和莱斯大学*1999年6月30日..........子程序ZTGSYL(TRANS、IJOB、M、N、A、LDA、B、LDB、C、LDC、D、,$LDD、E、LDE、F、LDF、SCALE、DIF、WORK、LWORK,$I工作,信息)** . LAPACK例程(版本3.0)。*田纳西大学、加州大学伯克利分校、NAG有限公司。,*科朗研究所、阿贡国家实验室和莱斯大学*1999年6月30日..........根据http://www.netlib.org/lapack/release_notes.html这两个自1999年6月30日以来,受影响的功能没有改变。在下文中,我描述了这些错误:*ZTGSYL公司:(http://www.netlib.org/lapack/complex16/ztgsyl.f)....-在函数的文档中,它表示:*IWORK(工作空间)INTEGER数组,维度(M+N+2)*如果IJOB=0,则不引用IWORK。然而,即使IJOB=0,ZTGSYL也使用IWORK,例如代码段(ll 325-342)*确定A的块结构*P=0I=140继续IF(I.GT.M)$转到50P=P+1网络(P)=II=I+MBIF(I.GE.M)$转到50转到4050继续网络(P+1)=M+1IF(工作(P)。EQ.工程(P+1)$P=P-1*它的执行与IJOB的值无关。这意味着提供的IWORK太小(根据文档,它是未引用)可能会由于覆盖内存而导致崩溃。*中兴通讯:(http://www.netlib.org/lapack/complex16/ztgsen.f)....-这里有一个类似于ZTGSYL中的错误,但它也会影响工作空间查询。文件中说:*WORK(工作区/输出)COMPLEX*16数组,维度(LWORK)*如果IJOB=0,则不引用WORK。否则,*退出时,如果INFO=0,WORK(1)返回最佳LWORK。*IWORK(工作空间/输出)整数,维度(LIWORK)*如果IJOB=0,则不引用IWORK。否则,*退出时,如果INFO=0,IWORK(1)将返回最佳LIWORK。同样,即使IJOB=0,WORK和IWORK也会在代码中使用。对于IJOB=0,工作区查询返回LWORK=1和LIWORK=1作为最佳工作空间大小(ll 395-404):如果(IJOB.EQ.1.或.IJOB.EQ.2.或.IJOB.EQ.4),则LWMIN=最大值(1,2*M*(N-M))LIWMIN=最大值(1,N+2)如果(IJOB.EQ.3.或IJOB.EQ.5)LWMIN=最大值(1,4*M*(N-M))LIWMIN=最大值(1,2*M*(N-M),N+2)其他LWMIN=1。。。。。。。。LIWMIN=1结束IF但即使IJOB=0,也引用了WORK(1)和WORK如代码片段所示:(ll617-623)DO 60 K=1,NDSCALE=ABS(B(K,K))如果(DSCALE.GT.SAFMIN)那么工作(1)=DCONJG(B(K,K)/DSCALE)-功(2)=B(K,K)/D刻度-B(K,K)=D刻度致电ZSCAL(N-K,工作(1),B(K,K+1),后勤数据库)同样,仅提供大小为1的工作区将导致覆盖记忆和可能的崩溃。........................-如果你在这件事上还有其他问题,请随时与我联系。谨致问候迈克尔·威默------------------------------------------------------------------------更改的路径:M/branches/june-release/lapack/SRC/dtgsy2.fM/branchs/june-release/lapack/SRC/stgsy2.f分行重新添加Daniel Kressner在dtgsy2和stgsy2上提交的修改见日志修订版8DTGSY2:第58行(doc):STGSYL应替换为DTGSYL第61行(doc):STGSYL应替换为DTGSYL第146行(doc):STGSYL应替换为DTGSYL第509行:LDB应替换为LDELDC应替换为LDFSTGSY2也是如此。这些修改已被第75次修订所覆盖。------------------------------------------------------------------------更改的路径:M/branches/june-release/lapack/SRC/dormrz.fM/branches/六月发布/lapack/SRC/sormrz.f在第179行添加缺失的ELSE(由Sven报告)这个错误是在95版中引入的。------------------------------------------------------------------------更改的路径:M/branches/june-release/lapack/SRC/dbdsqr.fM/branches/june-release/lapack/SRC/sbdsqr.f在s/dbdsqr中,工作空间要求应该是max(1,4*N),而不是max(1.4*N-4),因为这是slasq1所要求的。(斯文报道)------------------------------------------------------------------------更改的路径:M/分支机构/六月发布/翻盖/测试/LIN/derrab.fM/分支机构/六月发布/翻盖/测试/LIN/zerrab.f“修复”一个问题是使用fort77“编译器”(pearl scrit使用f2c)测试Julien的迭代求精。“编译器”抱怨CHARACTER(32)语法。将CHARACTER(32)替换为CHARACTER*32。Jason注意:在Fortran 95中,CHARACTER*语法被声明为过时。它不应该在新代码中使用。------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/BLAS/SRC/Makefile(M/分行/六月释放/lapack/BLAS/SRC/生成文件)A/branchs/june-release/lapack/BLAS/SRC/csrot.f(来自/brances/june-rease/lapack/SRC/csrot.f:386)A/branchs/june-release/lapack/BLAS/SRC/drotm.fA/branchs/june-release/lapack/BLAS/SRC/drotmg.fA/branchs/june-release/lapack/BLAS/SRC/dsdot.fA/branchs/june-release/lapack/BLAS/SRC/sdsdot.fA/branchs/june-release/lapack/BLAS/SRC/srotm.fA/branchs/june-release/lapack/BLAS/SRC/srotmg.fA/branchs/june-release/lapack/BLAS/SRC/zdrot.f(来自/brances/june-rease/lapack/SRC/zdrot/f:386)M/branchs/june发布/lapack/SRC/MakefileD/branchs/june发布/lapack/SRC/csrot.fD/分行/june-release/lapack/SRC/zdrot.f根据LAPACK邮件列表上Tobias Burns的问题以及之前关于提供通过LAPACK完成参考BLAS。BLAS/SRC目录中缺少的例程有:CSROT公司DROTM公司DROTMG公司DSDOT(位于LAPACK/SRC目录中)SDSDOT公司SROTM公司SROTMG公司ZDROT(位于LAPACK/SRC目录中)取自***NETLIB BLAS***网站的新例程,采用Lapack编码风格:-sdsdot.f公司-srotmg.f(参考值)-srotm.f公司-drotmg.f型-数据点.f-drotm.f公司将2个例程从SRC移动到BLAS/SRC:-兹德罗.f-csrot.f型修改BLAS/SRC/Makefile和SRC/Makefile------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/INSTALL/ilaver.f分行M/分行/june-release/lapack/SRC/clag2z.fM/branchs/june-release/lapack/SRC/dlag2s.fM/branches/june-release/lapack/SRC/dsgesv.fM/分行/june-release/lapack/SRC/ilaenv.fM/branchs/june-release/lapack/SRC/ilaver.f公司M/分行/june-release/lapack/SRC/slag2d.fM/branchs/june-release/lapack/SRC/zcgesv.fM/branchs/june-release/lapack/SRC/zlag2c.f一些格式修改以遵循Lapack Style Coding。------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/SRC/cunmrz.fM/branches/june-release/lapack/SRC/dormrz.fM/branches/june-release/lapack/SRC/sormrz.fM/branchs/june-release/lapack/SRC/zunmrz.fSven给出的修改--------------------------下面是c/zunmrz.f和稍微修改过的s/dorrz.f版本,我只是在其中移动了一个与ELSE语句相关的注释,以便所有四个例程保持一致。c/zunmrz.f需要与s/dorrz.f相同的更改;也就是说,需要在LWKOPT的计算中重新引入缺少的ELSE语句(第175行)。------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/TESTING/LIN/cchkge.f分公司M/branchs/june-release/lapack/TESTING/LIN/dchkge.f分公司M/branchs/june-release/lapack/TESTING/LIN/schkge.f公司M/分支机构/六月发布/翻盖/测试/LIN/zchkge.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”插入线条呼叫XLAENV(1,1)将IPARM(1)初始化,然后在ILAENV(/LIN版本)中引用它。在第163行插入s/dchkge.f和168行插入c/zchkge.f。------------------------------------------------------------------------更改的路径:M/branches/6月发布/lapack/TESTING/LIN/cerrvx.fM/分支机构/六月发布/翻盖/测试/LIN/dervx.fM/branchs/june-release/lapack/TESTING/LIN/serrvx.f(M/分行/六月释放/翻盖/测试/LIN/serrvx.f)M/branchs/june-release/lapack/TESTING/LIN/zerrvx.f(M/分行/六月释放/翻盖/测试/LIN/zerrvx.f)NAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”插入一行EQ=“”这些例程中,以便在引用之前对其进行初始化。s/derrvx中的第89行和c/zerrvx中第92行。------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/TESTING/LIN/dchkq3.f分行/六月放款/翻盖/测试/LIN/dchkq 3.fM/分行/六月发布/lapack/TESTING/LIN/dchkqp.fM/branchs/june-release/lapack/TESTING/LIN/dchktz.f分行/六月释放/翻盖/测试/LIN/dchktzM/分支机构/六月发布/翻盖/测试/LIN/dqrt12.fM/branchs/june-release/lapack/TESTING/LIN/schkq3.fM/branchs/june-release/lapack/TESTING/LIN/schkqp.f公司M/branchs/june-release/lapack/TESTING/LIN/schktz.f(M/分行/六月释放/翻盖测试/LIN/schktz)M/分行/六月释放/翻盖/测试/LIN/sqrt12.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”将d/sqrt12第76行中的测试更改为:如果(LWORK.LT.M*N+4*最小值(M,N)+最大值(M、N)),则IF(LWORK.LT.MAX(M*N+4*最小值(M,N)+最大值(M、N),$M*N+2*MIN(M,N)+4*N))然后因为d/sbdsqr是用参数M*N+2*MIN(M,N)+1调用的,需要4*N工作空间。我在d/schkqp的第152行、d/schq3的第156行和d/schktz的第149行添加了同样的内容。没有足够的工作空间似乎只会影响实际的例程。------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/TESTING/LIN/cdrvls.fM/branchs/june-release/lapack/TESTING/LIN/ddrvls.fM/branchs/june release/lapack/TESTING/LIN/sdrvls.f分行/六月放款M/branchs/june-release/lapack/TESTING/LIN/zdrvls.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”这些例程还需要在引用IPARM元素之前对其进行初始化。对于d/sdrvls,我转移了呼叫呼叫XLAENV(2,2)致电XLAENV(9,SMLSIZ)位于第183行IF(TSTERR)语句前面。对于c/zdrvls,我插入了一个调用致电XLAENV(9,SMLSIZ)在第188行的语句IF(TSTERR)前面,并添加了语句集成SMLSIZ参数(SMLSIZ=25)第122行。------------------------------------------------------------------------更改的路径:M/branches/6月发布/拉帕克/测试/LIN/chkgt.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”删除了INTRINSIC语句第113行中CMPLX的声明,因为CMPLX未被引用。(所以只是一个表面上的改变。)------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/TESTING/LIN/cchkaa.f分公司M/branchs/june-release/lapack/TESTING/LIN/dchkaa.f分行/六月放款/挂牌测试/LIN/dchkaa.fM/分行/六月发布/翻盖/测试/LIN/dchkab.fM/branchs/june-lease/lapack/TESTING/LIN/schkaa.f分行/六月放款M/分支机构/六月发布/翻盖/测试/LIN/zchkaa.fM/分支机构/六月发布/翻盖/测试/LIN/zchkab.f修改LIN测试输出文件的标题。测试人员将通过调用ilaver获得Lapack版本,而不是编写“Lapack 3.0,released bla bla…”然后写“Lapack X.Y.Z”,其中X.Y.j是ilaver给出的Lapack版本。------------------------------------------------------------------------更改的路径:M/分行/六月发布/lapack/TESTING/EIG/cchkee.fM/branchs/june-release/lapack/TESTING/EIG/dchkee.f公司M/branchs/june-release/lapack/TESTING/EIG/schkee.fM/branchs/june-release/lapack/TESTING/EIG/zchkee.f修改EIG测试输出文件的标题。测试人员将通过调用ilaver获得Lapack版本,而不是编写“Lapack 3.0,released bla bla…”然后写“Lapack X.Y.Z”,其中X.Y.j是ilaver给出的Lapack版本。------------------------------------------------------------------------更改的路径:M/branches/june-release/lapack/SRC/dsgesv.f在SWORK注释中用实数替换单精度------------------------------------------------------------------------更改的路径:M/分行/六月发布/lapack/SRC/dladed6.fM/branchs/june-release/lapack/SRC/slaed6.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”进行测试IF(D(1)。方程式。或者。D(2)。方程式。或者。D(3)。EQ.TAU)然后TAU=零ELSE公司之前TEMP=FINIT+TAU*Z(1)/(D(1)*(D(1)-TAU))+$TAU*Z(2)/(D(2)*(D(二)-TAU))+$TAU*Z(3)/(D(3)*(D(三)-TAU))在第50行,因为在运行测试时./xeigtstd<svd.in>dsvd.out我得到了***算术异常:正在中止在DLAED6中,DLAED6.f的第150行由DLASD4调用,DLASD4.f的第619行由DLASD3调用,DLASD3.f的第239行由DLASD1调用,DLASD1.f的第210行由DLASD0调用,DLASD0.f的第217行由DBDSDC调用,DBDSDC.f的第353行由DCHKBD调用,DCHKBD.f的第853行由DCHKEE调用,DCHKEE.f第1869行这是因为TAU等于D(3)。我很惊讶这些可能是相等的,但这个修复为我解决了这个问题,从后面的代码来看,它似乎是合理的。------------------------------------------------------------------------更改的路径:M/分行/june-release/lapack/SRC/zgglse.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”用ZTRTRS替换了两个对CTRTRS的呼叫。------------------------------------------------------------------------更改的路径:M/分行/六月发布/lapack/TESTING/EIG/cchkee.fM/branchs/june-release/lapack/TESTING/EIG/dchkee.f公司M/branchs/june-release/lapack/TESTING/EIG/schkee.fM/branchs/june-release/lapack/TESTING/EIG/zchkee.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”插入了一些对XLAENV的调用,以便在引用IPARMS之前对其进行初始化。------------------------------------------------------------------------更改的路径:M/分行/六月发布/lapack/TESTING/EIG/cchkhs.fM/分行/june-release/lapack/TESTING/EIG/dchkhs.fM/branches/6月发布/lapack/TESTING/EIG/schkhs.fM/分行/june-release/lapack/TESTING/EIG/zchkhs.fSven提交的更正。NAG Fortran编译器发现了这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”替换了窗体的调用致电斯科比(N,工作,1,TAU,1)具有致电斯科比(N-1,工作,1,TAU,1)第694行用于s/dchkhs,第698行用于c/zchkhs。(TAU的长度仅为N-1。)------------------------------------------------------------------------更改的路径:M/branchs/june发布/lapack/TESTING/EIG/cdrges.fM/分行/june-release/lapack/TESTING/EIG/zdrges.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”删除了IASIGN和IBSIGN的声明,因为它们未被使用。------------------------------------------------------------------------更改的路径:M/branchs/june发布/lapack/TESTING/EIG/cdrgev.fM/branchs/june发布/lapack/TESTING/EIG/zdrgev.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”将第722行更改为DO 200 JR=1,9DO 200 JR=1,7因为只形成了7个结果,导致对RESULT(8)的引用未定义。------------------------------------------------------------------------更改的路径:M/分行/六月发布/lapack/TESTING/EIG/cchkbb.fNAG Fortran编译器已发现这些问题。具有以下标志“-C-C=undefined-dcfuns-g-gline-info-nan-u”在调用SLAHD2和SLASUM时,将“ZBB”替换为“CBB”,以便测试结果引用正确的测试。------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/TESTING/EIG/cs选择.fM/branchs/june-release/lapack/TESTING/EIG/dselect.fM/branchs/june-release/lapack/TESTING/EIG/sslect.fM/branchs/june-release/lapack/TESTING/EIG/zslect.f我们同意这可能是这些例程的目的,并且它避免了对SSLECT和DSLECT的未定义引用。这是丹尼尔·克雷斯纳的留言-----------------------------------SSLECT应该返回复数zR+i*zI对应于选定的特征值。如果SELOPT=0,则只需完成此操作通过检查zR是否<0(稳定特征值的->不变子空间)。如果SELOPT>0,我认为它想要找到最接近zR+的特征值i*zI,并检查是否选择了该特征值(通过查找公共数组SELVAL)。然而,以下几行RMIN=零DO 10 I=1,选择X=SLAPY2(ZR-SELWR(I),ZI-SELWI(1))如果(X.LE.RMIN)那么对我来说没什么意义。RMIN最初应该设置为一个大数字或SLAPY2(ZR-SELWR(1),ZI-SELWI(1。否则,测试肯定会对于实数矩阵失败,因为重新计算的重排序特征值将如果有2x2个块,则与原始特征值不完全对应以舒尔的形式。通用数组SELWR、SELWI、SELVAL控制特征值。它们是在SGET24中设置的,因此NSEL特征值具有选择最小的实部。SSGET24用于SDRVSX,但不用于SDRVES(使用SELOPT=0)。>>令人惊讶的是,复杂版本没有因CSLECT未定义而失败。复矩阵的重排序特征值与原始特征值(参见CTREXC)。------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/BLAS/SRC/Makefile(M/分行/六月释放/lapack/BLAS/SRC/生成文件)M/分行/六月发布/lapack/BLAS/TESTING/Makeblat1M/分行/六月发布/lapack/BLAS/TESTING/Makeblat2M/分行/六月发布/lapack/BLAS/TESTING/Makeblat3M/branchs/june-release/lapack/INSTALL/生成文件M/branchs/june-release/lapack/SRC/Makefile文件M/分行/六月发布/lapack/TESTING/EIG/MakefileM/分行/六月发布/翻盖/测试/LIN/生成文件M/分行/六月发布/翻盖/测试/MATGEN/Makefile将-o$@添加到.f.o规则中。+单文件编译------------------------------------------------------------------------更改的路径:M/分行/六月放款/lapack/SRC/clarrv.fM/分行/june-release/lapack/SRC/dlarrv.fM/branchs/june-release/lapack/SRC/slarrv.f公司M/分行/六月放款/lapack/SRC/zlarrv.fM/分行/六月放款/挂牌/测试/EIG/alahdg.fM/branches/6月发布/lapack/TESTING/EIG/cerrbd.fM/branchs/june-release/lapack/TESTING/LIN/cdrvls.fM/branchs/june release/lapack/TESTING/LIN/sdrvls.f分行/六月放款删除无用的外部声明。。。这是fort77编译器发出的警告------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/TESTING/EIG/zdrgsx.f添加INFO初始化以抑制以下错误:***从ZTGSYL调用XERBLA时,INFO=-6而不是20******使用SRNAME=ZDRGSX而不是ZTGSYL调用XERBLA***此错误是在查看带有ifort 9.1的Intel 2 Core Duo的以下INFO错误时发现的从zgd.out:>矩阵顺序=10,类型=16,种子=3602,5051192389,结果1为4.504D+15>ZGS驱动程序:1549次测试中有1次未能通过阈值>***来自ZDRGES的错误代码=6>------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/BLAS/TESTING/cblat2.f(M/分行/六月发布/lapack/BLAS/测试/cblat2.f)M/branchs/june发布/lapack/BLAS/TESTING/cblat3.fM/branchs/june-release/lapack/BLAS/TESTING/dblat2.fM/branchs/june-release/lapack/BLAS/TESTING/dblat3.fM/branchs/june-release/lapack/BLAS/TESTING/sblat2.fM/branchs/june-release/lapack/BLAS/TESTING/sblat3.fM/分行/june-release/lapack/BLAS/TESTING/zblat2.fM/分行/june-release/lapack/BLAS/TESTING/zblat3.fM/branchs/june-release/lapack/BLAS/cblat2.in分行/六月放款M/分行/六月放款/拉帕克/BLAS/cblat3.inM/分行/june-release/lapack/BLAS/dblat2.inM/branchs/june-release/lapack/BLAS/dblat3.inM/分行/june-release/lapack/BLAS/sblat2.inM/branchs/june-release/lapack/BLAS/sblat3.in公司M/分行/june-release/lapack/BLAS/zblat2.inM/分行/june-release/lapack/BLAS/zblat3.inM/branchs/june发布/lapack/Makefile而不是移动。BLAS 2和BLAS 3测试的Makefile中的SUMM文件到.out文件,将.in文件中的输出名称更改为.out。更改make cleanblas_testing的行为在移除BLAS/x*和BLAS/*之前。SUMM文件现在它只删除BLAS/x*文件(比如make cleantesting just remove TESTING/x*files)make-cleanall正在删除BLAS/*.out文件------------------------------------------------------------------------更改的路径:M/branchs/june-release/lapack/INSTALL/生成文件A/branchs/june-release/lapack/INSTALL/dsecnd_EXT_ETIME.fA/branches/6月发布/lapack/INSTALL/dsecnd_EXT_ETIME_.fA/branches/june-release/lapack/INSTALL/dsecnd_INT_CPU_TIME.fA/branchs/june-release/lapack/INSTALL/dsecnd_INT_ETIME.fA/branchs/june-release/lapack/INSTALL/dsecnd_NONE.fM/分行/六月发布/翻盖/安装/品牌.inc.ALPHAM/分行/六月发布/翻盖/安装/品牌inc.HPPAM/branches/6月发布/lapack/INSTALL/make.inc.IRIX64M/branchs/june-release/lapack/INSTALL/make.inc.LINUX公司M/branchs/june-release/lapack/INSTALL/make.inc.O2K公司M/分行/六月发布/翻盖/安装/品牌.inc.RS6KM/分行/六月发布/翻盖/安装/品牌.inc.SGI5M/branchs/june-release/lapack/INSTALL/make.inc.SUN4公司M/分行/六月发布/翻盖/安装/品牌.inc.SUN4SOL2A/branchs/june-release/lapack/INSTALL/make.inc.gfortran公司M/branchs/june-release/lapack/INSTALL/make.inc.pghpfA/branchs/june-release/lapack/INSTALL/second_EXT_ETIME.fA/branchs/june-release/lapack/INSTALL/second_EXT_ETIME_.fA/branchs/june-release/lapack/INSTALL/second_INT_CPU_TIME.fA/branchs/june-release/lapack/INSTALL/second_INT_ETIME.fA/branchs/june-release/lapack/INSTALL/second_NONE.fM/分行/june-release/lapack/make.inc.exampleETIME的修改。我选择了Jason建议的方法,在make.inc中使用一个变量来选择要使用的SECOND和DSECND例程。提供5种SECOND口味(与DSECND相同)second_EXT_ETIME.f:second将使用对EXTERNAL FUNCTION ETIME的调用[Default]second_EXT_ETIME_.f:second将使用对EXTERNAL FUNCTION ETIME_[RS6K]的调用second_INT_ETIME.f:second将使用内部函数ETIME[gfortran]second_INT_CPU_TIME.f:second将使用对内部功能CPU\_TIME[Nag编译器等的调用。]second_NONE.f:second将始终返回0有关讨论的更多信息,请访问LAPACK wiki:http://icl.cs.utk.edu/trac/lapack-dev/wiki/Etime为gfortran添加了一个名为make.inc.gfortran的新make.in对现有make.inc进行了修改------------------------------------------------------------------------更改的路径:D/branchs/june-release/lapack/INSTALL/dsecnd.f文件D/分行/june-release/lapack/INSTALL/dsecnd.f.RS6KD/branchs/june release/lapack/INSTALL/lawn81.pdfD/分行/六月释放/翻盖/安装/草坪81.psM/branchs/june-release/lapack/INSTALL/草坪81.texD/branches/6月发布/lapack/INSTALL/second.fD/分行/六月释放/翻盖/安装/秒.f.RS6K为3.1.1版本对草坪81进行了一些修改(Sven+ETIME修改意见)删除INSTALL/second.f INSTALL/dsecnd.f.RS6K INSTALL/second.f.RS 6K INTALL/dsecond.f删除INSTALL/lawn81.pdf INSTALL/lawn81.ps----------------------------------------------------------------------------