Cleaned some Fortran syntax issue

Working as two/four years ago

Now need to modify to updated needs