cg Version
cg Version
cg Version
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
nmed=2 medarr(1)='NAImedarr(2)='ALmedarr(3)='QUARTZmedarr(4)='AIR-AT-NTP''''medarr(1)='AIR-AT-NTPmedarr(2)='AL chard chard(3) = 0.5d0chard(4) = 5.0d0 ! Zero the variablesdepe=0.D0! Zero the variablesdepe=0.D0depes=0.D0depe2s=0.D0 100,000 ! Set historiesncases=10000 o! Set historiesncases=100000 if (depe .gt. 0.D0) thenie=depe/deltae + 1if (depe .gt. 0.D0) thendepes=depes+depedepe2s=depe2s+depe*depeie=depe/deltae + 1 ''22