8 |
use comconst |
use comconst |
9 |
use comdissnew |
use comdissnew |
10 |
use comgeom |
use comgeom |
11 |
|
use comdissipn |
12 |
IMPLICIT NONE |
IMPLICIT NONE |
13 |
|
|
14 |
|
|
30 |
c Declarations: |
c Declarations: |
31 |
c ------------- |
c ------------- |
32 |
|
|
|
include "comdissipn.h" |
|
33 |
|
|
34 |
c Arguments: |
c Arguments: |
35 |
c ---------- |
c ---------- |
36 |
|
|
37 |
REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm) |
REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm) |
38 |
REAL p( ip1jmp1,llmp1 ) |
REAL, intent(in):: p( ip1jmp1,llmp1 ) |
39 |
REAL dv(ip1jm,llm),du(ip1jmp1,llm),dh(ip1jmp1,llm) |
REAL dv(ip1jm,llm),du(ip1jmp1,llm),dh(ip1jmp1,llm) |
40 |
|
|
41 |
c Local: |
c Local: |