lines 721-723

*FSr.Values = G(dg).angle(:); R.angle = FCr(XrF, YrF);*

FSr.Values = G(dg).f(:); R.f = FCr(XrF, YrF);

FSr.Values = G(dg).h(:); R.h = FCr(XrF, YrF);

FSr.Values = G(dg).f(:); R.f = FCr(XrF, YrF);

FSr.Values = G(dg).h(:); R.h = FCr(XrF, YrF);

should be

FSr.Values = G(dg).angle(:); R.angle = FSr(XrF, YrF);

FSr.Values = G(dg).f(:); R.f = FSr(XrF, YrF);

FSr.Values = G(dg).h(:); R.h = FSr(XrF, YrF);

However, one new problem occurs after I made these changes.

**Subscripted assignment between dissimilar structures.**

Error in contact (line 329)

S.refined(cr) = R;

Error in contact (line 329)

S.refined(cr) = R;

Then I checked the function [S,G] = contact(Gnames, Cname, Lmask, MaskInterp, Lplot)

I found output S includs following two elements

S.refined(cr).xi_rho(:,:) - Receiver grid curvilinear

S.refined(cr).eta_rho(:,:) (XI,ETA) coordinates

However, R (R = refine_coordinates(cr, dg, rg, G, S, MaskInterp)) includes eight elements

R.xi_rho

R.eta_rho

R.xi_psi

R.eta_psi

R.xi_u

R.eta_u

R.xi_v

R.eta_v

Thanks a lot if you can look at them.