	SUBROUTINE MUONRO(FUCU,ELEMNT,WT,TARGET)
	DIMENSION      ELEMNT(10),WT(10)
	COMMON/IO/ IRD,ITYP,IPRT,ISCRT,ICOBRG,LIMPRT,IDBUG
	CHARACTER*2 ELEMNT, SYM(103), TARGET
	REAL UMO(83),UCU(83),UCO(83)
C  IF ATOMIC WEIGHTS ARE EVER NEEDED DIMENSION AW TO 103
C  AND REMOVE COMMENTS FROM DATA STATMENTS BELOW
C
C THIS PROGRAM CALCULATES THE MOLECULAR WT.,PERCENT COMPOSITION AND THE
C  MASS ABSORPTION COEFFICIENTS FOR MO,CU AND CO X-RADIATIONS
C  FOR COMPOUNDS CONTAINING UP TO 16 DIFFERENT ELEMENTS
C  ATOMIC WEIGHTS.
	DATA SYM
     1             /'H ','HE','LI','BE','B ','C ','N ','O ','F ','NE',
     1             'NA','MG','AL','SI','P ','S ','CL','AR','K ','CA',
     1             'SC','TI','V ','CR','MN','FE','CO','NI','CU','ZN',
     1             'GA','GE','AS','SE','BR','KR','RB','SR','Y ','ZR',
     1             'NB','MO','TC','RU','RH','PD','AG','CD','IN','SN',
     1             'SB','TE','I ','XE','CS','BA','LA','CE','PR','ND',
     1             'PM','SM','EU','GD','TB','DY','HO','ER','TM','YB',
     1             'LU','HF','TA','W ','RE','OS','IR','PT','AU','HG',
     1             'TL','PB','BI','PO','AT','RN','FR','RA','AC','TH',
     1             'PA','U ','NP','PU','AM','CM','BK','CF','ES','FM',
     1             'MD','NO','LW'/
C     DATA AW
C    1    /1.00797, 4.00260,  6.93900,  9.01220, 10.81100, 12.01110,
C    1   14.00670, 15.99940, 18.99840, 20.18300, 22.98981, 24.31200,
C    1   26.98151, 28.08600, 30.97380, 32.06400, 35.45300, 39.94800,
C    1   39.10201, 40.08000, 44.95599, 47.89999, 50.94200, 51.99600,
C    1   54.93800, 55.84700, 58.93300, 58.71001, 63.53999, 65.37000,
C    1   69.72000, 72.59000, 74.92200, 78.96001, 79.90900, 83.80000,
C    1   85.47000, 87.62000, 88.90500, 91.22000, 92.90601, 95.94000,
C    1   99.00000,101.07001,102.90500,106.39999,107.87000,112.39999,
C    1  114.82001,118.69000,121.75000,127.60001,126.90401,131.30000,
C    1  132.90500,137.34000,138.91000,140.12000,140.90700,144.24001,
C    1  147.00000,150.35001,151.96001,157.25000,158.92400,162.50000,
C    1  164.92999,167.25999,168.93401,173.03999,174.97000,178.49001,
C    1  180.94800,183.85001,186.20000,190.20000,192.20000,195.09000,
C    1  196.96700,200.59000,204.37000,207.19000,208.98000,210.00000,
C    1  210.00000,222.00000,223.00000,226.00000,227.00000,232.03799,
C    1  231.00000,238.03999,237.00000,242.00000,243.00000,247.00000,
C    1  247.00000,251.00000,254.00000,253.00000,256.00000,254.00000,
C    1  257.00000/
	DATA UMO
     1    /.38000,   .20700,   .21700,   .29800,   .39200,   .62500,
     1     .91600,  1.31000,  1.80000,  2.47000,  3.21000,  4.11000,
     1    5.16000,  6.44000,  7.89000,  9.55000, 11.40000, 13.50000,
     1   15.80000, 18.30000, 21.10001, 24.20000, 27.50000, 31.10001,
     1   34.70000, 38.50000, 42.50000, 46.60001, 50.89999, 55.39999,
     1   60.10001, 64.80000, 69.70000, 74.70000, 79.80000, 84.89999,
     1   90.00000, 95.00000,100.00000, 15.90000, 17.10001, 18.39999,
     1   19.70000, 21.10001, 22.60001, 24.10001, 25.80000, 27.50000,
     1   29.30000, 31.10001, 33.10001, 35.00000, 37.10001, 39.20000,
     1   41.30000, 43.50000, 45.80000, 48.20000, 50.70000, 53.20000,
     1   55.89999, 58.60001, 61.50000, 64.39999, 67.50000, 70.60001,
     1   73.89999, 77.30000, 80.80000, 84.50000, 88.20000, 91.70000,
     1   95.39999, 99.10001,103.00000,106.00000,110.00000,113.00000,
     1  115.00000,117.00000,119.00000,120.00000,120.00000/
	DATA UCU
     1    /.43500,   .38300,   .71600,  1.50000,  2.39000,  4.60000,
     1    7.52000, 11.50000, 16.39999, 22.89999, 30.10001, 38.60001,
     1   48.60001, 60.60001, 74.10001, 89.10001,106.00000,123.00000,
     1  143.00000,162.00000,184.00000,208.00000,233.00000,260.00000,
     1  285.00000,308.00000,313.00000, 45.70000, 52.89999, 60.30000,
     1   67.89999, 75.60001, 83.39999, 91.39999, 99.60001,108.00000,
     1  117.00000,125.00000,134.00000,143.00000,153.00000,162.00000,
     1  172.00000,183.00000,194.00000,206.00000,218.00000,231.00000,
     1  243.00000,256.00000,270.00000,282.00000,294.00000,306.00000,
     1  318.00000,330.00000,341.00000,352.00000,363.00000,374.00000,
     1  386.00000,397.00000,425.00000,439.00000,273.00000,286.00000,
     1  128.00000,134.00000,140.00000,146.00000,153.00000,159.00000,
     1  166.00000,172.00000,179.00000,186.00000,193.00000,200.00000,
     1  208.00000,216.00000,224.00000,232.00000,240.00000/
	DATA UCO
     1    /.46400,   .49100,  1.03000,  2.25000,  3.63000,  7.07000,
     1   11.60000, 17.80000, 25.39999, 35.39999, 46.50000, 59.50000,
     1   74.80000, 93.30000,114.00000,136.00000,161.00000,187.00000,
     1  215.00000,243.00000,273.00000,308.00000,343.00000,381.00000,
     1  414.00000, 52.80000, 61.10001, 70.50000, 81.60001, 93.00000,
     1  105.00000,116.00000,128.00000,140.00000,152.00000,165.00000,
     1  177.00000,190.00000,203.00000,216.00000,230.00000,243.00000,
     1  257.00000,272.00000,288.00000,304.00000,321.00000,338.00000,
     1  356.00000,373.00000,391.00000,407.00000,422.00000,436.00000,
     1  450.00000,463.00000,475.00000,486.00000,497.00000,543.00000,
     1  327.00000,344.00000,156.00000,165.00000,173.00000,182.00000,
     1  191.00000,199.00000,208.00000,217.00000,226.00000,235.00000,
     1  244.00000,253.00000,262.00000,272.00000,282.00000,291.00000,
     1  302.00000,312.00000,323.00000,334.00000,346.00000/
