Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by jmc, Sun Dec 24 20:20:59 2006 UTC | revision 1.9 by jahn, Tue Jan 29 00:35:31 2008 UTC | |
---|---|---|
# | Line 135 C and if it exists. Note: for now, o | Line 135 C and if it exists. Note: for now, o |
135 | ||
136 | nd = jdiag(md,ld) | nd = jdiag(md,ld) |
137 | mate_index = gdiag(nd)(6:8) | mate_index = gdiag(nd)(6:8) |
138 | IF ( mate_index.NE.' ' ) THEN | IF ( mate_index.NE.' ' .AND. mate_index.NE.'***' ) THEN |
139 | READ(mate_index,'(I3)') mate | READ(mate_index,'(I3)') mate |
140 | DO j=1,nlists | DO j=1,nlists |
141 | DO i=1,nActive(j) | DO i=1,nActive(j) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |