22 



UNITED STATES NATIONAL MUSEUM BULLETIN 



YMAX2(LL) = SPMAX(J2) * BYX(LL) + AY(LL) 



BVYXY112 



IF (LGT)4 9,48, 49 



48 VDY = SPMAX(Jl) / 49. 

 VDX = SPMAX(J2) / 35. 

 GO TO 50 



49 VDY = (SPMAX(Jl) - SLGMIN(JI)) / 49. 

 VDX = (SPMAX(J2) - SLGMIN(J2)) / 35. 



50 T0P2(LL) = (YMAX2(LL) - SPMAX(Jl)) / VDY 

 BASE2(LL) = AY(LL) / VDY 



TOPMLL) = (XMAX(LL) - SPMAX(J2)) / VDX 

 BASEJCLL) = AX(LL) / VDX 



BVYXY113 

 BVYXY114 

 BVYXY115 

 BVYXY116 

 BVYXY117 

 BVYXY118 

 BVYXY119 

 BVYXY120 

 BVYXY121 

 BVYXY122 



IF (LGT)15,16,15 



15 DO 17 1=1, K 

 X(I,J1) = TX(I,1) 



17 X(I,J2) = TX(I,2) 

 SPMAX(Jl) = TSPMAX 

 SPMAX(J2) = TSPMXX 



16 CONTINUE 



54 NN = NBIVAR 



BVYXY123 

 BVYXY124 

 BVYXY125 

 BVYXY126 

 BVYXY127 

 BVYXY128 

 BVYXY129 

 BVYXY130 



IF (M+MM)36,31,36 

 31 IF (8l-K)45,46,46 



45 WRITE OUTPUT TAPE 6,19 



46 WRITE OUTPUT TAPE 6 , l8 

 GO TO 39 



36 IF (M)43, 42,43 



42 IF (50-K)44,46,46 

 44 WRITE OUTPUT TAPE 6,19 



43 WRITE OUTPUT TAPE 6 ,40, (LGCOL(J) , J=l , IM) 

 39 WRITE OUTPUT TAPE 6 , FMT8, ( R( J) , J=2 , NN) , (BYX( J) , J = 



INN), (BXY(J),J=2,NN), (AX( J) , J=2 , NN) , (STESTY( J) , J=2 

 2=2,NN),(DYX(J),J=2,NN), (ERRDYX( J) , J=2 , NN) , (DXY(J) 

 3J),J=2,NN), (C0NBYX(J),J=2,NN), (CONAY( J) , J=2 , NN) , ( 

 4, (C0NAX(J),J=2,NN), (YMAX2(J), J=2,NN),(XMAX(J), J=2 

 5 , NN) , ( BASE2 ( J ) , J=2 , NN ) , ( TOP3 ( J ) , J=2 , NN) , ( BASE3 ( J ) 



BVYXY131 

 BVYXY132 



BVYXY133 

 BVYXY134 



BVYXY135 

 BVYXY136 

 BVYXY137 

 BVYXY138 

 BVYXY139 



2,NN), (AY(J),J=2,BVYXYl40 

 ,NN), (STESTX(J), JBVYXY141 

 , J=2,NN), (ERRDXY(BVYXYl42 

 CONBXY(J) , J=2,NN)BVYXY143 

 ,NN), (T0P2(J), J=2BVYXYl44 

 ,J=2,NN) BVYXY145 



BVYXY146 

 BVYXY147 

 BVYXY148 

 BVYXY149 

 BVYXY150 

 BVYXY151 

 BVYXY152 

 BVYXY153 

 BVYXY154 

 BVYXY155 

 BVYXY156 

 BVYXY157 

 BVYXYI58 

 BVYXY159 



