hdiff output

r33117/regrouppersist.f90 2017-08-04 15:30:16.190090489 +0100 r33116/regrouppersist.f90 2017-08-04 15:30:16.414093441 +0100
568:       STOP568:       STOP
569:    ENDIF569:    ENDIF
570: 570: 
571: ENDDO571: ENDDO
572: 572: 
573: IF (NOMERGEAB) THEN573: IF (NOMERGEAB) THEN
574:    DO J1=1,NMIN574:    DO J1=1,NMIN
575:       DO J2=1,NPERSIST575:       DO J2=1,NPERSIST
576:          DO J3=J2+1,NPERSIST576:          DO J3=J2+1,NPERSIST
577:             IF (ISP(J2,J1).AND.ISP(J3,J1)) THEN577:             IF (ISP(J2,J1).AND.ISP(J3,J1)) THEN
578:                PRINT '(A,I7,A,2I7)','regrouppersist> ERROR - minimum ',J1,' belongs to persistent sets ',J2,J3578:                PRINT '(A,I7,A,2I7))','regrouppersist> ERROR - minimum ',J1,' belongs to persistent sets ',J2,J3
579:                STOP579:                STOP
580:             ENDIF580:             ENDIF
581:          ENDDO581:          ENDDO
582:       ENDDO582:       ENDDO
583:    ENDDO583:    ENDDO
584: ENDIF584: ENDIF
585: !585: !
586: !  Need to reset NEWNMIN, NEWNTS, NEWEMIN, NEWETS, NEWPLUS, NEWMINUS, NEWKPLUS and NEWKMINUS586: !  Need to reset NEWNMIN, NEWNTS, NEWEMIN, NEWETS, NEWPLUS, NEWMINUS, NEWKPLUS and NEWKMINUS
587: !  to the corresponding grouped quantities and free energies.587: !  to the corresponding grouped quantities and free energies.
588: !  Note that some of the groups of minima are actually empty (NEMPTY).588: !  Note that some of the groups of minima are actually empty (NEMPTY).


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0