18 |
use dimens_m |
use dimens_m |
19 |
use paramet_m |
use paramet_m |
20 |
use comgeom |
use comgeom |
21 |
|
use inidissip_m |
22 |
|
use filtreg_m, only: filtreg |
23 |
IMPLICIT NONE |
IMPLICIT NONE |
24 |
c |
c |
|
include "comdissipn.h" |
|
25 |
c |
c |
26 |
c ........ variables en arguments ........ |
c ........ variables en arguments ........ |
27 |
|
|
33 |
c |
c |
34 |
REAL div(ip1jmp1,llm) |
REAL div(ip1jmp1,llm) |
35 |
REAL signe, nugrads |
REAL signe, nugrads |
36 |
INTEGER l,ij,iter,ld |
INTEGER l,ij,iter |
37 |
|
integer, intent(in):: ld |
38 |
|
|
39 |
c ........................................................ |
c ........................................................ |
40 |
c |
c |