hdiff output

r33377/amber12_interface.F90 2017-10-05 15:30:07.721940233 +0100 r33376/amber12_interface.F90 2017-10-05 15:30:07.945943199 +0100
423: end subroutine amber12_get_resdata423: end subroutine amber12_get_resdata
424: 424: 
425: subroutine amber12_atomstores(atomstores,natoms)425: subroutine amber12_atomstores(atomstores,natoms)
426:   implicit none426:   implicit none
427:   integer, intent(in) :: natoms427:   integer, intent(in) :: natoms
428:   integer, intent(out) :: atomstores(natoms)428:   integer, intent(out) :: atomstores(natoms)
429:   integer :: j1, nres429:   integer :: j1, nres
430:   430:   
431:   nres = 1431:   nres = 1
432:   do j1=1,natoms432:   do j1=1,natoms
433:      if ((amber12_residues(nres)%end_index).gt.j1) then433:      if ((amber12_residues(nres)%end_index).le.j1) then
434:         atomstores(j1) = nres434:         atomstores(j1) = nres
435:      else435:      else
436:         nres = nres + 1436:         nres = nres + 1
437:         atomstores(j1) =nres437:         atomstores(j1) =nres
438:      end if438:      end if
439:   end do439:   end do
440: end subroutine amber12_atomstores440: end subroutine amber12_atomstores
441: 441: 
442: subroutine amber12_get_coords(natoms, coords) bind(C, name='amber12_get_coords')442: subroutine amber12_get_coords(natoms, coords) bind(C, name='amber12_get_coords')
443: !443: !


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0