code for cz disp in macro isotropic with high freq