APPENDIX II 

 Calling Program Example 



DI MENSI CN PP( 20) ,1 OS AM( 20) , I D ( 200 ) , CH AR ( 200 ) 

 KR = -32860S067 

 LR = 1439359205 

 MR = 402656419 

 ^RITE (6,906) 

 9C6 FORMAK IHl ) 



10 READ( 5,908, END-200)iMP, NSAM 

 90 8 FORMAK 315) 



12 READ (5,909) ( I D ( I ) , CH AR ( I ) , I = 1 , NP ) 

 9 09 FORHAK I5,F10.5) 



WRITE (6,904) MSAM, ( I D ( I ) , CH AR ( I ) , I - 1 , N P ) 

 904 FORMAK ///i4X,'P0PULATICN'//lH SX , • I D • , 1 1 X , • E ST . SIZE'6X,'N0. OF U 

 IMITS TO BE ' /40X, 'MEASURED = • , I 5/ ( I 1 1 , F2 . 5 ) ) 

 2C CALL PPSnRT(NP,IO,CHAR,NSAM,IDSAM,PP,TX,TS , T F , NRS , N , L R , MR, KK ) 

 IF ( NSAM .GT. NP) NSAM = NP 



WRITE ( 6,90 7) N ,NR S, TX , TS, TP, ( IDS Ay ( I ) , PP( I ) , 1= l,NS AM) 

 907 F0KMAT(46X • SAMPLES DRA WN • / /40X • ( NC. IN STRATUM = • , 1 5 , • ) ' / 40X , 

 IM "JO. OF SAMPLES = • , I 5 , • ) • / 40 X , • ( TX = • , E 1 6 . 7 , • ) ' / 40X , M TS 



2 E 16.7, •) •/40X, M TP = • , E 16 . 7 , • ) • , / / 45 X , • I D • , 2 X , • P RU BA B IL I T Y • / / 



3 ( 42X,I5,E15.7) ) 



READ ( 5,908 ,END=200) NP, NSAM, NEW 



IF ( NEW .LE. ) GO TC 12 



WRITE (6,910) --ISAM 

 910 FORMAT('0 ADDITIONAL 'flQ,' UNITS TO 3E MEASURED FROM SAME POPUL 

 lATION. ' //) 



GO TO 20 

 20C RE TURN 



END 



16 



