removed unused call to BLAS norm routine