105       SUBROUTINE DLAPMT( FORWRD, M, N, X, LDX, K )  subroutine
113       LOGICAL            FORWRD
114       INTEGER            LDX, M, N
117       INTEGER            K( * )
118       DOUBLE PRECISION   X( LDX, * )
124       INTEGER            I, II, IN, J  local
125       DOUBLE PRECISION   TEMP
134    10 CONTINUE
149    20       CONTINUE
157    30       CONTINUE
164    40       CONTINUE
166    50    CONTINUE
201 *     End of DLAPMT  argument