blob: 5d0d2029ef96cb3f797bae6288fe53fa2c887385 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
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
|