- if (lprint) then
- write (iout,'(/a)') "Disulfide bridge parameters:"
- write (iout,'(a,f10.2)') 'S-S bridge energy: ',ebr
- write (iout,'(2(a,f10.2))') 'd0cm:',d0cm,' akcm:',akcm
- write (iout,'(2(a,f10.2))') 'akth:',akth,' akct:',akct
- write (iout,'(3(a,f10.2))') 'v1ss:',v1ss,' v2ss:',v2ss,
- & ' v3ss:',v3ss
- endif
+c if (lprint) then
+c write (iout,'(/a)') "Disulfide bridge parameters:"
+c write (iout,'(a,f10.2)') 'S-S bridge energy: ',ebr
+c write (iout,'(2(a,f10.2))') 'd0cm:',d0cm,' akcm:',akcm
+c write (iout,'(2(a,f10.2))') 'akth:',akth,' akct:',akct
+c write (iout,'(3(a,f10.2))') 'v1ss:',v1ss,' v2ss:',v2ss,
+c & ' v3ss:',v3ss
+c endif