source:
LMDZ5/trunk/tools/Max_diff_nc_with_lib/NR_util/vabs.f90
@
1884
Last change on this file since 1884 was 1765, checked in by , 11 years ago | |
---|---|
File size: 222 bytes |
Rev | Line | |
---|---|---|
[1765] | 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.