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