float snrm2(long,float[],long);