source:
CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/tools/Max_diff_nc_with_lib/NR_util/vabs.f90
@
5477
Last change on this file since 5477 was 5477, checked in by aclsce, 4 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.