Skip to main content
. Author manuscript; available in PMC: 2016 Jan 1.
Published in final edited form as: Methods Mol Biol. 2015;1215:253–287. doi: 10.1007/978-1-4939-1465-4_12
program renumber_atoms
  implicit none
  character (len = 5) ∷ first
  character (len = 6) ∷ old
  character (len = 64) ∷ last
  integer ∷ i = 1
  do i = 1, 4056
   read (5,“(a5,a6,a64)”), first, old, last
   write (6,“(a5,i6,a64)”), first, i, last
  end do
end program