! commom.control
! common /cntrl/
integer :: modecalc,iscode,indpdb,indback,indphi,iranconf,&
- icheckgrad,iprint,i2ndstr,mucadyn,constr_dist,symetr
+ icheckgrad,iprint,i2ndstr,mucadyn,constr_dist,symetr,shield_mode,&
+ tubemode
logical :: minim,refstr,pdbref,overlapsc,&
energy_dec,sideadd,lsecondary,read_cart,unres_pdb,&
vdisulf,searchsc,lmuca,dccart,extconf,out1file,&
!-----------------------------------------------------------------------------
! common.spitele
! common /splitele/
- real(kind=8) :: r_cut,rlamb
+ real(kind=8) :: r_cut,rlamb,r_cut_ele,rlamb_ele
!-----------------------------------------------------------------------------
! common.time1
! FOUND_NAN - set by calcf to stop sumsl via stopx