下面的代码使用MKL函数库计算一个向量的欧几里得范数
program MKL_nrm2
use blas95
implicit none
integer, parameter :: n = 10
real(kind=8) :: x(n), res
call random_seed()
call random_number(x)
res = nrm2(x)
print*, '向量x的欧几里得范数为......'
print*, res
end program MKL_nrm2