source: LMDZ5/trunk/tools/Max_diff_nc_with_lib/NR_util/outerprod.f90 @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 709 bytes
Line 
1MODULE outerprod_m
2
3  IMPLICIT NONE
4
5  INTERFACE outerprod
6     MODULE PROCEDURE outerprod_r,outerprod_d
7  END INTERFACE
8
9  private outerprod_r,outerprod_d
10
11CONTAINS
12
13  FUNCTION outerprod_r(a,b)
14    REAL, DIMENSION(:), INTENT(IN) :: a,b
15    REAL, DIMENSION(size(a),size(b)) :: outerprod_r
16    outerprod_r = spread(a,dim=2,ncopies=size(b)) * &
17         spread(b,dim=1,ncopies=size(a))
18  END FUNCTION outerprod_r
19  !BL
20  FUNCTION outerprod_d(a,b)
21    DOUBLE PRECISION, DIMENSION(:), INTENT(IN) :: a,b
22    DOUBLE PRECISION, DIMENSION(size(a),size(b)) :: outerprod_d
23    outerprod_d = spread(a,dim=2,ncopies=size(b)) * &
24         spread(b,dim=1,ncopies=size(a))
25  END FUNCTION outerprod_d
26
27END MODULE outerprod_m
Note: See TracBrowser for help on using the repository browser.