source:
LMDZ5/tags/proto-testing-20131015/tools/Max_diff_nc_with_lib/NR_util/vabs.f90
@
2402
Last change on this file since 2402 was 1795, checked in by , 11 years ago | |
---|---|
File size: 222 bytes |
Line | |
---|---|
1 | module vabs_m |
2 | |
3 | implicit none |
4 | |
5 | contains |
6 | |
7 | FUNCTION vabs(v) |
8 | USE nrtype, only: wp |
9 | REAL(WP), DIMENSION(:), INTENT(IN) :: v |
10 | REAL(WP) :: vabs |
11 | vabs=sqrt(dot_product(v,v)) |
12 | END FUNCTION vabs |
13 | |
14 | end module vabs_m |
Note: See TracBrowser
for help on using the repository browser.