138 |
DO j=1,nlists |
DO j=1,nlists |
139 |
DO i=1,nActive(j) |
DO i=1,nActive(j) |
140 |
IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN |
IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN |
141 |
mdiag(md,ld) = ABS(idiag(i,j)) |
IF ( freq(j).EQ.freq(ld) .AND. phase(j).EQ.phase(ld) |
142 |
|
& .AND. averageFreq(j) .EQ.averageFreq(ld) |
143 |
|
& .AND. averagePhase(j).EQ.averagePhase(ld) |
144 |
|
& .AND. averageCycle(j).EQ.averageCycle(ld) ) |
145 |
|
& mdiag(md,ld) = ABS(idiag(i,j)) |
146 |
ENDIF |
ENDIF |
147 |
ENDDO |
ENDDO |
148 |
ENDDO |
ENDDO |