※ 引述《yeap (^^!)》之銘言：
: ※ 引述《kaostart (嚐嚐孤寂的滋味)》之銘言：
: : 那是什麼鬼啊？
: : 畢業不能用之前做的東西嗎？
: 那是netlib裡面專門用來解sparse linear system的工具
: 我安裝到unix 上面了 可是我不會用 他的doc我也看不懂
: 滿無助的 ><!
他的 doc 好少唷
你有成功的 make 起來他的 source code 嗎?
我跟 fortran 不太熟, 搞不起來,
我把 error message 給你看
f77 -g -c slapqc.f
slapqc.f: In subroutine `srmgen':
slapqc.f:576:
ISEED = RAND( 16381.0 )
^
Too many arguments passed to intrinsic `RAND' at (^)
slapqc.f:592:
INUM = (IFIX( RAND(0.0)*NL ) + 1)/3
^
Too many arguments passed to intrinsic `RAND' at (^)
slapqc.f:609:
A(NELT) = -RAND(0.0)
^
Too many arguments passed to intrinsic `RAND' at (^)
slapqc.f:659:
SOLN(I) = RAND(0.0)
^
Too many arguments passed to intrinsic `RAND' at (^)
slapqc.f: In subroutine `smpl':
slapqc.f:701:
INDX(1) = IFIX( RAND(0.0)*N ) + 1
^
Too many arguments passed to intrinsic `RAND' at (^)
slapqc.f:704:
10 ID = IFIX( RAND(0.0)*N ) + 1
^
Too many arguments passed to intrinsic `RAND' at (^)
*** Error code 1
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.138.145.231