/* fixF1 fix F1 axis for NOAH HH correlation spectra */
/* requires cnst10 - C/H 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 10", &x1);   
  if(x1 < 1.1)
  {
    sprintf(text, "scaling factor = %.4f. \Aborting...", x1);
    STOPMSG(text); 
  }
  
  FETCHPARS("SFO1", &sf1); 
  STOREPAR1S("SFO1", sf1);
  
  FETCHPARS("NUC1", c1);
  STOREPAR1S("NUC1", c1);
  
  FETCHPARS("BF1", &a1);  
  STOREPAR1S("BF1", a1);

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