| 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 |