|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T p
Length: 804 (0x324)
Types: TextFile
Names: »prod.f«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Empire/prod.f«
subroutine prod ( ahits, z6, alimit, acrahit, acraloc, alopmax,
* aar2s, j, arange, string, point )
IMPLICIT INTEGER(A-Z)
include 'common.h'
C
character string ( 80 )
integer point
integer aar2s(500),arange(200)
do 1000 i = acraloc + 1, alopmax + acraloc
if ( rlmap ( i ) .ne. 0 ) goto 1000
if ( i .gt. alimit + acraloc ) alimit = i - acraloc
rlmap ( i ) = z6
if ( ahits .gt. 1 ) j1ts ( acrahit + i - acraloc ) = ahits
if ( j .gt. 1 ) mycode ( i ) = 0
if ( j .lt. 2 ) codefu ( i - 1500 ) = 0
if ( j .lt. 2 ) codela ( i - 1500 ) = 0
if ( j .eq. 1 ) aar2s ( i - 1500 ) = 0
if ( acraloc .eq. 2000 ) arange ( i - 2000 ) = 20
if ( j .eq. 3 ) arange ( i - 500 ) = 20
cc if (( j .le. 1 ) .or. ( j .ge. 10 )) return
call addrock ( j, string, point )
return
1000 continue
return
end