double dnrm2(long,double[],long);