void ssva(float*,long,long,long,long,float[],float[],long[],CHAR_INT,long,float[],
      float[]);