-68- 



C FBHC0013 



SOBROOTIBE FRUCLS FBBC0020 



C FFMC0030 



C*********************************************************** ******* *****FB.tlCQOHO 



C PEBC0050 



C THIS SOBPEOGRAH READS IN AN AREA? OF FOEH CLASSES FEOH A FEnC0050 



C OSER SPECIFIED DISK FILE. THIS DISK FILE IS FREE FOBHATTED FRHC0070 



C OSING LIST DIRECT ED INPUT. THE USEE IS GIVEN THE OPTION FEHCOOSO 



C TO LIST THE FOBB CLASSES AFTER THEY AEE READ. FEMC0090 



C FEMC0 190 



C** ***«******«>******•***********«********«****«************«***** *******FRHCO 110 



C FRHC0120 



INTEGER FC(32) ,SPECIE(32) PBMC3130 



DOOBLE PRECISION FCFILE FRBC0140 



REAL fiEGCOF(33) ,BEGINT(33) ,SEBEG(35) .BSQB (33) ,HERNY(35) FBHCOISO 



INTEGEB aiNDBH(32) ,NTR(35) ,TOT»TR(35) FRHC0150 



COMaON/SEG/REGCOF,BEGINT,SPECIE,HIHDBH,SEREG,NTR, RSQR.HEANY FRI1C0170 



I.TOTNTB FBHC0130 



COHBON/FORMCL/FC PRaC0190 



C HAVE OSER SPECIFY FOBH CLASS FILE NABE FBHC0230 



«EITE(5,10) FBHC0210 



10 FOEBAT('0 ENTER FOEH CLASS FILE NAME') FEI1C0220 



Z BEAD FOBM CLASSES FBOH FILE FEMC0230 



BEAD(5,20) FCFILE FRMC02aO 



20 FORHAT(AIO) FRHC0250 



OPEN(FILE=FCFILE,ACCESS=«SEQIN',0HIT=1) PRaC0 260 



READ(1,30) FC FRWC0270 



30 FOBHAT(8{I2,X)) FBHC0230 



C ASK USEE IF HE WANTS TO LIST FOEH CLASSES JUST BEAD FBBC0290 



UO BEITE{5,50) FEHC0300 



50 FORHAT('0DO YOO WANT A LIST OF THE FOEH CLASSES JOST READ?') FBaC0310 



READ(5,60) LSTANS FBaC0320 



60 F0RHAT(A3) FBBC0330 



IF(LSTANS.NE. ■ YES' .AND.LSTANS. NE. 'NO') GOTO HO FBHC0340 



IF (LSTANS. EQ. 'NO') EETOEN FEHC0350 



WRITE(5,70) (SPECI2(I) ,FC(I) ,1=1,32) FRaC0350 



70 FOBBAT('0',8(/' •,4(A2,' = ',I2,5X))) FRaC0370 



EETOBN FEHC0330 



END FBHC0390 



