Lines Matching refs:ibnd
1 subroutine argos_diana_hbond_init(snam,ibnd,ihbnd) argument
11 integer ibnd(msb,2),ihbnd(msa)
24 if(snam(ibnd(i,j))(6:7).eq.' O'.or.
25 + snam(ibnd(i,j))(6:7).eq.' N'.or.
26 + snam(ibnd(i,j))(6:7).eq.' S') ihbnd(ibnd(i,j))=-1
34 if(ihbnd(ibnd(i,k)).eq.-1) then
35 if(snam(ibnd(i,j))(6:7).eq.' H'.or.
36 + snam(ibnd(i,j))(6:7).eq.'2H'.or.
37 + snam(ibnd(i,j))(6:7).eq.'3H'.or.
38 + snam(ibnd(i,j))(6:7).eq.'4H'.or.
39 + snam(ibnd(i,j))(6:7).eq.'5H'.or.
40 + snam(ibnd(i,j))(6:7).eq.'6H'.or.
41 + snam(ibnd(i,j))(6:7).eq.'7H'.or.
42 + snam(ibnd(i,j))(6:7).eq.'8H'.or.
43 + snam(ibnd(i,j))(6:7).eq.'9H') ihbnd(ibnd(i,j))=ibnd(i,k)
56 + wnam(ibndw(i,j))(6:7).eq.' S') ihbndw(ibnd(i,j))=-1