float sci(float);
float scii(LOGICAL32,float);
float scin(float);
float scpval(float[],long,float);
void serm1(STRING,long,long,STRING,STRING,float,byte);