Integer*4 Iabort,Iaborta
c
      Common/Flags/Term_Type,Idflag,Ipflag,Itflag,Iabort,
     $             Iaborta