*get,_k11,line,l1,kp,1          ! retrieve 1st and 2nd kp of line 1
*get,_k12,line,l1,kp,2
!
*get,_k21,line,l2,kp,1          ! retrieve 1st and 2nd kp of line 2
*get,_k22,line,l2,kp,2
!
*if,_k11,eq,_k21,then
    _mkp=_k11
    lesize,l1,,,nelm,sprat,
    lesize,l2,,,nelm,sprat,
*elseif,_k11,eq,_k22,then
    _mkp=_k11
    lesize,l1,,,nelm,sprat,
    lesize,l2,,,nelm,-sprat,
*elseif,_k12,eq,_k21,then
    _mkp=_k11
    lesize,l1,,,nelm,-sprat,
    lesize,l2,,,nelm,sprat,
*elseif,_k12,eq,_k22,then
    _mkp=_k11
    lesize,l1,,,nelm,-sprat,
    lesize,l2,,,nelm,-sprat,
*endif