c NLMAT > 0: Composition by weight c NLMAT < 0: Composition by number of atoms SUBROUTINE UMATE DIMENSION AMAT(10),ZMAT(10),WMAT(10) DATA AMAT,ZMAT,WMAT/30*0./ dimension airshell(10) character*4 airnames(10) C ----------------------------------------------- C Ge C ----------------------------------------------- A = 72.59 Z = 32. DENS = 5.323 RADL = 2.3 CALL GSMATE(17,'germanium',A,Z,DENS,RADL,1.,0.,0) C ----------------------------------------------- C Aluminum alloy Al 6061 C ----------------------------------------------- NLMAT = 9 AMAT(1) = 28.086 AMAT(2) = 55.847 AMAT(3) = 63.546 AMAT(4) = 54.938 AMAT(5) = 24.305 AMAT(6) = 51.996 AMAT(7) = 65.390 AMAT(8) = 47.880 AMAT(9) = 26.982 ZMAT(1) = 14. ZMAT(2) = 26. ZMAT(3) = 29. ZMAT(4) = 25. ZMAT(5) = 12. ZMAT(6) = 24. ZMAT(7) = 30. ZMAT(8) = 22. ZMAT(9) = 13. DENS = 2.6989 WMAT(1) = 0.0060 WMAT(2) = 0.0070 WMAT(3) = 0.0030 WMAT(4) = 0.0015 WMAT(5) = 0.0100 WMAT(6) = 0.0020 WMAT(7) = 0.0025 WMAT(8) = 0.0015 WMAT(9) = 0.9665 CALL GSMIXT(18,'al6061',AMAT,ZMAT,DENS,NLMAT,WMAT) C ----------------------------------------------- C Steel alloy 304 C ----------------------------------------------- NLMAT = 5 AMAT(1) = 54.9380 AMAT(2) = 28.0855 AMAT(3) = 51.996 AMAT(4) = 58.69 AMAT(5) = 55.847 ZMAT(1) = 25. ZMAT(2) = 14. ZMAT(3) = 24. ZMAT(4) = 28. ZMAT(5) = 26. DENS = 7.75 WMAT(1) = 0.02 WMAT(2) = 0.01 WMAT(3) = 0.19 WMAT(4) = 0.10 WMAT(5) = 0.68 CALL GSMIXT(19,'steel304',AMAT,ZMAT,DENS,NLMAT,WMAT) C --------------------------------------------------------------------- C SAPPHIRE C --------------------------------------------------------------------- NLMAT = -2 AMAT(1) = 26.982 AMAT(2) = 15.9994 ZMAT(1) = 13. ZMAT(2) = 8. DENS = 3.986 WMAT(1) = 2. WMAT(2) = 3. CALL GSMIXT(20,'sapphire',AMAT,ZMAT,DENS,NLMAT,WMAT) c C ------------------------------------------------------------- C VESPEL C ------------------------------------------------------------- NLMAT = -4 AMAT(1) = 12.011 AMAT(2) = 1.00794 AMAT(3) = 15.9994 AMAT(4) = 14.0067 ZMAT(1) = 6. ZMAT(2) = 1. ZMAT(3) = 8. ZMAT(4) = 7. DENS = 1.43 WMAT(1) = 22. WMAT(2) = 10. WMAT(3) = 5. WMAT(4) = 2. CALL GSMIXT(21,'vespel',AMAT,ZMAT,DENS,NLMAT,WMAT) C ----------------------------------------------------------- C TEFZEL C ----------------------------------------------------------- NLMAT = -3 AMAT(1) = 12.01 AMAT(2) = 19.00 AMAT(3) = 1.008 ZMAT(1) = 6. ZMAT(2) = 9. ZMAT(3) = 1. DENS = 1.70 WMAT(1) = 4. WMAT(2) = 4. WMAT(3) = 4. CALL GSMIXT(22,'tefzel',AMAT,ZMAT,DENS,NLMAT,WMAT) C ----------------------------------------------------------- C TEFLON (?) C ----------------------------------------------------------- NLMAT = -3 AMAT(1) = 12.01 AMAT(2) = 19.00 AMAT(3) = 1.008 ZMAT(1) = 6. ZMAT(2) = 9. ZMAT(3) = 1. DENS = 1.70 WMAT(1) = 4. WMAT(2) = 4. WMAT(3) = 4. CALL GSMIXT(23,'teflon',AMAT,ZMAT,DENS,NLMAT,WMAT) C ----------------------------------------------- C Tungsten alloy C ----------------------------------------------- NLMAT = -1 AMAT(1) = 183.85 ZMAT(1) = 74. DENS = 18.5 WMAT(1) = 1. CALL GSMIXT(24,'tungalloy',AMAT,ZMAT,DENS,NLMAT,WMAT) C --------------------------------------------------------------------- C MYLAR (?) C --------------------------------------------------------------------- NLMAT = -3 AMAT(1) = 12.01 AMAT(2) = 1.008 AMAT(3) = 15.9994 ZMAT(1) = 6. ZMAT(2) = 1. ZMAT(3) = 8. DENS = 1.38 WMAT(1) = 5. WMAT(2) = 4. WMAT(3) = 2. CALL GSMIXT(25,'mylar',AMAT,ZMAT,DENS,NLMAT,WMAT) C ----------------------------------------------- C Tin C ----------------------------------------------- NLMAT = -1 AMAT(1) = 118.69 ZMAT(1) = 50. DENS = 7.31 WMAT(1) = 1. CALL GSMIXT(26,'tin',AMAT,ZMAT,DENS,NLMAT,WMAT) C ----------------------------------------------- C Tantalum C ----------------------------------------------- NLMAT = -1 AMAT(1) = 180.9479 ZMAT(1) = 73. DENS = 16.654 WMAT(1) = 1. CALL GSMIXT(27,'tantalum',AMAT,ZMAT,DENS,NLMAT,WMAT) C --------------------------------------------------------------------- C AIR C --------------------------------------------------------------------- NLMAT = -3 AMAT(1) = 14.0067 AMAT(2) = 15.9994 AMAT(3) = 39.948 ZMAT(1) = 7. ZMAT(2) = 8. ZMAT(3) = 18. DENS = 0.0012 WMAT(1) = 78.48 WMAT(2) = 21.05 WMAT(3) = 0.47 CALL GSMIXT(28,'air',AMAT,ZMAT,DENS,NLMAT,WMAT) C --------------------------------------------------------------------- C Various densities of AIR for atmosphere simulations C --------------------------------------------------------------------- data airshell/1.06111E-03,5.17966E-02,0.183427,0.326691, . 0.438454,0.546271,0.735055,1.13278, . 3.76525,46.0345/ DATA airnames/'AIR0$','AIR1$','AIR2$','AIR3$','AIR4$', . 'AIR5$','AIR6$','AIR7$','AIR8$','AIR9$'/ NLMAT = -3 AMAT(1) = 14. AMAT(2) = 16. AMAT(3) = 40. ZMAT(1) = 7. ZMAT(2) = 8. ZMAT(3) = 18. do i=1,10 WMAT(1) = 12.23553 WMAT(2) = 3.282139 WMAT(3) = 0.07330026 dens = airshell(i) CALL GSMIXT(28+i,airnames(i),AMAT,ZMAT,DENS,NLMAT,WMAT) end do C ----------------------------------------------------------------- C MAKE UP NEW MATERIAL THAT COOLER IS MADE OF. USE SAME PARAMATERS IS C STEEL ALLOY 304 AND ADJUST DENSITY APPROPRIATLY. C -------------------------------------------------------------------- NLMAT = 5 AMAT(1) = 54.9380 AMAT(2) = 28.0855 AMAT(3) = 51.996 AMAT(4) = 58.69 AMAT(5) = 55.847 ZMAT(1) = 25. ZMAT(2) = 14. ZMAT(3) = 24. ZMAT(4) = 28. ZMAT(5) = 26. DENS = 3.73 WMAT(1) = 0.02 WMAT(2) = 0.01 WMAT(3) = 0.19 WMAT(4) = 0.10 WMAT(5) = 0.68 CALL GSMIXT(39,'steel304_COOLER',AMAT,ZMAT,DENS,NLMAT,WMAT) c -------------------------------------------------------------- c make up new Mylar/Al mixture for shield. This next one is for the c outer shield/mylar mylar blanket layer only. c -------------------------------------------------------------- NLMAT = 4 AMAT(1) = 12.01 AMAT(2)=15.9994 AMAT(3)=1.00794 AMAT(4)=26.982 ZMAT(1)=6. ZMAT(2)=8. ZMAT(3)=1. ZMAT(4)=13. DENS= 7.83 WMAT(1)=.4094 WMAT(2)=.2183 WMAT(3)=.0273 WMAT(4)=.3450 CALL GSMIXT(40,'MYLAR_AL_OUTER',AMAT,ZMAT,DENS,NLMAT,WMAT) c -------------------------------------------------------------- c Mylar/Al mixture for inner shield c -------------------------------------------------------------- NLMAT = 4 AMAT(1) = 12.01 AMAT(2)=15.9994 AMAT(3)=1.00794 AMAT(4)=26.982 ZMAT(1)=6. ZMAT(2)=8. ZMAT(3)=1. ZMAT(4)=13. DENS=5.416 WMAT(1)=.3134 WMAT(2)=.1671 WMAT(3)=.0209 WMAT(4)=.4985 CALL GSMIXT(41,'MYLAR_AL_INNER',AMAT,ZMAT,DENS,NLMAT,WMAT) c -------------------------------------------------------------- c Al 6061 for High Voltage Box; Same as normal Al 6061 but with c lower density c -------------------------------------------------------------- NLMAT = 9 AMAT(1) = 28.086 AMAT(2) = 55.847 AMAT(3) = 63.546 AMAT(4) = 54.938 AMAT(5) = 24.305 AMAT(6) = 51.996 AMAT(7) = 65.390 AMAT(8) = 47.880 AMAT(9) = 26.982 ZMAT(1) = 14. ZMAT(2) = 26. ZMAT(3) = 29. ZMAT(4) = 25. ZMAT(5) = 12. ZMAT(6) = 24. ZMAT(7) = 30. ZMAT(8) = 22. ZMAT(9) = 13. DENS = 1.025 WMAT(1) = 0.0060 WMAT(2) = 0.0070 WMAT(3) = 0.0030 WMAT(4) = 0.0015 WMAT(5) = 0.0100 WMAT(6) = 0.0020 WMAT(7) = 0.0025 WMAT(8) = 0.0015 WMAT(9) = 0.9665 CALL GSMIXT(42,'al6061_hv',AMAT,ZMAT,DENS,NLMAT,WMAT) c --------------------------------------------------------- c material for pre-amp; same as Al 6061, except less dense & c oxygen is added c --------------------------------------------------------- NLMAT = 10 AMAT(1) = 28.086 AMAT(2) = 55.847 AMAT(3) = 63.546 AMAT(4) = 54.938 AMAT(5) = 24.305 AMAT(6) = 51.996 AMAT(7) = 65.390 AMAT(8) = 47.880 AMAT(9) = 26.982 AMAT(10)=15.9994 ZMAT(1) = 14. ZMAT(2) = 26. ZMAT(3) = 29. ZMAT(4) = 25. ZMAT(5) = 12. ZMAT(6) = 24. ZMAT(7) = 30. ZMAT(8) = 22. ZMAT(9) = 13. ZMAT(10)=8. DENS = 1.389 WMAT(1) = 0.0044 WMAT(2) = 0.0052 WMAT(3) = 0.0022 WMAT(4) = 0.0011 WMAT(5) = 0.0074 WMAT(6) = 0.0015 WMAT(7) = 0.0018 WMAT(8) = 0.0011 WMAT(9) = 0.7131 WMAT(10)= 0.2622 CALL GSMIXT(43,'al6061_pa',AMAT,ZMAT,DENS,NLMAT,WMAT) c --------------------------------------------------------------- c material for high voltage feed-thru and pre-amp feed-thru c free-cutting brass (C36000) c ----------------------------------------------------------------- NLMAT=3 AMAT(1)=63.546 AMAT(2)=207.2 AMAT(3)=65.38 ZMAT(1)=29. ZMAT(2)=82. ZMAT(3)=30. DENS=8.50 WMAT(1)=.615 WMAT(2)=.030 WMAT(3)=.355 CALL GSMIXT(44,'BRASS',AMAT,ZMAT,DENS,NLMAT,WMAT) c ------------------------------------------------------------------ c Zeolite c ------------------------------------------------------------------ NLMAT= -2 AMAT(1)=28.0855 AMAT(2)=15.9994 ZMAT(1)= 14. ZMAT(2)=8. DENS=.804 WMAT(1)=1. WMAT(2)=2. CALL GSMIXT(45,'zeolite',AMAT,ZMAT,DENS,NLMAT,WMAT) c ------------------------------------------------------------------- c SiO2 c ------------------------------------------------------------------- NLMAT= -2 AMAT(1)=28.0855 AMAT(2)=15.9994 ZMAT(1)= 14. ZMAT(2)=8. DENS=2.27 WMAT(1)=1. WMAT(2)=2. CALL GSMIXT(46,'SiO2',AMAT,ZMAT,DENS,NLMAT,WMAT) C ----------------------------------------------- C Ti C ----------------------------------------------- A = 47.88 Z = 22. DENS = 4.54 RADL = 3.56 CALL GSMATE(47,'titanium',A,Z,DENS,RADL,1.,0.,0) C ----------------------------------------------- C Ni C ----------------------------------------------- A = 58.69 Z = 28. DENS = 8.90 RADL = 1.46 CALL GSMATE(48,'nickel',A,Z,DENS,RADL,1.,0.,0) C ----------------------------------------------- C Si C ----------------------------------------------- A = 28.09 Z = 14. DENS = 2.33 RADL = 9.36 CALL GSMATE(49,'silicon',A,Z,DENS,RADL,1.,0.,0) C ----------------------------------------------- C Carbon fiber C ----------------------------------------------- A = 12.18 Z = 6. DENS = 1.5 RADL = 18.8 CALL GSMATE(50,'carbfiber',A,Z,DENS,RADL,1.,0.,0) C ----------------------------------------------- C Aluminum honeycomb for deck C ----------------------------------------------- A = 26.98 Z = 13. DENS = 0.34 RADL = 8.9 CALL GSMATE(51,'alhoney',A,Z,DENS,RADL,1.,0.,0) c -------------------------------------------------------------- c Al 6061 for various spacecraft box interiors; c Same as normal Al 6061 but with lower density c -------------------------------------------------------------- NLMAT = 9 AMAT(1) = 28.086 AMAT(2) = 55.847 AMAT(3) = 63.546 AMAT(4) = 54.938 AMAT(5) = 24.305 AMAT(6) = 51.996 AMAT(7) = 65.390 AMAT(8) = 47.880 AMAT(9) = 26.982 ZMAT(1) = 14. ZMAT(2) = 26. ZMAT(3) = 29. ZMAT(4) = 25. ZMAT(5) = 12. ZMAT(6) = 24. ZMAT(7) = 30. ZMAT(8) = 22. ZMAT(9) = 13. DENS = 0.50000 WMAT(1) = 0.0060 WMAT(2) = 0.0070 WMAT(3) = 0.0030 WMAT(4) = 0.0015 WMAT(5) = 0.0100 WMAT(6) = 0.0020 WMAT(7) = 0.0025 WMAT(8) = 0.0015 WMAT(9) = 0.9665 CALL GSMIXT(52,'al6061_box',AMAT,ZMAT,DENS,NLMAT,WMAT) c --------------------------------------------------------- RETURN end