->

(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30) (31) (32) (33) (34) (35) (36) (37) (38) (39) (40) (41) (42) (43) (44) (45) (46) (47) (48) (49) (50) (51) (52) (53) (54) (55) (56) (57) (58) (59) (60) (61) (62) (63) (64) (65) (66) (67) (68) (69) (70) (71) (72) (73) (74) (75) (76) (77) (78) (79) (80) (81) (82) (83) (84) (85) ( 86 ) (87) (88) (89) (90) (91) (92) (93) (94) (95) (96) (97) (98) (99) (100) (101) (102) (103) (104) (105) (86)

XR6,XR7,XC8,XC,XR

0005 DIMENSION TEXl (16),IN(5)

0006 LOGICAL*! STOP

0007 DATA TEX 1 /FREQ,QP/K/ROPT,R 1 /R2.C3/R4,R6,R7, ICSVCR, V, 7IN/1,2,0,12,13/

0008 DATA IFR,1V,ICIN,ICOUT.IR1N,IROUT,IPA/1,2,1,0,6,3/

0009 DATA ICH,IRIN1/0,1/

0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN)

0011 150 ICH=13

0012 IFIRST=0

0013 XROPT= 1./(6.2831853* XFR*XC)

0014 TYPE 10.XROPT

0015 10 FORMAT(X/ROPT,T15,=,1PE10.3)

0016 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN)

0017 XK=2

0018 XR1=XR

0019 XR2=XR

0020 XR6=XR

0021 XC3=XC

0022 XC8 = XC

0023 XR7=XQP*XR0PT

0024 XR4=XROPT**2/XR

0025 CALL 0UTPUT(IPA,IC0UT,IR0UT,TEX1)

0026 CALL TEST(IFR,IV,ICIN,IRIN,TEX1,IN)

0027 IF(.NOT.STOP) GOTO150

0029 RETURN

0030 END

0001 SUBROUTINE HPHQ

******************************************«**********

0002 COMMON/STO/STOP

0003 COMMON/FIRST/IFIRST

0004 COMMON/DATA 1 /XFR,XQP,XK,XROPT,XR 1 ,XR2,XC3,XR4, XR6,XC7,XR8,XC,XR

0005 DIMENSION TEXl(16),IN(5)

0006 LOGICAL*! STOP

0007 DATA TEX1/FREQVQP,K,R0PT,R!,R2VC3,R4,R6,C7, !R87CVR,",, 7IN/!,2,0,!2,13/

0008 DATA IFR,IV,ICIN,ICOUT,IRIN,IROUT,IPA/l,2,!,2A,3/

0009 DATA ICH,IRIN!/0,!/

0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX!,IN) 150 ICH=!3

0012 IFIRST=0

0013 XROPT=l./(6.283!853*XFR*XC)

0014 TYPE 10,XROPT

0015 10 FORMAT(X/ROPT,T15,=MPE10.3)

0016 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,IN)

0017 XK=2

0018 XR1=XR

0019 XR2=XR

0020 XR6=XR

0021 XC3=XC

0022 XC7=XC

0023 XR8-XQP*XROPT

0024 XR4=XROPT**2/XR

0025 CALL 0UTPUT(IPA,IC0UT,IR0UT,TEX1)

0026 CALL TEST(IFR,IV,IQIN,IRIN,TEX1,IN)

0027 - IF(.NOT.STOP) GOTO 150



0029 RETURN

0030 END

0001 SUBROUTINE APHQ

*»««»»»«»»»«»»»»»»»»♦*»»«»»»»»»»»»»»»»»»»»»«»»»»♦**♦♦

0002 COMMON/STO/STOP

0003 COMMON/FIRST/IFIRST

0004 COMMON/DATA 1 /XFR,XQP,XK,XROPT.XRI ,XR2,XC3,XP4, XR5,XC7,XR8,XC,XR

0005 DIMENSION TEXl (16),IN(5)

0006 LOGICAL* 1 STOP

0007 DATA TEXl/FREQ,QP/K,ROPT/R 1 ,R2/C3/R4/R5/C7, 1 R8,C,R , /IN/1,2,0,12,13/

0008 DATA IFR.IV,ICIN,ICOUT,IRIN,IROUT,IPA/1.2,1,2,0,6,3/

0009 DATA ICH,IRIN1/0,1/

0010 CALL INPUT(IFR,1V,ICIN.IRIN,ICH.TEX1,IN) 150 ICH=13

0012 IFIRST=0

0013 XROPT=l./(6.2831853*XFR*XC)

0014 TYPE 10,XROPT

0015 10 FORMAT(X,ROPT,T15,=,1PE10.3)

0016 CALL INPUT(IFR,IV.ICIN,IRIN1,ICH,TEX1,IN)

0017 XK=2

0018 XR1=XR

0019 XR2 = XR

0020 XR5=XR

