DO 3400 I=1,IP
DO 3401 J=IP1,NL
BALL(I)=BALL(I)+X(J)*AIN(I,J)
3401
CONTINUE
WRITE(10,24)NEL(I),AIN(I,N1),BALS(I),BALL(I),BALS(I)+BALL(I)
3400
CONTINUE
5
WRITE(10,25) ICK
C............................. FINISH
...........................
IF(ICK.GT.400) WRITE (10,26)
IF (IPATH.EQ.1) THEN
T=T-DT
IF(T.GE.TFIN-.001) GO TO 1
ELSE
BALWAT=BALWAT-DW
IF(BALWAT.GE.WFIN) THEN
AIN(1,N1)=BALWAT/18.0153
GO TO 2
END IF
END IF
CLOSE(3)
815
STOP
END
C------------------------------------------------------------------C
C------------------------------------------------------------------C
SUBROUTINE CHOICE (NCAT,BK,NMCUR,NUMCUR,IZC)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C..
SUBROUTINE FOR CHOOSING COMPONENTS FROM DATABASE ACCORDING TO
C..
THE GIVEN INDEPENDENT COMPONENTS
CHARACTER *40 NM,NMCUR
DIMENSION BK(10,20),NMCUR(20),NUMCUR(20),IZC(20),B(10)
COMMON /COMPNT/ NUR(10),IP,NUL(10),IPNUL,KCOMP
3
FORMAT(A23,I2,1X,I2,1X,10F6.2)
READ(1,*)NCAT
J=0
DO 2 I=1,NCAT
c
READ(1,3) NM,NUM,IZ, (B(I1),I1=1, KCOMP)
READ(1,*) NM,NUM,IZ, (B(I1),I1=1, KCOMP)
DO 2000 J1=1,IPNUL
IF (B(NUL(J1)).NE.0.) GO TO 2
2000
CONTINUE
16