Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC | |
---|---|---|
# | Line 27 Champs 3D | Line 27 Champs 3D |
27 | j2=2 | j2=2 |
28 | do ig=1,ngroup | do ig=1,ngroup |
29 | do j=j1-jd,j2-jd | do j=j1-jd,j2-jd |
c print*,'groupe ',ig,' j= ',j,2**(ngroup-ig+1),'pts groupes' | ||
30 | do i0=1,iim,2**(ngroup-ig+1) | do i0=1,iim,2**(ngroup-ig+1) |
31 | airen=0. | airen=0. |
32 | airecn=0. | airecn=0. |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |