1       INTEGER I2BST,IAODPK
2       INTEGER SYMSQLAST
3       COMMON /SYMSQ/ I2BST(8),IAODPK(8,8)
4 !
5       COMMON /SYMSQ/ SYMSQLAST
6       !  Very important !!!
7       !  Always keep SYMSQLAST as the last variable in the common block.
8       !  See GETBYTESPAN(firstvar, <name>last, SizeInBytes) for explanation.
9 
10