void dcov2(double*,long,long,long[],double,long*);
void dhfti(double*,long,long,long,double*,long,long,double,long*,double[],double[],
      long[]);