"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )

O021 200 IFIRST=0
--G022 CALL 1NPUT(IFR,IV,IC,IR,ICH,TEX1,IN)
0023 GOTO 1000
0024 220 STOP- TRUE
0025 1000 RETURN
0026 10 FORMAT (/X/ELEMENT CHANGE ?',/X,'WHICH ELEMENT
' X $)
0027 20 FORMAT (Q,A4)
│ 0028 END
0001 SUBROUTINE INPUT(IFR,IV,IC,IR,ICH,TEX1,IN)
С *********************************** ь*****************************
0002 COMMON/DATA1/DAT1(16)
0003 COMMON/FIRST/IFIRST
"0004 DOUBLE PRECISION ТЕ .(4)
,0005 DIMENSION TEX1 (16),IN(9)
0006 DIMENSION IH(4)
0007 DATA TEX/'(KHZ)',",'(NF)'/(KOHM)7
0008 I . ITOT 1 = 1
0009 - ITOT=0
0010 s- IH(1) = IFR
ООП IH(2) = IV
0012 IH(3) = IC
0013 IH(4)=IR
0014 DO 200,1 = 1,4
0015 IF(IH(I) EQ.O) GOTO 200
0017 ITOT=ITOT+IH(I)
0018 DO 180 IJ = ITOT 1ДТ0Т
0019 IF(IFIRST.EQ.1.AND.IJ.EQ.(IV+IFR)) GOTO 180
0021 J=IN(IJ)
0022 IF(J.NE.ICH.AND.IFIRST.EQ.O) GOTO 180
0024 Jl = l
0025 115 TYPE 10, TEX1(J), TEX(Jl)
0026 120 ACCEPT 20, DAT1 (J)
0027 IF(DAT1(J).LT.O) GOTO 120
0029 IF(I.NE 1) GOTO 140
0031 DAT1(J)- DATl(J)*1000
0032 140 IF(1.NE.3) GOTO 150
0034 IF(DAT1(J).EQ.O) GOTO 115
0036 DAT1(J)- DATl(J)*l.E-9
0037 150 IF(I.NE.4) GOTO 180
0039 IF(DAT1(J).NE.O) GOTO 160
0041 DAT1(J) = 1O.
0042 160 DATl(J)=DATl(J)*1000
0043 180 CONTINUE
0044 ITOT1 = ITOT1+IH(I)
0045 200 CONTINUE
0046 10 FORMAT(X,A4,X,A8,T15,'=',$)
0047 20 FORMAT(FIO.O)
0048 RETURN
0049 END