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
