source:
LMDZ5/trunk/tools/Max_diff_nc_with_lib/NR_util/outerdiv.f90
@
1892
Last change on this file since 1892 was 1765, checked in by , 11 years ago | |
---|---|
File size: 400 bytes |
Rev | Line | |
---|---|---|
[1765] | 1 | module outerdiv_m |
2 | ||
3 | implicit none | |
4 | ||
5 | contains | |
6 | ||
7 | FUNCTION outerdiv(a,b) | |
8 | ! Returns a matrix that is the outer quotient of two vectors. | |
9 | USE nrtype, only: wp | |
10 | REAL(WP), DIMENSION(:), INTENT(IN) :: a,b | |
11 | REAL(WP), DIMENSION(size(a),size(b)) :: outerdiv | |
12 | outerdiv = spread(a,dim=2,ncopies=size(b)) / & | |
13 | spread(b,dim=1,ncopies=size(a)) | |
14 | END FUNCTION outerdiv | |
15 | ||
16 | end module outerdiv_m |
Note: See TracBrowser
for help on using the repository browser.