real invtk,is,is2,lnksp0cal,lnksp0arag
       real k0,k1,k2,kw,kb,ks,kf,k1p,k2p,k3p,ksi,kcal,karag
	common /const/k1,k2,kw,kb,ks,kf,k1p,k2p,k3p,ksi,k0, 
     &		kcal,karag,ff,htotal
	common /species/bt,st,ft,sit,pt,dic,ta,calcium