call readi(controlcard,"MAXIT",maxit,5000)
call reada(controlcard,"FIMIN",fimin,1.0d-3)
call readi(controlcard,"ENSEMBLES",ensembles,0)
call readi(controlcard,"MAXIT",maxit,5000)
call reada(controlcard,"FIMIN",fimin,1.0d-3)
call readi(controlcard,"ENSEMBLES",ensembles,0)