character*7 instype(5) integer npole(5),nzero(5),npbeg(5),nzbeg(5) complex poles(20),zeros(20) real*4 sens(5) data (instype(i),i=1,5) + /'L22','CMG4.HI','CMG4.LO','CMG5.HI','CMG5.LO'/ data (npole(i),nzero(i),npbeg(i),nzbeg(i),i=1,5) c + /2,3,1,1,2,3,3,4,2,3,5,7,3,2,7,10,3,2,10,12/ + /2,2,1,1,2,2,3,3,2,2,5,5,3,0,7,7,3,0,10,7/ data (poles(i),i=1,12) + /(-8.8857,8.8857),(-8.8857,-8.8857),(-0.439823,0.448709), + (-0.439823,-0.448709),(-0.439823,0.448709),(-0.439823, + -0.448709),(-596.9026,0.0),(-386.41589,634.60172), + (-386.41589,-634.60172),(-596.9026,0.0),(-386.41589, + 634.60172),(-386.41589,-634.60172)/ data (zeros(i),i=1,13) + /(0.0,0.0),(0.0,0.0),(0.0,0.0),(0.0,0.0),(0.0,0.0), + (0.0,0.0),(0.0,0.0),(0.0,0.0),(0.0,0.0),(0.0,0.0), + (0.0,0.0),(0.0,0.0),(0.0,0.0)/ data (sens(i),i=1,5) /44.0,27300.0,273.0,8.5673E8,0.85673E8/