diff options
| author | Anton Šijanec <sijanecantonluka@gmail.com> | 2020-03-30 15:24:15 +0200 |
|---|---|---|
| committer | Anton Šijanec <sijanecantonluka@gmail.com> | 2020-03-30 15:24:15 +0200 |
| commit | 37fc0b25d852dba0ce7a329678c5c30a028be00f (patch) | |
| tree | 80e58fb4000efc4fcf3f7afccbda0f4a6a48f93b /BIC.FOR | |
| download | ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.gz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.bz2 ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.lz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.xz ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.tar.zst ZVEZDE-37fc0b25d852dba0ce7a329678c5c30a028be00f.zip | |
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 |