18 |
|
|
19 |
! Arguments: |
! Arguments: |
20 |
|
|
21 |
REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm), teta(ip1jmp1, llm) |
REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) |
22 |
REAL massebx(ip1jmp1, llm), masseby(ip1jm, llm), w(ip1jmp1, llm) |
real, intent(in):: teta(ip1jmp1, llm) |
23 |
|
REAL massebx(ip1jmp1, llm), masseby(ip1jm, llm) |
24 |
|
real, INTENT (IN):: w(ip1jmp1, llm) |
25 |
REAL dv(ip1jm, llm), du(ip1jmp1, llm), dteta(ip1jmp1, llm) |
REAL dv(ip1jm, llm), du(ip1jmp1, llm), dteta(ip1jmp1, llm) |
26 |
LOGICAL, INTENT (IN) :: conser |
LOGICAL, INTENT (IN):: conser |
27 |
|
|
28 |
! Local: |
! Local: |
29 |
|
|