        mo th er = 5
        write(6,15) mo th er
  15    format (1X, i5)
        stop
        end
