1 |
|
144 |
SUBROUTINE cv3_mixscale(nloc, ncum, na, ment, m) |
2 |
|
|
! ************************************************************** |
3 |
|
|
! * |
4 |
|
|
! CV3_MIXSCALE * |
5 |
|
|
! * |
6 |
|
|
! * |
7 |
|
|
! written by : Jean-Yves Grandpeix, 30/05/2003, 16.34.37 * |
8 |
|
|
! modified by : * |
9 |
|
|
! ************************************************************** |
10 |
|
|
|
11 |
|
|
IMPLICIT NONE |
12 |
|
|
|
13 |
|
|
include "cv3param.h" |
14 |
|
|
|
15 |
|
|
!inputs: |
16 |
|
|
INTEGER, INTENT (IN) :: ncum, na, nloc |
17 |
|
|
REAL, DIMENSION (nloc, na), INTENT (IN) :: m |
18 |
|
|
!input/outputs: |
19 |
|
|
REAL, DIMENSION (nloc, na, na), INTENT (INOUT) :: ment |
20 |
|
|
|
21 |
|
|
!local variables: |
22 |
|
|
INTEGER i, j, il |
23 |
|
|
|
24 |
✓✓ |
4032 |
DO j = 1, nl |
25 |
✓✓ |
109008 |
DO i = 1, nl |
26 |
✓✓ |
50385078 |
DO il = 1, ncum |
27 |
|
50381190 |
ment(il, i, j) = m(il, i)*ment(il, i, j) |
28 |
|
|
END DO |
29 |
|
|
END DO |
30 |
|
|
END DO |
31 |
|
|
|
32 |
|
|
|
33 |
|
144 |
RETURN |
34 |
|
|
END SUBROUTINE cv3_mixscale |