Fortran 95 Code