1
c dimensions for logical matrices in TWELINT :
4
c parameter (lpar1=14,lpar2= 455,lpar3= 364,lpar4=5,lpar5=13)
6
c parameter (lpar1=18,lpar2= 969,lpar3= 816,lpar4=6,lpar5=17)
8
c parameter (lpar1=22,lpar2=1771,lpar3=1540,lpar4=7,lpar5=21)
10
c parameter (lpar1=26,lpar2=2925,lpar3=2600,lpar4=8,lpar5=25)
12
integer lpar1,lpar2,lpar3,lpar4,lpar5
13
integer ndege,len,lensm
14
integer nfu,icoor,icool,ifrst,ilast,nia,nmxyz,npxyz
16
parameter (lpar1=30,lpar2=4495,lpar3=4060,lpar4=9,lpar5=29)
17
common /logicd/ hnia(3,lpar2)
18
common /logic1/ ndege(lpar4)
19
common /logic2/ len(lpar4)
20
common /logic3/ lensm(lpar5)
22
common /logic4/ nfu(lpar1)
23
common /logic5/ icoor(lpar2)
24
common /logic6/ icool(lpar2)
25
common /logic7/ ifrst(lpar2)
26
common /logic8/ ilast(lpar2)
27
common /logic9/ nia(3,lpar2)
28
common /logic10/ nmxyz(3,lpar2)
29
common /logic11/ npxyz(3,lpar3)