11 |
c klevel et teta sont des arguments d'entree pour le s-prog |
c klevel et teta sont des arguments d'entree pour le s-prog |
12 |
c divgra est un argument de sortie pour le s-prog |
c divgra est un argument de sortie pour le s-prog |
13 |
c |
c |
14 |
|
use grad_m, only: grad |
15 |
use dimens_m |
use dimens_m |
16 |
use paramet_m |
use paramet_m |
17 |
use comgeom |
use comgeom |
18 |
use filtreg_m, only: filtreg |
use filtreg_m, only: filtreg |
19 |
|
use divergf_m, only: divergf |
20 |
|
|
21 |
IMPLICIT NONE |
IMPLICIT NONE |
22 |
c |
c |
23 |
|
|
24 |
c |
c |
25 |
c ......... variables en arguments .............. |
c ......... variables en arguments .............. |
26 |
c |
c |
27 |
INTEGER klevel |
INTEGER, intent(in):: klevel |
28 |
REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) |
REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) |
29 |
c |
c |
30 |
c ............ variables locales .............. |
c ............ variables locales .............. |