fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Alfredo Buttari
2005-09-16 09:01:40 +00:00
parent cd656f8f4b
commit 6f2ca4384d
12 changed files with 47 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/serial/f77/dswsm.f
+1 -1
View File
@@ -168,7 +168,7 @@ C VAL, INDX, PNTR
C INFOT(*) not used
C
CALL DCSRSM(TRANS,M,N,UNITD,D,ALPHA,DESCRT,T,IT1,
& IT2,B,LDB,BETA,C,LDC,WORK,LWORK)
& IT2,B,LDB,BETA,C,LDC,WORK,LWORK,IERROR)
ELSE IF (FIDT(1:3).EQ.'JAD') THEN
CALL DJADSM(TRANS,M,N,D,UNITD,0,ALPHA,DESCRT,T,IT1,IT2,