/* proc_noah - EK, TC and MM */
/* Perform 2D Transform for standard or NUS NOAH data*/
/* If NUS data, Hilbert transform is also called to allow 2D phasing*/

int  fntp, td1;

XFB

FETCHPARS("FnTYPE", &fntp)
if(fntp==2) 
{
  XHT2
  FETCHPAR1S("NusTD", &td1)  
  STOREPAR1("TD", td1)         // for display purposes only
}

QUIT
