C+ C NAME: C nrSqueezeX C CALLING SEQUENCE: subroutine nrSqueezeX(XN1,XN2,XM1,XM2,NX,NY,ZN,bFlag) C CALLS: C SplineGridX C PROCEDURE: C Obsolete. Use href=SplineGridX= C- real ZN(NX,NY) logical bFlag iFlag = 0 if (bFlag) iFlag = 1 call SplineGridX(iFlag,XN1,XN2,XM1,XM2,NX,NY,ZN,NX,ZN) return end