/* fixF1n fix F1 axis for NOAH 15N HMQC */
/* requires cnst20 - H/N scaling factor */
/* Eriks Kupce: eriks.kupce@bruker.com  */

int    eno, ceno;
double a1=0.0, sw1=0.0, sf1=0.0;
float x1=0.0;
char  c1[8];


  FETCHPAR("CNST 20", &x1);  
  if(x1 < 1.1)
  {
    sprintf(text, "scaling factor = %.4f. \Aborting...", x1);
    STOPMSG(text); 
  }
  
  FETCHPARS("SFO3", &sf1); 
  STOREPAR1S("SFO1", sf1);
  
  FETCHPARS("NUC3", c1);
  STOREPAR1S("NUC1", c1);
  
  FETCHPARS("BF3", &a1);  
  STOREPAR1S("BF1", a1);

  FETCHPAR1S("SW_h", &sw1); 
  
  sw1 = sw1/x1; 
  STOREPAR1S("SW_h", sw1);
  STOREPAR1S("SW", sw1/sf1);
  
  FETCHPARS("O3", &a1);  
  STOREPAR1S("O1", a1);
  
QUIT
