From 0d4f43d355de79178b1142e9735902cf641670b6 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Mon, 11 May 2009 00:27:49 +0000 Subject: Xfoil 6.97 --- orrs/src/OSPRES.INC | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 orrs/src/OSPRES.INC (limited to 'orrs/src/OSPRES.INC') 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 -- cgit v1.2.3