102 |
ENDIF |
ENDIF |
103 |
gcode = gdiag(nn)(1:10) |
gcode = gdiag(nn)(1:10) |
104 |
IF ( flagD ) THEN |
IF ( flagD ) THEN |
|
idiag(mId,listId) = ndiagmx + 1 |
|
105 |
IF ( diagIsPP ) THEN |
IF ( diagIsPP ) THEN |
106 |
|
C- Add this diag with negative idiag pointer (since those 2 diags |
107 |
|
C share the same pointer and "nn" will get the positive pointer). |
108 |
|
idiag(mId,listId) = -(ndiagmx+1) |
109 |
C- Also add "nn" to the Active list |
C- Also add "nn" to the Active list |
110 |
k = nActive(listId) + 1 |
k = nActive(listId) + 1 |
111 |
IF ( k.LE.numperList ) THEN |
IF ( k.LE.numperList ) THEN |
114 |
flds (k,listId) = cdiag(nn) |
flds (k,listId) = cdiag(nn) |
115 |
ENDIF |
ENDIF |
116 |
nActive(listId) = k |
nActive(listId) = k |
117 |
|
ELSE |
118 |
|
idiag(mId,listId) = ndiagmx + 1 |
119 |
ENDIF |
ENDIF |
120 |
ndiagmx = ndiagmx + kdiag(nn)*averageCycle(listId) |
ndiagmx = ndiagmx + kdiag(nn)*averageCycle(listId) |
121 |
IF ( ndiagmx.GT.numDiags ) THEN |
IF ( ndiagmx.GT.numDiags ) THEN |