fortran accept input and convert to uppercase