aboutsummaryrefslogtreecommitdiff
path: root/orrs/src/OSPRES.INC
diff options
context:
space:
mode:
Diffstat (limited to 'orrs/src/OSPRES.INC')
-rw-r--r--orrs/src/OSPRES.INC13
1 files changed, 13 insertions, 0 deletions
diff --git a/orrs/src/OSPRES.INC b/orrs/src/OSPRES.INC
new file mode 100644
index 0000000..981abe5
--- /dev/null
+++ b/orrs/src/OSPRES.INC
@@ -0,0 +1,13 @@
+ PARAMETER (NMAX=2001,NRMAX=3)
+ COMPLEX A,B,C,R, F0,F1, VT
+ COMPLEX ALPHA
+C
+ COMMON/OSP_CPX/
+ & A(2,2,NMAX),B(2,2,NMAX),C(2,2,NMAX),R(2,NRMAX,NMAX),
+ & F0(NMAX),F1(NMAX), VT(NMAX),
+ & ALPHA
+ COMMON/OSP_REL/
+ & Y(NMAX),U(NMAX),
+ & RLX,DFMAX,DFRMS, RESMAX,RESRMS
+ COMMON/OSP_INT/
+ & N, NRHS, ITER, ITMAX, IBC,ISOL