61 lines
1.4 KiB
PHP
61 lines
1.4 KiB
PHP
|
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
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|