Directory: | ./ |
---|---|
File: | phys/cv3_mixscale.f90 |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 6 | 6 | 100.0% |
Branches: | 6 | 6 | 100.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | 240 | 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 |
2/2✓ Branch 0 taken 6480 times.
✓ Branch 1 taken 240 times.
|
6720 | DO j = 1, nl |
25 |
2/2✓ Branch 0 taken 174960 times.
✓ Branch 1 taken 6480 times.
|
181680 | DO i = 1, nl |
26 |
2/2✓ Branch 0 taken 92653713 times.
✓ Branch 1 taken 174960 times.
|
92835153 | DO il = 1, ncum |
27 | 92828673 | ment(il, i, j) = m(il, i)*ment(il, i, j) | |
28 | END DO | ||
29 | END DO | ||
30 | END DO | ||
31 | |||
32 | |||
33 | 240 | RETURN | |
34 | END SUBROUTINE cv3_mixscale | ||
35 |