c Cutoff range for interactions
call reada(controlcard,"R_CUT",r_cut,25.0d0)
call reada(controlcard,"LAMBDA",rlamb,0.3d0)
+ write (iout,*) "Cutoff on interactions",r_cut
+ write (iout,*) "lambda",rlamb
call reada(controlcard,"LIPTHICK",lipthick,0.0d0)
call reada(controlcard,"LIPAQBUF",lipbufthick,0.0d0)
unres_pdb = index(controlcard,'UNRES_PDB') .gt. 0
include "COMMON.PROTFILES"
include "COMMON.PROT"
include "COMMON.FREE"
- character*64 bprotfile_temp
+ character*256 bprotfile_temp
character*3 liczba,liczba2
character*2 liczba1
integer iunit,islice
include "COMMON.SBRIDGE"
include "COMMON.OBCINKA"
real*4 csingle(3,maxres2)
- character*64 nazwa,bprotfile_temp
+ character*256 nazwa,bprotfile_temp
character*3 liczba
character*2 liczba1
integer i,j,ii,jj(maxslice),k,kk(maxslice),l,