lit
    JINRLIB

LIHOIN -

F500

: K.S.Kolbig, F.Schwarz :

popaa ao ac op Vi (i=1,...,NVEC) oo oopaoo oca, op p c oopo pac Ax ≥ 0,
A = {amn} - aaa M*N apa c M ≥ N pao (A)=N, x = (x1,x2,...,xn) - op. o p x paca Ax ≥ 0 o pao a

f500

λi ≥ 0. NVEC ac o A c oao, a ca M=N,
oa NVEC = N.

:

: - SUBROUTINE
: - LIHOIN
: - DVCPY DVMPY DVSCL (F002)
DMCPY DMSET (F003)
DINV (F010)

:

CALL LIHOIN(A,MA,M,N,MAXV,V,NV,NVEC,EPS,IOUT,W,IW), :

A(MA,NA) - (REAL*8) p acc, a oopoo c o pac. opo a opao, o p M*N o o pa.
o oo p oo LIHOIN opaoa po A a . NA ≥ N;
MA - (INTEGER) pa papoc A;
M - (INTEGER) co pac;
N - (INTEGER) co p;
MAXV - (INTEGER) acao co ac opo, oopo o cpc a pooo pooo a (oo pac ocaoo o, o co ca N);
V(NV,MAXV) - (REAL*8) p acc, co oopoo pca coo op oca ;
NV - (INTEGER) pa papoc acca V, NV ≥ N;
NVEC - (INTEGER) co ac opo ooaoo oca p;
EPS - (REAL*8) a apap, opaa a (a) . pac oo, o c ooc a c;
IOUT - (INTEGER) :
IOUT=0 - o pooo a;
IOUT=1 - ao pa aac ac op
cooco oca, apa cap po c paca, paccapaoo a c a;
W(MAXV,NW) - (REAL*8) p acc, co a ao, NW ≥ M+1;
IW(MA,5) - (INTEGER) p acc, co oopoo a pa , op coca cc pac o p c paoo pop.

:

C Motzkin-Burger.

:

popaa o aa oo pa, c apa A oo ocoa. a a, o oop cc o p.

:

  1. K.S.Kolbig and F.Schwarz, A program for solving system of homogeneous
    linear inequalities. Computer Phys. Comm. 17 (1979) 375-382.
  2. ..,..,..,..,
    , .IV, (A-G),
    P11-83-619, , 1983.


home up e-mail