call reada(controlcard,"ATRISS",atriss,0.3D0)
call reada(controlcard,"BTRISS",btriss,0.02D0)
call reada(controlcard,"CTRISS",ctriss,1.0D0)
+ call reada(controlcard,"LIPSCALE",lipscale,1.3D0)
dyn_ss=(index(controlcard,'DYN_SS').gt.0)
write(iout,*) "ATRISS",atriss
write(iout,*) "BTRISS",btriss