Page MenuHomeHEPForge
Files F8309869

get_reaction.f
No OneTemporary
Actions

get_reaction.f
View Options

SUBROUTINE EXEC(IINPUT,ILOG,IAUDIT,IPRINT,IDUMP)
character*320 ctemp
c
jtab =ident(8HTABLE ,5)
jtky =ident(12HTABLE-KEYS ,10)
jre =ident(4HREAC,4)
jdb =ident(8HDBNAME ,6)
irec=0
10 irec=irec+1
call fetch(irec,ierr)
if(ierr.eq.0) then
call getch(jdb,1,0,ctemp,len,ierr)
if(ierr.eq.0.and.index(ctemp(1:2),'DB').eq.0) then
ntab = 0
c == loop through all tables
do while(in(jtab,ntab+1,0).gt.0)
ntab=ntab+1
intab=in(jtab,ntab,0)
kocc=0
do while(in(jtky,kocc+1,intab).gt.0)
kocc=kocc+1
iocc=0
do while(in(jre,iocc+1,in(jtky,kocc,intab)).gt.0)
iocc=iocc+1
call getch(jre,iocc,in(jtky,kocc,intab),ctemp,len,ierr)
write(6,'(i6,i4,1x,150a1)')irec,ntab,(ctemp(j:j),j=1,len)
enddo
enddo
enddo
endif
else if(ierr.eq.3) then
c print *,irec,'error 3'
else if(ierr.eq.2) then
go to 999
endif
go to 10
999 continue
stop
end

File Metadata

Mime Type
text/x-fortran
Expires
Sat, Dec 21, 4:45 PM (18 h, 16 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4023504
Default Alt Text
get_reaction.f (1 KB)

Event Timeline