diff options
Diffstat (limited to 'BIC.FOR')
-rw-r--r-- | BIC.FOR | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -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 |