cg Version

to* xi0,yi0,zi0,avab,depes,depe2s,sigab Modify the number of materials used.Changenmed=4nmed=2 Modify the name of materials.Changetomedarr(1)='NAImedarr(2)='ALmedarr(3)='QUARTZmedarr(4)='AIR-AT-NTPmedarr(1)='AIR-AT-NTPmedarr(2)='AL Delete unnecessary chard for non existing material number. Delete following lineschard(3) = 0.5d0chard(4) = 5.0d0 Modify variables to be initialized.Change! Zero the variablesdepe=0.D0to! Zero the variablesdepe=0.D0depes=0.D0depe2s=0.D0 Increase history number to 100,000. Change! Set historiesncases=10000to! Set historiesncases=100000 Add routines to sum absorbed energy in air.Changetoif (depe .gt. 0.D0) thenie=depe/deltae + 1if (depe .gt. 0.D0) thendepes=depes+depedepe2s=depe2s+depe*depeie=depe/deltae + 1''''''46