int ftran(int nftx, double *xpec, int nxpec, double *fc, int flg);