var/external/wavelet/qftest_w.c

   1 // Author: Aime' Fournier
   2 // E-mail: fournier@ucar.edu
   3
   4 // See 2009/8/4 e-mail from john@michalakes.us
   5 #ifndef CRAY
   6 #   ifdef NOUNDERSCORE
   7 #      define QFTEST_W qftest_w
   8 #   else
   9 #      ifdef F2CSTYLE
  10 #         define QFTEST_W qftest_w__
  11 #      else
  12 #         define QFTEST_W qftest_w_
  13 #      endif
  14 #   endif
  15 #endif
  16
  17 void QFTEST_W (char *nam,       // in: filter name.
  18               int *ran) {       // in: filter length.
  19
  20   qftest(nam,*ran);
  21 }