program main
        implicit none
        character(99) :: s
        integer(4) :: i, l, j
        logical :: check = .true.
        read(*,*) s

        l = len(trim(s))
        j = 0
        do i = 1, l/2
          if (s(i:i) /= s((l+1-i):(l+1-i))) check = .false.
        end do
        do i = 1, (l/2)/2
          if (s(i:i) /= s(((l/2)+1-i):((l/2)+1-i))) check = .false.
        end do

        if ( check )  print *, "Yes"
        if ( .not. check ) print *, "No"
end program main
