void dpascl(long,double[]);
void dwacos(long,double[],double[]);
void dwacsi(long,double[],double[],LOGICAL32);
void dwasin(long,double[],double[]);
void dwatan(long,double[],double[]);
void dwatn2(long,double[],double[],double[]);
void dwchn(long,double[],double[]);
void dwcos(long,double[],double[]);
void dwcosh(long,double[],double[]);
void dwdif(long,double[],double[],double[]);
void dwdif1(long,double,double[],double[]);
void dwexp(long,double[],double[]);
void dwlog(long,double[],double[]);
void dwpro(long,double[],double[],double[]);
void dwpro1(long,double,double[],double[]);
void dwpwri(long,long,double[],double[]);
void dwquo(long,double[],double[],double[]);
void dwquo1(long,double,double[],double[]);
void dwrchn(long,double[],double[]);
void dwset(long,double,double,double[]);
void dwsin(long,double[],double[]);
void dwsinh(long,double[],double[]);
void dwsqrt(long,double[],double[]);
void dwsum(long,double[],double[],double[]);
void dwsum1(long,double,double[],double[]);
void dwtan(long,double[],double[]);
void dwtanh(long,double[],double[]);
void ermsg(STRING,long,long,STRING,byte);
void ierm1(STRING,long,long,STRING,STRING,long,byte);
void ierv1(STRING,long,byte);