aboutsummaryrefslogtreecommitdiff
path: root/orrs/src/ORRS.INC
diff options
context:
space:
mode:
Diffstat (limited to 'orrs/src/ORRS.INC')
-rwxr-xr-xorrs/src/ORRS.INC15
1 files changed, 15 insertions, 0 deletions
diff --git a/orrs/src/ORRS.INC b/orrs/src/ORRS.INC
new file mode 100755
index 0000000..f150498
--- /dev/null
+++ b/orrs/src/ORRS.INC
@@ -0,0 +1,15 @@
+ PARAMETER (NMAX=2001,NRMAX=3)
+ COMPLEX A,B,C,R, F0,F1,F2,F3
+ COMPLEX FNORM,IRE, ALPHA,DALPHA, OMEGA,DOMEGA, ALINIT,OMINIT
+ COMPLEX FAC, FACSQ, FAC_AL, FAC_OM, FAC_RE
+C
+ COMMON/OS_CPX/
+ & A(4,4,NMAX),B(4,4,NMAX),C(4,4,NMAX),R(4,NRMAX,NMAX),
+ & F0(NMAX),F1(NMAX),F2(NMAX),F3(NMAX),FNORM,
+ & IRE,ALPHA,DALPHA, OMEGA,DOMEGA, ALINIT,OMINIT,
+ & FAC, FACSQ, FAC_AL, FAC_OM, FAC_RE
+ COMMON/OS_REL/
+ & Y(NMAX),U(NMAX),UD(NMAX),
+ & RLX,DFMAX,DFRMS, RESMAX,RESRMS
+ COMMON/OS_INT/
+ & LST, LRE, N, NRHS, ITER, ITMAX, IBC,ISOL