ISIMIN=1
ISOLU=1
ICK=0
ICE=0
XW=55.50837
DO 2000 I = 1, 10
DO 2001 J = 1, 40
A(I,J)=AIN(I,J)
2001
CONTINUE
2000
CONTINUE
DO 2100 I = 1, 40
NUM(I)=NUMIN(I)
G(I)=GIN(I)
2100
CONTINUE
EPS=.001
IP1=IP+1
NUM(N1)=N1
NM(N1)='DEL'
PHI=1.
IP1=IP+1
NL1=NL+1
L=NL-IP
NMV=NL-1
N1=N+1
DO 2200 I=IP1,NMV
G(I)=G(I)+DLOG(XW)
2200
CONTINUE
DO 2300 I=1,IP
DO 2301 J=IP1,NL
IF(NMM(I).EQ.NMM(J)) THEN
NUM(I)=J
NUMIN(I)=J
G(I)=G(J)
END IF
2301
CONTINUE
IF(NMM(I).EQ.30) THEN
IVV=I
X(IV)=A(I,N1)
END IF
2300
CONTINUE
SUM=0.D0
DO 2400 I=1,IP
NI=NUM(I)
IF (I.NE.IVV) THEN
X(NI)=A(I,N1)
EX(NI)=A(I,N1)/X(IV)
G(I)=G(NUM(I))+DLOG(EX(NUM(I)))
30
Previous Page
