SUBROUTINE CCSTR(STR1,STR2)
	LOGICAL*1 STR1(2),STR2(2)
	CALL LENSTR(STR1,LEN)
	CALL ISTR(STR1,LEN+1,STR2)
	END