hdiff output

r31327/mc_gbh.F90 2016-10-17 14:30:08.110325537 +0100 r31326/mc_gbh.F90 2016-10-17 14:30:08.358328705 +0100
 67:   ! 67:   !
 68:   NREJSTREAK=0 68:   NREJSTREAK=0
 69:   gbh_loop: DO ITRIAL=1,NSTEPS 69:   gbh_loop: DO ITRIAL=1,NSTEPS
 70:      ! 70:      !
 71:      IF(QALCSV) WRITE(MYUNIT, '(A,I10)') & 71:      IF(QALCSV) WRITE(MYUNIT, '(A,I10)') &
 72:           'mc_gbh> Starting iteration ', ITRIAL      72:           'mc_gbh> Starting iteration ', ITRIAL     
 73:      ! 73:      !
 74:      RESET=.FALSE. 74:      RESET=.FALSE.
 75:      IF(GBH_RESTART) THEN 75:      IF(GBH_RESTART) THEN
 76:         IF(NREJSTREAK >= GBH_NREJMAX) RESET=.TRUE. 76:         IF(NREJSTREAK >= GBH_NREJMAX) RESET=.TRUE.
 77:         IF(GBH_NAVOID>0.AND.(RESET.OR.NREJSTREAK==1)) THEN 77:         IF(RESET.OR.(GBH_NAVOID>0.AND.NREJSTREAK==1)) THEN
 78:            CALL PROCESS_AVOID_LIST(E0,GBH_NAVOID,AVOIDLIST,RESET) 78:            CALL PROCESS_AVOID_LIST(E0,GBH_NAVOID,AVOIDLIST,RESET)
 79:         ENDIF 79:         ENDIF
 80:         IF(RESET) THEN 80:         IF(RESET) THEN
 81:            E0=1.0D+99 ! Guarantee move by inflating Markov energy 81:            E0=1.0D+99 ! Guarantee move by inflating Markov energy
 82:            NREJSTREAK=0            82:            NREJSTREAK=0           
 83:         ENDIF 83:         ENDIF
 84:      ENDIF 84:      ENDIF
 85:      ! 85:      !
 86:      ! --- Stochastic cartesian move ------- 86:      ! --- Stochastic cartesian move -------
 87:      CALL RANDOM_MOVE(RESET,3,NATOMSALLOC,COORDS(:,1))      87:      CALL RANDOM_MOVE(RESET,3,NATOMSALLOC,COORDS(:,1))     


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0