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

⟦63b9284fd⟧ TextFile

    Length: 441 (0x1b9)
    Types: TextFile
    Names: »cost.f«

Derivation

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

TextFile

	function cost(own,h)

	implicit integer(a-z)
	integer	cosval ( 14 )
	character costab ( 14 ), own
	data cosval /  0,  2,  4,  6,  3,  5,  4,  1,  3,  3,  7,
     *	  5, 11, 11/
	data costab /'F','D','S','T','R','C','B','f','d','s','t',
     *	'r','c','b'/

	do 100 i = 1, 14
100	if ( own .eq. costab ( i )) goto 200
	pause 'BAD CALL TO FUNCTION COST!'
	cost = 0
	return
200	cost = cosval ( i )
	if ( i .ge. 9 ) cost = cost - h
	return
	end