aboutsummaryrefslogtreecommitdiff
path: root/orrs/src/bi2as.f
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2009-05-11 00:27:49 +0000
committerDimitri Sokolyuk <demon@dim13.org>2009-05-11 00:27:49 +0000
commit0d4f43d355de79178b1142e9735902cf641670b6 (patch)
tree2ced2323f6351db2a51090b3fd13eb11f69ff53f /orrs/src/bi2as.f
Xfoil 6.97
Diffstat (limited to 'orrs/src/bi2as.f')
-rwxr-xr-xorrs/src/bi2as.f36
1 files changed, 36 insertions, 0 deletions
diff --git a/orrs/src/bi2as.f b/orrs/src/bi2as.f
new file mode 100755
index 0000000..d443ef8
--- /dev/null
+++ b/orrs/src/bi2as.f
@@ -0,0 +1,36 @@
+ PROGRAM BI2AS
+C-------------------------------------------------------
+C Converts a set of binary OS data files
+C into the equivalent ASCII OS data files.
+C The files to be converted are listed
+C in a text file given as the argument.
+C The binary files are assumed to end with "bin".
+C The ASCII files are assumed to end with "dat".
+C-------------------------------------------------------
+ PARAMETER (NMAX=257,NRX=101,NWX=91,NHX=21)
+ REAL ETA(NMAX,NHX), U(NMAX,NHX), S(NMAX,NHX)
+ REAL AR(NRX,NWX,NHX), AI(NRX,NWX,NHX)
+ REAL RTL(NRX,NHX)
+ REAL WSL(NWX,NHX)
+ REAL HH(NHX)
+ INTEGER N(NHX), NRP(NHX), NWP(NHX)
+ CHARACTER*80 ARGP
+C
+ CALL GETARG(1,ARGP)
+C
+ CALL READOS(ARGP,0,
+ & N,NMAX,ETA,U,S,
+ & NRP,NWP,NHP,
+ & RTL,WSL,HH , AR,AI,
+ & NRX,NWX,NHX)
+C
+ CALL WRITOS(ARGP,1,
+ & N,NMAX,ETA,U,S,
+ & NRP,NWP,NHP,
+ & RTL,WSL,HH , AR,AI,
+ & NRX,NWX,NHX)
+C
+ STOP
+ END
+
+