0021 XC3=XC

0022 XC7=XC

0023 XR8=XQP*XR0PT

0024 XR4=XR0PT**2/XR

0025 CALL OUTPUT(IPA.IC0UT,IR0UT,TEX1)

0026 CALL TEST(IFR,IV,ICIN.IRIN,TEX1,IN)

0027 IF(NOT.STOP) GOTO 150

0029 RETURN

0030 END

0001 SUBROUTINE BRHQ

***********«******«*****************************

0002 COMMON/STO/STOP

0003 COMMON/FIRST/IFIRST

0004 COMMON/DATA 1 /XFR,XQP,XK,XROPT,XR 1 ,XR2,XC3,XR4, XR5,XC7,XR7,XR8,

IXC XR

0005 DIMENSION TEXl (16),IN(5)

0006 LOGICAL*! STOP

0007 DATA TEX 1 /FREQ,QP,K,ROPT,RI/R2,C3,R4/R5,C7, lR7,R8.C,R,,, /IN/1,2,0,13,14/

0008 DATA IFR,IV,ICIN,ICOUT,IRIN,IROUT,IPA/1,2,1.2,0,7,3/

0009 DATA ICH,IRIN 1/0,1/

0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) 150 ICH=14

0012 IFIRST=0

0013 XROPT=l.(6.2831853*XFR*XC)

0014 TYPE 10,XROPT

0015 10 FORMAT(X,ROPT,T15,=,1PE10.3)

0016 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH.TEX1,IN)

0017 XK=2



0018 XR1=XR

0019 XR2=XR

0020 XR5=XR

0021 XC3=XC

0022 XC7=XC

0023 XR8=XQP*XROPT*2

0024 XR4=XROPT**2/XR

0025 XR = XR8

0026 CALL 0UTPUT(IPA,IC0UT,IR0UT,TEX1)

0027 CALL TEST(IFR,1V,IC1N,1RIN,TEX1,IN)

0028 IF(.NOT.STOP) GOTO 150

0030 RETURN

0031 END

0001 .SUBROUTINE HLPNHQ

»»»»»»»»»»»*»♦»»»»»»»»**»»»»»*«»*«»*«»»«*«»»»»»♦«*«»«»♦»«

0002 COMMON/STO/STOP

0003 COMMON/FIRST/IFIRST

0004 COMMON/DATA 1 /XERP,XFRZ,XQP,XKHP,XKLP,XROPT,XR 1, XC2,XR3,XR4,XR5

1,XC7,XR8,XC,XR DIMENSION TEX1(16),IN(6) LOGICAL*! STOP

DATA TEXl/FRP,FRZ,QP,KHP,KLP,ROPT/R 1 ,C2,R3i 1 R4,R5,C7/R8,C,R/ /IN/1,2,3,0,14,15/ DATA IFR,IV,ICI,ICOUT,IRIN,IROUT,IPA/2,2,1,2,0,6,8/ DATA ICH,IRIN1/0,1/

CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) IF(XFRP.NE.XFPZ) GOTO 160 TYPE 20

FORMAT/(X,FRP IS EQUAL FRZ!) CALL TEST(IFR,1V,ICIN,1RIN,TEX1,IN) GOTO 150 ICH=il5 IFIRST=0

XHI = 6.2831835*XFRP*XC XR0PT=1./XHI TYPE 10,FROPT

FORMAT(X,ROPT,T15,=,1PE10.3) CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,INI XR1=XR XR3=XR XC2=XC XC7=XC XR8=XQP/XHI XHI 1 = (XFRZ/XFRP) **2-l IF(XHIl.GT.O) GOTO 200 XR4=-XR8*XHI1 TYPE 31

FORMAT (/X,HIGH-PASS NOTCHED) GOTO 220 XR4=XR8*XHI1 TYPE 30

FORMAT(/X,LOW-PASS NOTCHED) XR5 = XROPT**2/XR4 XKLP = 1. XKHP=1.

CALL 0UTPUT(IPA,IC0UT,IR0UT,TEX1)

O005

0006

0007

0008

0009

0010

0011

0013

0014

0015

0016

0017

0018

0019

0020

0021

0022

0023

0024

0025

O026

0027

0028

0029

0030

O032

0033

0034

0035

0036

0037

0038

0039

0040

041

O042



(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30) (31) (32) (33) (34) (35) (36) (37) (38) (39) (40) (41) (42) (43) (44) (45) (46) (47) (48) (49) (50) (51) (52) (53) (54) (55) (56) (57) (58) (59) (60) (61) (62) (63) (64) (65) (66) (67) (68) (69) (70) (71) (72) (73) (74) (75) (76) (77) (78) (79) (80) (81) (82) (83) (84) (85) ( 86 ) (87) (88) (89) (90) (91) (92) (93) (94) (95) (96) (97) (98) (99) (100) (101) (102) (103) (104) (105)