13 |
use dimens_m |
use dimens_m |
14 |
use paramet_m |
use paramet_m |
15 |
use comgeom |
use comgeom |
16 |
|
use filtreg_m, only: filtreg |
17 |
IMPLICIT NONE |
IMPLICIT NONE |
18 |
c |
c |
19 |
c x et y sont des arguments d'entree pour le s-prog |
c x et y sont des arguments d'entree pour le s-prog |
28 |
c |
c |
29 |
c .......... variables en arguments ................... |
c .......... variables en arguments ................... |
30 |
c |
c |
31 |
INTEGER klevel |
INTEGER, intent(in):: klevel |
32 |
REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel ) |
REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel ) |
33 |
INTEGER l,ij |
INTEGER l,ij |
34 |
c |
c |