hdiff output

r33436/amber12_interface.F90 2017-11-03 10:30:10.882386723 +0000 r33435/amber12_interface.F90 2017-11-03 10:30:11.106389697 +0000
437: end subroutine amber12_get_resdata437: end subroutine amber12_get_resdata
438: 438: 
439: subroutine amber12_atomstores(atomstores,natoms)439: subroutine amber12_atomstores(atomstores,natoms)
440:   implicit none440:   implicit none
441:   integer, intent(in) :: natoms441:   integer, intent(in) :: natoms
442:   integer, intent(out) :: atomstores(natoms)442:   integer, intent(out) :: atomstores(natoms)
443:   integer :: j1, nres443:   integer :: j1, nres
444:   444:   
445:   nres = 1445:   nres = 1
446:   do j1=1,natoms446:   do j1=1,natoms
447:      if ((amber12_residues(nres)%end_index).ge.j1) then447:      if ((amber12_residues(nres)%end_index).gt.j1) then
448:         atomstores(j1) = nres448:         atomstores(j1) = nres
449:      else449:      else
450:         nres = nres + 1450:         nres = nres + 1
451:         atomstores(j1) =nres451:         atomstores(j1) =nres
452:      end if452:      end if
453:   end do453:   end do
454: end subroutine amber12_atomstores454: end subroutine amber12_atomstores
455: 455: 
456: subroutine amber12_get_coords(natoms, coords) bind(C, name='amber12_get_coords')456: subroutine amber12_get_coords(natoms, coords) bind(C, name='amber12_get_coords')
457: !457: !


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0