COMPUTER PROGRAM USER'S MANUAL FOR ... - CAFE Foundation
COMPUTER PROGRAM USER'S MANUAL FOR ... - CAFE Foundation
COMPUTER PROGRAM USER'S MANUAL FOR ... - CAFE Foundation
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
FOXTRAV I V G LFVEL 20.1 P-ERFH- DATE = 72035 . - . . .13/ 32i.24.<br />
0342<br />
0043<br />
03 44 00 45<br />
00 46<br />
004 7<br />
004R<br />
00 49<br />
0350<br />
005 1<br />
03 52<br />
OD53<br />
00 54<br />
0355<br />
00 56<br />
0057<br />
0358<br />
0059<br />
00 60 '336 1<br />
OOh?<br />
00 h3<br />
00h4<br />
0065<br />
0366<br />
0367<br />
COh8<br />
03 69<br />
03 70<br />
C071<br />
03 72<br />
0373<br />
ao 74<br />
0375<br />
05 76<br />
0077<br />
03 78<br />
c079<br />
00 80<br />
0381<br />
OG82<br />
008 3<br />
0384<br />
0385<br />
00 86<br />
9087<br />
009 8<br />
0089<br />
0090<br />
0091<br />
009%<br />
0093<br />
30979r09811~9841~987109~0~0~~31~9~6~~000~10~~110C0~10<br />
..<br />
4~944~~945~~950r~958~~9661~975~~984109901~996~0~99~1~<br />
5.9011. 905+.912~.927~. 9421. ~5410964109741~~~4T0990~090~1 .9031 .<br />
6.862~.866,.875~.R921.909r.9261.9421.926~.942~o~57~.970~o9~~~.984~.984~<br />
7.806108131.82510851 r.877~~904+~924?0939?o9~2~o96lr~97-1~~9~~/<br />
-<br />
KK= 1<br />
' AST ERK=999999<br />
C AN ADJUSTMENT <strong>FOR</strong> CP AkC CT FCR AF<br />
03 120 K=lr2<br />
CALL UNIrVT '(~~AFVAL~~)~AFCPC.(~~K~~AFTIAFCPIK~~LIMTTJ<br />
CALL UNINT I6*AFVAl(ll rAFCTC(1 rK) rbFT+AfCT(K)qLIMIT 1 , . . . . . . . . .<br />
120 CONT INUF<br />
DO 100 K=397<br />
AFCP(K)=AFCP(Z)<br />
100 AFCT (K)=AFCT (2 1<br />
IF1ZJI0GT..51 GO TO 105<br />
AFCPE=2.*ZJI*IAFCPl 2)-AFCP(l) )+AFCPI 1)<br />
AFCTE=2.*ZJI*(AFCT(2I-AFCT(II)+AFCT( 1)<br />
GO TO 110<br />
105 AFCPF=AFCP( 2)<br />
AFCTE=AFCT[Z I<br />
110 IF(ZJI.CT.1.9) GO TC 140<br />
NRFG= 1<br />
NE ND=4<br />
GO TO 14R<br />
140 IF(ZJI.GT.1.5)<br />
NRFG=2<br />
NE ND=5<br />
Gn TO 14R<br />
60 TO 142<br />
142 IFltJI.GT.2.0.AND.IW.LT.3)<br />
N3FG=3<br />
NENr)=h<br />
GO TO 14FI<br />
147 N3FG-4<br />
NFNO=7<br />
148 CUNT I NU€<br />
N6L=O<br />
Dq 130 II=lrh<br />
IZ=T I<br />
GO TO 147<br />
IF(ABT(CLI-CCLI( II)).LF..OCO91<br />
130 CONTINUE<br />
GO Tfl 135<br />
IF(CLI aGTm.61<br />
FICL T=l<br />
NCLTT=4<br />
GO TO 131<br />
GO TO 119<br />
131 IF(CLI.GT..7)GO<br />
KC LT =Z<br />
NZLTT=5<br />
GO TO 119<br />
132 FICLT=3<br />
N3L JT=6<br />
GO TO 119<br />
135 NCLT=IZ<br />
N".=1<br />
hCLTT= I2<br />
11 9 CqNTI NtJE<br />
TO I32<br />
NB= BLADT+. 1<br />
LMcJD=MOC(NB, 2)+1<br />
FIGURE 3A. <strong>FOR</strong>TRAN IV LISTING (CONTINUED)<br />
59