* -*-fortran-*- character*8 AlphaEvol character*4 InAlphaEvol * common / AlphaEvolutionAPFEL / AlphaEvol,InAlphaEvol