call reada(controlcard,"BTRISS",btriss,0.02D0)
call reada(controlcard,"CTRISS",ctriss,1.0D0)
dyn_ss=(index(controlcard,'DYN_SS').gt.0)
- do i=1,maxres
- dyn_ss_mask(i)=.false.
- enddo
+C do i=1,maxres
+C dyn_ss_mask(i)=.false.
+C enddo
do i=1,maxres-1
do j=i+1,maxres
dyn_ssbond_ij(i,j)=1.0d300