TTN5.4A 



09/04/68 



SUBPeUTrNE REDUCE 



CRMM0\/PReFlLP/K,T(9O).M,nL(9O),Tl (90), RMS (90) 

 DIMFNSI0N A(90).B(90),MlN(90).MA)f(90).IP@INT(90) 



********************** «•**«•**,• •«..,*♦.,* ».,. 



?URPR9GRAi. FSR caLCuuaTinq LINES er FIT reP 



cere. "^^^f F0RMATTED DATA 

 VERGBN R*p NAV9CPAN0 ^/23/68 



***•*•****••♦* .»*•.•» ,.♦ •••.•,••»...•* ,., 



IPPllNTd )t\ S DL(l)si. 



C*********«*««*«**#*«4ii^«*«««*«*^^ 



*****»*m*****m»»*m«f00m*»m**m**0*^ti0 



C IDENTIFY AN INITIAL bET 0F TMjN LIKE SETS (OfRDS) IN Tl-E DATA. 

 ^******* *• * •*»*•••. .•*«•• ». .»,. 



L«0 S 1^82 



12 CALL C©FD(T(l ).J,N»NUP,ND0w,Al,Bl) 

 IF(L) 1<,14,15 



15 rs l*? Kii,L 

 IFtNUP-MN (K) ) i3il6,18 



16 IF(Nn0W-MAX(K)) i^TlSn? 



17 ^'AX{K)■^DG;^ $ a(K)=ai s b(K)>Bi 



IF(\Dew.o) i3.l4.2i 



13 J«J*1 S IF(K-j) 22il2,l2 



18 C0NTI\UE 



14 L=L*1 J MN(L)»KUPJMaX(L)«ND0WS Aa)«Al S B(L)aPl 

 2j J«NDl?w 5IF(N-^> 22»22fi2 « i- «i » oiLJ-ei 



SELECT A SET QF NEIGHbSRInQ rSRoS. MTNIMIZING C0RD OVERLAP, 



22 ►'ai 



?3 KslP(!)|N7(>) S ITBY»HAX(K>*i 



K2=K*i 

 24 K2=K9*1 3 IF(L-K2) 26i25,25 

 ?^ IF( ITRY-MIK(K2) ) 26i24,24 

 ?* K?=K2-i f IF(K2-K> 259'.259.26o 

 ?59 CPNTINLE 



•<2«K?*1 $ !F( L-K2) 31,261,261 

 96-1 RLlMsMAX<K )*j^ 



MLIM5MIN(k2)-1 J M»M*1 $ IP0lNT(M)sK2 

 DL (»^)«.5« (HLlK*RLlM) 



TL(M)a,5«(A(K)*A(K2)*(B(K)*B(K2)>»DL(M)) 

 IF(N-MAV(K2> ) 3i,3l,23 



?6n RLIM = KA)((H ) + l $ HUIMbMiN(K2)-1 % D I = B ( K? ) -B ( K ) 

 IF(ni) 2e.26.2« 

 2P ri = ( A (k )-A (K? ) )/cl 



TF(RLIM,ri) 26,29.29 

 2t3 TF(DT-WLr^) 26,50»30 

 3n ^'sM♦l 3 IF0INT(K) = K2 » Dl(M)sDI $ TL ( M > = A ( K ) ♦DI •B ( K ) 



A-] 



