5 |
use dimens_m |
use dimens_m |
6 |
use paramet_m |
use paramet_m |
7 |
use logic |
use logic |
8 |
|
use filtreg_m, only: filtreg |
9 |
|
|
10 |
IMPLICIT NONE |
IMPLICIT NONE |
11 |
|
|
12 |
c======================================================================= |
c======================================================================= |
26 |
|
|
27 |
|
|
28 |
|
|
29 |
REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) |
REAL, intent(in):: teta( ip1jmp1,llm ) |
30 |
|
real pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) |
31 |
REAL dteta( ip1jmp1,llm ) |
REAL dteta( ip1jmp1,llm ) |
32 |
INTEGER l,ij |
INTEGER l,ij |
33 |
|
|