do i=1,maxres
dyn_ss_mask(i)=.false.
enddo
- do i=1,maxres-1
- do j=i+1,maxres
+ do i=1,max_cyst-1
+ do j=i+1,max_cyst
dyn_ssbond_ij(i,j)=1.0d300
enddo
enddo
+ call flush(iout)
call reada(weightcard,"HT",Ht,0.0D0)
if (dyn_ss) then
ss_depth=ebr/wsc-0.25*eps(1,1)
write (iout,*) "BTRISS=", btriss
write (iout,*) "CTRISS=", ctriss
write (iout,*) "DTRISS=", dtriss
- print *,'indpdb=',indpdb,' pdbref=',pdbref
+c print *,'indpdb=',indpdb,' pdbref=',pdbref
endif
return
end