tddfpt_calculate_spectrum.f90 29.9 KB