text: 
        module Vcen
        use stel_kinds
        real(rprec) ::  xp, yp, zp, bmod, bmod1, bx, by, bz,
       1  dbxx, dbyx, dbzx, dbxy, dbyy, dbzy, dbxz, dbyz, dbzz,
       2  xgb, ygb, zgb, esm, esm1, rl, xmu, xmu2, vits2
        end module Vcen
  