path: root/BIC.FOR

	SUBROUTINE BIC(CH,IV,IP)
	CHARACTER CH(10)*40
	IPP=IP
	DO 10 I=1,40
	IF(CH(IV)(I:I).EQ.'*') THEN
	CH(IV)(I:I)=' '
	IPP=IPP-1
	IF(IPP.EQ.0) RETURN
	ENDIF
10	CONTINUE
	RETURN
	END