CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr,
& g_diffkr
_RL g_diffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)