source:
LMDZ5/trunk/tools/Max_diff_nc_with_lib/NR_util/outerand.f90
@
1884
Last change on this file since 1884 was 1765, checked in by , 11 years ago | |
---|---|
File size: 311 bytes |
Rev | Line | |
---|---|---|
[1765] | 1 | module outerand_m |
2 | ||
3 | implicit none | |
4 | ||
5 | contains | |
6 | ||
7 | FUNCTION outerand(a,b) | |
8 | LOGICAL, DIMENSION(:), INTENT(IN) :: a,b | |
9 | LOGICAL, DIMENSION(size(a),size(b)) :: outerand | |
10 | outerand = spread(a,dim=2,ncopies=size(b)) .and. & | |
11 | spread(b,dim=1,ncopies=size(a)) | |
12 | END FUNCTION outerand | |
13 | ||
14 | end module outerand_m |
Note: See TracBrowser
for help on using the repository browser.