void ierm1(STRING,long,long,STRING,STRING,long,byte);
void ierv1(STRING,long,byte);
void serv1(STRING,float,byte);
void snqaq(long,long,float*,long,float[],float[]);
void snqdog(long,float[],long,float[],float[],float,float[],
	LOGICAL32*,float[],float[],LOGICAL32,float[]);
void snqfdj(
          void(*)(long,float[],float[],float*,long*),long,float[],float[],float*,long,long*,long,long,float,float[],float[]);
void snqqfm(long,long,float*,long,float[]);
void snqqrf(long,long,float*,long,LOGICAL32,long[],long,
	float[],float[],float[]);
void snqsl1(
          void(*)(long,float[],float[],float*,long*),long,float[],float[],float,long*,long*,long*,long,LOGICAL32,long,LOGICAL32,
          long,long,float,float,LOGICAL32,float*,float[],float[],float[],float[],float[],float[],float[],float*,float[]);
void snqsol(
          void(*)(long,float[],float[],float*,long*),long,float[],float[],float,long[],float[],long);
void snqupd(long,long,float[],long,float[],float[],float[],
	LOGICAL32*);
float snrm2(long,float[],long);