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

*** empty log message ***

Browse Source
This commit is contained in:
Alfredo Buttari
2005-09-21 13:32:25 +00:00
parent 17ae68eacb
commit 1b407fa3ec
7 changed files with 31 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/serial/f77/dcsmm.f
+1 -1
View File
@@ -175,7 +175,7 @@ C .. Local Scalars ..
INTEGER LWORKM, LWORKB, LWORKC, LWORKS, P, ERR_ACT
LOGICAL LP, RP
C .. Local Array..
INTEGER INT_VAL(5)
INTEGER INT_VAL(5),iunit
CHARACTER*20 NAME
DOUBLE PRECISION REAL_VAL(5)
CHARACTER*30 STRINGS(2)