integer i_got_signal
      common / sig_i / i_got_signal

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***