source:
LMDZ5/branches/LF-private/tools/Max_diff_nc_with_lib/NR_util/outerdiv.f90
@
2787
Last change on this file since 2787 was 1765, checked in by , 11 years ago | |
---|---|
File size: 400 bytes |
Line | |
---|---|
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.