void dsva(double*,long,long,long,long,double[],double[],long[],CHAR_INT,long,
      double[],double[]);