hdiff output

r31523/keywords.f 2016-11-18 10:30:22.157773698 +0000 r31522/keywords.f 2016-11-18 10:30:22.413777131 +0000
3452: !         WRITE (MYUNIT,'(A)') '**********************************************************'3452: !         WRITE (MYUNIT,'(A)') '**********************************************************'
3453: !         WRITE (MYUNIT,'(A)') '* DISTANCE DEPENDENT DIELECTRIC BEING USED - FAKE WATER! *'3453: !         WRITE (MYUNIT,'(A)') '* DISTANCE DEPENDENT DIELECTRIC BEING USED - FAKE WATER! *'
3454: !         WRITE (MYUNIT,'(A)') '**********************************************************'3454: !         WRITE (MYUNIT,'(A)') '**********************************************************'
3455: 3455: 
3456:       ELSE IF (WORD.EQ.'FAL') THEN3456:       ELSE IF (WORD.EQ.'FAL') THEN
3457:          FAL=.TRUE.3457:          FAL=.TRUE.
3458:      3458:      
3459:       ELSE IF (WORD == 'FEBH') THEN3459:       ELSE IF (WORD == 'FEBH') THEN
3460:          CALL READF(FETEMP)3460:          CALL READF(FETEMP)
3461:          FEBHT = .TRUE.3461:          FEBHT = .TRUE.
 3462: #ifndef MPI
3462:          FE_FILE_UNIT = GETUNIT()3463:          FE_FILE_UNIT = GETUNIT()
3463:          OPEN(UNIT = FE_FILE_UNIT, FILE = 'free_energy', STATUS = 'REPLACE')3464:          OPEN(UNIT = FE_FILE_UNIT, FILE = 'free_energy', STATUS = 'REPLACE')
3464:          WRITE(FE_FILE_UNIT, '(6A20)') '       Quench       ', '  Potential energy  ',3465:          WRITE(FE_FILE_UNIT, '(6A20)') '       Quench       ', '  Potential energy  ',
3465:      &   '   Harmonic term    ', '    Free energy     ', '   Markov energy    ', '        Time        '3466:      &   '   Harmonic term    ', '    Free energy     ', '   Markov energy    ', '        Time        '
3466:          WRITE(FE_FILE_UNIT, '(6A20)') ' ------------------ ', ' ------------------ ',3467:          WRITE(FE_FILE_UNIT, '(6A20)') ' ------------------ ', ' ------------------ ',
3467:      &   ' ------------------ ', ' ------------------ ', ' ------------------ ', ' ------------------ '3468:      &   ' ------------------ ', ' ------------------ ', ' ------------------ ', ' ------------------ '
 3469: #endif
3468:          IF (NITEMS .GT. 2) THEN3470:          IF (NITEMS .GT. 2) THEN
3469:              CALL READA(WORD2)3471:              CALL READA(WORD2)
3470:              WORD2 = TRIM(ADJUSTL(WORD2))3472:              WORD2 = TRIM(ADJUSTL(WORD2))
3471:              IF (WORD2 .EQ. 'SPARSE') SPARSET = .TRUE.3473:              IF (WORD2 .EQ. 'SPARSE') SPARSET = .TRUE.
3472:          END IF3474:          END IF
3473:          IF (NITEMS .GT. 3) THEN3475:          IF (NITEMS .GT. 3) THEN
3474:              CALL READF(ZERO_THRESH)3476:              CALL READF(ZERO_THRESH)
3475:          END IF3477:          END IF
3476:  3478:  
3477:       ELSE IF (WORD.EQ.'FIXBOTH') THEN3479:       ELSE IF (WORD.EQ.'FIXBOTH') THEN


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0