1 files changed, 12 insertions, 0 deletions
diff --git a/BIC.FOR b/BIC.FOR
new file mode 100644
index 0000000..5d0d202
--- /dev/null
+++ b/BIC.FOR
@@ -0,0 +1,12 @@
+	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