hdiff output

r29523/mie_field.f90 2015-11-25 18:30:05.287696081 +0000 r29522/mie_field.f90 2015-11-25 18:30:05.475698539 +0000
 66:   IF (MIEF_CUTT) THEN 66:   IF (MIEF_CUTT) THEN
 67:      ALLOCATE(MIEF_U_RCUT(NSPECIES)) 67:      ALLOCATE(MIEF_U_RCUT(NSPECIES))
 68:      ALLOCATE(MIEF_DUDR_RCUT(NSPECIES)) 68:      ALLOCATE(MIEF_DUDR_RCUT(NSPECIES))
 69:      PREF = DBLE(MIEF_N)/DBLE(MIEF_N-MIEF_M)*& 69:      PREF = DBLE(MIEF_N)/DBLE(MIEF_N-MIEF_M)*&
 70:           (DBLE(MIEF_N)/DBLE(MIEF_M))**& 70:           (DBLE(MIEF_N)/DBLE(MIEF_M))**&
 71:           (DBLE(MIEF_M)/DBLE(MIEF_N-MIEF_M)) 71:           (DBLE(MIEF_M)/DBLE(MIEF_N-MIEF_M))
 72:      DO I=1,NSPECIES 72:      DO I=1,NSPECIES
 73:         DUMMY = MIEF_SIG(I)/MIEF_RCUT 73:         DUMMY = MIEF_SIG(I)/MIEF_RCUT
 74:         REP_TERM=DUMMY**MIEF_N 74:         REP_TERM=DUMMY**MIEF_N
 75:         ATT_TERM=DUMMY**MIEF_M 75:         ATT_TERM=DUMMY**MIEF_M
 76:         MIEF_U_RCUT(I)=PREF*MIEF_EPS(I)*(REP_TERM-ATT_TERM) 76:         MIEF_U_RCUT=PREF*MIEF_EPS(I)*(REP_TERM-ATT_TERM)
 77:         MIEF_DUDR_RCUT(I)=PREF*MIEF_EPS(I)*( -DBLE(MIEF_N)*REP_TERM + & 77:         MIEF_DUDR_RCUT=PREF*MIEF_EPS(I)*( -DBLE(MIEF_N)*REP_TERM + &
 78:              DBLE(MIEF_M)*ATT_TERM ) / MIEF_RCUT 78:              DBLE(MIEF_M)*ATT_TERM ) / MIEF_RCUT
 79:      ENDDO 79:      ENDDO
 80:   ENDIF 80:   ENDIF
 81:   ! 81:   !
 82:   RETURN 82:   RETURN
 83:   ! 83:   !
 84: END SUBROUTINE MIEF_INI 84: END SUBROUTINE MIEF_INI
 85: ! 85: !
 86: SUBROUTINE MIEF(NATOMS,X,GRAD,EREAL,GRADT,HESST) 86: SUBROUTINE MIEF(NATOMS,X,GRAD,EREAL,GRADT,HESST)
 87:   ! 87:   !


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0