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/as2bi.f | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100755 orrs/src/as2bi.f (limited to 'orrs/src/as2bi.f') diff --git a/orrs/src/as2bi.f b/orrs/src/as2bi.f new file mode 100755 index 0000000..1b406a8 --- /dev/null +++ b/orrs/src/as2bi.f @@ -0,0 +1,35 @@ + PROGRAM AS2BI +C------------------------------------------------------- +C Converts a set of ASCII OS data files +C into the equivalent binary OS data files. +C The files to be converted are listed +C in a text file given as the argument. +C The ASCII files are assumed to end with "dat". +C The binary files are assumed to end with "bin". +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,1, + & N,NMAX,ETA,U,S, + & NRP,NWP,NHP, + & RTL,WSL,HH , AR,AI, + & NRX,NWX,NHX) +C + CALL WRITOS(ARGP,0, + & N,NMAX,ETA,U,S, + & NRP,NWP,NHP, + & RTL,WSL,HH , AR,AI, + & NRX,NWX,NHX) +C + STOP + END + -- cgit v1.2.3