2022-03-08 04:43:05 +08:00
|
|
|
implicit integer (a-z)
|
2023-04-12 00:08:58 +08:00
|
|
|
|
|
|
|
|
c parameter (maxn=625,fldmax=2*maxn)
|
|
|
|
|
parameter (maxn=1500,maxn2=3000)
|
|
|
|
|
parameter (fldmax=maxn2)
|
2022-03-08 04:43:05 +08:00
|
|
|
parameter (infinity=16000,sortmax=30000)
|
|
|
|
|
parameter (mxbits=(maxn*(maxn+1)+31)/32)
|
|
|
|
|
parameter (maxtloops=40)
|
|
|
|
|
parameter (maxsiz=10000)
|
|
|
|
|
|
2023-04-12 00:08:58 +08:00
|
|
|
integer*2 vst(maxn*maxn),wst(maxn*maxn)
|
2022-03-08 04:43:05 +08:00
|
|
|
integer poppen(4),maxpen
|
|
|
|
|
real prelog
|
2023-04-12 00:08:58 +08:00
|
|
|
dimension newnum(maxsiz),hstnum(fldmax),force(fldmax),
|
|
|
|
|
. numseq(fldmax), work(fldmax,0:2),
|
2022-03-08 04:43:05 +08:00
|
|
|
. 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)
|
2023-04-12 00:08:58 +08:00
|
|
|
common /main/ vst,wst,newnum,hstnum,force,numseq,work,stack,tstk,
|
|
|
|
|
. dangle,hairpin,bulge,inter,eparam,cntrl,nsave,poppen,maxpen,prelog
|
2022-03-08 04:43:05 +08:00
|
|
|
|
|
|
|
|
character*1 seq(maxsiz)
|
|
|
|
|
c character*5 inbuf
|
|
|
|
|
character*10 progtitle
|
|
|
|
|
character*30 seqlab
|
|
|
|
|
common /seq/ seq,seqlab
|
2023-04-12 00:08:58 +08:00
|
|
|
data progtitle/'crna'/
|
|
|
|
|
|
2022-03-08 04:43:05 +08:00
|
|
|
dimension list(100,4)
|
|
|
|
|
common /list/ list,listsz
|
2023-04-12 00:08:58 +08:00
|
|
|
common /nm/ n,vmin
|
2022-03-08 04:43:05 +08:00
|
|
|
|
|
|
|
|
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
|
