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/osnew/aimax.f | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 orrs/osnew/aimax.f (limited to 'orrs/osnew/aimax.f') diff --git a/orrs/osnew/aimax.f b/orrs/osnew/aimax.f new file mode 100644 index 0000000..6953c20 --- /dev/null +++ b/orrs/osnew/aimax.f @@ -0,0 +1,43 @@ + + PARAMETER (NHX=8, NRX=40) + DIMENSION H(NHX), R(0:NRX) + CHARACTER*5 HNAME(NHX) + LOGICAL OK +C + DATA H / 3.0, 3.5, 4.0, 5.0, 6.0, 8.0, 12.0, 20.0 / + DATA HNAME / 'ai.03' , + & 'ai.35' , + & 'ai.04' , + & 'ai.05' , + & 'ai.06' , + & 'ai.08' , + & 'ai.12' , + & 'ai.20' / +C + FSP = 0.08 +C + DO IR=0, NRX + R(IR) = 10.0 ** (FLOAT(IR)/10.0) + ENDDO +C + DO IH = 1, NHX +C + OPEN(1,FILE=HNAME(IH),STATUS='unknown') + WRITE(1,1000) '#', H(IH) + 1000 FORMAT(A, F10.5) +C + DO IR=1, NRX + CALL OSHAI(R(IR),FSP,H(IH), AI, + & AI_R, AI_F, AI_H, + & AIF_R,AIF_F,AIF_H , OK) +C + WRITE(1,1200) LOG10(R(IR)), -AI + 1200 FORMAT(1X,F10.5, F12.6) +C + ENDDO + CLOSE(1) + ENDDO +C + STOP + END + -- cgit v1.2.3