character:: cread(*,*) cif ( c.ge.'a' .and. c.le.'z') c = char(ichar(c) - ichar(a) + ichar(A))write(*,*) cend
