program example
	implicit none
    
    character(100) S,A,B
    integer :: N,i,countA=0,countB=0,countS=0
    
    read(*,*) S
    
    S=adjustl(S)
    
    N=len_trim(S)
    
	do i=1,N
    
    	if(S(i:i)==S(N+1-i:N+1-i)) then
        	countS=countS+1
        end if
    
    end do
    
    if(countS/=N) then
    	write(*,*) "No"
        goto 1
    end if
    
    A=S(1:(N-1)/2)
    
    B=S((N+3)/2:N)

	do i=1,(N-1)/2
    
    	if(A(i:i)==A(((N-1)/2)+1-i:((N-1)/2)+1-i)) then
        	countA=countA+1
        end if
    
    end do
    
    do i=(N+3)/2,N
    
    	if(B(i:i)==B(N+((N+3)/2)-i:N+((N+3)/2)-i)) then
        	countB=countB+1
        end if
    
    end do
    
    if(countA==((N-1)/2) .and. countB==((N-1)/2)) then
    	write(*,*) "Yes"
    else
    	write(*,*) "No"
        
    end if
    
1 end program