Updated Code & Compilable by gfortran