#ifdef MPL
include 'COMMON.INFO'
#endif
- integer i
+ integer i,i1,i2,it1,it2
read (INP,'(a80)') titel
call card_concat(controlcard)
double precision x(maxvar)
integer itype_pdb(maxres)
logical seq_comp
- integer i,j,kkk
+ integer i,j,kkk,i1,i2,it1,it2
C
C Body
C
endif
call contact(.true.,ncont_ref,icont_ref)
endif
- if (ns.gt.0 .and. (me.eq.king .or. .not.out1file) ) then
- write (iout,'(/a,i3,a)')
- & 'The chain contains',ns,' disulfide-bridging cysteines.'
+ if (ns.gt.0) then
+C write (iout,'(/a,i3,a)')
+C & 'The chain contains',ns,' disulfide-bridging cysteines.'
write (iout,'(20i4)') (iss(i),i=1,ns)
if (dyn_ss) then
write(iout,*)"Running with dynamic disulfide-bond formation"
enddo
write (iout,'(a,i3,a)') 'Pair',i,' contains unknown cystine.'
20 continue
- dhpb(i)=dbr
- forcon(i)=fbr
+C dhpb(i)=dbr
+C forcon(i)=fbr
enddo
do i=1,nss
ihpb(i)=ihpb(i)+nres