DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦bc3eee08e⟧ TextFile

    Length: 261 (0x105)
    Types: TextFile
    Names: »armcnt.f«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Empire/armcnt.f«

TextFile


	SUBROUTINE ARMCNT
C
	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C

C
	DO 100 I=1,20
100	ARMTOT(I)=0
	DO 300 I=1,LIMIT(9)
	IF (CODEFU(I).NE.1) GOTO 300
	ILA=CODELA(I)
	DO 200 I2=1,20
200	IF (TARGET(I2).EQ.ILA) ARMTOT(I2)=ARMTOT(I2)+1
300	CONTINUE
	RETURN
	END