Parent Directory | Revision Log | Revision Graph | Patch
revision 1.15 by jmc, Mon Dec 13 21:55:48 2004 UTC | revision 1.16 by jmc, Mon Dec 20 01:53:54 2004 UTC | |
---|---|---|
# | Line 273 C !LOCAL VARIABLES: | Line 273 C !LOCAL VARIABLES: |
273 | DO m=1,nActive(n) | DO m=1,nActive(n) |
274 | IF ( diagName.EQ.flds(m,n) ) THEN | IF ( diagName.EQ.flds(m,n) ) THEN |
275 | j = jdiag(m,n) | j = jdiag(m,n) |
276 | IF (idiag(j).NE.0 ) DIAGNOSTICS_IS_ON = .TRUE. | IF ( idiag(j).NE.0 .AND. ndiag(j).GE.0 ) |
277 | & DIAGNOSTICS_IS_ON = .TRUE. | |
278 | ENDIF | ENDIF |
279 | ENDDO | ENDDO |
280 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |