double precision a(1:Nline_mx,2)
      double precision b(1:Nline_mx)

      common /ca/ a
      common /cb/ b

      save /ca/,/cb/