Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC | |
---|---|---|
# | Line 76 c | Line 76 c |
76 | DO i = 1, ip1jmp1 | DO i = 1, ip1jmp1 |
77 | IF (zx_pump(i).GT.0.0) THEN | IF (zx_pump(i).GT.0.0) THEN |
78 | imprim = imprim + 1 | imprim = imprim + 1 |
CC PRINT*,'QMINIMUM: en ',i,zx_pump(i) | ||
79 | ENDIF | ENDIF |
80 | ENDDO | ENDDO |
81 | ENDIF | ENDIF |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |