wt1
in nr2.h
extern void wt1(float a[], unsigned long n, int isign, void (*wtstep)(float[], unsigned long, int));