	SUBROUTINE CONCAT(A,LA,B,LB,C,LC)
C	ROUTINE TO CONCATENATE B TO THE END OF A AND RETURN STRING IN C
	CHARACTER A,B,C
	C=' '
	CALL NUMBR(A,LA,I)
	IF(I.GT.0) THEN
	   C(1:I)=A(1:I)
	   ENDIF
	J=I+LB+1
	IF(J.GT.LC) J=LC
	C(I+1:J)=B(1:LB)
	RETURN
	END
