Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.12 by jmc, Sun Jan 3 00:42:45 2010 UTC | revision 1.13 by jmc, Sun Jul 23 00:24:18 2017 UTC | |
|---|---|---|
| # | Line 88 C we are trying to fill a valid diagnost | Line 88 C we are trying to fill a valid diagnost |
| 88 | DO n=1,nlists | DO n=1,nlists |
| 89 | DO m=1,nActive(n) | DO m=1,nActive(n) |
| 90 | IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN | IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
| 91 | ndiagnum = jdiag(m,n) | ndiagnum = ABS(jdiag(m,n)) |
| 92 | ipointer = idiag(m,n) | ipointer = idiag(m,n) |
| 93 | IF ( ndiagnum.NE.0 .AND. ndiag(ipointer,1,1).GE.0 ) THEN | IF ( ndiagnum.NE.0 .AND. ndiag(ipointer,1,1).GE.0 ) THEN |
| 94 | C-- do the filling: start here: | C-- do the filling: start here: |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |