void sdas1(float*,float[],float[],long,long*,
          void(*)(float*,float[],float[],float[],float[],long*,float*,long*,float[],long[]),long[],float*,float[],long*,float*,float[],
          float[],float[],long[],float[]);
void sdasdb(long,long,float,float[],float[],long[],float[],
	long[],long,float[],float[]);
void sdasf(float,float[],float[],float[],float[],long,float,
	long,float[],long[]);
void sdasin(float,float,float[],float[],long,long,float*,
	float[]);
void sdaslx(void(*)(),long,float*,float[],float[],float,long[],
	float[],float[],long*,float[],long,long[],long);
float sdasnm(long,float[],float[],float[],long[]);
void sdastp(float*,float[],float[],long,long*,
          void(*)(float*,float[],float[],float[],float[],long*,float*,long*,float[],long[]),long[],float*,float[],long*,float*,float[],
          float[],float[],long[],float[],float[],float[],float[],float[],float[],long*);
void sdaswt(long,long[],float[],float[],float[],float[],float[],
	long[]);
void smess(long[],CHAR_INT,long[],float[]);