TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRIC DATA 



13 



IF (HAW(I,J2))21,20,21 



20 RAW(I,J^) = 0. 

 GO TO 23 



21 IF (RAW(I,J3))22,20,22 



22 RAW(I,J^) = RAW(I,J2) + RAW(l,J3) 



23 CONTINUE 

 C 



2k IF (NLOG)30,36,25 



25 DO 28 J = 1,NL0G 

 J2 = IDLOG(J) 



J^ = J^ + 1 



IF (RAW(I,J2))30,28,26 



26 RAW(I,J*0 = L0G10F(RAW(I,J2)) 

 28 CONTINUE 



GO TO 36 

 C 



30 WRITE OUTPUT TAPE 6,31 



31 FORMAT (1H1,23HAN0MAL0US VALUE IN DATA) 

 CALL EXIT 



C 



36 RETURN 

 END 



C--- ------- DASAN (SUBROUTINE XRATIO) --- ____ 



C 



SUBROUTINE XRATIO (NBVT) 

 C 



DIMENSION DUMMY1( 613) , INDXBV( 80 ,k ) , RATI0( 100 , 56 ) , RAW( 100 , 53 ) 

 C 



COMMON K, RAW, DUMMY1, RATIO, INDXBV 

 C 



DO 1 1=1, K 



RATI0(I,1) = RAW(I,1) 



J2 = 1 



DO 1 11=1, NBVT 



JY = INDXBV(II,1) 



JX = INDXBV(II,2) 



J2 = J2 + 1 

 1 RATI0(I,J2) = RAW(I,JY) / RAW(I,JX) 

 C 



RETURN 



END 



RAWTB kS 

 RAWTB k7 

 RAWTB kS 

 RAWTB k9 

 RAWTB 50 

 RAWTB 51 



RAWTB 52 

 RAWTB 53 

 RAWTB 5^ 

 RAWTB 55 

 RAWTB 56 

 RAWTB 57 

 RAWTB 58 

 RAWTB 59 



RAWTB 60 

 RAWTB 61 

 RAWTB 62 



RAWTB 63 

 RAWTB Gk 



RATIO 1 



RATIO 2 



RATIO 3 



RATIO k 

 RATIO 5 

 RATIO 6 

 RATIO 7 

 RATIO 8 

 RATIO 9 

 RATIO 10 

 RATIO 11 



RATIO 12 

 RATIO 13 



C___-_ _-- DASAN (SUBROUTINE XPUNCH) ----------- 



C 



SUBROUTINE XPUNCH ( NUVTOT, NBVT OT, PUNCH) 



Q 



DIMENSION DUMMY1(320) ,DUMMY2(l73) ,FMT2( 60) , FMT3(60) ,RATIO( 100, 56) 

 1RAW(100,53) 



C 



c 



COMMON K , RAW , DUMMY 1 , FMT2 , FMT3 , DUMMY2 , RATIO 



IF (PUNCH - 2„)1,2,1 

 1 PUNCH = PUNCH - 1. 



PUNCH 1 



, PUNCH 2 



PUNCH 3 



PUNCH *t 



PUNCH 5 



PUNCH 6 



