#HT100  Sigy=885  Siga=400
#SHY685 Sigy=685  Siga=330
#SM570  Sigy=450  Siga=240
#SM490  Sigy=315  Siga=175
#SM400  Sigy=235  Siga=130
# ./f90_ams_dd  DD  Pk  Sigy  Siga
# write(6,'(5f10.3)') DD,t0,Sigy,Siga,Pk

gfortran -o f90_ams_dd f90_ams_dd.f90
./f90_ams_dd 4600 1.5 315 175