g03 G98.INP G98.OUT
qgrad

while [ -f "INP.NEW" ]; do

 mv INP.NEW G98.INP
 cp G98.OUT G98.OUT.last
 g03 G98.INP G98.OUT
 qgrad

done