5 |
|
|
6 |
use dimens_m |
use dimens_m |
7 |
use paramet_m |
use paramet_m |
8 |
use comvert |
use disvert_m |
9 |
IMPLICIT NONE |
IMPLICIT NONE |
10 |
c |
c |
11 |
c======================================================================= |
c======================================================================= |
29 |
c======================================================================= |
c======================================================================= |
30 |
c |
c |
31 |
|
|
32 |
REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ), |
REAL, intent(in):: teta( ip1jmp1,llm ) |
33 |
|
real pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ), |
34 |
* du( ip1jmp1,llm ), dv( ip1jm,llm ) |
* du( ip1jmp1,llm ), dv( ip1jm,llm ) |
35 |
INTEGER l,ij |
INTEGER l,ij |
36 |
c |
c |