15 |
use dimens_m |
use dimens_m |
16 |
use paramet_m |
use paramet_m |
17 |
use comgeom |
use comgeom |
18 |
|
use inidissip_m |
19 |
IMPLICIT NONE |
IMPLICIT NONE |
20 |
c |
c |
|
include "comdissipn.h" |
|
21 |
|
|
22 |
c ....... variables en arguments ....... |
c ....... variables en arguments ....... |
23 |
c |
c |
28 |
c ....... variables locales .......... |
c ....... variables locales .......... |
29 |
c |
c |
30 |
REAL signe, nudivgrs, sqrtps( ip1jmp1,llm ) |
REAL signe, nudivgrs, sqrtps( ip1jmp1,llm ) |
31 |
INTEGER l,ij,iter,lh |
INTEGER l,ij,iter |
32 |
|
integer, intent(in):: lh |
33 |
c ................................................................... |
c ................................................................... |
34 |
|
|
35 |
c |
c |