Parent Directory | Revision Log | Patch
revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC | revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC | |
---|---|---|
# | Line 230 contains | Line 230 contains |
230 | enddo | enddo |
231 | if(num1.le.0) cycle | if(num1.le.0) cycle |
232 | ||
233 | call zilch(amp1,ncum) | amp1(:ncum) = 0. |
234 | call zilch(ad,ncum) | ad(:ncum) = 0. |
235 | ||
236 | do k=i+1,nl+1 | do k=i+1,nl+1 |
237 | do il=1,ncum | do il=1,ncum |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |