void dc2bas(double,long,long,LOGICAL32*,double[],long,double[]);
void dtrc2c(double[],long,double[],double[],double[]);