14 |
use dimens_m |
use dimens_m |
15 |
use paramet_m |
use paramet_m |
16 |
use comgeom |
use comgeom |
17 |
|
use filtreg_m, only: filtreg |
18 |
IMPLICIT NONE |
IMPLICIT NONE |
19 |
c |
c |
20 |
|
|
21 |
c |
c |
22 |
c ......... variables en arguments .............. |
c ......... variables en arguments .............. |
23 |
c |
c |
24 |
INTEGER klevel |
INTEGER, intent(in):: klevel |
25 |
REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) |
REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) |
26 |
c |
c |
27 |
c ............ variables locales .............. |
c ............ variables locales .............. |