gde_linux/ZUKER/lin.inc

61 lines
1.4 KiB
PHP
Raw Normal View History

2022-03-08 04:43:05 +08:00
implicit integer (a-z)
parameter (maxn=1500,maxn2=3000)
parameter (fldmax=maxn2)
parameter (infinity=16000,sortmax=30000)
parameter (mxbits=(maxn*(maxn+1)+31)/32)
parameter (maxtloops=40)
parameter (maxsiz=10000)
integer*2 vst(maxn*maxn),wst1(maxn*maxn),wst2(maxn*maxn)
integer poppen(4),maxpen
real prelog
dimension newnum(maxsiz),hstnum(maxn2),force(maxn2),numseq(maxn2),
. work1(maxn2,0:2),work2(maxn2),
. stack(5,5,5,5),tstk(5,5,5,5),dangle(5,5,5,2),hairpin(30)
dimension bulge(30),inter(30),eparam(10),cntrl(10),nsave(2)
c common /main/ newnum,hstnum,force,work1,work2,
common /main/ newnum,hstnum,force,work1,work2,
. stack,tstk,dangle,hairpin,bulge,inter,eparam,cntrl,nsave,n,
. numseq,poppen,prelog,maxpen,vst,wst1,wst2
character*1 seq(maxsiz)
c character*5 inbuf
character*10 progtitle
character*30 seqlab
common /seq/ seq,seqlab
dimension list(100,4)
common /list/ list,listsz
common /nm/ vmin
data progtitle/'lrna'/
dimension basepr(maxn)
common /traceback/ basepr
dimension heapi(sortmax+1),heapj(sortmax+1)
common /heap/ heapi,heapj,num
integer*2 marks(mxbits),force2(mxbits)
common/bits/marks,force2
integer*2 tloop(maxtloops,2),numoftloops
common/tloops/tloop,numoftloops