 &INPUT_THERMO
  what='scf_disp',
 /
