void dcopy(long,double[],long,double[],long);
void dpascl(long,double[]);
void dvecp(double[],long,STRING);
void dwacos(long,double[],double[]);
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[]);