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

⟦234543fe5⟧ TextFile

    Length: 431 (0x1af)
    Types: TextFile
    Names: »compar.f«

Derivation

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

TextFile

	FUNCTION COMPAR(AB,Z62,OKVECT)
C
C USED BY PATH, CHECKS IF AB OR LOCATION Z62 IS A TYPE CONTAINED IN OKVECT
C 
	IMPLICIT INTEGER(A-Z)
	character OKVECT(5),AB
	character OMAP(6000)
	COMMON/OMAP/OMAP
C
	COMPAR = 1
	IF (AB .EQ. OKVECT(1)) RETURN
	IF (OMAP(Z62) .EQ. OKVECT(1)) RETURN
	IF (AB .EQ. OKVECT(2)) RETURN
	IF (AB .EQ. OKVECT(3)) RETURN
	IF (AB .EQ. OKVECT(4)) RETURN
	IF (AB .EQ. OKVECT(5)) RETURN
	COMPAR = 0
	RETURN
	END