hdiff output

r29353/chirality.F90 2015-11-17 23:34:21.577598768 +0000 r29352/chirality.F90 2015-11-17 23:34:21.957603866 +0000
369: 369: 
370: ! Compare the values in sr_states to those in sr_states_initial. If all the370: ! Compare the values in sr_states to those in sr_states_initial. If all the
371: ! values are the same, set same_chirality to .true.371: ! values are the same, set same_chirality to .true.
372:    if (.not. allocated(same_chirality_array)) allocate(same_chirality_array(num_chiral_centres))372:    if (.not. allocated(same_chirality_array)) allocate(same_chirality_array(num_chiral_centres))
373:    same_chirality_array = (sr_states .eqv. sr_states_initial)373:    same_chirality_array = (sr_states .eqv. sr_states_initial)
374:    same_chirality = all(same_chirality_array) 374:    same_chirality = all(same_chirality_array) 
375: 375: 
376: ! For debugging, print out chiral states that invert.376: ! For debugging, print out chiral states that invert.
377:    do i = 1, num_chiral_centres377:    do i = 1, num_chiral_centres
378:       if (.not. same_chirality_array(i)) then378:       if (.not. same_chirality_array(i)) then
379:          write(*, '(a23, i6, a20)') 'chirality_check> Atom', sr_atoms(i, 1), 'inverted.'379:          write(*, '(a23, i6, a20)') 'chirality_check> Atom', sr_atoms(i, 5), 'inverted.'
380:          if (sr_states_initial(i) .eqv. .true.) then380:          if (sr_states_initial(i) .eqv. .true.) then
381:             write(*, '(a42)') 'chirality_check> Originally R chirality.'381:             write(*, '(a42)') 'chirality_check> Originally R chirality.'
382:          else382:          else
383:             write(*, '(a42)') 'chirality_check> Originally S chirality.'383:             write(*, '(a42)') 'chirality_check> Originally S chirality.'
384:          end if            384:          end if            
385:       end if385:       end if
386:    end do386:    end do
387: 387: 
388: end subroutine chirality_check388: end subroutine chirality_check
389: 389: 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0