blob: 23c0d4246a85411fb465af35e0eb6f92e7287ee4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- modules/differential_equations/src/fortran/twodq.f.orig 2018-05-16 20:42:33.979697886 +0200
+++ modules/differential_equations/src/fortran/twodq.f 2018-05-16 20:42:41.759729029 +0200
@@ -900,7 +900,7 @@
END
subroutine tridv(node,node1,node2,coef,rank)
- double precision node(10),node1(10),node2(10),coef
+ double precision node(9),node1(9),node2(9),coef
integer rank
double precision s(3),coef1,temp
integer t(3)
|