C THE FOLLOWING ROUTINE CALCULATES MASS ABSORPTION COEFFICIENTS
	FUCU=0.0
C
C  LETS MAKE SURE THAT THE CALCULATION WILL BE DONE FOR THE
C  CORRECT TARGET MATERIAL
C
	IT = 0
	IF(TARGET.EQ.'MO')IT=1
	IF(TARGET.EQ.'CU')IT=2
	IF(TARGET.EQ.'CO')IT=3
	IF(IT.GT.0)GO TO 20
	WRITE(ITYP,1001)TARGET
	IF(ITYP.NE.IPRT) WRITE(IPRT,1001)TARGET
1001	FORMAT(//' The program cannot compute mu/ro for ',A2,
     1' radiation - you must do it by hand and input it to',
     2' AUTO'/' For test only we will set it arbitrarily to ',
     3'50 and continue but all answers will be trash!!!!!!!'//)
	FUCU = 50.0
	GO TO 999
C
C  NOW CHECK THAT A REAL ELEMENT HAS BEEN CALLED IN
C
20	IF(ELEMNT(1).NE.'  ')GO TO 50
	WRITE(ITYP,1003)
	IF(ITYP.NE.IPRT) WRITE(IPRT,1003)
1003	FORMAT(//' Neither the mu/ro nor the elemental formula',
     1' were input to AUTO - one of these is essential!'/
     2/' For test only we will set mu/ro arbitrarily to ',
     3'50 and continue but all answers will be trash!!!!!!!'//)
	FUCU = 50.0
	GO TO 999
50	DO 200 J=1,10
	DO 100 K=1,83
	IF(ELEMNT(J).EQ.'  ')GO TO 300
	IF(ELEMNT(J).EQ.SYM(K))GO    TO 150
100	CONTINUE
	WRITE(ITYP,1000)ELEMNT(J)
	IF(ITYP.NE.IPRT) WRITE(IPRT,1000)ELEMNT(J)
1000	FORMAT(/1X,A2,' is an illegal element symbol or is an',
     1 'element above z=83'/' The computed mu/ro will be',
     2 ' in error all results will be trash!!!!'/
     3' The hand calculated mu/ro must be input to AUTO!')
	GO TO 200
150	GO TO(160,170,180),IT
160	FUCU=FUCU+WT(J)/100.*UMO(K)
	GO TO 200
170	FUCU=FUCU+WT(J)/100.*UCU(K)
	GO TO 200
180	FUCU=FUCU+WT(J)/100.*UCO(K)
200	CONTINUE
300	IF(IDBUG.EQ.1) WRITE(ITYP,1017) TARGET,FUCU
1017	FORMAT(/' Mass Absorption Coefficient for ',A2, ' radiation =',
     1 F10.4)
999	RETURN
	END
