double precision phi
      common/phi/phi