hdiff output

r30246/finalq.f 2016-07-06 15:36:33.696010695 +0100 r30245/finalq.f 2016-07-06 15:36:34.056015567 +0100
 52:          SEEDT=.FALSE. 52:          SEEDT=.FALSE.
 53:          NSEED=0 53:          NSEED=0
 54:       ENDIF 54:       ENDIF
 55:       IF (SQUEEZET) SQUEEZET=.FALSE. 55:       IF (SQUEEZET) SQUEEZET=.FALSE.
 56:       MAXIT=MAXIT2 56:       MAXIT=MAXIT2
 57:       IF (MPIT) THEN 57:       IF (MPIT) THEN
 58:          NP=MYNODE+1 58:          NP=MYNODE+1
 59:       ELSE 59:       ELSE
 60:          NP=1 60:          NP=1
 61:       ENDIF 61:       ENDIF
 62:  
 63: ! jwrm2> No compression for percolate in final quenches 
 64:       IF(PERCOLATET) K_COMP = 0.D0 
 65:  
 66: ! csw34> Adding in clarification of what is being tightly quenched 62: ! csw34> Adding in clarification of what is being tightly quenched
 67:       WRITE(MYUNIT,'(A)') 'Tightly converging the SAVE lowest energy minima found' 63:       WRITE(MYUNIT,'(A)') 'Tightly converging the SAVE lowest energy minima found'
 68:       WRITE(MYUNIT,'(A)') 'NOTE: these may NOT match the other output files - see below for a sorted list of Lowest minima' 64:       WRITE(MYUNIT,'(A)') 'NOTE: these may NOT match the other output files - see below for a sorted list of Lowest minima'
 69:       DO J1=1,NSAVE 65:       DO J1=1,NSAVE
 70:          IF (QMIN(J1).LT.1.0D10) THEN 66:          IF (QMIN(J1).LT.1.0D10) THEN
 71:             NATOMS=QMINNATOMS(J1) 67:             NATOMS=QMINNATOMS(J1)
 72:             DO J2=1,3*NATOMS 68:             DO J2=1,3*NATOMS
 73:                COORDS(J2,NP)=QMINP(J1,J2) 69:                COORDS(J2,NP)=QMINP(J1,J2)
 74:             ENDDO 70:             ENDDO
 75:              71:             


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0