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

⟦9a890a698⟧ TextFile

    Length: 386 (0x182)
    Types: TextFile
    Names: »read.f«

Derivation

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

TextFile

	subroutine read(beg,lim,num)

	IMPLICIT INTEGER(A-Z)

	include 'common.h'
C

	do 100 j = beg + 1, beg + lim
	read ( 1 ) k
	rlmap ( j ) = k
	if (num .lt. 9) read ( 1 ) mycode(j)
	if (num .gt. 8) read ( 1 ) codefu(j-1500),codela(j-1500)
	if (num .eq. 9) read ( 1 ) ar2s(j-1500)
	if (num .eq. 2) read ( 1 ) range(j-500)
	if (num .eq. 10) read ( 1 ) rang(j-2000)
100	continue
	return
	end