changed to Fortran-90