1 subroutine seq2chains(nres,itype,nchain,chain_length,chain_border)
3 c Split the total UNRES sequence, which has dummy residues separating
4 c the chains, into separate chains. The length of chain ichain is
5 c contained in chain_length(ichain), the first and last non-dummy
6 c residues are in chain_border(1,ichain) and chain_border(2,ichain),
7 c respectively. The lengths pertain to non-dummy residues only.
11 integer nres,itype(nres),nchain,chain_length(nres),
12 & chain_border(2,nres)
17 chain_length(ichain)=0
20 if (itype(ii).eq.ntyp1) then
21 if (.not.new_chain) then
23 chain_border(2,ichain)=ii-1
25 chain_border(1,ichain)=ii+1
26 chain_length(ichain)=0
30 chain_border(1,ichain)=ii
33 chain_length(ichain)=chain_length(ichain)+1
37 if (itype(nres).eq.ntyp1) then
40 chain_length(ichain)=chain_length(ichain)+1
42 if (chain_length(ichain).gt.0) then
43 chain_border(2,ichain)=ii