12 



UNITED STATES NATIONAL MUSEUM BULLETIN 285 



C 

 C 



9 



10 



2DUMMY3,MMTRNS 

 DO 28 1=1, K 



IF (NG LASS) 30,^,1 

 . DO 3 J=1,NGLASS 

 J2 = IDGLAS(J) 

 IF (RAW(I,J2))30,3,2 

 RAW(I,J2) = RAW(I,J2) 

 CONTINUE 



- GLASS 



IF (NMMTRN)30,7,5 



DO 6 J=1,NMMTRN 



J2 = IDMTRl(J) 



RAW(I,J2) = RAW(I,J2) / OCULAR 



IF (NTRNS)30,11,8 



DO 10 J=1,NTRNS 



J3 = IDMTR2(J) 



IF (MMTRNS(I,J))9,30,10 



RAW(I,J3) = RAW(I,J3) / OCULAR 



CONTINUE 



RAWTB 7 



RAWTB 8 



RAWTB 9 

 RAWTB 10 

 RAWTB 11 

 RAWTB 12 

 RAWTB 13 

 RAWTB 1^ 



RAWTB 15 

 RAWTB 16 

 RAWTB 17 

 RAWTB 18 

 RAWTB 19 

 RAWTB 20 

 RAWTB 21 

 RAWTB 22 

 RAWTB 23 

 RAWTB 2k 



C 

 C 

 C 

 C 

 C 

 C 

 C 

 C 

 C 

 C 

 C 

 C 



11 Jk = L 



NSPCMP = 



Jk = Jk + 1 



NSPCMP = NSPCMP + 1 



12 EAW(I,Jlf) 



RAW(I,21) * RAW(I,20) 



RAWTB 25 

 RAWTB 26 



RAWTB 27 

 RAWTB 28 



RAWTB 29 



ADD ADDITIONAL COMPUTATIONS LIKE STATEMENT NO. 12 IN PLACE OF 

 THESE COMMENTS. EACH COMPUTATION MUST BE PRECEDED BY jWf + 1 AND 

 NSPCMP = NSPCMP + 1, AND EACH COMPUTATION STATEMENT BEGINS LIKE 

 STATEMENT NO. 12. WITH RAW(I,J^) ON LEFT SIDE OF = SIGN. NO STATE- 

 MENT NUMBERS ARE REQUIRED. 



IF (NSUB)30,l8,13 RAWTB 30 



13 DO 17 J=1,NSUB RAWTB 31 



J2 = IDMIN(J) RAWTB 32 



J3 = IDSUBT(J) RAWTB 33 



J*f = J^t + 1 RAWTB 3k 



IF (RAW(l,J2))l5,lif,15 RAWTB 35 



Ik RAW(I,J*f) = 0. RAWTB 36 



GO TO 17 RAWTB 37 



15 IF (RAW(I,J3))16, 1^,16 RAWTB 38 



16 RAW(l,J^f) = RAW(I,J2) - RAW(I,J3) RAWTB 39 



17 CONTINUE RAWTB kO 



18 IF (NADD) 30,2^f,19 RAWTB kl 



19 DO 23 J=1,NADD RAWTB k2 

 J2 = IDADDI(J) RAWTB kj> 

 J3 = IDADD2(J) RAWTB V+ 

 Jk = Jif + l RAWTB ^5 



