C INTEGER   1, all pts bc code
       IN(  1)  =  "IBC       "
        K(  2)  =  K(  1) + (M         )*(1         )*(1         )+0
C INTEGER   2, codes at a poin
       IN(  2)  =  "KODES     "
        K(  3)  =  K(  2) + (NG        )*(1         )*(1         )+0
C INTEGER   3, system topology
       IN(  3)  =  "NODES     "
        K(  4)  =  K(  3) + (NE        )*(N         )*(1         )+0
C INTEGER   4, no constrain ty
       IN(  4)  =  "NRES      "
        K(  5)  =  K(  4) + (MAXTYP    )*(1         )*(1         )+0
C INTEGER   5, el type flag   
       IN(  5)  =  "LTYPE     "
        K(  6)  =  K(  5) + (NE        )*(1         )*(1         )+0
C INTEGER   6, pt ave counter 
       IN(  6)  =  "IADD      "
        K(  7)  =  K(  6) + (M     +1  )*(1         )*(1         )+1
C INTEGER   7, skyline diagona
       IN(  7)  =  "IDIAG     "
        K(  8)  =  K(  7) + (NDFREE    )*(1         )*(1         )+0
C INTEGER   8, dof index pt or
       IN(  8)  =  "INDEX     "
        K(  9)  =  K(  8) + (NELFRE    )*(1         )*(1         )+0
C INTEGER   9, el where pt is 
       IN(  9)  =  "LFIRST    "
        K( 10)  =  K(  9) + (M         )*(1         )*(1         )+0
C INTEGER  10, el where pt is 
       IN( 10)  =  "LLAST     "
        K( 11)  =  K( 10) + (M         )*(1         )*(1         )+0
C INTEGER  11, el or edge topo
       IN( 11)  =  "LNODE     "
        K( 12)  =  K( 11) + (N         )*(1         )*(1         )+0
C INTEGER  12, integer prop al
       IN( 12)  =  "LPFIX     "
        K( 13)  =  K( 12) + (NE        )*(NLPFIX+1  )*(1         )+1
C INTEGER  13, fixed prop segm
       IN( 13)  =  "NBSPFX    "
        K( 14)  =  K( 13) + (NSEG  +1  )*(NBSFIX+1  )*(1         )+1
C INTEGER  14, pts of el fix p
       IN( 14)  =  "LPPROP    "
        K( 15)  =  K( 14) + (NNPFIX+1  )*(1         )*(1         )+1
C INTEGER  15, el integer prop
       IN( 15)  =  "LPROP     "
        K( 16)  =  K( 15) + (NLPFIX+1  )*(1         )*(1         )+1
C INTEGER  16, data for el typ
       IN( 16)  =  "LTDATA    "
        K( 17)  =  K( 16) + (6         )*(NLTYPE    )*(1         )+0
C INTEGER  17, integer misc pr
       IN( 17)  =  "MISFIX    "
        K( 18)  =  K( 17) + (MISCFX+1  )*(1         )*(1         )+1
C INTEGER  18, constraint inde
       IN( 18)  =  "NDXC      "
        K( 19)  =  K( 18) + (MAXACT    )*(NUMCE     )*(1         )+0
C INTEGER  19, all nodes w flu
       IN( 19)  =  "NODEF     "
        K( 20)  =  K( 19) + (NSEG  +1  )*(LBN   +1  )*(1         )+1
C INTEGER  20, nodes of max mi
       IN( 20)  =  "NRANGE    "
        K( 21)  =  K( 20) + (NG        )*(2         )*(1         )+0
C INTEGER  21, no constrain ty
       IN( 21)  =  "NREQ      "
        K( 22)  =  K( 21) + (MAXACT    )*(1         )*(1         )+0
C INTEGER  22, sys pts fix pro
       IN( 22)  =  "NPFIX     "
        K( 23)  =  K( 22) + (M         )*(NNPFIX+1  )*(1         )+1
