write (iout,*) "ichain",ichain," indchain",indchain
write (iout,*) "chain_border",chain_border(1,ichain),
& chain_border(2,ichain)
write (iout,*) "ichain",ichain," indchain",indchain
write (iout,*) "chain_border",chain_border(1,ichain),
& chain_border(2,ichain)