c rescode.f was produced by resmak: Thu Aug 4 08:44:54 PDT 1994 c c @(#)rescode.comments 1.3 08 Jun 1994 c c This code package is designed to return instrument responses for c all Ida/Iris installations. There are 3 subroutines. The first c returns station locations: c call idasta(nsta,flat,flon,elev,istat) c where the input is the station name nsta which is a 4 character c upper case name e.g. nsta(1:4)='ARU '. Output is the geographic c latitude and longitude (flat,flon) in degrees and the elevation c (elev) in meters. A successful call returns istat=0. c Instrument responses are computed by first calling pzfill to c establish the appropriate information in common/polzer/. This c information is used by complex function evres to return the c actual response. The call to pzfill is c call pzfill(nsta,jchn,iy,id,istat) c where the input is the station name as above, jchn (the channel c number - see below), iy,id (the year and Julian day of the time c series of interest -- note that 4 digits are required for iy e.g. c 1989). Istat is returned as zero for a successful call. A non-zero c value indicates that the requested response could not be found c in which case evres returns a value of (1,0). jchn is the CSS c channel number and has the following mapping: c c lo-gain continuous channels from broad-band sensor c CSS SEED Description c 01 BLZ BB-Z sensor, 20 sps, lo-gain c 02 BLN BB-N sensor, 20 sps, lo-gain c 03 BLE BB-E sensor, 20 sps, lo-gain c 04 MLZ BB-Z sensor, 5 sps, lo-gain c 05 MLN BB-N sensor, 5 sps, lo-gain c 06 MLE BB-E sensor, 5 sps, lo-gain c 07 VLZ BB-Z sensor, .1 sps, lo-gain c 08 VLN BB-N sensor, .1 sps, lo-gain c 09 VLE BB-E sensor, .1 sps, lo-gain c c hi-gain continuous channels from broad-band sensor c CSS SEED Description c 11 BHZ BB-Z sensor, 20 sps, hi-gain c 12 BHN BB-N sensor, 20 sps, hi-gain c 13 BHE BB-E sensor, 20 sps, hi-gain c 14 MHZ BB-Z sensor, 5 sps, hi-gain c 15 MHN BB-N sensor, 5 sps, hi-gain c 16 MHE BB-E sensor, 5 sps, hi-gain c 17 VHZ BB-Z sensor, .1 sps, hi-gain c 18 VHN BB-N sensor, .1 sps, hi-gain c 19 VHE BB-E sensor, .1 sps, hi-gain c c continuous mass-position channels c CSS SEED Description c 21 UMZ BB-Z mass position c 22 UMN BB-N mass position c 23 UME BB-E mass position c 21 UMZ BB-Z mass position c 22 UMN BB-N mass position c 23 UME BB-E mass position c c triggered broad band sensor channels, lo and hi gain c CSS SEED Description c 41 BLZ BB-Z sensor, 20 sps, lo-gain c 42 BLN BB-N sensor, 20 sps, lo-gain c 43 BLE BB-E sensor, 20 sps, lo-gain c 44 BHZ BB-Z sensor, 20 sps, hi-gain c 45 BHN BB-N sensor, 20 sps, hi-gain c 46 BHE BB-E sensor, 20 sps, hi-gain c c triggered short period sensor channels, lo and hi gain c CSS SEED Description c 51 ELZ SP-Z sensor, 200 sps, lo-gain c 52 ELN SP-N sensor, 200 sps, lo-gain c 53 ELE SP-E sensor, 200 sps, lo-gain c 54 EHZ SP-Z sensor, 200 sps, hi-gain c 55 EHN SP-N sensor, 200 sps, hi-gain c 56 EHE SP-E sensor, 200 sps, hi-gain c c auxillary channels c CSS SEED Description c 94 VGZ La-Coste mode, running mean decimation c 95 UGZ La-Coste tide, running mean decimation c 96 UXZ Micro barograph, running mean decimation c c The call to evres looks like: c resp=evres(w) c where resp and evres must be declared to be complex. w is the c angular frequency in rad/sec (e.g., w = 2*pi*f). To avoid c confusion, ALL responses are velocity responses and have units c of digital counts/(meters/second). c The convention for the forward Fourier transform from time to c frequency is exp(-iwt). c c A sample test program: c complex evres,resp c character*4 nsta c nsta(1:4)='NRIL' c call idasta(nsta,flat,flon,elev,istat) c if(istat.ne.0) then c print *,'Station not found' c stop c end if c print *, flat,flon,elev c iy=1989 c id=30 c jchn=17 c call pzfill(nsta,jchn,iy,id,istat) c if(istat.ne.0) then c print *,'Response not found' c stop c end if c 10 print *,'enter frequency (neg to quit)' c read(*,*) w c if (w.lt.0.) stop c resp=evres(w) c print *,w,resp c goto 10 c end c c Warning: you should not have a common block called polzer in your c code. c c Warning: the code will not now (as of 6/8/94) compile with the c default switches for Sun's Fortran compiler. The default limit c for the number of allowed continuation lines is 19. This can c be circumvented on the command line using the Nlnnn switch with c nnn set to at least 30. For example, c % f77 -Nl30 -c rescode.f c should produce a linkable object. JPD 6/8/94 c c The following code was written by code written by G. Masters and c is completely devoid of comments. As the database at IGPP is c updated, the code is regenerated with new and modified responses c automatically included in the data statements. The resulting code c is completely self-contained. c c==================================================================== subroutine pzfill(nsta,jchn,iy,id,istat) complex zer,pol common/polzer/fmul,zer(10),pol(20),nz,np,fnorm,nfilts, + nftyp( 6),nlen( 6),dt( 6),c(500) parameter (nrsp= 865) dimension index(12,nrsp),fmult(nrsp),d(500) data ((index(i,j),i=1,12),j= 1, 15)/ + 'M72 ', 11,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'M72 ', 12,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'M72 ', 13,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'M72 ', 14,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'M72 ', 15,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'M72 ', 16,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'M72 ', 17,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0, + 'M72 ', 18,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0, + 'M72 ', 19,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0, + 'M72 ', 51,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'M72 ', 52,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'M72 ', 53,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'M72 ', 54,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'M72 ', 55,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'M72 ', 56,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0/ data (fmult(j),j= 1, 15)/ + 0.17760000E+10, 0.17760000E+10, 0.17760000E+10, 0.17760000E+10, + 0.17760000E+10, 0.17760000E+10, 0.17760000E+10, 0.17760000E+10, + 0.17760000E+10, 0.65536000E+07, 0.65536000E+07, 0.65536000E+07, + 0.41943040E+09, 0.41943040E+09, 0.41943040E+09/ data ((index(i,j),i=1,12),j= 16, 33)/ + 'AAK ', 1,1991,106, 4, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 2,1991,106, 5, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 3,1991,106, 6, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 11,1991,106, 4, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 12,1991,106, 5, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 13,1991,106, 6, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 64,1991,106, 4, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 65,1991,106, 5, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 66,1991,106, 6, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 17,1991,106, 4, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 18,1991,106, 5, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 19,1991,106, 6, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 51,1991,106, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 52,1991,106, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 53,1991,106, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 54,1991,106, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 55,1991,106, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 56,1991,106, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 16, 33)/ + 0.38430420E+07, 0.33312308E+07, 0.32845442E+07, 0.49156266E+09, + 0.42673962E+09, 0.42034390E+09, 0.49156266E+09, 0.42673962E+09, + 0.42034390E+09, 0.49156266E+09, 0.42673962E+09, 0.42034390E+09, + 0.14153431E+08, 0.14172282E+08, 0.13887010E+08, 0.90474560E+09, + 0.90364685E+09, 0.88774086E+09/ data ((index(i,j),i=1,12),j= 34, 51)/ + 'AAK ', 1,1991,253, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 2,1991,253, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 3,1991,253, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 11,1991,253, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 12,1991,253, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 13,1991,253, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 64,1991,253, 7, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 65,1991,253, 7, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 66,1991,253, 7, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 17,1991,253, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 18,1991,253, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 19,1991,253, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 51,1991,253, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 52,1991,253, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 53,1991,253, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 54,1991,253, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 55,1991,253, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 56,1991,253, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 34, 51)/ + 0.38430420E+07, 0.34683568E+07, 0.32845442E+07, 0.49156266E+09, + 0.44430589E+09, 0.42034390E+09, 0.49156266E+09, 0.44430589E+09, + 0.42034390E+09, 0.49156266E+09, 0.44430589E+09, 0.42034390E+09, + 0.14153431E+08, 0.14172282E+08, 0.13887010E+08, 0.90474560E+09, + 0.90364685E+09, 0.88774086E+09/ data ((index(i,j),i=1,12),j= 52, 69)/ + 'AAK ', 1,1994, 11, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 2,1994, 11, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 3,1994, 11, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 11,1994, 11, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 12,1994, 11, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 13,1994, 11, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 64,1994, 11, 7, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 65,1994, 11, 7, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 66,1994, 11, 7, 4, -7, -8, -9, 10, 0, 0, + 'AAK ', 17,1994, 11, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 18,1994, 11, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 19,1994, 11, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 51,1994, 11, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 52,1994, 11, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 53,1994, 11, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 54,1994, 11, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 55,1994, 11, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 56,1994, 11, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 52, 69)/ + 0.38430420E+07, 0.34683568E+07, 0.35902032E+07, 0.49156266E+09, + 0.44430589E+09, 0.45946102E+09, 0.49156266E+09, 0.44430589E+09, + 0.45946102E+09, 0.49156266E+09, 0.44430589E+09, 0.45946102E+09, + 0.14153431E+08, 0.14172282E+08, 0.13887010E+08, 0.90474560E+09, + 0.90364685E+09, 0.88774086E+09/ data ((index(i,j),i=1,12),j= 70, 84)/ + 'AAK ', 1,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 2,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 3,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 11,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 12,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 13,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'AAK ', 17,2001, 1, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 18,2001, 1, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 19,2001, 1, 7, 6, -7, -8,-11,-12,-13, 14, + 'AAK ', 51,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 52,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 53,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 54,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 55,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'AAK ', 56,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 70, 84)/ + 0.42235005E+07, 0.38057260E+07, 0.39412908E+07, 0.13579794E+09, + 0.12267021E+09, 0.12650752E+09, 0.13579794E+09, 0.12267021E+09, + 0.12650752E+09, 0.58679656E+08, 0.59016108E+08, 0.57653288E+08, + 0.37388874E+10, 0.37530752E+10, 0.36515382E+10/ data ((index(i,j),i=1,12),j= 85, 102)/ + 'ABKT', 1,2001, 1, 8, 2, -7, 8, 0, 0, 0, 0, + 'ABKT', 2,2001, 1, 9, 2, -7, 8, 0, 0, 0, 0, + 'ABKT', 3,2001, 1, 10, 2, -7, 8, 0, 0, 0, 0, + 'ABKT', 11,2001, 1, 8, 2, -7, 8, 0, 0, 0, 0, + 'ABKT', 12,2001, 1, 9, 2, -7, 8, 0, 0, 0, 0, + 'ABKT', 13,2001, 1, 10, 2, -7, 8, 0, 0, 0, 0, + 'ABKT', 64,2001, 1, 8, 4, -7, -8, -9, 10, 0, 0, + 'ABKT', 65,2001, 1, 9, 4, -7, -8, -9, 10, 0, 0, + 'ABKT', 66,2001, 1, 10, 4, -7, -8, -9, 10, 0, 0, + 'ABKT', 17,2001, 1, 8, 6, -7, -8,-11,-12,-13, 14, + 'ABKT', 18,2001, 1, 9, 6, -7, -8,-11,-12,-13, 14, + 'ABKT', 19,2001, 1, 10, 6, -7, -8,-11,-12,-13, 14, + 'ABKT', 51,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ABKT', 52,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ABKT', 53,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ABKT', 54,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ABKT', 55,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ABKT', 56,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 85, 102)/ + 0.38495920E+07, 0.35359805E+07, 0.34890378E+07, 0.13536498E+09, + 0.12540260E+09, 0.12354748E+09, 0.13536498E+09, 0.12540260E+09, + 0.12354748E+09, 0.13536498E+09, 0.12540260E+09, 0.12354748E+09, + 0.14366135E+08, 0.14428856E+08, 0.14586047E+08, 0.92370221E+09, + 0.91982554E+09, 0.93151430E+09/ data ((index(i,j),i=1,12),j= 103, 115)/ + 'ALE ', 1,1992, 99, 11, 2,-15, 16, 0, 0, 0, 0, + 'ALE ', 2,1992, 99, 12, 2,-15, 16, 0, 0, 0, 0, + 'ALE ', 3,1992, 99, 13, 2,-15, 16, 0, 0, 0, 0, + 'ALE ', 11,1992, 99, 11, 2,-15, 16, 0, 0, 0, 0, + 'ALE ', 12,1992, 99, 12, 2,-15, 16, 0, 0, 0, 0, + 'ALE ', 13,1992, 99, 13, 2,-15, 16, 0, 0, 0, 0, + 'ALE ', 64,1992, 99, 11, 4,-15,-16, -9, 10, 0, 0, + 'ALE ', 65,1992, 99, 12, 4,-15,-16, -9, 10, 0, 0, + 'ALE ', 66,1992, 99, 13, 4,-15,-16, -9, 10, 0, 0, + 'ALE ', 17,1992, 99, 11, 6,-15,-16,-17,-18,-19, 20, + 'ALE ', 18,1992, 99, 12, 6,-15,-16,-17,-18,-19, 20, + 'ALE ', 19,1992, 99, 13, 6,-15,-16,-17,-18,-19, 20, + 'ALE ', 94,1992, 99, 14, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 103, 115)/ + 0.39400172E+07, 0.38686178E+07, 0.38900518E+07, 0.50224035E+09, + 0.48336534E+09, 0.48925610E+09, 0.50224035E+09, 0.48336534E+09, + 0.48925610E+09, 0.50224035E+09, 0.48336534E+09, 0.48925610E+09, + -0.72617976E+11/ data ((index(i,j),i=1,12),j= 116, 128)/ + 'ALE ', 1,1993, 25, 11, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 2,1993, 25, 12, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 3,1993, 25, 13, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 11,1993, 25, 11, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 12,1993, 25, 12, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 13,1993, 25, 13, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 64,1993, 25, 11, 4, -7, -8, -9, 10, 0, 0, + 'ALE ', 65,1993, 25, 12, 4, -7, -8, -9, 10, 0, 0, + 'ALE ', 66,1993, 25, 13, 4, -7, -8, -9, 10, 0, 0, + 'ALE ', 17,1993, 25, 11, 6, -7, -8,-11,-12,-13, 14, + 'ALE ', 18,1993, 25, 12, 6, -7, -8,-11,-12,-13, 14, + 'ALE ', 19,1993, 25, 13, 6, -7, -8,-11,-12,-13, 14, + 'ALE ', 94,1993, 25, 14, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 116, 128)/ + 0.21489050E+07, 0.20925992E+07, 0.21168342E+07, 0.68828128E+08, + 0.67356744E+08, 0.67886712E+08, 0.68828128E+08, 0.67356744E+08, + 0.67886712E+08, 0.68828128E+08, 0.67356744E+08, 0.67886712E+08, + -0.72617976E+11/ data ((index(i,j),i=1,12),j= 129, 141)/ + 'ALE ', 1,2001, 1, 15, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 2,2001, 1, 16, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 3,2001, 1, 17, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 11,2001, 1, 15, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 12,2001, 1, 16, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 13,2001, 1, 17, 2, -7, 8, 0, 0, 0, 0, + 'ALE ', 64,2001, 1, 15, 4, -7, -8, -9, 10, 0, 0, + 'ALE ', 65,2001, 1, 16, 4, -7, -8, -9, 10, 0, 0, + 'ALE ', 66,2001, 1, 17, 4, -7, -8, -9, 10, 0, 0, + 'ALE ', 17,2001, 1, 15, 6, -7, -8,-11,-12,-13, 14, + 'ALE ', 18,2001, 1, 16, 6, -7, -8,-11,-12,-13, 14, + 'ALE ', 19,2001, 1, 17, 6, -7, -8,-11,-12,-13, 14, + 'ALE ', 94,2001, 1, 14, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 129, 141)/ + 0.43525895E+07, 0.41851985E+07, 0.42336685E+07, 0.13941080E+09, + 0.13471349E+09, 0.13577342E+09, 0.13941080E+09, 0.13471349E+09, + 0.13577342E+09, 0.13941080E+09, 0.13471349E+09, 0.13577342E+09, + -0.72617976E+11/ data ((index(i,j),i=1,12),j= 142, 162)/ + 'ARU ', 1,1989, 54, 18, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 2,1989, 54, 18, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 3,1989, 54, 18, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 4,1989, 54, 18, 1, 21, 0, 0, 0, 0, 0, + 'ARU ', 5,1989, 54, 18, 1, 21, 0, 0, 0, 0, 0, + 'ARU ', 6,1989, 54, 18, 1, 21, 0, 0, 0, 0, 0, + 'ARU ', 11,1989, 54, 18, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 12,1989, 54, 18, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 13,1989, 54, 18, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 14,1989, 54, 18, 1, 21, 0, 0, 0, 0, 0, + 'ARU ', 15,1989, 54, 18, 1, 21, 0, 0, 0, 0, 0, + 'ARU ', 16,1989, 54, 18, 1, 21, 0, 0, 0, 0, 0, + 'ARU ', 61,1989, 54, 18, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 62,1989, 54, 18, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 63,1989, 54, 18, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 64,1989, 54, 18, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 65,1989, 54, 18, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 66,1989, 54, 18, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 67,1989, 54, 18, 4, -9,-10,-22, 23, 0, 0, + 'ARU ', 68,1989, 54, 18, 4, -9,-10,-22, 23, 0, 0, + 'ARU ', 69,1989, 54, 18, 4, -9,-10,-22, 23, 0, 0/ data (fmult(j),j= 142, 162)/ + 0.37519492E+08, 0.47087616E+08,-0.41451652E+08, 0.37519492E+08, + 0.47087616E+08,-0.41451652E+08, 0.24012475E+10, 0.30136074E+10, + -0.26529057E+10, 0.24012475E+10, 0.30136074E+10,-0.26529057E+10, + 0.37519492E+08, 0.47087616E+08,-0.41451652E+08, 0.24012475E+10, + 0.30136074E+10,-0.26529057E+10, 0.24012475E+10, 0.30136074E+10, + -0.26529057E+10/ data ((index(i,j),i=1,12),j= 163, 177)/ + 'ARU ', 1,1993,350, 19, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 2,1993,350, 19, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 3,1993,350, 19, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 11,1993,350, 19, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 12,1993,350, 19, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 13,1993,350, 19, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 61,1993,350, 19, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 62,1993,350, 19, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 63,1993,350, 19, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 64,1993,350, 19, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 65,1993,350, 19, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 66,1993,350, 19, 2, -9, 10, 0, 0, 0, 0, + 'ARU ', 67,1993,350, 19, 4, -9,-10,-22, 23, 0, 0, + 'ARU ', 68,1993,350, 19, 4, -9,-10,-22, 23, 0, 0, + 'ARU ', 69,1993,350, 19, 4, -9,-10,-22, 23, 0, 0/ data (fmult(j),j= 163, 177)/ + 0.80150010E+07, 0.80216065E+07, 0.79233035E+07, 0.51296006E+09, + 0.51338282E+09, 0.50709142E+09, 0.80150010E+07, 0.80216065E+07, + 0.79233035E+07, 0.51296006E+09, 0.51338282E+09, 0.50709142E+09, + 0.51296006E+09, 0.51338282E+09, 0.50709142E+09/ data ((index(i,j),i=1,12),j= 178, 192)/ + 'ARU ', 1,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'ARU ', 2,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'ARU ', 3,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'ARU ', 11,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'ARU ', 12,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'ARU ', 13,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'ARU ', 17,2001, 1, 19, 6, -7, -8,-11,-12,-13, 14, + 'ARU ', 18,2001, 1, 19, 6, -7, -8,-11,-12,-13, 14, + 'ARU ', 19,2001, 1, 19, 6, -7, -8,-11,-12,-13, 14, + 'ARU ', 51,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 52,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 53,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 54,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 55,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'ARU ', 56,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 178, 192)/ + 0.41926472E+07, 0.41852728E+07, 0.41399258E+07, 0.13480590E+09, + 0.13490418E+09, 0.13288330E+09, 0.13480590E+09, 0.13490418E+09, + 0.13288330E+09, 0.58409992E+08, 0.58062108E+08, 0.58284736E+08, + 0.37217047E+10, 0.36924060E+10, 0.36915315E+10/ data ((index(i,j),i=1,12),j= 193, 207)/ + 'BORG', 11,2001, 1, 20, 1, 1, 0, 0, 0, 0, 0, + 'BORG', 12,2001, 1, 21, 1, 1, 0, 0, 0, 0, 0, + 'BORG', 13,2001, 1, 22, 1, 1, 0, 0, 0, 0, 0, + 'BORG', 14,2001, 1, 20, 3, -1, -2, 3, 0, 0, 0, + 'BORG', 15,2001, 1, 21, 3, -1, -2, 3, 0, 0, 0, + 'BORG', 16,2001, 1, 22, 3, -1, -2, 3, 0, 0, 0, + 'BORG', 17,2001, 1, 20, 5, -1, -2, -3, -4, 5, 0, + 'BORG', 18,2001, 1, 21, 5, -1, -2, -3, -4, 5, 0, + 'BORG', 19,2001, 1, 22, 5, -1, -2, -3, -4, 5, 0, + 'BORG', 51,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'BORG', 52,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'BORG', 53,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'BORG', 54,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'BORG', 55,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'BORG', 56,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0/ data (fmult(j),j= 193, 207)/ + 0.16710066E+10, 0.16765564E+10, 0.16769400E+10, 0.16706813E+10, + 0.16762136E+10, 0.16765938E+10, 0.16704577E+10, 0.16759775E+10, + 0.16763575E+10, 0.68560035E+07, 0.68560035E+07, 0.68560035E+07, + 0.44337187E+09, 0.44534406E+09, 0.44374979E+09/ data ((index(i,j),i=1,12),j= 208, 220)/ + 'ERM ', 1,2001, 1, 25, 2, -7, 8, 0, 0, 0, 0, + 'ERM ', 2,2001, 1, 26, 2, -7, 8, 0, 0, 0, 0, + 'ERM ', 3,2001, 1, 27, 2, -7, 8, 0, 0, 0, 0, + 'ERM ', 11,2001, 1, 25, 2, -7, 8, 0, 0, 0, 0, + 'ERM ', 12,2001, 1, 26, 2, -7, 8, 0, 0, 0, 0, + 'ERM ', 13,2001, 1, 27, 2, -7, 8, 0, 0, 0, 0, + 'ERM ', 64,2001, 1, 25, 4, -7, -8, -9, 10, 0, 0, + 'ERM ', 65,2001, 1, 26, 4, -7, -8, -9, 10, 0, 0, + 'ERM ', 66,2001, 1, 27, 4, -7, -8, -9, 10, 0, 0, + 'ERM ', 17,2001, 1, 25, 6, -7, -8,-11,-12,-13, 14, + 'ERM ', 18,2001, 1, 26, 6, -7, -8,-11,-12,-13, 14, + 'ERM ', 19,2001, 1, 27, 6, -7, -8,-11,-12,-13, 14, + 'ERM ', 94,2001, 1, 28, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 208, 220)/ + 0.39746920E+07, 0.36824188E+07, 0.39498128E+07, 0.50144611E+09, + 0.46012618E+09, 0.49672278E+09, 0.50144611E+09, 0.46012618E+09, + 0.49672278E+09, 0.50144611E+09, 0.46012618E+09, 0.49672278E+09, + -0.65532572E+11/ data ((index(i,j),i=1,12),j= 221, 242)/ + 'ESK ', 4,1993,304, 29, 1, 21, 0, 0, 0, 0, 0, + 'ESK ', 5,1993,304, 30, 1, 21, 0, 0, 0, 0, 0, + 'ESK ', 6,1993,304, 31, 1, 21, 0, 0, 0, 0, 0, + 'ESK ', 14,1993,304, 29, 1, 21, 0, 0, 0, 0, 0, + 'ESK ', 15,1993,304, 30, 1, 21, 0, 0, 0, 0, 0, + 'ESK ', 16,1993,304, 31, 1, 21, 0, 0, 0, 0, 0, + 'ESK ', 61,1993,304, 29, 2,-21, 3, 0, 0, 0, 0, + 'ESK ', 62,1993,304, 30, 2,-21, 3, 0, 0, 0, 0, + 'ESK ', 63,1993,304, 31, 2,-21, 3, 0, 0, 0, 0, + 'ESK ', 64,1993,304, 29, 2,-21, 3, 0, 0, 0, 0, + 'ESK ', 65,1993,304, 30, 2,-21, 3, 0, 0, 0, 0, + 'ESK ', 66,1993,304, 31, 2,-21, 3, 0, 0, 0, 0, + 'ESK ', 17,1993,304, 29, 4,-21,-24, 25, 26, 0, 0, + 'ESK ', 18,1993,304, 30, 4,-21,-24, 25, 26, 0, 0, + 'ESK ', 19,1993,304, 31, 4,-21,-24, 25, 26, 0, 0, + 'ESK ', 41,1993,304, 29, 0, 0, 0, 0, 0, 0, 0, + 'ESK ', 42,1993,304, 30, 0, 0, 0, 0, 0, 0, 0, + 'ESK ', 43,1993,304, 31, 0, 0, 0, 0, 0, 0, 0, + 'ESK ', 44,1993,304, 29, 0, 0, 0, 0, 0, 0, 0, + 'ESK ', 45,1993,304, 30, 0, 0, 0, 0, 0, 0, 0, + 'ESK ', 46,1993,304, 31, 0, 0, 0, 0, 0, 0, 0, + 'ESK ', 94,1993,304, 32, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 221, 242)/ + -0.76414455E+07,-0.71565315E+07,-0.68091640E+07,-0.48905251E+09, + -0.45801802E+09,-0.43578650E+09,-0.76414455E+07,-0.71565315E+07, + -0.68091640E+07,-0.48905251E+09,-0.45801802E+09,-0.43578650E+09, + -0.48905251E+09,-0.45801802E+09,-0.43578650E+09,-0.76414455E+07, + -0.71565315E+07,-0.68091640E+07,-0.48905251E+09,-0.45801802E+09, + -0.43578650E+09,-0.64719258E+11/ data ((index(i,j),i=1,12),j= 243, 251)/ + 'ESK ', 11,2001, 1, 33, 1, 1, 0, 0, 0, 0, 0, + 'ESK ', 12,2001, 1, 34, 1, 1, 0, 0, 0, 0, 0, + 'ESK ', 13,2001, 1, 35, 1, 1, 0, 0, 0, 0, 0, + 'ESK ', 14,2001, 1, 33, 3, -1, -2, 3, 0, 0, 0, + 'ESK ', 15,2001, 1, 34, 3, -1, -2, 3, 0, 0, 0, + 'ESK ', 16,2001, 1, 35, 3, -1, -2, 3, 0, 0, 0, + 'ESK ', 17,2001, 1, 33, 5, -1, -2, -3, -4, 5, 0, + 'ESK ', 18,2001, 1, 34, 5, -1, -2, -3, -4, 5, 0, + 'ESK ', 19,2001, 1, 35, 5, -1, -2, -3, -4, 5, 0/ data (fmult(j),j= 243, 251)/ + 0.15944156E+10, 0.14909416E+10, 0.14244430E+10, 0.15944156E+10, + 0.14909416E+10, 0.14244430E+10, 0.15944156E+10, 0.14909416E+10, + 0.14244430E+10/ data ((index(i,j),i=1,12),j= 252, 266)/ + 'FFC ', 11,2001, 1, 36, 1, 1, 0, 0, 0, 0, 0, + 'FFC ', 12,2001, 1, 37, 1, 1, 0, 0, 0, 0, 0, + 'FFC ', 13,2001, 1, 38, 1, 1, 0, 0, 0, 0, 0, + 'FFC ', 14,2001, 1, 36, 3, -1, -2, 3, 0, 0, 0, + 'FFC ', 15,2001, 1, 37, 3, -1, -2, 3, 0, 0, 0, + 'FFC ', 16,2001, 1, 38, 3, -1, -2, 3, 0, 0, 0, + 'FFC ', 17,2001, 1, 36, 5, -1, -2, -3, -4, 5, 0, + 'FFC ', 18,2001, 1, 37, 5, -1, -2, -3, -4, 5, 0, + 'FFC ', 19,2001, 1, 38, 5, -1, -2, -3, -4, 5, 0, + 'FFC ', 51,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'FFC ', 52,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'FFC ', 53,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'FFC ', 54,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'FFC ', 55,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'FFC ', 56,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0/ data (fmult(j),j= 252, 266)/ + 0.17588227E+10, 0.16310720E+10, 0.16610847E+10, 0.17588227E+10, + 0.16310720E+10, 0.16610847E+10, 0.17588227E+10, 0.16310720E+10, + 0.16610847E+10, 0.14810795E+08, 0.14955416E+08, 0.15082727E+08, + 0.96225274E+09, 0.97345990E+09, 0.97593722E+09/ data ((index(i,j),i=1,12),j= 267, 287)/ + 'GAR ', 1,1989,340, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 2,1989,340, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 3,1989,340, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 4,1989,340, 19, 1, 21, 0, 0, 0, 0, 0, + 'GAR ', 5,1989,340, 19, 1, 21, 0, 0, 0, 0, 0, + 'GAR ', 6,1989,340, 19, 1, 21, 0, 0, 0, 0, 0, + 'GAR ', 11,1989,340, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 12,1989,340, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 13,1989,340, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 14,1989,340, 19, 1, 21, 0, 0, 0, 0, 0, + 'GAR ', 15,1989,340, 19, 1, 21, 0, 0, 0, 0, 0, + 'GAR ', 16,1989,340, 19, 1, 21, 0, 0, 0, 0, 0, + 'GAR ', 61,1989,340, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 62,1989,340, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 63,1989,340, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 64,1989,340, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 65,1989,340, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 66,1989,340, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 67,1989,340, 19, 4, -9,-10,-22, 23, 0, 0, + 'GAR ', 68,1989,340, 19, 4, -9,-10,-22, 23, 0, 0, + 'GAR ', 69,1989,340, 19, 4, -9,-10,-22, 23, 0, 0/ data (fmult(j),j= 267, 287)/ + 0.71827195E+07, 0.70057720E+07, 0.69009410E+07, 0.71827195E+07, + 0.70057720E+07, 0.69009410E+07, 0.45969405E+09, 0.44836941E+09, + 0.44166022E+09, 0.45969405E+09, 0.44836941E+09, 0.44166022E+09, + 0.71827195E+07, 0.70057720E+07, 0.69009410E+07, 0.45969405E+09, + 0.44836941E+09, 0.44166022E+09, 0.45969405E+09, 0.44836941E+09, + 0.44166022E+09/ data ((index(i,j),i=1,12),j= 288, 302)/ + 'GAR ', 1,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 2,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 3,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 11,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 12,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 13,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'GAR ', 61,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 62,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 63,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 64,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 65,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 66,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'GAR ', 67,2001, 1, 19, 4, -9,-10,-22, 23, 0, 0, + 'GAR ', 68,2001, 1, 19, 4, -9,-10,-22, 23, 0, 0, + 'GAR ', 69,2001, 1, 19, 4, -9,-10,-22, 23, 0, 0/ data (fmult(j),j= 288, 302)/ + 0.71827195E+07, 0.75431410E+07, 0.75694080E+07, 0.45969405E+09, + 0.48276102E+09, 0.48444211E+09, 0.71827195E+07, 0.75431410E+07, + 0.75694080E+07, 0.45969405E+09, 0.48276102E+09, 0.48444211E+09, + 0.45969405E+09, 0.48276102E+09, 0.48444211E+09/ data ((index(i,j),i=1,12),j= 303, 323)/ + 'KIV ', 1,1994, 31, 19, 0, 0, 0, 0, 0, 0, 0, + 'KIV ', 2,1994, 31, 19, 0, 0, 0, 0, 0, 0, 0, + 'KIV ', 3,1994, 31, 19, 0, 0, 0, 0, 0, 0, 0, + 'KIV ', 4,1994, 31, 19, 1, 21, 0, 0, 0, 0, 0, + 'KIV ', 5,1994, 31, 19, 1, 21, 0, 0, 0, 0, 0, + 'KIV ', 6,1994, 31, 19, 1, 21, 0, 0, 0, 0, 0, + 'KIV ', 11,1994, 31, 19, 0, 0, 0, 0, 0, 0, 0, + 'KIV ', 12,1994, 31, 19, 0, 0, 0, 0, 0, 0, 0, + 'KIV ', 13,1994, 31, 19, 0, 0, 0, 0, 0, 0, 0, + 'KIV ', 14,1994, 31, 19, 1, 21, 0, 0, 0, 0, 0, + 'KIV ', 15,1994, 31, 19, 1, 21, 0, 0, 0, 0, 0, + 'KIV ', 16,1994, 31, 19, 1, 21, 0, 0, 0, 0, 0, + 'KIV ', 61,1994, 31, 19, 2, -9, 10, 0, 0, 0, 0, + 'KIV ', 62,1994, 31, 19, 2, -9, 10, 0, 0, 0, 0, + 'KIV ', 63,1994, 31, 19, 2, -9, 10, 0, 0, 0, 0, + 'KIV ', 64,1994, 31, 19, 2, -9, 10, 0, 0, 0, 0, + 'KIV ', 65,1994, 31, 19, 2, -9, 10, 0, 0, 0, 0, + 'KIV ', 66,1994, 31, 19, 2, -9, 10, 0, 0, 0, 0, + 'KIV ', 67,1994, 31, 19, 4, -9,-10,-22, 23, 0, 0, + 'KIV ', 68,1994, 31, 19, 4, -9,-10,-22, 23, 0, 0, + 'KIV ', 69,1994, 31, 19, 4, -9,-10,-22, 23, 0, 0/ data (fmult(j),j= 303, 323)/ + 0.66715390E+07, 0.67436545E+07, 0.69664505E+07, 0.66715390E+07, + 0.67436545E+07, 0.69664505E+07, 0.42697850E+09, 0.43159389E+09, + 0.44585283E+09, 0.42697850E+09, 0.43159389E+09, 0.44585283E+09, + 0.66715390E+07, 0.67436545E+07, 0.69664505E+07, 0.42697850E+09, + 0.43159389E+09, 0.44585283E+09, 0.42697850E+09, 0.43159389E+09, + 0.44585283E+09/ data ((index(i,j),i=1,12),j= 324, 332)/ + 'KIV ', 1,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'KIV ', 2,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'KIV ', 3,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'KIV ', 11,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'KIV ', 12,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'KIV ', 13,2001, 1, 19, 2, -7, 8, 0, 0, 0, 0, + 'KIV ', 17,2001, 1, 19, 6, -7, -8,-11,-12,-13, 14, + 'KIV ', 18,2001, 1, 19, 6, -7, -8,-11,-12,-13, 14, + 'KIV ', 19,2001, 1, 19, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 324, 332)/ + 0.35035588E+07, 0.35623352E+07, 0.36685328E+07, 0.11274367E+09, + 0.11375735E+09, 0.11766057E+09, 0.11274367E+09, 0.11375735E+09, + 0.11766057E+09/ data ((index(i,j),i=1,12),j= 333, 350)/ + 'LVZ ', 1,2001, 1, 39, 2, -7, 8, 0, 0, 0, 0, + 'LVZ ', 2,2001, 1, 40, 2, -7, 8, 0, 0, 0, 0, + 'LVZ ', 3,2001, 1, 41, 2, -7, 8, 0, 0, 0, 0, + 'LVZ ', 11,2001, 1, 39, 2, -7, 8, 0, 0, 0, 0, + 'LVZ ', 12,2001, 1, 40, 2, -7, 8, 0, 0, 0, 0, + 'LVZ ', 13,2001, 1, 41, 2, -7, 8, 0, 0, 0, 0, + 'LVZ ', 64,2001, 1, 39, 4, -7, -8, -9, 10, 0, 0, + 'LVZ ', 65,2001, 1, 40, 4, -7, -8, -9, 10, 0, 0, + 'LVZ ', 66,2001, 1, 41, 4, -7, -8, -9, 10, 0, 0, + 'LVZ ', 17,2001, 1, 39, 6, -7, -8,-11,-12,-13, 14, + 'LVZ ', 18,2001, 1, 40, 6, -7, -8,-11,-12,-13, 14, + 'LVZ ', 19,2001, 1, 41, 6, -7, -8,-11,-12,-13, 14, + 'LVZ ', 51,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'LVZ ', 52,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'LVZ ', 53,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'LVZ ', 54,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'LVZ ', 55,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'LVZ ', 56,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 333, 350)/ + 0.39890592E+07, 0.35740405E+07, 0.35739338E+07, 0.14154280E+09, + 0.12683010E+09, 0.12681338E+09, 0.14154280E+09, 0.12683010E+09, + 0.12681338E+09, 0.14154280E+09, 0.12683010E+09, 0.12681338E+09, + 0.14862354E+08, 0.14975384E+08, 0.14895496E+08, 0.94801613E+09, + 0.95388640E+09, 0.94626643E+09/ data ((index(i,j),i=1,12),j= 351, 359)/ + 'MSVF', 11,2001, 1, 42, 1, 1, 0, 0, 0, 0, 0, + 'MSVF', 12,2001, 1, 43, 1, 1, 0, 0, 0, 0, 0, + 'MSVF', 13,2001, 1, 44, 1, 1, 0, 0, 0, 0, 0, + 'MSVF', 14,2001, 1, 42, 3, -1, -2, 3, 0, 0, 0, + 'MSVF', 15,2001, 1, 43, 3, -1, -2, 3, 0, 0, 0, + 'MSVF', 16,2001, 1, 44, 3, -1, -2, 3, 0, 0, 0, + 'MSVF', 17,2001, 1, 42, 5, -1, -2, -3, -4, 5, 0, + 'MSVF', 18,2001, 1, 43, 5, -1, -2, -3, -4, 5, 0, + 'MSVF', 19,2001, 1, 44, 5, -1, -2, -3, -4, 5, 0/ data (fmult(j),j= 351, 359)/ + 0.16769382E+10,-0.16763681E+10,-0.16781425E+10, 0.16768298E+10, + -0.16762688E+10,-0.16780323E+10, 0.16767857E+10,-0.16762243E+10, + -0.16779862E+10/ data ((index(i,j),i=1,12),j= 360, 381)/ + 'NNA ', 4,1988,333, 45, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 5,1988,333, 46, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 6,1988,333, 47, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 14,1988,333, 45, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 15,1988,333, 46, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 16,1988,333, 47, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 61,1988,333, 45, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 62,1988,333, 46, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 63,1988,333, 47, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 64,1988,333, 45, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 65,1988,333, 46, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 66,1988,333, 47, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 17,1988,333, 45, 4,-21,-24, 25, 26, 0, 0, + 'NNA ', 18,1988,333, 46, 4,-21,-24, 25, 26, 0, 0, + 'NNA ', 19,1988,333, 47, 4,-21,-24, 25, 26, 0, 0, + 'NNA ', 41,1988,333, 45, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 42,1988,333, 46, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 43,1988,333, 47, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 44,1988,333, 45, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 45,1988,333, 46, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 46,1988,333, 47, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 94,1988,333, 48, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 360, 381)/ + -0.74383095E+07,-0.68550130E+07,-0.72744960E+07,-0.47605181E+09, + -0.43872083E+09,-0.46556774E+09,-0.74383095E+07,-0.68550130E+07, + -0.72744960E+07,-0.47605181E+09,-0.43872083E+09,-0.46556774E+09, + -0.47605181E+09,-0.43872083E+09,-0.46556774E+09,-0.74383095E+07, + -0.68550130E+07,-0.72744960E+07,-0.47605181E+09,-0.43872083E+09, + -0.46556774E+09,-0.12369839E+12/ data ((index(i,j),i=1,12),j= 382, 403)/ + 'NNA ', 4,1993,329, 49, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 5,1993,329, 49, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 6,1993,329, 49, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 14,1993,329, 49, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 15,1993,329, 49, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 16,1993,329, 49, 1, 21, 0, 0, 0, 0, 0, + 'NNA ', 61,1993,329, 49, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 62,1993,329, 49, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 63,1993,329, 49, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 64,1993,329, 49, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 65,1993,329, 49, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 66,1993,329, 49, 2,-21, 3, 0, 0, 0, 0, + 'NNA ', 17,1993,329, 49, 4,-21,-24, 25, 26, 0, 0, + 'NNA ', 18,1993,329, 49, 4,-21,-24, 25, 26, 0, 0, + 'NNA ', 19,1993,329, 49, 4,-21,-24, 25, 26, 0, 0, + 'NNA ', 41,1993,329, 49, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 42,1993,329, 49, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 43,1993,329, 49, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 44,1993,329, 49, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 45,1993,329, 49, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 46,1993,329, 49, 0, 0, 0, 0, 0, 0, 0, + 'NNA ', 94,1993,329, 48, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 382, 403)/ + -0.74383095E+07,-0.80674560E+07,-0.72744960E+07,-0.47605181E+09, + -0.51631718E+09,-0.46556774E+09,-0.74383095E+07,-0.80674560E+07, + -0.72744960E+07,-0.47605181E+09,-0.51631718E+09,-0.46556774E+09, + -0.47605181E+09,-0.51631718E+09,-0.46556774E+09,-0.74383095E+07, + -0.80674560E+07,-0.72744960E+07,-0.47605181E+09,-0.51631718E+09, + -0.46556774E+09,-0.12369839E+12/ data ((index(i,j),i=1,12),j= 404, 418)/ + 'NNA ', 11,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'NNA ', 12,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'NNA ', 13,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'NNA ', 14,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'NNA ', 15,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'NNA ', 16,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'NNA ', 17,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0, + 'NNA ', 18,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0, + 'NNA ', 19,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0, + 'NNA ', 51,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'NNA ', 52,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'NNA ', 53,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'NNA ', 54,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'NNA ', 55,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0, + 'NNA ', 56,2001, 1, 3, 1, 6, 0, 0, 0, 0, 0/ data (fmult(j),j= 404, 418)/ + 0.15544394E+10, 0.16903677E+10, 0.15226884E+10, 0.15544394E+10, + 0.16903677E+10, 0.15226884E+10, 0.15544394E+10, 0.16903677E+10, + 0.15226884E+10, 0.14858882E+08, 0.14662149E+08, 0.14696685E+08, + 0.96319744E+09, 0.95272787E+09, 0.94986560E+09/ data ((index(i,j),i=1,12),j= 419, 436)/ + 'NRIL', 1,2001, 1, 50, 2, -7, 8, 0, 0, 0, 0, + 'NRIL', 2,2001, 1, 51, 2, -7, 8, 0, 0, 0, 0, + 'NRIL', 3,2001, 1, 52, 2, -7, 8, 0, 0, 0, 0, + 'NRIL', 11,2001, 1, 50, 2, -7, 8, 0, 0, 0, 0, + 'NRIL', 12,2001, 1, 51, 2, -7, 8, 0, 0, 0, 0, + 'NRIL', 13,2001, 1, 52, 2, -7, 8, 0, 0, 0, 0, + 'NRIL', 64,2001, 1, 50, 4, -7, -8, -9, 10, 0, 0, + 'NRIL', 65,2001, 1, 51, 4, -7, -8, -9, 10, 0, 0, + 'NRIL', 66,2001, 1, 52, 4, -7, -8, -9, 10, 0, 0, + 'NRIL', 17,2001, 1, 50, 6, -7, -8,-11,-12,-13, 14, + 'NRIL', 18,2001, 1, 51, 6, -7, -8,-11,-12,-13, 14, + 'NRIL', 19,2001, 1, 52, 6, -7, -8,-11,-12,-13, 14, + 'NRIL', 51,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NRIL', 52,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NRIL', 53,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NRIL', 54,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NRIL', 55,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NRIL', 56,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 419, 436)/ + 0.40158965E+07, 0.35704128E+07, 0.35484985E+07, 0.14238758E+09, + 0.12629482E+09, 0.12582814E+09, 0.14238758E+09, 0.12629482E+09, + 0.12582814E+09, 0.14238758E+09, 0.12629482E+09, 0.12582814E+09, + 0.14434279E+08, 0.14572656E+08, 0.14358803E+08, 0.92075110E+09, + 0.93113254E+09, 0.91481971E+09/ data ((index(i,j),i=1,12),j= 437, 454)/ + 'NVS ', 1,2001, 1, 53, 2, -7, 8, 0, 0, 0, 0, + 'NVS ', 2,2001, 1, 54, 2, -7, 8, 0, 0, 0, 0, + 'NVS ', 3,2001, 1, 55, 2, -7, 8, 0, 0, 0, 0, + 'NVS ', 11,2001, 1, 53, 2, -7, 8, 0, 0, 0, 0, + 'NVS ', 12,2001, 1, 54, 2, -7, 8, 0, 0, 0, 0, + 'NVS ', 13,2001, 1, 55, 2, -7, 8, 0, 0, 0, 0, + 'NVS ', 64,2001, 1, 53, 4, -7, -8, -9, 10, 0, 0, + 'NVS ', 65,2001, 1, 54, 4, -7, -8, -9, 10, 0, 0, + 'NVS ', 66,2001, 1, 55, 4, -7, -8, -9, 10, 0, 0, + 'NVS ', 17,2001, 1, 53, 6, -7, -8,-11,-12,-13, 14, + 'NVS ', 18,2001, 1, 54, 6, -7, -8,-11,-12,-13, 14, + 'NVS ', 19,2001, 1, 55, 6, -7, -8,-11,-12,-13, 14, + 'NVS ', 51,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NVS ', 52,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NVS ', 53,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NVS ', 54,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NVS ', 55,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'NVS ', 56,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 437, 454)/ + 0.36424418E+07, 0.35911088E+07, 0.35174385E+07, 0.12876908E+09, + 0.12584175E+09, 0.12499182E+09, 0.12876908E+09, 0.12584175E+09, + 0.12499182E+09, 0.12876908E+09, 0.12584175E+09, 0.12499182E+09, + 0.14312701E+08, 0.14415443E+08, 0.14657971E+08, 0.92044032E+09, + 0.92447642E+09, 0.94037997E+09/ data ((index(i,j),i=1,12),j= 455, 469)/ + 'OBN ', 1,1988,264, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 2,1988,264, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 3,1988,264, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 4,1988,264, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 5,1988,264, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 6,1988,264, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 11,1988,264, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 12,1988,264, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 13,1988,264, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 14,1988,264, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 15,1988,264, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 16,1988,264, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 17,1988,264, 56, 4,-21,-24, 25, 26, 0, 0, + 'OBN ', 18,1988,264, 56, 4,-21,-24, 25, 26, 0, 0, + 'OBN ', 19,1988,264, 56, 4,-21,-24, 25, 26, 0, 0/ data (fmult(j),j= 455, 469)/ + 0.70045050E+09, 0.93952576E+09, 0.45088598E+09, 0.70045050E+09, + 0.93952576E+09, 0.45088598E+09, 0.11207208E+11, 0.15032412E+11, + 0.72141757E+10, 0.11207208E+11, 0.15032412E+11, 0.72141757E+10, + 0.11207208E+11, 0.15032412E+11, 0.72141757E+10/ data ((index(i,j),i=1,12),j= 470, 490)/ + 'OBN ', 1,1989, 49, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 2,1989, 49, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 3,1989, 49, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 4,1989, 49, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 5,1989, 49, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 6,1989, 49, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 11,1989, 49, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 12,1989, 49, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 13,1989, 49, 56, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 14,1989, 49, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 15,1989, 49, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 16,1989, 49, 56, 1, 21, 0, 0, 0, 0, 0, + 'OBN ', 61,1989, 49, 56, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 62,1989, 49, 56, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 63,1989, 49, 56, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 64,1989, 49, 56, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 65,1989, 49, 56, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 66,1989, 49, 56, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 67,1989, 49, 56, 4, -9,-10,-22, 23, 0, 0, + 'OBN ', 68,1989, 49, 56, 4, -9,-10,-22, 23, 0, 0, + 'OBN ', 69,1989, 49, 56, 4, -9,-10,-22, 23, 0, 0/ data (fmult(j),j= 470, 490)/ + 0.10944539E+08, 0.14680090E+08, 0.70450935E+07, 0.10944539E+08, + 0.14680090E+08, 0.70450935E+07, 0.70045050E+09, 0.93952576E+09, + 0.45088598E+09, 0.70045050E+09, 0.93952576E+09, 0.45088598E+09, + 0.10944539E+08, 0.14680090E+08, 0.70450935E+07, 0.70045050E+09, + 0.93952576E+09, 0.45088598E+09, 0.70045050E+09, 0.93952576E+09, + 0.45088598E+09/ data ((index(i,j),i=1,12),j= 491, 505)/ + 'OBN ', 1,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 2,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 3,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 11,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 12,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 13,2001, 1, 19, 0, 0, 0, 0, 0, 0, 0, + 'OBN ', 61,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 62,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 63,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 64,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 65,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 66,2001, 1, 19, 2, -9, 10, 0, 0, 0, 0, + 'OBN ', 67,2001, 1, 19, 4, -9,-10,-22, 23, 0, 0, + 'OBN ', 68,2001, 1, 19, 4, -9,-10,-22, 23, 0, 0, + 'OBN ', 69,2001, 1, 19, 4, -9,-10,-22, 23, 0, 0/ data (fmult(j),j= 491, 505)/ + 0.80019455E+07, 0.79822850E+07, 0.79494915E+07, 0.51212451E+09, + 0.51086624E+09, 0.50876746E+09, 0.80019455E+07, 0.79822850E+07, + 0.79494915E+07, 0.51212451E+09, 0.51086624E+09, 0.50876746E+09, + 0.51212451E+09, 0.51086624E+09, 0.50876746E+09/ data ((index(i,j),i=1,12),j= 506, 523)/ + 'PFO ', 4,1987, 43, 57, 1, 27, 0, 0, 0, 0, 0, + 'PFO ', 5,1987, 43, 58, 1, 27, 0, 0, 0, 0, 0, + 'PFO ', 6,1987, 43, 59, 1, 27, 0, 0, 0, 0, 0, + 'PFO ', 7,1987, 43, 57, 3,-27, 28, 29, 0, 0, 0, + 'PFO ', 8,1987, 43, 58, 3,-27, 28, 29, 0, 0, 0, + 'PFO ', 9,1987, 43, 59, 3,-27, 28, 29, 0, 0, 0, + 'PFO ', 14,1987, 43, 57, 1, 27, 0, 0, 0, 0, 0, + 'PFO ', 15,1987, 43, 58, 1, 27, 0, 0, 0, 0, 0, + 'PFO ', 16,1987, 43, 59, 1, 27, 0, 0, 0, 0, 0, + 'PFO ', 17,1987, 43, 57, 3,-27, 28, 29, 0, 0, 0, + 'PFO ', 18,1987, 43, 58, 3,-27, 28, 29, 0, 0, 0, + 'PFO ', 19,1987, 43, 59, 3,-27, 28, 29, 0, 0, 0, + 'PFO ', 41,1987, 43, 57, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 42,1987, 43, 58, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 43,1987, 43, 59, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 44,1987, 43, 57, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 45,1987, 43, 58, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 46,1987, 43, 59, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 506, 523)/ + -0.79626240E+07,-0.79756795E+07,-0.77922040E+07,-0.79626240E+07, + -0.79756795E+07,-0.77922040E+07,-0.50960794E+09,-0.51044349E+09, + -0.49870106E+09,-0.50960794E+09,-0.51044349E+09,-0.49870106E+09, + -0.79626240E+07,-0.79756795E+07,-0.77922040E+07,-0.50960794E+09, + -0.51044349E+09,-0.49870106E+09/ data ((index(i,j),i=1,12),j= 524, 542)/ + 'PFO ', 4,1987,152, 57, 1, 30, 0, 0, 0, 0, 0, + 'PFO ', 5,1987,152, 58, 1, 30, 0, 0, 0, 0, 0, + 'PFO ', 6,1987,152, 59, 1, 30, 0, 0, 0, 0, 0, + 'PFO ', 7,1987,152, 57, 3,-30, 31, 32, 0, 0, 0, + 'PFO ', 8,1987,152, 58, 3,-30, 31, 32, 0, 0, 0, + 'PFO ', 9,1987,152, 59, 3,-30, 31, 32, 0, 0, 0, + 'PFO ', 14,1987,152, 57, 1, 30, 0, 0, 0, 0, 0, + 'PFO ', 15,1987,152, 58, 1, 30, 0, 0, 0, 0, 0, + 'PFO ', 16,1987,152, 59, 1, 30, 0, 0, 0, 0, 0, + 'PFO ', 17,1987,152, 57, 3,-30, 31, 32, 0, 0, 0, + 'PFO ', 18,1987,152, 58, 3,-30, 31, 32, 0, 0, 0, + 'PFO ', 19,1987,152, 59, 3,-30, 31, 32, 0, 0, 0, + 'PFO ', 41,1987,152, 57, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 42,1987,152, 58, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 43,1987,152, 59, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 44,1987,152, 57, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 45,1987,152, 58, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 46,1987,152, 59, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 94,1987,152, 60, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 524, 542)/ + -0.79626240E+07,-0.79756795E+07,-0.77922040E+07,-0.79626240E+07, + -0.79756795E+07,-0.77922040E+07,-0.50960794E+09,-0.51044349E+09, + -0.49870106E+09,-0.50960794E+09,-0.51044349E+09,-0.49870106E+09, + -0.79626240E+07,-0.79756795E+07,-0.77922040E+07,-0.50960794E+09, + -0.51044349E+09,-0.49870106E+09,-0.79016624E+11/ data ((index(i,j),i=1,12),j= 543, 561)/ + 'PFO ', 4,1987,313, 61, 1, 33, 0, 0, 0, 0, 0, + 'PFO ', 5,1987,313, 62, 1, 33, 0, 0, 0, 0, 0, + 'PFO ', 6,1987,313, 63, 1, 33, 0, 0, 0, 0, 0, + 'PFO ', 7,1987,313, 61, 3,-33, 34, 35, 0, 0, 0, + 'PFO ', 8,1987,313, 62, 3,-33, 34, 35, 0, 0, 0, + 'PFO ', 9,1987,313, 63, 3,-33, 34, 35, 0, 0, 0, + 'PFO ', 14,1987,313, 61, 1, 33, 0, 0, 0, 0, 0, + 'PFO ', 15,1987,313, 62, 1, 33, 0, 0, 0, 0, 0, + 'PFO ', 16,1987,313, 63, 1, 33, 0, 0, 0, 0, 0, + 'PFO ', 17,1987,313, 61, 3,-33, 34, 35, 0, 0, 0, + 'PFO ', 18,1987,313, 62, 3,-33, 34, 35, 0, 0, 0, + 'PFO ', 19,1987,313, 63, 3,-33, 34, 35, 0, 0, 0, + 'PFO ', 41,1987,313, 61, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 42,1987,313, 62, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 43,1987,313, 63, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 44,1987,313, 61, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 45,1987,313, 62, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 46,1987,313, 63, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 94,1987,313, 60, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 543, 561)/ + -0.79626240E+07,-0.79756795E+07,-0.77922040E+07,-0.79626240E+07, + -0.79756795E+07,-0.77922040E+07,-0.50960794E+09,-0.51044349E+09, + -0.49870106E+09,-0.50960794E+09,-0.51044349E+09,-0.49870106E+09, + -0.79626240E+07,-0.79756795E+07,-0.77922040E+07,-0.50960794E+09, + -0.51044349E+09,-0.49870106E+09,-0.79016624E+11/ data ((index(i,j),i=1,12),j= 562, 583)/ + 'PFO ', 4,1990,192, 61, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 5,1990,192, 62, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 6,1990,192, 63, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 14,1990,192, 61, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 15,1990,192, 62, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 16,1990,192, 63, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 61,1990,192, 61, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 62,1990,192, 62, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 63,1990,192, 63, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 64,1990,192, 61, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 65,1990,192, 62, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 66,1990,192, 63, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 17,1990,192, 61, 4,-21,-24, 25, 26, 0, 0, + 'PFO ', 18,1990,192, 62, 4,-21,-24, 25, 26, 0, 0, + 'PFO ', 19,1990,192, 63, 4,-21,-24, 25, 26, 0, 0, + 'PFO ', 41,1990,192, 61, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 42,1990,192, 62, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 43,1990,192, 63, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 44,1990,192, 61, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 45,1990,192, 62, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 46,1990,192, 63, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 94,1990,192, 60, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 562, 583)/ + -0.79626240E+07,-0.79756795E+07,-0.77922040E+07,-0.50960794E+09, + -0.51044349E+09,-0.49870106E+09,-0.79626240E+07,-0.79756795E+07, + -0.77922040E+07,-0.50960794E+09,-0.51044349E+09,-0.49870106E+09, + -0.50960794E+09,-0.51044349E+09,-0.49870106E+09,-0.79626240E+07, + -0.79756795E+07,-0.77922040E+07,-0.50960794E+09,-0.51044349E+09, + -0.49870106E+09,-0.79016624E+11/ data ((index(i,j),i=1,12),j= 584, 605)/ + 'PFO ', 4,1992, 24, 61, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 5,1992, 24, 62, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 6,1992, 24, 63, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 14,1992, 24, 61, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 15,1992, 24, 62, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 16,1992, 24, 63, 1, 21, 0, 0, 0, 0, 0, + 'PFO ', 61,1992, 24, 61, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 62,1992, 24, 62, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 63,1992, 24, 63, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 64,1992, 24, 61, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 65,1992, 24, 62, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 66,1992, 24, 63, 2,-21, 3, 0, 0, 0, 0, + 'PFO ', 17,1992, 24, 61, 4,-21,-24, 25, 26, 0, 0, + 'PFO ', 18,1992, 24, 62, 4,-21,-24, 25, 26, 0, 0, + 'PFO ', 19,1992, 24, 63, 4,-21,-24, 25, 26, 0, 0, + 'PFO ', 41,1992, 24, 61, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 42,1992, 24, 62, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 43,1992, 24, 63, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 44,1992, 24, 61, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 45,1992, 24, 62, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 46,1992, 24, 63, 0, 0, 0, 0, 0, 0, 0, + 'PFO ', 94,1992, 24, 60, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 584, 605)/ + -0.79626240E+07,-0.79756795E+07,-0.77922040E+07,-0.25480397E+09, + -0.51044349E+09,-0.49870106E+09,-0.79626240E+07,-0.79756795E+07, + -0.77922040E+07,-0.50960794E+09,-0.51044349E+09,-0.49870106E+09, + -0.25480397E+09,-0.51044349E+09,-0.49870106E+09,-0.79626240E+07, + -0.79756795E+07,-0.77922040E+07,-0.25480397E+09,-0.51044349E+09, + -0.49870106E+09,-0.79016624E+11/ data ((index(i,j),i=1,12),j= 606, 617)/ + 'PFO ', 1,1992, 38, 7, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 2,1992, 38, 7, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 3,1992, 38, 7, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 11,1992, 38, 7, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 12,1992, 38, 7, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 13,1992, 38, 7, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 64,1992, 38, 7, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 65,1992, 38, 7, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 66,1992, 38, 7, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 17,1992, 38, 7, 6, -7, -8,-11,-12,-13, 14, + 'PFO ', 18,1992, 38, 7, 6, -7, -8,-11,-12,-13, 14, + 'PFO ', 19,1992, 38, 7, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 606, 617)/ + 0.50936160E+07, 0.49314605E+07, 0.49715455E+07, 0.16404837E+09, + 0.15741088E+09, 0.16039435E+09, 0.16404837E+09, 0.15741088E+09, + 0.16039435E+09, 0.16404837E+09, 0.15741088E+09, 0.16039435E+09/ data ((index(i,j),i=1,12),j= 618, 629)/ + 'PFO ', 1,1992,257, 64, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 2,1992,257, 65, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 3,1992,257, 66, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 11,1992,257, 64, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 12,1992,257, 65, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 13,1992,257, 66, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 64,1992,257, 64, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 65,1992,257, 65, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 66,1992,257, 66, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 17,1992,257, 64, 6, -7, -8,-11,-12,-13, 14, + 'PFO ', 18,1992,257, 65, 6, -7, -8,-11,-12,-13, 14, + 'PFO ', 19,1992,257, 66, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 618, 629)/ + 0.41636560E+07, 0.41708978E+07, 0.40816812E+07, 0.13361602E+09, + 0.13399690E+09, 0.13070632E+09, 0.13361602E+09, 0.13399690E+09, + 0.13070632E+09, 0.13361602E+09, 0.13399690E+09, 0.13070632E+09/ data ((index(i,j),i=1,12),j= 630, 641)/ + 'PFO ', 1,1993,160, 67, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 2,1993,160, 68, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 3,1993,160, 69, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 11,1993,160, 67, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 12,1993,160, 68, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 13,1993,160, 69, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 64,1993,160, 67, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 65,1993,160, 68, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 66,1993,160, 69, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 17,1993,160, 67, 6, -7, -8,-11,-12,-13, 14, + 'PFO ', 18,1993,160, 68, 6, -7, -8,-11,-12,-13, 14, + 'PFO ', 19,1993,160, 69, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 630, 641)/ + 0.41636560E+07, 0.41708978E+07, 0.40816812E+07, 0.13361602E+09, + 0.13399690E+09, 0.13070632E+09, 0.13361602E+09, 0.13399690E+09, + 0.13070632E+09, 0.13361602E+09, 0.13399690E+09, 0.13070632E+09/ data ((index(i,j),i=1,12),j= 642, 650)/ + 'PFO ', 11,1993,180, 70, 1, 1, 0, 0, 0, 0, 0, + 'PFO ', 12,1993,180, 71, 1, 1, 0, 0, 0, 0, 0, + 'PFO ', 13,1993,180, 72, 1, 1, 0, 0, 0, 0, 0, + 'PFO ', 14,1993,180, 70, 3, -1, -2, 3, 0, 0, 0, + 'PFO ', 15,1993,180, 71, 3, -1, -2, 3, 0, 0, 0, + 'PFO ', 16,1993,180, 72, 3, -1, -2, 3, 0, 0, 0, + 'PFO ', 17,1993,180, 70, 5, -1, -2, -3, -4, 5, 0, + 'PFO ', 18,1993,180, 71, 5, -1, -2, -3, -4, 5, 0, + 'PFO ', 19,1993,180, 72, 5, -1, -2, -3, -4, 5, 0/ data (fmult(j),j= 642, 650)/ + 0.17982001E+10, 0.18011483E+10, 0.17597140E+10, 0.17982001E+10, + 0.18011483E+10, 0.17597140E+10, 0.17982001E+10, 0.18011483E+10, + 0.17597140E+10/ data ((index(i,j),i=1,12),j= 651, 662)/ + 'PFO ', 1,2001, 1, 70, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 2,2001, 1, 71, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 3,2001, 1, 72, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 11,2001, 1, 70, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 12,2001, 1, 71, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 13,2001, 1, 72, 2, -7, 8, 0, 0, 0, 0, + 'PFO ', 64,2001, 1, 70, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 65,2001, 1, 71, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 66,2001, 1, 72, 4, -7, -8, -9, 10, 0, 0, + 'PFO ', 17,2001, 1, 70, 6, -7, -8,-11,-12,-13, 14, + 'PFO ', 18,2001, 1, 71, 6, -7, -8,-11,-12,-13, 14, + 'PFO ', 19,2001, 1, 72, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 651, 662)/ + 0.41636560E+07, 0.41708978E+07, 0.40816812E+07, 0.13361602E+09, + 0.13399690E+09, 0.13070632E+09, 0.13361602E+09, 0.13399690E+09, + 0.13070632E+09, 0.13361602E+09, 0.13399690E+09, 0.13070632E+09/ data ((index(i,j),i=1,12),j= 663, 687)/ + 'RPN ', 4,1988, 13, 73, 1, 33, 0, 0, 0, 0, 0, + 'RPN ', 5,1988, 13, 74, 1, 33, 0, 0, 0, 0, 0, + 'RPN ', 6,1988, 13, 75, 1, 33, 0, 0, 0, 0, 0, + 'RPN ', 7,1988, 13, 73, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 8,1988, 13, 74, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 9,1988, 13, 75, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 14,1988, 13, 73, 1, 33, 0, 0, 0, 0, 0, + 'RPN ', 15,1988, 13, 74, 1, 33, 0, 0, 0, 0, 0, + 'RPN ', 16,1988, 13, 75, 1, 33, 0, 0, 0, 0, 0, + 'RPN ', 17,1988, 13, 73, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 18,1988, 13, 74, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 19,1988, 13, 75, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 41,1988, 13, 73, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 42,1988, 13, 74, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 43,1988, 13, 75, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 44,1988, 13, 73, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 45,1988, 13, 74, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 46,1988, 13, 75, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 61,1988, 13, 73, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 62,1988, 13, 74, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 63,1988, 13, 75, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 64,1988, 13, 73, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 65,1988, 13, 74, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 66,1988, 13, 75, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 94,1988, 13, 76, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 663, 687)/ + -0.74644975E+07,-0.76742395E+07,-0.80346610E+07,-0.74644975E+07, + -0.76742395E+07,-0.80346610E+07,-0.47772784E+09,-0.49115133E+09, + -0.51421830E+09,-0.47772784E+09,-0.49115133E+09,-0.51421830E+09, + -0.74644975E+07,-0.76742395E+07,-0.80346610E+07,-0.47772784E+09, + -0.49115133E+09,-0.51421830E+09,-0.74644975E+07,-0.76742395E+07, + -0.80346610E+07,-0.47772784E+09,-0.49115133E+09,-0.51421830E+09, + -0.72747024E+11/ data ((index(i,j),i=1,12),j= 688, 712)/ + 'RPN ', 4,1989,341, 77, 1, 21, 0, 0, 0, 0, 0, + 'RPN ', 5,1989,341, 78, 1, 21, 0, 0, 0, 0, 0, + 'RPN ', 6,1989,341, 79, 1, 21, 0, 0, 0, 0, 0, + 'RPN ', 7,1989,341, 77, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 8,1989,341, 78, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 9,1989,341, 79, 3,-33, 34, 35, 0, 0, 0, + 'RPN ', 14,1989,341, 77, 1, 21, 0, 0, 0, 0, 0, + 'RPN ', 15,1989,341, 78, 1, 21, 0, 0, 0, 0, 0, + 'RPN ', 16,1989,341, 79, 1, 21, 0, 0, 0, 0, 0, + 'RPN ', 61,1989,341, 77, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 62,1989,341, 78, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 63,1989,341, 79, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 64,1989,341, 77, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 65,1989,341, 78, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 66,1989,341, 79, 2,-21, 3, 0, 0, 0, 0, + 'RPN ', 17,1989,341, 77, 4,-21,-24, 25, 26, 0, 0, + 'RPN ', 18,1989,341, 78, 4,-21,-24, 25, 26, 0, 0, + 'RPN ', 19,1989,341, 79, 4,-21,-24, 25, 26, 0, 0, + 'RPN ', 41,1989,341, 77, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 42,1989,341, 78, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 43,1989,341, 79, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 44,1989,341, 77, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 45,1989,341, 78, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 46,1989,341, 79, 0, 0, 0, 0, 0, 0, 0, + 'RPN ', 94,1989,341, 76, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 688, 712)/ + -0.74644975E+07,-0.76742395E+07,-0.80346610E+07,-0.74644975E+07, + -0.76742395E+07,-0.80346610E+07,-0.47772784E+09,-0.49115133E+09, + -0.51421830E+09,-0.74644975E+07,-0.76742395E+07,-0.80346610E+07, + -0.47772784E+09,-0.49115133E+09,-0.51421830E+09,-0.47772784E+09, + -0.49115133E+09,-0.51421830E+09,-0.74644975E+07,-0.76742395E+07, + -0.80346610E+07,-0.47772784E+09,-0.49115133E+09,-0.51421830E+09, + -0.72747024E+11/ data ((index(i,j),i=1,12),j= 713, 724)/ + 'RPN ', 1,1992,342, 80, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 2,1992,342, 81, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 3,1992,342, 82, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 11,1992,342, 80, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 12,1992,342, 81, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 13,1992,342, 82, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 64,1992,342, 80, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 65,1992,342, 81, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 66,1992,342, 82, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 17,1992,342, 80, 6, -7, -8,-11,-12,-13, 14, + 'RPN ', 18,1992,342, 81, 6, -7, -8,-11,-12,-13, 14, + 'RPN ', 19,1992,342, 82, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 713, 724)/ + 0.35746438E+07, 0.36664178E+07, 0.38413672E+07, 0.45525408E+09, + 0.46766346E+09, 0.48568586E+09, 0.45525408E+09, 0.46766346E+09, + 0.48568586E+09, 0.45525408E+09, 0.46766346E+09, 0.48568586E+09/ data ((index(i,j),i=1,12),j= 725, 736)/ + 'RPN ', 1,1994, 42, 83, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 2,1994, 42, 84, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 3,1994, 42, 85, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 11,1994, 42, 83, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 12,1994, 42, 84, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 13,1994, 42, 85, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 64,1994, 42, 83, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 65,1994, 42, 84, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 66,1994, 42, 85, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 17,1994, 42, 83, 6, -7, -8,-11,-12,-13, 14, + 'RPN ', 18,1994, 42, 84, 6, -7, -8,-11,-12,-13, 14, + 'RPN ', 19,1994, 42, 85, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 725, 736)/ + 0.35546685E+07, 0.36545880E+07, 0.38142140E+07, 0.12601745E+09, + 0.12924278E+09, 0.13532683E+09, 0.12601745E+09, 0.12924278E+09, + 0.13532683E+09, 0.12601745E+09, 0.12924278E+09, 0.13532683E+09/ data ((index(i,j),i=1,12),j= 737, 748)/ + 'RPN ', 1,2001, 1, 86, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 2,2001, 1, 87, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 3,2001, 1, 88, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 11,2001, 1, 86, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 12,2001, 1, 87, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 13,2001, 1, 88, 2, -7, 8, 0, 0, 0, 0, + 'RPN ', 64,2001, 1, 86, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 65,2001, 1, 87, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 66,2001, 1, 88, 4, -7, -8, -9, 10, 0, 0, + 'RPN ', 17,2001, 1, 86, 6, -7, -8,-11,-12,-13, 14, + 'RPN ', 18,2001, 1, 87, 6, -7, -8,-11,-12,-13, 14, + 'RPN ', 19,2001, 1, 88, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 737, 748)/ + 0.36327158E+07, 0.36545880E+07, 0.38142140E+07, 0.12878432E+09, + 0.12924278E+09, 0.13532683E+09, 0.12878432E+09, 0.12924278E+09, + 0.13532683E+09, 0.12878432E+09, 0.12924278E+09, 0.13532683E+09/ data ((index(i,j),i=1,12),j= 749, 760)/ + 'SUR ', 1,1992,216, 89, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 2,1992,216, 90, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 3,1992,216, 91, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 11,1992,216, 89, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 12,1992,216, 90, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 13,1992,216, 91, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 64,1992,216, 89, 4, -7, -8, -9, 10, 0, 0, + 'SUR ', 65,1992,216, 90, 4, -7, -8, -9, 10, 0, 0, + 'SUR ', 66,1992,216, 91, 4, -7, -8, -9, 10, 0, 0, + 'SUR ', 17,1992,216, 89, 6, -7, -8,-11,-12,-13, 14, + 'SUR ', 18,1992,216, 90, 6, -7, -8,-11,-12,-13, 14, + 'SUR ', 19,1992,216, 91, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 749, 760)/ + 0.40347038E+07, 0.40512972E+07, 0.39964985E+07, 0.51800762E+09, + 0.51626419E+09, 0.51080022E+09, 0.51800762E+09, 0.51626419E+09, + 0.51080022E+09, 0.51800762E+09, 0.51626419E+09, 0.51080022E+09/ data ((index(i,j),i=1,12),j= 761, 772)/ + 'SUR ', 1,2001, 1, 92, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 2,2001, 1, 93, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 3,2001, 1, 94, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 11,2001, 1, 92, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 12,2001, 1, 93, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 13,2001, 1, 94, 2, -7, 8, 0, 0, 0, 0, + 'SUR ', 64,2001, 1, 92, 4, -7, -8, -9, 10, 0, 0, + 'SUR ', 65,2001, 1, 93, 4, -7, -8, -9, 10, 0, 0, + 'SUR ', 66,2001, 1, 94, 4, -7, -8, -9, 10, 0, 0, + 'SUR ', 17,2001, 1, 92, 6, -7, -8,-11,-12,-13, 14, + 'SUR ', 18,2001, 1, 93, 6, -7, -8,-11,-12,-13, 14, + 'SUR ', 19,2001, 1, 94, 6, -7, -8,-11,-12,-13, 14/ data (fmult(j),j= 761, 772)/ + 0.40347038E+07, 0.40512972E+07, 0.39964985E+07, 0.51800762E+09, + 0.51626419E+09, 0.51080022E+09, 0.51800762E+09, 0.51626419E+09, + 0.51080022E+09, 0.51800762E+09, 0.51626419E+09, 0.51080022E+09/ data ((index(i,j),i=1,12),j= 773, 781)/ + 'TAU ', 11,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'TAU ', 12,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'TAU ', 13,2001, 1, 1, 1, 1, 0, 0, 0, 0, 0, + 'TAU ', 14,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'TAU ', 15,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'TAU ', 16,2001, 1, 1, 3, -1, -2, 3, 0, 0, 0, + 'TAU ', 17,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0, + 'TAU ', 18,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0, + 'TAU ', 19,2001, 1, 1, 5, -1, -2, -3, -4, 5, 0/ data (fmult(j),j= 773, 781)/ + 0.17841731E+10, 0.15789061E+10, 0.16139992E+10, 0.17841335E+10, + 0.15788561E+10, 0.16139363E+10, 0.17841221E+10, 0.15788362E+10, + 0.16139158E+10/ data ((index(i,j),i=1,12),j= 782, 799)/ + 'TLY ', 1,1992,189, 95, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 2,1992,189, 96, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 3,1992,189, 97, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 11,1992,189, 95, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 12,1992,189, 96, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 13,1992,189, 97, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 64,1992,189, 95, 4, -7, -8, -9, 10, 0, 0, + 'TLY ', 65,1992,189, 96, 4, -7, -8, -9, 10, 0, 0, + 'TLY ', 66,1992,189, 97, 4, -7, -8, -9, 10, 0, 0, + 'TLY ', 17,1992,189, 95, 6, -7, -8,-11,-12,-13, 14, + 'TLY ', 18,1992,189, 96, 6, -7, -8,-11,-12,-13, 14, + 'TLY ', 19,1992,189, 97, 6, -7, -8,-11,-12,-13, 14, + 'TLY ', 51,1992,189, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 52,1992,189, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 53,1992,189, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 54,1992,189, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 55,1992,189, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 56,1992,189, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 782, 799)/ + 0.37021268E+07, 0.35519920E+07, 0.32427330E+07, 0.47459498E+09, + 0.45391562E+09, 0.41425293E+09, 0.47459498E+09, 0.45391562E+09, + 0.41425293E+09, 0.47459498E+09, 0.45391562E+09, 0.41425293E+09, + 0.13820989E+08, 0.12869677E+08, 0.13961215E+08, 0.88246080E+09, + 0.81816448E+09, 0.89345875E+09/ data ((index(i,j),i=1,12),j= 800, 817)/ + 'TLY ', 1,2001, 1, 98, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 2,2001, 1, 99, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 3,2001, 1,100, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 11,2001, 1, 98, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 12,2001, 1, 99, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 13,2001, 1,100, 2, -7, 8, 0, 0, 0, 0, + 'TLY ', 64,2001, 1, 98, 4, -7, -8, -9, 10, 0, 0, + 'TLY ', 65,2001, 1, 99, 4, -7, -8, -9, 10, 0, 0, + 'TLY ', 66,2001, 1,100, 4, -7, -8, -9, 10, 0, 0, + 'TLY ', 17,2001, 1, 98, 6, -7, -8,-11,-12,-13, 14, + 'TLY ', 18,2001, 1, 99, 6, -7, -8,-11,-12,-13, 14, + 'TLY ', 19,2001, 1,100, 6, -7, -8,-11,-12,-13, 14, + 'TLY ', 51,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 52,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 53,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 54,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 55,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'TLY ', 56,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 800, 817)/ + 0.37317338E+07, 0.35832220E+07, 0.32478058E+07, 0.13243661E+09, + 0.12605000E+09, 0.11569924E+09, 0.13243661E+09, 0.12605000E+09, + 0.11569924E+09, 0.13243661E+09, 0.12605000E+09, 0.11569924E+09, + 0.14867839E+08, 0.13836263E+08, 0.15055187E+08, 0.95264531E+09, + 0.88369082E+09, 0.96520006E+09/ data ((index(i,j),i=1,12),j= 818, 832)/ + 'WRAB', 11,2001, 1,101, 1, 1, 0, 0, 0, 0, 0, + 'WRAB', 12,2001, 1,102, 1, 1, 0, 0, 0, 0, 0, + 'WRAB', 13,2001, 1,103, 1, 1, 0, 0, 0, 0, 0, + 'WRAB', 14,2001, 1,101, 3, -1, -2, 3, 0, 0, 0, + 'WRAB', 15,2001, 1,102, 3, -1, -2, 3, 0, 0, 0, + 'WRAB', 16,2001, 1,103, 3, -1, -2, 3, 0, 0, 0, + 'WRAB', 17,2001, 1,101, 5, -1, -2, -3, -4, 5, 0, + 'WRAB', 18,2001, 1,102, 5, -1, -2, -3, -4, 5, 0, + 'WRAB', 19,2001, 1,103, 5, -1, -2, -3, -4, 5, 0, + 'WRAB', 51,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'WRAB', 52,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'WRAB', 53,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'WRAB', 54,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'WRAB', 55,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0, + 'WRAB', 56,2001, 1, 24, 1, 6, 0, 0, 0, 0, 0/ data (fmult(j),j= 818, 832)/ + 0.16736492E+10, 0.16772490E+10, 0.16749135E+10, 0.16735532E+10, + 0.16771638E+10, 0.16748319E+10, 0.16734999E+10, 0.16771016E+10, + 0.16747770E+10, 0.69360025E+07, 0.69400000E+07, 0.69459970E+07, + 0.44937021E+09, 0.45221811E+09, 0.45048003E+09/ data ((index(i,j),i=1,12),j= 833, 841)/ + 'XPF ', 11,1994,164,104, 1, 1, 0, 0, 0, 0, 0, + 'XPF ', 12,1994,164,104, 1, 1, 0, 0, 0, 0, 0, + 'XPF ', 13,1994,164,104, 1, 1, 0, 0, 0, 0, 0, + 'XPF ', 14,1994,164,104, 3, -1, -2, 3, 0, 0, 0, + 'XPF ', 15,1994,164,104, 3, -1, -2, 3, 0, 0, 0, + 'XPF ', 16,1994,164,104, 3, -1, -2, 3, 0, 0, 0, + 'XPF ', 17,1994,164,104, 5, -1, -2, -3, -4, 5, 0, + 'XPF ', 18,1994,164,104, 5, -1, -2, -3, -4, 5, 0, + 'XPF ', 19,1994,164,104, 5, -1, -2, -3, -4, 5, 0/ data (fmult(j),j= 833, 841)/ + 0.17760000E+10, 0.17760000E+10, 0.17760000E+10, 0.17760000E+10, + 0.17760000E+10, 0.17760000E+10, 0.17760000E+10, 0.17760000E+10, + 0.17760000E+10/ data ((index(i,j),i=1,12),j= 842, 850)/ + 'XPF ', 11,2001, 1,105, 1, 1, 0, 0, 0, 0, 0, + 'XPF ', 12,2001, 1,106, 1, 1, 0, 0, 0, 0, 0, + 'XPF ', 13,2001, 1,107, 1, 1, 0, 0, 0, 0, 0, + 'XPF ', 14,2001, 1,105, 3, -1, -2, 3, 0, 0, 0, + 'XPF ', 15,2001, 1,106, 3, -1, -2, 3, 0, 0, 0, + 'XPF ', 16,2001, 1,107, 3, -1, -2, 3, 0, 0, 0, + 'XPF ', 17,2001, 1,105, 5, -1, -2, -3, -4, 5, 0, + 'XPF ', 18,2001, 1,106, 5, -1, -2, -3, -4, 5, 0, + 'XPF ', 19,2001, 1,107, 5, -1, -2, -3, -4, 5, 0/ data (fmult(j),j= 842, 850)/ + 0.16713298E+10, 0.16760467E+10, 0.16724060E+10, 0.16712799E+10, + 0.16759986E+10, 0.16723579E+10, 0.16712320E+10, 0.16759277E+10, + 0.16722868E+10/ data ((index(i,j),i=1,12),j= 851, 865)/ + 'M62 ', 1,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'M62 ', 2,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'M62 ', 3,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'M62 ', 11,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'M62 ', 12,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'M62 ', 13,2001, 1, 7, 2, -7, 8, 0, 0, 0, 0, + 'M62 ', 17,2001, 1, 7, 6, -7, -8,-11,-12,-13, 14, + 'M62 ', 18,2001, 1, 7, 6, -7, -8,-11,-12,-13, 14, + 'M62 ', 19,2001, 1, 7, 6, -7, -8,-11,-12,-13, 14, + 'M62 ', 51,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'M62 ', 52,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'M62 ', 53,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'M62 ', 54,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'M62 ', 55,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0, + 'M62 ', 56,2001, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (fmult(j),j= 851, 865)/ + 0.39321600E+07, 0.39321600E+07, 0.39321600E+07, 0.12582912E+09, + 0.12582912E+09, 0.12582912E+09, 0.12582912E+09, 0.12582912E+09, + 0.12582912E+09, 0.13107200E+08, 0.13107200E+08, 0.13107200E+08, + 0.83886080E+09, 0.83886080E+09, 0.83886080E+09/ data pi/3.14159265/ iyd_req_yd = iy*1000+id do 10 k=1,nrsp if(nsta.ne.index(1,k)) goto 10 iyd = index(3,k)*1000+index(4,k) if(iyd_req_yd.gt.iyd) goto 10 do 11 j=k,nrsp iiyd = index(3,j)*1000+index(4,j) if(iiyd.ne.iyd) goto 12 if(jchn.ne.index(2,j)) goto 11 nr=j goto 20 11 continue 10 continue 12 nz=0 np=0 fmul=1. istat=-1 return 20 continue nsen=index(5,nr) if(nsen.eq. 1) call sts1_vel_m7(zer,nz,pol,np,fmul) if(nsen.eq. 2) call sts1_mp_acc(zer,nz,pol,np,fmul) if(nsen.eq. 3) call gs13_vel(zer,nz,pol,np,fmul) if(nsen.eq. 4) call sts1_aak_1990295_Z(zer,nz,pol,np,fmul) if(nsen.eq. 5) call sts1_aak_1990295_N(zer,nz,pol,np,fmul) if(nsen.eq. 6) call sts1_aak_1990295_E(zer,nz,pol,np,fmul) if(nsen.eq. 7) call sts1_vel(zer,nz,pol,np,fmul) if(nsen.eq. 8) call sts1_abk_1993117_Z(zer,nz,pol,np,fmul) if(nsen.eq. 9) call sts1_abk_1993117_N(zer,nz,pol,np,fmul) if(nsen.eq. 10) call sts1_abk_1993117_E(zer,nz,pol,np,fmul) if(nsen.eq. 11) call sts1_ale_1992100_Z(zer,nz,pol,np,fmul) if(nsen.eq. 12) call sts1_ale_1992100_N(zer,nz,pol,np,fmul) if(nsen.eq. 13) call sts1_ale_1992100_E(zer,nz,pol,np,fmul) if(nsen.eq. 14) call lac_ale2_acc(zer,nz,pol,np,fmul) if(nsen.eq. 15) call sts1_ale_1993026_Z(zer,nz,pol,np,fmul) if(nsen.eq. 16) call sts1_ale_1993026_N(zer,nz,pol,np,fmul) if(nsen.eq. 17) call sts1_ale_1993026_E(zer,nz,pol,np,fmul) if(nsen.eq. 18) call cmg3_30_vel(zer,nz,pol,np,fmul) if(nsen.eq. 19) call sts1_5b_vel(zer,nz,pol,np,fmul) if(nsen.eq. 20) call ks54_bor_1994212_Z(zer,nz,pol,np,fmul) if(nsen.eq. 21) call ks54_bor_1994212_N(zer,nz,pol,np,fmul) if(nsen.eq. 22) call ks54_bor_1994212_E(zer,nz,pol,np,fmul) if(nsen.eq. 23) call tgks54000_mp_acc(zer,nz,pol,np,fmul) if(nsen.eq. 24) call sts2_vel(zer,nz,pol,np,fmul) if(nsen.eq. 25) call sts1_erm_1990141_Z(zer,nz,pol,np,fmul) if(nsen.eq. 26) call sts1_erm_1990141_N(zer,nz,pol,np,fmul) if(nsen.eq. 27) call sts1_erm_1990141_E(zer,nz,pol,np,fmul) if(nsen.eq. 28) call lac_erm3_acc(zer,nz,pol,np,fmul) if(nsen.eq. 29) call sts1_esk_1993132_Z(zer,nz,pol,np,fmul) if(nsen.eq. 30) call sts1_esk_1993132_N(zer,nz,pol,np,fmul) if(nsen.eq. 31) call sts1_esk_1993132_E(zer,nz,pol,np,fmul) if(nsen.eq. 32) call lac_esk3_acc(zer,nz,pol,np,fmul) if(nsen.eq. 33) call sts1_esk_1993305_Z(zer,nz,pol,np,fmul) if(nsen.eq. 34) call sts1_esk_1993305_N(zer,nz,pol,np,fmul) if(nsen.eq. 35) call sts1_esk_1993305_E(zer,nz,pol,np,fmul) if(nsen.eq. 36) call sts1_ffc_1993241_Z(zer,nz,pol,np,fmul) if(nsen.eq. 37) call sts1_ffc_1993241_N(zer,nz,pol,np,fmul) if(nsen.eq. 38) call sts1_ffc_1993241_E(zer,nz,pol,np,fmul) if(nsen.eq. 39) call sts1_lvz_1992337_Z(zer,nz,pol,np,fmul) if(nsen.eq. 40) call sts1_lvz_1992337_N(zer,nz,pol,np,fmul) if(nsen.eq. 41) call sts1_lvz_1992337_E(zer,nz,pol,np,fmul) if(nsen.eq. 42) call ks54_msv_1994147_Z(zer,nz,pol,np,fmul) if(nsen.eq. 43) call ks54_msv_1994147_N(zer,nz,pol,np,fmul) if(nsen.eq. 44) call ks54_msv_1994147_E(zer,nz,pol,np,fmul) if(nsen.eq. 45) call sts1_nna_1988335_Z(zer,nz,pol,np,fmul) if(nsen.eq. 46) call sts1_nna_1988335_N(zer,nz,pol,np,fmul) if(nsen.eq. 47) call sts1_nna_1988335_E(zer,nz,pol,np,fmul) if(nsen.eq. 48) call lac_nna9_acc(zer,nz,pol,np,fmul) if(nsen.eq. 49) call sts1_5a_vel(zer,nz,pol,np,fmul) if(nsen.eq. 50) call sts1_nri_1992351_Z(zer,nz,pol,np,fmul) if(nsen.eq. 51) call sts1_nri_1992351_N(zer,nz,pol,np,fmul) if(nsen.eq. 52) call sts1_nri_1992351_E(zer,nz,pol,np,fmul) if(nsen.eq. 53) call sts1_nvs_1992195_Z(zer,nz,pol,np,fmul) if(nsen.eq. 54) call sts1_nvs_1992195_N(zer,nz,pol,np,fmul) if(nsen.eq. 55) call sts1_nvs_1992195_E(zer,nz,pol,np,fmul) if(nsen.eq. 56) call cmg3_360_vel(zer,nz,pol,np,fmul) if(nsen.eq. 57) call sts1_pfo_1986297_Z(zer,nz,pol,np,fmul) if(nsen.eq. 58) call sts1_pfo_1986297_N(zer,nz,pol,np,fmul) if(nsen.eq. 59) call sts1_pfo_1986297_E(zer,nz,pol,np,fmul) if(nsen.eq. 60) call lac_pfo5_acc(zer,nz,pol,np,fmul) if(nsen.eq. 61) call sts1_pfo_1987153_Z(zer,nz,pol,np,fmul) if(nsen.eq. 62) call sts1_pfo_1987153_N(zer,nz,pol,np,fmul) if(nsen.eq. 63) call sts1_pfo_1987153_E(zer,nz,pol,np,fmul) if(nsen.eq. 64) call sts1_pfo_1992068_Z(zer,nz,pol,np,fmul) if(nsen.eq. 65) call sts1_pfo_1992068_N(zer,nz,pol,np,fmul) if(nsen.eq. 66) call sts1_pfo_1992068_E(zer,nz,pol,np,fmul) if(nsen.eq. 67) call sts1_pfo_1992258_Z(zer,nz,pol,np,fmul) if(nsen.eq. 68) call sts1_pfo_1992258_N(zer,nz,pol,np,fmul) if(nsen.eq. 69) call sts1_pfo_1992258_E(zer,nz,pol,np,fmul) if(nsen.eq. 70) call sts1_pfo_1993181_Z(zer,nz,pol,np,fmul) if(nsen.eq. 71) call sts1_pfo_1993181_N(zer,nz,pol,np,fmul) if(nsen.eq. 72) call sts1_pfo_1993181_E(zer,nz,pol,np,fmul) if(nsen.eq. 73) call sts1_rpn_1987166_Z(zer,nz,pol,np,fmul) if(nsen.eq. 74) call sts1_rpn_1987166_N(zer,nz,pol,np,fmul) if(nsen.eq. 75) call sts1_rpn_1987166_E(zer,nz,pol,np,fmul) if(nsen.eq. 76) call lac_rpn1_acc(zer,nz,pol,np,fmul) if(nsen.eq. 77) call sts1_rpn_1988014_Z(zer,nz,pol,np,fmul) if(nsen.eq. 78) call sts1_rpn_1988014_N(zer,nz,pol,np,fmul) if(nsen.eq. 79) call sts1_rpn_1988014_E(zer,nz,pol,np,fmul) if(nsen.eq. 80) call sts1_rpn_1990151_Z(zer,nz,pol,np,fmul) if(nsen.eq. 81) call sts1_rpn_1990151_N(zer,nz,pol,np,fmul) if(nsen.eq. 82) call sts1_rpn_1990151_E(zer,nz,pol,np,fmul) if(nsen.eq. 83) call sts1_rpn_1992344_Z(zer,nz,pol,np,fmul) if(nsen.eq. 84) call sts1_rpn_1992344_N(zer,nz,pol,np,fmul) if(nsen.eq. 85) call sts1_rpn_1992344_E(zer,nz,pol,np,fmul) if(nsen.eq. 86) call sts1_rpn_1994043_Z(zer,nz,pol,np,fmul) if(nsen.eq. 87) call sts1_rpn_1994043_N(zer,nz,pol,np,fmul) if(nsen.eq. 88) call sts1_rpn_1994043_E(zer,nz,pol,np,fmul) if(nsen.eq. 89) call sts1_sur_1990306_Z(zer,nz,pol,np,fmul) if(nsen.eq. 90) call sts1_sur_1990306_N(zer,nz,pol,np,fmul) if(nsen.eq. 91) call sts1_sur_1990306_E(zer,nz,pol,np,fmul) if(nsen.eq. 92) call sts1_sur_1992217_Z(zer,nz,pol,np,fmul) if(nsen.eq. 93) call sts1_sur_1992217_N(zer,nz,pol,np,fmul) if(nsen.eq. 94) call sts1_sur_1992217_E(zer,nz,pol,np,fmul) if(nsen.eq. 95) call sts1_tly_1990295_Z(zer,nz,pol,np,fmul) if(nsen.eq. 96) call sts1_tly_1990295_N(zer,nz,pol,np,fmul) if(nsen.eq. 97) call sts1_tly_1990295_E(zer,nz,pol,np,fmul) if(nsen.eq. 98) call sts1_tly_1992187_Z(zer,nz,pol,np,fmul) if(nsen.eq. 99) call sts1_tly_1992187_N(zer,nz,pol,np,fmul) if(nsen.eq.100) call sts1_tly_1992187_E(zer,nz,pol,np,fmul) if(nsen.eq.101) call ks54_wra_1994086_Z(zer,nz,pol,np,fmul) if(nsen.eq.102) call ks54_wra_1994086_N(zer,nz,pol,np,fmul) if(nsen.eq.103) call ks54_wra_1994086_E(zer,nz,pol,np,fmul) if(nsen.eq.104) call tgks54000_vel(zer,nz,pol,np,fmul) if(nsen.eq.105) call ks54_xpf_1994167_Z(zer,nz,pol,np,fmul) if(nsen.eq.106) call ks54_xpf_1994167_N(zer,nz,pol,np,fmul) if(nsen.eq.107) call ks54_xpf_1994167_E(zer,nz,pol,np,fmul) fmul=fmul*fmult(nr) fnorm= 0.1591549430919 kk=1 k=0 nfl=index(6,nr) do 30 i=1,nfl jfil=index(6+i,nr) ifil=abs(jfil) k=k+1 if(ifil.eq. 1) call m7_2 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq. 2) call m7_3 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq. 3) call m7_4 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq. 4) call m7_5 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq. 5) call m7_6 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq. 6) call m7_1 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq. 7) call m6_1 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq. 8) call m6_2 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq. 9) call f7_3 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.10) call f7_4 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.11) call m6_3 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.12) call m6_4 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.13) call m6_5 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.14) call m6_6 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.15) call m5_1 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.16) call m5_2 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.17) call m5_3 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.18) call m5_4 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.19) call m5_5 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.20) call m5_6 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.21) call m34_1 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.22) call f7_5 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.23) call f7_6 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.24) call m34_2 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.25) call m34_3 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.26) call m34_4 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.27) call m31_1 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.28) call m31_2 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.29) call m31_3 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.30) call m32_1 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.31) call m32_2 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.32) call m32_3 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.33) call m33_1 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.34) call m33_2 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) if(ifil.eq.35) call m33_3 + (c(kk),nlen(k),nftyp(k),dt(k),facn,gain,d,nlend) fmul=fmul*gain if(jfil.lt.0) then k=k-1 goto 30 end if if(nftyp(k).eq.4) goto 30 fmul=fmul*facn if(nftyp(k).eq.3) then jj=kk-1 do 21 j=1,nlen(k) nz=nz+1 zer(nz)=cmplx(c(jj+1),c(jj+2)) 21 jj=jj+2 jj=0 do 22 j=1,nlend np=np+1 pol(np)=cmplx(d(jj+1),d(jj+2)) 22 jj=jj+2 k=k-1 goto 30 end if if(nftyp(k).eq.2) kk=kk+nlen(k) 30 continue nfilts=k istat=0 return end complex function evres(w) complex zer,pol,s complex*16 z1,z2 common/polzer/fmul,zer(10),pol(20),nz,np,fnorm,nfilts, + nftyp( 6),nlen( 6),dt( 6),c(500) evres=cmplx(fmul,0.) if(np.eq.0) return z1=dcmplx(fmul,0.) s=cmplx(0.,w*fnorm) do 5 i=1,nz 5 z1=z1*(s+zer(i)) z2=(1.d0,0.d0) do 10 i=1,np 10 z2=z2*(s+pol(i)) evres = z1/z2 if(nfilts.eq.0) return is=1 do 40 nfil=1,nfilts if (nftyp(nfil).eq.4) then arg=0.5*w*dt(nfil) if (w.ne.0.) then n=nlen(nfil) evres = evres*sin(n*arg)/(n*sin(arg)) endif elseif(nftyp(nfil).eq.2) then n = nlen(nfil)-1 arg=w*dt(nfil) amp=c(is) do 20 j=1,n 20 amp=amp+2*c(is+j)*cos(j*arg) evres=evres*amp is=is+nlen(nfil) end if 40 continue return end subroutine idasta(nsta,flat,flon,elev,ierr) parameter (nlst= 25) dimension slat(nlst),slon(nlst),sel(nlst) character*4 slst(nlst),nsta data slat/ + 0.00000000E+00, 0.42639000E+02, 0.37930401E+02, 0.82503304E+02, + 0.56430199E+02, 0.64747398E+02, 0.42014999E+02, 0.55316700E+02, + 0.54724998E+02, 0.39000000E+02, 0.43956200E+02, 0.67897903E+02, + -0.17733299E+02,-0.11987500E+02, 0.69504898E+02, 0.54840401E+02, + 0.55113800E+02, 0.33609200E+02,-0.27126699E+02,-0.32379700E+02, + -0.42909901E+02, 0.51680698E+02,-0.19933599E+02, 0.33609200E+02, + 0.00000000E+00/ data slon/ + 0.00000000E+00, 0.74494003E+02, 0.58118900E+02,-0.62349998E+02, + 0.58562500E+02,-0.21326799E+02, 0.14315720E+03,-0.32049999E+01, + -0.10197830E+03, 0.70316704E+02, 0.42688801E+02, 0.34651402E+02, + 0.17805000E+03,-0.76842201E+02, 0.88441399E+02, 0.83234596E+02, + 0.36568699E+02,-0.11645530E+03,-0.10933440E+03, 0.20811701E+02, + 0.14732040E+03, 0.10364380E+03, 0.13436000E+03,-0.11645530E+03, + 0.00000000E+00/ data sel/ + 0.00000000E+00, 0.16450000E+04, 0.67800000E+03, 0.60000000E+02, + 0.25000000E+03, 0.11000000E+03, 0.40000000E+02, 0.24200000E+03, + 0.33800000E+03, 0.13000000E+04, 0.12100000E+04, 0.63000000E+03, + 0.78300000E+03, 0.57500000E+03, 0.92000000E+02, 0.15000000E+03, + 0.16000000E+03, 0.12800000E+04, 0.11000000E+03, 0.17700000E+04, + 0.13200000E+03, 0.57900000E+03, 0.36600000E+03, 0.12800000E+04, + 0.00000000E+00/ data slst/ + 'M72 ','AAK ','ABKT','ALE ','ARU ','BORG', + 'ERM ','ESK ','FFC ','GAR ','KIV ','LVZ ', + 'MSVF','NNA ','NRIL','NVS ','OBN ','PFO ', + 'RPN ','SUR ','TAU ','TLY ','WRAB','XPF ', + 'M62 '/ do 10 i=1,nlst in=i if(nsta(1:4).eq.slst(i)(1:4)) goto 20 10 continue ierr=1 return 20 flat=slat(in) flon=slon(in) elev=sel(in) ierr=0 return end subroutine m7_2(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.11300004E+00, 0.11035726E+00, 0.10268022E+00, 0.90692043E-01, + 0.75497419E-01, 0.58447670E-01, 0.40980395E-01, 0.24456216E-01, + 0.10014945E-01,-0.15304594E-02,-0.97505730E-02,-0.14603248E-01, + -0.16388698E-01,-0.15667032E-01,-0.13153825E-01,-0.96106110E-02, + -0.57462887E-02,-0.21413632E-02, 0.79767324E-03, 0.28523887E-02, + 0.39782883E-02, 0.42697131E-02, 0.39128880E-02, 0.31364732E-02, + 0.21675127E-02, 0.11983564E-02, 0.36708772E-03,-0.24859680E-03, + -0.62642718E-03,-0.78710180E-03,-0.77832688E-03,-0.65898790E-03, + -0.48608406E-03,-0.30591490E-03,-0.14982378E-03,-0.33899010E-04, + 0.38525595E-04, 0.72908319E-04, 0.79287849E-04, 0.68704583E-04, + 0.50734114E-04, 0.32229174E-04, 0.17089975E-04, 0.67303854E-05, + 0.87670088E-06,-0.16036082E-05,-0.20403731E-05,-0.15494164E-05, + -0.86290947E-06,-0.33774117E-06/ len= 50 itype=2 dt= 0.100000E-01 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m7_3(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.16299985E+00, 0.15555710E+00, 0.13453104E+00, 0.10354355E+00, + 0.67742996E-01, 0.32710578E-01, 0.33299446E-02,-0.17111374E-01, + -0.27395535E-01,-0.28348196E-01,-0.22368388E-01,-0.12675146E-01, + -0.24844368E-02, 0.56780144E-02, 0.10384548E-01, 0.11381480E-01, + 0.93732113E-02, 0.56225494E-02, 0.15036166E-02,-0.18697215E-02, + -0.38609912E-02,-0.43522241E-02,-0.36394005E-02,-0.22452185E-02, + -0.72021695E-03, 0.51047845E-03, 0.12244983E-02, 0.14024851E-02, + 0.11723959E-02, 0.72938186E-03, 0.26116672E-03,-0.10127033E-03, + -0.30113748E-03,-0.34629990E-03,-0.28426942E-03,-0.17428875E-03, + -0.65897169E-04, 0.11769820E-04, 0.50502884E-04, 0.56949910E-04, + 0.44366410E-04, 0.25673242E-04, 0.95523183E-05,-0.37857737E-06, + -0.43385139E-05,-0.44187186E-05,-0.29020005E-05,-0.13412532E-05, + -0.37839487E-06,-0.11135881E-07/ len= 50 itype=2 dt= 0.500000E-01 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m7_4(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.11300004E+00, 0.11035726E+00, 0.10268022E+00, 0.90692043E-01, + 0.75497419E-01, 0.58447670E-01, 0.40980395E-01, 0.24456216E-01, + 0.10014945E-01,-0.15304594E-02,-0.97505730E-02,-0.14603248E-01, + -0.16388698E-01,-0.15667032E-01,-0.13153825E-01,-0.96106110E-02, + -0.57462887E-02,-0.21413632E-02, 0.79767324E-03, 0.28523887E-02, + 0.39782883E-02, 0.42697131E-02, 0.39128880E-02, 0.31364732E-02, + 0.21675127E-02, 0.11983564E-02, 0.36708772E-03,-0.24859680E-03, + -0.62642718E-03,-0.78710180E-03,-0.77832688E-03,-0.65898790E-03, + -0.48608406E-03,-0.30591490E-03,-0.14982378E-03,-0.33899010E-04, + 0.38525595E-04, 0.72908319E-04, 0.79287849E-04, 0.68704583E-04, + 0.50734114E-04, 0.32229174E-04, 0.17089975E-04, 0.67303854E-05, + 0.87670088E-06,-0.16036082E-05,-0.20403731E-05,-0.15494164E-05, + -0.86290947E-06,-0.33774117E-06/ len= 50 itype=2 dt= 0.200000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m7_5(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.11300004E+00, 0.11035726E+00, 0.10268022E+00, 0.90692043E-01, + 0.75497419E-01, 0.58447670E-01, 0.40980395E-01, 0.24456216E-01, + 0.10014945E-01,-0.15304594E-02,-0.97505730E-02,-0.14603248E-01, + -0.16388698E-01,-0.15667032E-01,-0.13153825E-01,-0.96106110E-02, + -0.57462887E-02,-0.21413632E-02, 0.79767324E-03, 0.28523887E-02, + 0.39782883E-02, 0.42697131E-02, 0.39128880E-02, 0.31364732E-02, + 0.21675127E-02, 0.11983564E-02, 0.36708772E-03,-0.24859680E-03, + -0.62642718E-03,-0.78710180E-03,-0.77832688E-03,-0.65898790E-03, + -0.48608406E-03,-0.30591490E-03,-0.14982378E-03,-0.33899010E-04, + 0.38525595E-04, 0.72908319E-04, 0.79287849E-04, 0.68704583E-04, + 0.50734114E-04, 0.32229174E-04, 0.17089975E-04, 0.67303854E-05, + 0.87670088E-06,-0.16036082E-05,-0.20403731E-05,-0.15494164E-05, + -0.86290947E-06,-0.33774117E-06/ len= 50 itype=2 dt= 1.00000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m7_6(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 21),c(1),d(1) data coffs/ + 0.23275641E+00, 0.20934752E+00, 0.14890355E+00, 0.75302809E-01, + 0.13774856E-01,-0.20920461E-01,-0.28694613E-01,-0.19853443E-01, + -0.68529546E-02, 0.21754422E-02, 0.51900707E-02, 0.41600782E-02, + 0.19367830E-02, 0.29304711E-03,-0.37243144E-03,-0.40538335E-03, + -0.23645106E-03,-0.94766743E-04,-0.26578929E-04,-0.48280103E-05, + -0.43727755E-06/ len= 21 itype=2 dt= 5.00000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m7_1(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.37200001E+00, 0.29101419E+00, 0.11168293E+00,-0.35650596E-01, + -0.71575172E-01,-0.22974836E-01, 0.27802804E-01, 0.30997274E-01, + 0.19424851E-02,-0.18028757E-01,-0.12243479E-01, 0.35106635E-02, + 0.93550691E-02, 0.34802831E-02,-0.31425485E-02,-0.35442421E-02, + -0.37133388E-03, 0.13232210E-02, 0.70449471E-03,-0.75544354E-04, + 0.59491762E-09, 0.13171938E-03,-0.20749567E-03,-0.44535787E-03, + -0.10616885E-03, 0.37109808E-03, 0.36099885E-03,-0.51007893E-04, + -0.30298313E-03,-0.15903618E-03, 0.98520206E-04, 0.15660311E-03, + 0.34813886E-04,-0.64198000E-04,-0.51921699E-04, 0.23978043E-05, + 0.22263150E-04, 0.90464100E-05,-0.27374349E-05,-0.23849568E-05, + 0.28673062E-11,-0.81747555E-06,-0.14090342E-05,-0.18355150E-07, + 0.10930910E-05, 0.63431310E-06,-0.19681980E-06,-0.33418695E-06, + -0.73986605E-07, 0.44124587E-07/ len= 50 itype=2 dt= 0.500000E-02 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m6_1(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.13589740E+00, 0.13157299E+00, 0.11912785E+00, 0.10006469E+00, + 0.76631099E-01, 0.51481772E-01, 0.27291238E-01, 0.63826144E-02, + -0.95674107E-02,-0.19703507E-01,-0.24026051E-01,-0.23290368E-01, + -0.18799577E-01,-0.12135953E-01,-0.48823529E-02, 0.16182240E-02, + 0.64289947E-02, 0.90932054E-02, 0.96159391E-02, 0.83710467E-02, + 0.59615779E-02, 0.30664010E-02, 0.30313138E-03,-0.18704853E-02, + -0.32056957E-02,-0.36627178E-02,-0.33713991E-02,-0.25681786E-02, + -0.15266030E-02,-0.49646187E-03, 0.33827565E-03, 0.87851897E-03, + 0.11075765E-02, 0.10727526E-02, 0.85872185E-03, 0.56023343E-03, + 0.26015169E-03, 0.16016540E-04,-0.14415676E-03,-0.21858257E-03, + -0.22368947E-03,-0.18458001E-03,-0.12660954E-03,-0.69640017E-04, + -0.25512856E-04, 0.16890525E-05, 0.13612936E-04, 0.14936732E-04, + 0.10901536E-04, 0.66746647E-05/ len= 50 itype=2 dt= 0.500000E-02 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m6_2(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 21),c(1),d(1) data coffs/ + 0.34056863E+00, 0.27632624E+00, 0.12863098E+00,-0.65230946E-02, + -0.61067827E-01,-0.39416119E-01, 0.47650100E-02, 0.25135430E-01, + 0.15370361E-01,-0.27527749E-02,-0.10084110E-01,-0.55478862E-02, + 0.11959823E-02, 0.33718674E-02, 0.16403047E-02,-0.34987411E-03, + -0.81571308E-03,-0.34702671E-03, 0.47474408E-04, 0.10258167E-03, + 0.33870405E-04/ len= 21 itype=2 dt= 0.250000E-01 gain= 4.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine f7_3(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.16299985E+00, 0.15555710E+00, 0.13453104E+00, 0.10354355E+00, + 0.67742996E-01, 0.32710578E-01, 0.33299446E-02,-0.17111374E-01, + -0.27395535E-01,-0.28348196E-01,-0.22368388E-01,-0.12675146E-01, + -0.24844368E-02, 0.56780144E-02, 0.10384548E-01, 0.11381480E-01, + 0.93732113E-02, 0.56225494E-02, 0.15036166E-02,-0.18697215E-02, + -0.38609912E-02,-0.43522241E-02,-0.36394005E-02,-0.22452185E-02, + -0.72021695E-03, 0.51047845E-03, 0.12244983E-02, 0.14024851E-02, + 0.11723959E-02, 0.72938186E-03, 0.26116672E-03,-0.10127033E-03, + -0.30113748E-03,-0.34629990E-03,-0.28426942E-03,-0.17428875E-03, + -0.65897169E-04, 0.11769820E-04, 0.50502884E-04, 0.56949910E-04, + 0.44366410E-04, 0.25673242E-04, 0.95523183E-05,-0.37857737E-06, + -0.43385139E-05,-0.44187186E-05,-0.29020005E-05,-0.13412532E-05, + -0.37839487E-06,-0.11135881E-07/ len= 50 itype=2 dt= 0.500000E-01 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine f7_4(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.11300004E+00, 0.11035726E+00, 0.10268022E+00, 0.90692043E-01, + 0.75497419E-01, 0.58447670E-01, 0.40980395E-01, 0.24456216E-01, + 0.10014945E-01,-0.15304594E-02,-0.97505730E-02,-0.14603248E-01, + -0.16388698E-01,-0.15667032E-01,-0.13153825E-01,-0.96106110E-02, + -0.57462887E-02,-0.21413632E-02, 0.79767324E-03, 0.28523887E-02, + 0.39782883E-02, 0.42697131E-02, 0.39128880E-02, 0.31364732E-02, + 0.21675127E-02, 0.11983564E-02, 0.36708772E-03,-0.24859680E-03, + -0.62642718E-03,-0.78710180E-03,-0.77832688E-03,-0.65898790E-03, + -0.48608406E-03,-0.30591490E-03,-0.14982378E-03,-0.33899010E-04, + 0.38525595E-04, 0.72908319E-04, 0.79287849E-04, 0.68704583E-04, + 0.50734114E-04, 0.32229174E-04, 0.17089975E-04, 0.67303854E-05, + 0.87670088E-06,-0.16036082E-05,-0.20403731E-05,-0.15494164E-05, + -0.86290947E-06,-0.33774117E-06/ len= 50 itype=2 dt= 0.200000 gain= 4.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m6_3(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.13589740E+00, 0.13157299E+00, 0.11912785E+00, 0.10006469E+00, + 0.76631099E-01, 0.51481772E-01, 0.27291238E-01, 0.63826144E-02, + -0.95674107E-02,-0.19703507E-01,-0.24026051E-01,-0.23290368E-01, + -0.18799577E-01,-0.12135953E-01,-0.48823529E-02, 0.16182240E-02, + 0.64289947E-02, 0.90932054E-02, 0.96159391E-02, 0.83710467E-02, + 0.59615779E-02, 0.30664010E-02, 0.30313138E-03,-0.18704853E-02, + -0.32056957E-02,-0.36627178E-02,-0.33713991E-02,-0.25681786E-02, + -0.15266030E-02,-0.49646187E-03, 0.33827565E-03, 0.87851897E-03, + 0.11075765E-02, 0.10727526E-02, 0.85872185E-03, 0.56023343E-03, + 0.26015169E-03, 0.16016540E-04,-0.14415676E-03,-0.21858257E-03, + -0.22368947E-03,-0.18458001E-03,-0.12660954E-03,-0.69640017E-04, + -0.25512856E-04, 0.16890525E-05, 0.13612936E-04, 0.14936732E-04, + 0.10901536E-04, 0.66746647E-05/ len= 50 itype=2 dt= 0.500000E-01 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m6_4(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 41),c(1),d(1) data coffs/ + 0.17023775E+00, 0.16180147E+00, 0.13808872E+00, 0.10350768E+00, + 0.64242624E-01, 0.26840705E-01,-0.32052291E-02,-0.22521604E-01, + -0.30324927E-01,-0.28233398E-01,-0.19535629E-01,-0.81661260E-02, + 0.23127547E-02, 0.94625046E-02, 0.12302215E-01, 0.11209484E-01, + 0.74946671E-02, 0.28264341E-02,-0.13049371E-02,-0.39472450E-02, + -0.48088292E-02,-0.41649244E-02,-0.26272694E-02,-0.87814347E-03, + 0.54378289E-03, 0.13558622E-02, 0.15360909E-02, 0.12487576E-02, + 0.73671719E-03, 0.22355115E-03,-0.14678264E-03,-0.32553618E-03, + -0.33952057E-03,-0.25441672E-03,-0.13899681E-03,-0.41847117E-04, + 0.16037582E-04, 0.36303489E-04, 0.32444812E-04, 0.19486770E-04, + 0.81814633E-05/ len= 41 itype=2 dt= 0.250000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m6_5(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.13589740E+00, 0.13157299E+00, 0.11912785E+00, 0.10006469E+00, + 0.76631099E-01, 0.51481772E-01, 0.27291238E-01, 0.63826144E-02, + -0.95674107E-02,-0.19703507E-01,-0.24026051E-01,-0.23290368E-01, + -0.18799577E-01,-0.12135953E-01,-0.48823529E-02, 0.16182240E-02, + 0.64289947E-02, 0.90932054E-02, 0.96159391E-02, 0.83710467E-02, + 0.59615779E-02, 0.30664010E-02, 0.30313138E-03,-0.18704853E-02, + -0.32056957E-02,-0.36627178E-02,-0.33713991E-02,-0.25681786E-02, + -0.15266030E-02,-0.49646187E-03, 0.33827565E-03, 0.87851897E-03, + 0.11075765E-02, 0.10727526E-02, 0.85872185E-03, 0.56023343E-03, + 0.26015169E-03, 0.16016540E-04,-0.14415676E-03,-0.21858257E-03, + -0.22368947E-03,-0.18458001E-03,-0.12660954E-03,-0.69640017E-04, + -0.25512856E-04, 0.16890525E-05, 0.13612936E-04, 0.14936732E-04, + 0.10901536E-04, 0.66746647E-05/ len= 50 itype=2 dt= 1.00000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m6_6(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 11),c(1),d(1) data coffs/ + 0.22139060E+00, 0.19820645E+00, 0.13974707E+00, 0.71856819E-01, + 0.18936357E-01,-0.84646419E-02,-0.14553057E-01,-0.10265859E-01, + -0.46313540E-02,-0.13321469E-02,-0.19494264E-03/ len= 11 itype=2 dt= 5.00000 gain= 8.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m5_1(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.14112057E+00, 0.13635285E+00, 0.12265931E+00, 0.10177065E+00, + 0.76266430E-01, 0.49170628E-01, 0.23495236E-01, 0.18047849E-02, + -0.14114960E-01,-0.23456197E-01,-0.26397107E-01,-0.23968704E-01, + -0.17789593E-01,-0.97306231E-02,-0.15935753E-02, 0.51701134E-02, + 0.96365307E-02, 0.11465339E-01, 0.10855736E-01, 0.84063141E-02, + 0.49308767E-02, 0.12722579E-02,-0.18648440E-02,-0.40129684E-02, + -0.49869320E-02,-0.48568035E-02,-0.38868440E-02,-0.24404135E-02, + -0.89188153E-03, 0.45244675E-03, 0.13943785E-02, 0.18588379E-02, + 0.18798588E-02, 0.15665488E-02, 0.10660542E-02, 0.51951362E-03, + 0.40039420E-04,-0.30530151E-03,-0.49548969E-03,-0.54453826E-03, + -0.49048429E-03,-0.37937472E-03,-0.25224872E-03,-0.13913726E-03, + -0.56055374E-04,-0.50044619E-05, 0.17016660E-04, 0.21020416E-04, + 0.16015489E-04, 0.10009389E-04/ len= 50 itype=2 dt= 0.500000E-02 gain= 0.999011 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m5_2(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 21),c(1),d(1) data coffs/ + 0.35429177E+00, 0.28317687E+00, 0.12216854E+00,-0.18981649E-01, + -0.66946559E-01,-0.34120139E-01, 0.14414086E-01, 0.29519562E-01, + 0.11868658E-01,-0.89550233E-02,-0.12899237E-01,-0.37971297E-02, + 0.43794569E-02, 0.48827394E-02, 0.10595941E-02,-0.15928927E-02, + -0.15128483E-02,-0.37220819E-03, 0.25614304E-03, 0.23813313E-03, + 0.68037305E-04/ len= 21 itype=2 dt= 0.250000E-01 gain= 3.99776 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m5_3(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.14112057E+00, 0.13635285E+00, 0.12265931E+00, 0.10177065E+00, + 0.76266430E-01, 0.49170628E-01, 0.23495236E-01, 0.18047849E-02, + -0.14114960E-01,-0.23456197E-01,-0.26397107E-01,-0.23968704E-01, + -0.17789593E-01,-0.97306231E-02,-0.15935753E-02, 0.51701134E-02, + 0.96365307E-02, 0.11465339E-01, 0.10855736E-01, 0.84063141E-02, + 0.49308767E-02, 0.12722579E-02,-0.18648440E-02,-0.40129684E-02, + -0.49869320E-02,-0.48568035E-02,-0.38868440E-02,-0.24404135E-02, + -0.89188153E-03, 0.45244675E-03, 0.13943785E-02, 0.18588379E-02, + 0.18798588E-02, 0.15665488E-02, 0.10660542E-02, 0.51951362E-03, + 0.40039420E-04,-0.30530151E-03,-0.49548969E-03,-0.54453826E-03, + -0.49048429E-03,-0.37937472E-03,-0.25224872E-03,-0.13913726E-03, + -0.56055374E-04,-0.50044619E-05, 0.17016660E-04, 0.21020416E-04, + 0.16015489E-04, 0.10009389E-04/ len= 50 itype=2 dt= 0.500000E-01 gain= 0.999011 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m5_4(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.14112057E+00, 0.13635285E+00, 0.12265931E+00, 0.10177065E+00, + 0.76266430E-01, 0.49170628E-01, 0.23495236E-01, 0.18047849E-02, + -0.14114960E-01,-0.23456197E-01,-0.26397107E-01,-0.23968704E-01, + -0.17789593E-01,-0.97306231E-02,-0.15935753E-02, 0.51701134E-02, + 0.96365307E-02, 0.11465339E-01, 0.10855736E-01, 0.84063141E-02, + 0.49308767E-02, 0.12722579E-02,-0.18648440E-02,-0.40129684E-02, + -0.49869320E-02,-0.48568035E-02,-0.38868440E-02,-0.24404135E-02, + -0.89188153E-03, 0.45244675E-03, 0.13943785E-02, 0.18588379E-02, + 0.18798588E-02, 0.15665488E-02, 0.10660542E-02, 0.51951362E-03, + 0.40039420E-04,-0.30530151E-03,-0.49548969E-03,-0.54453826E-03, + -0.49048429E-03,-0.37937472E-03,-0.25224872E-03,-0.13913726E-03, + -0.56055374E-04,-0.50044619E-05, 0.17016660E-04, 0.21020416E-04, + 0.16015489E-04, 0.10009389E-04/ len= 50 itype=2 dt= 0.250000 gain= 0.999011 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m5_5(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 41),c(1),d(1) data coffs/ + 0.17736416E+00, 0.16797240E+00, 0.14166774E+00, 0.10360337E+00, + 0.60946222E-01, 0.21172445E-01,-0.96209273E-02,-0.27944025E-01, + -0.33392515E-01,-0.28320335E-01,-0.16873904E-01,-0.37040515E-02, + 0.72389650E-02, 0.13536153E-01, 0.14590022E-01, 0.11368368E-01, + 0.57877689E-02,-0.32025855E-04,-0.44146376E-02,-0.64943512E-02, + -0.62681651E-02,-0.43926192E-02,-0.18215007E-02, 0.54044509E-03, + 0.20937244E-02, 0.26361714E-02, 0.23129052E-02, 0.14752150E-02, + 0.51542465E-03,-0.26321644E-03,-0.70958398E-03,-0.81867399E-03, + -0.68456354E-03,-0.44036238E-03,-0.19716192E-03,-0.22017397E-04, + 0.67054760E-04, 0.87071676E-04, 0.68055466E-04, 0.38031023E-04, + 0.15011989E-04/ len= 41 itype=2 dt= 1.25000 gain= 0.999176 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m5_6(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 21),c(1),d(1) data coffs/ + 0.35429177E+00, 0.28317687E+00, 0.12216854E+00,-0.18981649E-01, + -0.66946559E-01,-0.34120139E-01, 0.14414086E-01, 0.29519562E-01, + 0.11868658E-01,-0.89550233E-02,-0.12899237E-01,-0.37971297E-02, + 0.43794569E-02, 0.48827394E-02, 0.10595941E-02,-0.15928927E-02, + -0.15128483E-02,-0.37220819E-03, 0.25614304E-03, 0.23813313E-03, + 0.68037305E-04/ len= 21 itype=2 dt= 5.00000 gain= 7.99551 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m34_1(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 28),c(1),d(1) data coffs/ + 0.25000000E+00, 0.22312708E+00, 0.15386963E+00, 0.69594301E-01, + 0.00000000E+00,-0.36380511E-01,-0.38970947E-01,-0.21120567E-01, + 0.00000000E+00, 0.12319129E-01, 0.13092041E-01, 0.68991818E-02, + 0.00000000E+00,-0.36390536E-02,-0.35400391E-02,-0.16644709E-02, + 0.00000000E+00, 0.70454180E-03, 0.54931641E-03, 0.18147379E-03, + 0.00000000E+00,-0.35502017E-04, 0.00000000E+00, 0.20988286E-04, + 0.00000000E+00,-0.77784061E-05, 0.00000000E+00, 0.12069941E-05/ len= 28 itype=2 dt= 0.500000E-01 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine f7_5(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 50),c(1),d(1) data coffs/ + 0.11300004E+00, 0.11035726E+00, 0.10268022E+00, 0.90692043E-01, + 0.75497419E-01, 0.58447670E-01, 0.40980395E-01, 0.24456216E-01, + 0.10014945E-01,-0.15304594E-02,-0.97505730E-02,-0.14603248E-01, + -0.16388698E-01,-0.15667032E-01,-0.13153825E-01,-0.96106110E-02, + -0.57462887E-02,-0.21413632E-02, 0.79767324E-03, 0.28523887E-02, + 0.39782883E-02, 0.42697131E-02, 0.39128880E-02, 0.31364732E-02, + 0.21675127E-02, 0.11983564E-02, 0.36708772E-03,-0.24859680E-03, + -0.62642718E-03,-0.78710180E-03,-0.77832688E-03,-0.65898790E-03, + -0.48608406E-03,-0.30591490E-03,-0.14982378E-03,-0.33899010E-04, + 0.38525595E-04, 0.72908319E-04, 0.79287849E-04, 0.68704583E-04, + 0.50734114E-04, 0.32229174E-04, 0.17089975E-04, 0.67303854E-05, + 0.87670088E-06,-0.16036082E-05,-0.20403731E-05,-0.15494164E-05, + -0.86290947E-06,-0.33774117E-06/ len= 50 itype=2 dt= 1.00000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine f7_6(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 21),c(1),d(1) data coffs/ + 0.23275641E+00, 0.20934752E+00, 0.14890355E+00, 0.75302809E-01, + 0.13774856E-01,-0.20920461E-01,-0.28694613E-01,-0.19853443E-01, + -0.68529546E-02, 0.21754422E-02, 0.51900707E-02, 0.41600782E-02, + 0.19367830E-02, 0.29304711E-03,-0.37243144E-03,-0.40538335E-03, + -0.23645106E-03,-0.94766743E-04,-0.26578929E-04,-0.48280103E-05, + -0.43727755E-06/ len= 21 itype=2 dt= 5.00000 gain= 2.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m34_2(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 10),c(1),d(1) data coffs/ + 0.50000000E+00, 0.30773926E+00, 0.00000000E+00,-0.77941895E-01, + 0.00000000E+00, 0.26184082E-01, 0.00000000E+00,-0.70800781E-02, + 0.00000000E+00, 0.10986328E-02/ len= 10 itype=2 dt= 0.200000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m34_3(zer,nzer,itype,dt,facn,gain,pol,npol) complex zero( 4),zer(1),pole( 4),pol(1) data zero/ + ( 0.4985663E-08, 0.5388043E-01),( 0.4985663E-08,-0.5388043E-01), + (-0.1741515E-07, 0.1265422E+00),(-0.1741515E-07,-0.1265422E+00)/ data pole/ + ( 0.2747812E-02, 0.1696478E-01),( 0.2747812E-02,-0.1696478E-01), + ( 0.7188461E-02, 0.7301017E-02),( 0.7188461E-02,-0.7301017E-02)/ nzer= 4 npol= 4 itype=3 facn= 0.666979E-03 gain= 10.0000 dt= 0.400000 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine m34_4(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 13),c(1),d(1) data coffs/ + 0.39999999E-01, 0.39999999E-01, 0.39999999E-01, 0.39999999E-01, + 0.39999999E-01, 0.39999999E-01, 0.39999999E-01, 0.39999999E-01, + 0.39999999E-01, 0.39999999E-01, 0.39999999E-01, 0.39999999E-01, + 0.39999999E-01/ len= 13 itype=2 dt= 0.400000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m31_1(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 46),c(1),d(1) data coffs/ + 0.12500000E+00, 0.12184715E+00, 0.11268616E+00, 0.96612543E-01, + 0.76934814E-01, 0.56363732E-01, 0.35788059E-01, 0.16496241E-01, + 0.00000000E+00,-0.11583865E-01,-0.18782139E-01,-0.20764083E-01, + -0.19485474E-01,-0.16639739E-01,-0.12183189E-01,-0.59922934E-02, + 0.00000000E+00, 0.35661459E-02, 0.57134628E-02, 0.66426694E-02, + 0.65460205E-02, 0.56046546E-02, 0.40526390E-02, 0.19745231E-02, + 0.00000000E+00,-0.10790229E-02,-0.16646385E-02,-0.18647015E-02, + -0.17700195E-02,-0.14972389E-02,-0.10766983E-02,-0.51558018E-03, + 0.00000000E+00, 0.23519993E-03, 0.32901764E-03, 0.32937527E-03, + 0.27465820E-03, 0.22566319E-03, 0.16307831E-03, 0.76174736E-04, + 0.00000000E+00,-0.24676323E-04,-0.25749207E-04,-0.14483929E-04, + 0.00000000E+00, 0.16093254E-05/ len= 46 itype=2 dt= 0.500000E-01 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m31_2(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 3),c(1),d(1) data coffs/ + 0.20000000E+00, 0.20000000E+00, 0.20000000E+00/ len= 3 itype=2 dt= 0.400000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m31_3(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 46),c(1),d(1) data coffs/ + 0.12500000E+00, 0.12184715E+00, 0.11268616E+00, 0.96612543E-01, + 0.76934814E-01, 0.56363732E-01, 0.35788059E-01, 0.16496241E-01, + 0.00000000E+00,-0.11583865E-01,-0.18782139E-01,-0.20764083E-01, + -0.19485474E-01,-0.16639739E-01,-0.12183189E-01,-0.59922934E-02, + 0.00000000E+00, 0.35661459E-02, 0.57134628E-02, 0.66426694E-02, + 0.65460205E-02, 0.56046546E-02, 0.40526390E-02, 0.19745231E-02, + 0.00000000E+00,-0.10790229E-02,-0.16646385E-02,-0.18647015E-02, + -0.17700195E-02,-0.14972389E-02,-0.10766983E-02,-0.51558018E-03, + 0.00000000E+00, 0.23519993E-03, 0.32901764E-03, 0.32937527E-03, + 0.27465820E-03, 0.22566319E-03, 0.16307831E-03, 0.76174736E-04, + 0.00000000E+00,-0.24676323E-04,-0.25749207E-04,-0.14483929E-04, + 0.00000000E+00, 0.16093254E-05/ len= 46 itype=2 dt= 2.00000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m32_1(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 22),c(1),d(1) data coffs/ + 0.25000000E+00, 0.21755981E+00, 0.15386963E+00, 0.73362350E-01, + 0.00000000E+00,-0.31538010E-01,-0.38970947E-01,-0.22739410E-01, + 0.00000000E+00, 0.97999573E-02, 0.13092041E-01, 0.75855255E-02, + 0.00000000E+00,-0.28095245E-02,-0.35400391E-02,-0.20256042E-02, + 0.00000000E+00, 0.53024292E-03, 0.54931641E-03, 0.30899048E-03, + 0.00000000E+00,-0.34332275E-04/ len= 22 itype=2 dt= 0.500000E-01 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m32_2(c,len,itype,dt,facn,gain,d,lend) len= 10 itype=4 dt= 0.200000 facn= 1.00000 gain= 1.00000 lend=0 return end subroutine m32_3(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 30),c(1),d(1) data coffs/ + 0.12500000E+00, 0.12151147E+00, 0.11179100E+00, 0.95189445E-01, + 0.75144507E-01, 0.54625407E-01, 0.34388546E-01, 0.15677214E-01, + 0.00000000E+00,-0.10427486E-01,-0.16483020E-01,-0.17604232E-01, + -0.15895953E-01,-0.13391748E-01,-0.97430451E-02,-0.47007650E-02, + 0.00000000E+00, 0.23299200E-02, 0.34207911E-02, 0.36324738E-02, + 0.32514450E-02, 0.27010702E-02, 0.19305454E-02, 0.90176793E-03, + 0.00000000E+00,-0.29212201E-03,-0.30482298E-03,-0.17146292E-03, + 0.00000000E+00, 0.19051437E-04/ len= 30 itype=2 dt= 2.00000 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m33_1(c,len,itype,dt,facn,gain,d,lend) dimension coffs( 22),c(1),d(1) data coffs/ + 0.25000000E+00, 0.21755981E+00, 0.15386963E+00, 0.73362350E-01, + 0.00000000E+00,-0.31538010E-01,-0.38970947E-01,-0.22739410E-01, + 0.00000000E+00, 0.97999573E-02, 0.13092041E-01, 0.75855255E-02, + 0.00000000E+00,-0.28095245E-02,-0.35400391E-02,-0.20256042E-02, + 0.00000000E+00, 0.53024292E-03, 0.54931641E-03, 0.30899048E-03, + 0.00000000E+00,-0.34332275E-04/ len= 22 itype=2 dt= 0.500000E-01 gain= 1.00000 lend=0 facn= 1.00000 do 10 i=1,len 10 c(i)=coffs(i) return end subroutine m33_2(zer,nzer,itype,dt,facn,gain,pol,npol) complex zero( 4),zer(1),pole( 4),pol(1) data zero/ + (-0.2978397E-07, 0.5388859E-01),(-0.2978397E-07,-0.5388859E-01), + (-0.3618465E-07, 0.1272162E+00),(-0.3618465E-07,-0.1272162E+00)/ data pole/ + ( 0.2748144E-02, 0.1696474E-01),( 0.2748144E-02,-0.1696474E-01), + ( 0.7188193E-02, 0.7300449E-02),( 0.7188193E-02,-0.7300449E-02)/ nzer= 4 npol= 4 itype=3 facn= 0.659655E-03 gain= 9.44061 dt= 0.200000 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine m33_3(c,len,itype,dt,facn,gain,d,lend) len= 50 itype=4 dt= 0.200000 facn= 1.00000 gain= 1.00000 lend=0 return end subroutine sts1_vel_m7(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 8),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964186E-02,-0.1964185E-02),( 0.1964186E-02, 0.1964185E-02), + ( 0.2371364E-01, 0.0000000E+00),( 0.2494686E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.5399263E+01, 0.0000000E+00),( 0.1891577E+02, 0.0000000E+00)/ nzer= 5 npol= 8 fmul= 820.459 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_mp_acc(zer,nzer,pol,npol,fmul) complex zero( 1),zer(1),pole( 2),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1964180E-02,-0.1964180E-02),( 0.1964180E-02, 0.1964180E-02)/ nzer= 1 npol= 2 fmul= 0.484814E-04 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine gs13_vel(zer,nzer,pol,npol,fmul) complex zero( 2),zer(1),pole( 8),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.7071000E+00,-0.7071000E+00),( 0.7071000E+00, 0.7071000E+00), + ( 0.4830000E+02,-0.1292700E+02),( 0.4830000E+02, 0.1292700E+02), + ( 0.3535500E+02,-0.3535500E+02),( 0.3535500E+02, 0.3535500E+02), + ( 0.1294000E+02,-0.4829600E+02),( 0.1294000E+02, 0.4829600E+02)/ nzer= 2 npol= 8 fmul= 0.156250E+11 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_aak_1990295_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1271000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1982088E-02,-0.1946405E-02),( 0.1982088E-02, 0.1946405E-02), + ( 0.2131326E-01, 0.0000000E+00),( 0.2753009E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 12 fmul= 0.122441E+12 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_aak_1990295_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1225000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964186E-02,-0.1964185E-02),( 0.1964186E-02, 0.1964185E-02), + ( 0.2371364E-01, 0.0000000E+00),( 0.2494686E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 12 fmul= 0.128083E+12 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_aak_1990295_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1232000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2015017E-02,-0.1874913E-02),( 0.2015017E-02, 0.1874913E-02), + ( 0.2436485E-01,-0.9121282E-03),( 0.2436485E-01, 0.9121282E-03), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 12 fmul= 0.127979E+12 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_vel(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 10),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00)/ data pole/ + ( 0.1964185E-02,-0.1964185E-02),( 0.1964185E-02, 0.1964185E-02), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 3 npol= 10 fmul= 0.125000E+12 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_abk_1993117_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1275000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1970497E-02,-0.1958292E-02),( 0.1970497E-02, 0.1958292E-02), + ( 0.2246880E-01, 0.0000000E+00),( 0.2629995E-01, 0.0000000E+00), + ( 0.6516200E+01,-0.8246165E+01),( 0.6516200E+01, 0.8246165E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.950479E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_abk_1993117_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1253000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1965763E-02,-0.1966912E-02),( 0.1965763E-02, 0.1966912E-02), + ( 0.2221537E-01, 0.0000000E+00),( 0.2644546E-01, 0.0000000E+00), + ( 0.6410670E+01,-0.8049063E+01),( 0.6410670E+01, 0.8049063E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.118506E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_abk_1993117_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1256000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1966234E-02,-0.1968497E-02),( 0.1966234E-02, 0.1968497E-02), + ( 0.2257518E-01, 0.0000000E+00),( 0.2600379E-01, 0.0000000E+00), + ( 0.6448000E+01,-0.8159859E+01),( 0.6448000E+01, 0.8159859E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.120671E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ale_1992100_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1969362E-02,-0.1961053E-02),( 0.1969362E-02, 0.1961053E-02), + ( 0.2059742E-01, 0.0000000E+00),( 0.2866991E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.877085E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ale_1992100_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1253000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1961155E-02,-0.1972859E-02),( 0.1961155E-02, 0.1972859E-02), + ( 0.2431544E-01,-0.1088236E-02),( 0.2431544E-01, 0.1088236E-02), + ( 0.6985439E+01,-0.7847272E+01),( 0.6985439E+01, 0.7847272E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.124570E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ale_1992100_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1265000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1966893E-02,-0.1963594E-02),( 0.1966893E-02, 0.1963594E-02), + ( 0.2287489E-01, 0.0000000E+00),( 0.2587581E-01, 0.0000000E+00), + ( 0.7080500E+01,-0.7921941E+01),( 0.7080500E+01, 0.7921941E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.126089E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine lac_ale2_acc(zer,nzer,pol,npol,fmul) complex zero( 4),zer(1),pole( 13),pol(1) data zero/ + ( 0.2160900E-01, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1541000E-01, 0.0000000E+00),( 0.3815800E-01,-0.3697200E-01), + ( 0.3815800E-01, 0.3697200E-01),( 0.1722100E+00,-0.9385200E-01), + ( 0.1722100E+00, 0.9385200E-01),( 0.7410500E-02,-0.1536700E-01), + ( 0.7410500E-02, 0.1536700E-01),( 0.8494500E-02,-0.1274200E-01), + ( 0.8494500E-02, 0.1274200E-01),( 0.1262100E-01, 0.0000000E+00), + ( 0.2699700E-01, 0.0000000E+00),( 0.2343700E-03,-0.1352000E-03), + ( 0.2343700E-03, 0.1352000E-03)/ nzer= 4 npol= 13 fmul= 0.719985E-15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ale_1993026_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1249000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1969513E-02,-0.1940688E-02),( 0.1969513E-02, 0.1940688E-02), + ( 0.2186114E-01, 0.0000000E+00),( 0.2706256E-01, 0.0000000E+00), + ( 0.6911862E+01,-0.7814963E+01),( 0.6911862E+01, 0.7814963E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.957216E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ale_1993026_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1253000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964612E-02,-0.1973551E-02),( 0.1964612E-02, 0.1973551E-02), + ( 0.2433143E-01,-0.3441242E-03),( 0.2433143E-01, 0.3441242E-03), + ( 0.6985439E+01,-0.7847272E+01),( 0.6985439E+01, 0.7847272E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.124510E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ale_1993026_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1265000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1967661E-02,-0.1965473E-02),( 0.1967661E-02, 0.1965473E-02), + ( 0.2430025E-01,-0.1376282E-02),( 0.2430025E-01, 0.1376282E-02), + ( 0.7080500E+01,-0.7921941E+01),( 0.7080500E+01, 0.7921941E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.126193E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine cmg3_30_vel(zer,nzer,pol,npol,fmul) complex zero( 2),zer(1),pole( 10),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.2357023E-01,-0.2357023E-01),( 0.2357023E-01, 0.2357023E-01), + ( 0.2121320E+02,-0.2121320E+02),( 0.2121320E+02, 0.2121320E+02), + ( 0.4830000E+01,-0.1293000E+01),( 0.4830000E+01, 0.1293000E+01), + ( 0.3535000E+01,-0.3535000E+01),( 0.3535000E+01, 0.3535000E+01), + ( 0.1294000E+01,-0.4830000E+01),( 0.1294000E+01, 0.4830000E+01)/ nzer= 2 npol= 10 fmul= 0.140625E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_5b_vel(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 10),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1270000E+02, 0.0000000E+00)/ data pole/ + ( 0.1964180E-02,-0.1964180E-02),( 0.1964180E-02, 0.1964180E-02), + ( 0.6235000E+01,-0.7818233E+01),( 0.6235000E+01, 0.7818233E+01), + ( 0.4830000E+01,-0.1293000E+01),( 0.4830000E+01, 0.1293000E+01), + ( 0.3535000E+01,-0.3535000E+01),( 0.3535000E+01, 0.3535000E+01), + ( 0.1294000E+01,-0.4830000E+01),( 0.1294000E+01, 0.4830000E+01)/ nzer= 3 npol= 10 fmul= 123031. do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_bor_1994212_Z(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1203239E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6727384E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_bor_1994212_N(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1170878E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6608376E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_bor_1994212_E(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1201432E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6687943E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine tgks54000_mp_acc(zer,nzer,pol,npol,fmul) complex zero( 1),zer(1),pole( 2),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.2940000E+01,-0.3000000E+01),( 0.2940000E+01, 0.3000000E+01)/ nzer= 1 npol= 2 fmul= 110.835 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts2_vel(zer,nzer,pol,npol,fmul) complex zero( 2),zer(1),pole( 11),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.5892558E-02,-0.5892555E-02),( 0.5892558E-02, 0.5892555E-02), + ( 0.4000000E+02, 0.0000000E+00),( 0.2085560E+02,-0.7437150E+02), + ( 0.2085560E+02, 0.7437150E+02),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 2 npol= 11 fmul= 0.373470E+16 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_erm_1990141_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1273000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1967705E-02,-0.1956628E-02),( 0.1967705E-02, 0.1956628E-02), + ( 0.2222190E-01, 0.0000000E+00),( 0.2663228E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.863125E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_erm_1990141_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1263000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1970866E-02,-0.1963663E-02),( 0.1970866E-02, 0.1963663E-02), + ( 0.2196676E-01, 0.0000000E+00),( 0.2688141E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111602E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_erm_1990141_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1264000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1967330E-02,-0.1970151E-02),( 0.1967330E-02, 0.1970151E-02), + ( 0.2214980E-01, 0.0000000E+00),( 0.2666187E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111524E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine lac_erm3_acc(zer,nzer,pol,npol,fmul) complex zero( 4),zer(1),pole( 13),pol(1) data zero/ + ( 0.1822400E-01, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1459400E-01, 0.0000000E+00),( 0.2588800E-01,-0.3516900E-01), + ( 0.2588800E-01, 0.3516900E-01),( 0.1583800E+00,-0.7347300E-01), + ( 0.1583800E+00, 0.7347300E-01),( 0.8003100E-02,-0.1517600E-01), + ( 0.8003100E-02, 0.1517600E-01),( 0.8198700E-02,-0.1383800E-01), + ( 0.8198700E-02, 0.1383800E-01),( 0.1484500E-01, 0.0000000E+00), + ( 0.2128400E-01, 0.0000000E+00),( 0.2320500E-03,-0.1377300E-03), + ( 0.2320500E-03, 0.1377300E-03)/ nzer= 4 npol= 13 fmul= 0.444954E-15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_esk_1993132_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1972465E-02,-0.1964143E-02),( 0.1972465E-02, 0.1964143E-02), + ( 0.2079077E-01, 0.0000000E+00),( 0.2840605E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.214824E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_esk_1993132_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1232000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1956598E-02,-0.1969385E-02),( 0.1956598E-02, 0.1969385E-02), + ( 0.2204068E-01, 0.0000000E+00),( 0.2686432E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.286805E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_esk_1993132_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1227000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1959349E-02,-0.1977161E-02),( 0.1959349E-02, 0.1977161E-02), + ( 0.2078976E-01, 0.0000000E+00),( 0.2840467E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.287205E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine lac_esk3_acc(zer,nzer,pol,npol,fmul) complex zero( 4),zer(1),pole( 13),pol(1) data zero/ + ( 0.2734500E-01, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1766500E-01, 0.0000000E+00),( 0.3122600E-01,-0.4561500E-01), + ( 0.3122600E-01, 0.4561500E-01),( 0.1563900E+00,-0.1097000E+00), + ( 0.1563900E+00, 0.1097000E+00),( 0.8011400E-02,-0.1490200E-01), + ( 0.8011400E-02, 0.1490200E-01),( 0.8260000E-02,-0.1351500E-01), + ( 0.8260000E-02, 0.1351500E-01),( 0.1465100E-01, 0.0000000E+00), + ( 0.2016200E-01, 0.0000000E+00),( 0.2302500E-03,-0.1335000E-03), + ( 0.2302500E-03, 0.1335000E-03)/ nzer= 4 npol= 13 fmul= 0.609018E-15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_esk_1993305_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 9),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1976226E-02,-0.1952301E-02),( 0.1976226E-02, 0.1952301E-02), + ( 0.2198012E-01, 0.0000000E+00),( 0.2689775E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 5 npol= 9 fmul= 57396.7 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_esk_1993305_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 9),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964402E-02,-0.1953897E-02),( 0.1964402E-02, 0.1953897E-02), + ( 0.2247645E-01, 0.0000000E+00),( 0.2630890E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 5 npol= 9 fmul= 73810.1 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_esk_1993305_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 9),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1960931E-02,-0.1965408E-02),( 0.1960931E-02, 0.1965408E-02), + ( 0.2238756E-01, 0.0000000E+00),( 0.2640052E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 5 npol= 9 fmul= 73774.2 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ffc_1993241_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1970149E-02,-0.1956836E-02),( 0.1970149E-02, 0.1956836E-02), + ( 0.2184892E-01, 0.0000000E+00),( 0.2704743E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.5120111E+01, 0.0000000E+00),( 0.6327989E+02, 0.0000000E+00), + ( 0.2295525E+02, 0.0000000E+00),( 0.7251675E+02, 0.0000000E+00)/ nzer= 5 npol= 12 fmul= 0.378716E+10 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ffc_1993241_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1959201E-02,-0.1979239E-02),( 0.1959201E-02, 0.1979239E-02), + ( 0.2145663E-01, 0.0000000E+00),( 0.2745243E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.5120111E+01, 0.0000000E+00),( 0.6327989E+02, 0.0000000E+00), + ( 0.2295525E+02, 0.0000000E+00),( 0.7251675E+02, 0.0000000E+00)/ nzer= 5 npol= 12 fmul= 0.485338E+10 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_ffc_1993241_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1955105E-02,-0.1976213E-02),( 0.1955105E-02, 0.1976213E-02), + ( 0.2281665E-01, 0.0000000E+00),( 0.2589269E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.5120111E+01, 0.0000000E+00),( 0.6327989E+02, 0.0000000E+00), + ( 0.2295525E+02, 0.0000000E+00),( 0.7251675E+02, 0.0000000E+00)/ nzer= 5 npol= 12 fmul= 0.486779E+10 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_lvz_1992337_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1254000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1974229E-02,-0.1945336E-02),( 0.1974229E-02, 0.1945336E-02), + ( 0.2199930E-01, 0.0000000E+00),( 0.2686776E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.112512E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_lvz_1992337_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1258000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1968501E-02,-0.1967425E-02),( 0.1968501E-02, 0.1967425E-02), + ( 0.2086237E-01, 0.0000000E+00),( 0.2813462E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111373E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_lvz_1992337_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1251000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1971684E-02,-0.1962809E-02),( 0.1971684E-02, 0.1962809E-02), + ( 0.2159636E-01, 0.0000000E+00),( 0.2717184E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111969E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_msv_1994147_Z(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1174577E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6666702E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_msv_1994147_N(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1162345E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6653329E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_msv_1994147_E(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1166875E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6691953E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nna_1988335_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 11),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1978324E-02,-0.1946593E-02),( 0.1978324E-02, 0.1946593E-02), + ( 0.2260194E-01, 0.0000000E+00),( 0.2617938E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 11 fmul= 25109.6 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nna_1988335_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 11),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1979413E-02,-0.1957119E-02),( 0.1979413E-02, 0.1957119E-02), + ( 0.2155823E-01, 0.0000000E+00),( 0.2735623E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 11 fmul= 25026.7 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nna_1988335_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 11),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1250000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964410E-02,-0.1967783E-02),( 0.1964410E-02, 0.1967783E-02), + ( 0.2097904E-01, 0.0000000E+00),( 0.2810193E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 11 fmul= 25018.2 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine lac_nna9_acc(zer,nzer,pol,npol,fmul) complex zero( 4),zer(1),pole( 13),pol(1) data zero/ + ( 0.2252900E-01, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1222400E-01, 0.0000000E+00),( 0.2975500E-01,-0.4626800E-01), + ( 0.2975500E-01, 0.4626800E-01),( 0.1678600E+00,-0.7458300E-01), + ( 0.1678600E+00, 0.7458300E-01),( 0.7784400E-02,-0.1507800E-01), + ( 0.7784400E-02, 0.1507800E-01),( 0.8211400E-02,-0.1333300E-01), + ( 0.8211400E-02, 0.1333300E-01),( 0.1394700E-01, 0.0000000E+00), + ( 0.2251200E-01, 0.0000000E+00),( 0.2261900E-03,-0.1298800E-03), + ( 0.2261900E-03, 0.1298800E-03)/ nzer= 4 npol= 13 fmul= 0.492749E-15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_5a_vel(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 9),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1270000E+02, 0.0000000E+00)/ data pole/ + ( 0.1964180E-02,-0.1964180E-02),( 0.1964180E-02, 0.1964180E-02), + ( 0.6235000E+01,-0.7818233E+01),( 0.6235000E+01, 0.7818233E+01), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874092E+01),( 0.1115000E+01, 0.4874092E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 3 npol= 9 fmul= 24606.3 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nri_1992351_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1255000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1972980E-02,-0.1938015E-02),( 0.1972980E-02, 0.1938015E-02), + ( 0.2269540E-01, 0.0000000E+00),( 0.2606776E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.875206E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nri_1992351_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1255000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964303E-02,-0.1958789E-02),( 0.1964303E-02, 0.1958789E-02), + ( 0.2429943E-01,-0.4860615E-03),( 0.2429943E-01, 0.4860615E-03), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.112352E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nri_1992351_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1257000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1965229E-02,-0.1973056E-02),( 0.1965229E-02, 0.1973056E-02), + ( 0.2160153E-01, 0.0000000E+00),( 0.2727225E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111874E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nvs_1992195_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1256000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1977139E-02,-0.1962664E-02),( 0.1977139E-02, 0.1962664E-02), + ( 0.2153187E-01, 0.0000000E+00),( 0.2745904E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.873957E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nvs_1992195_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1257000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1967471E-02,-0.1985357E-02),( 0.1967471E-02, 0.1985357E-02), + ( 0.2045265E-01, 0.0000000E+00),( 0.2874000E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111624E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_nvs_1992195_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1256000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1973943E-02,-0.1968959E-02),( 0.1973943E-02, 0.1968959E-02), + ( 0.2004945E-01, 0.0000000E+00),( 0.2922437E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111356E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine cmg3_360_vel(zer,nzer,pol,npol,fmul) complex zero( 2),zer(1),pole( 10),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1964180E-02,-0.1964180E-02),( 0.1964180E-02, 0.1964180E-02), + ( 0.7071070E+01,-0.7071070E+01),( 0.7071070E+01, 0.7071070E+01), + ( 0.4830000E+01,-0.1293000E+01),( 0.4830000E+01, 0.1293000E+01), + ( 0.3535000E+01,-0.3535000E+01),( 0.3535000E+01, 0.3535000E+01), + ( 0.1294000E+01,-0.4830000E+01),( 0.1294000E+01, 0.4830000E+01)/ nzer= 2 npol= 10 fmul= 0.156250E+07 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1986297_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964167E-02,-0.1964204E-02),( 0.1964167E-02, 0.1964204E-02), + ( 0.2431274E-01,-0.7943565E-03),( 0.2431274E-01, 0.7943565E-03), + ( 0.6513640E+01,-0.8639728E+01),( 0.6513640E+01, 0.8639728E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.9000000E+01,-0.4358900E+01),( 0.9000000E+01, 0.4358900E+01), + ( 0.2230000E+01,-0.9748180E+01),( 0.2230000E+01, 0.9748180E+01), + ( 0.1000000E+02, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.806376E+09 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1986297_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964167E-02,-0.1964204E-02),( 0.1964167E-02, 0.1964204E-02), + ( 0.2431274E-01,-0.7943565E-03),( 0.2431274E-01, 0.7943565E-03), + ( 0.6497400E+01,-0.8937913E+01),( 0.6497400E+01, 0.8937913E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.9000000E+01,-0.4358900E+01),( 0.9000000E+01, 0.4358900E+01), + ( 0.2230000E+01,-0.9748180E+01),( 0.2230000E+01, 0.9748180E+01), + ( 0.1000000E+02, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.108131E+10 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1986297_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1270000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964167E-02,-0.1964204E-02),( 0.1964167E-02, 0.1964204E-02), + ( 0.2431274E-01,-0.7943565E-03),( 0.2431274E-01, 0.7943565E-03), + ( 0.6507300E+01,-0.8744430E+01),( 0.6507300E+01, 0.8744430E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.9000000E+01,-0.4358900E+01),( 0.9000000E+01, 0.4358900E+01), + ( 0.2230000E+01,-0.9748180E+01),( 0.2230000E+01, 0.9748180E+01), + ( 0.1000000E+02, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.105713E+10 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine lac_pfo5_acc(zer,nzer,pol,npol,fmul) complex zero( 4),zer(1),pole( 13),pol(1) data zero/ + ( 0.2160900E-01, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1321300E-01, 0.0000000E+00),( 0.2278100E-01,-0.3534100E-01), + ( 0.2278100E-01, 0.3534100E-01),( 0.4801700E-01,-0.7850100E-01), + ( 0.4801700E-01, 0.7850100E-01),( 0.8232100E-02,-0.1314200E-01), + ( 0.8232100E-02, 0.1314200E-01),( 0.8274600E-02,-0.1571400E-01), + ( 0.8274600E-02, 0.1571400E-01),( 0.1464900E-01, 0.0000000E+00), + ( 0.2717700E-01, 0.0000000E+00),( 0.2312700E-03,-0.1318700E-03), + ( 0.2312700E-03, 0.1318700E-03)/ nzer= 4 npol= 13 fmul= 0.110360E-15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1987153_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964167E-02,-0.1964204E-02),( 0.1964167E-02, 0.1964204E-02), + ( 0.2431274E-01,-0.7943565E-03),( 0.2431274E-01, 0.7943565E-03), + ( 0.6513640E+01,-0.8639728E+01),( 0.6513640E+01, 0.8639728E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.251992E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1987153_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964167E-02,-0.1964204E-02),( 0.1964167E-02, 0.1964204E-02), + ( 0.2431274E-01,-0.7943565E-03),( 0.2431274E-01, 0.7943565E-03), + ( 0.6497400E+01,-0.8937913E+01),( 0.6497400E+01, 0.8937913E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.337911E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1987153_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1270000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1964167E-02,-0.1964204E-02),( 0.1964167E-02, 0.1964204E-02), + ( 0.2431274E-01,-0.7943565E-03),( 0.2431274E-01, 0.7943565E-03), + ( 0.6507300E+01,-0.8744430E+01),( 0.6507300E+01, 0.8744430E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.330352E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1992068_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1974306E-02,-0.1970995E-02),( 0.1974306E-02, 0.1970995E-02), + ( 0.1978947E-01, 0.0000000E+00),( 0.2973628E-01, 0.0000000E+00), + ( 0.6513640E+01,-0.8639728E+01),( 0.6513640E+01, 0.8639728E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.125299E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1992068_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1979531E-02,-0.1958906E-02),( 0.1979531E-02, 0.1958906E-02), + ( 0.2094207E-01, 0.0000000E+00),( 0.2816659E-01, 0.0000000E+00), + ( 0.6497400E+01,-0.8937913E+01),( 0.6497400E+01, 0.8937913E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.168420E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1992068_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1270000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1972696E-02,-0.1961034E-02),( 0.1972696E-02, 0.1961034E-02), + ( 0.2272741E-01, 0.0000000E+00),( 0.2602852E-01, 0.0000000E+00), + ( 0.6507300E+01,-0.8744430E+01),( 0.6507300E+01, 0.8744430E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.165126E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1992258_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1970855E-02,-0.1963652E-02),( 0.1970855E-02, 0.1963652E-02), + ( 0.2213846E-01, 0.0000000E+00),( 0.2670537E-01, 0.0000000E+00), + ( 0.6513640E+01,-0.8639728E+01),( 0.6513640E+01, 0.8639728E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.125885E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1992258_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1978140E-02,-0.1956973E-02),( 0.1978140E-02, 0.1956973E-02), + ( 0.2155595E-01, 0.0000000E+00),( 0.2739904E-01, 0.0000000E+00), + ( 0.6497400E+01,-0.8937913E+01),( 0.6497400E+01, 0.8937913E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.168633E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1992258_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1270000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1973395E-02,-0.1957279E-02),( 0.1973395E-02, 0.1957279E-02), + ( 0.2426741E-01,-0.1575190E-02),( 0.2426741E-01, 0.1575190E-02), + ( 0.6507300E+01,-0.8744430E+01),( 0.6507300E+01, 0.8744430E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.165078E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1993181_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1970520E-02,-0.1965545E-02),( 0.1970520E-02, 0.1965545E-02), + ( 0.2250467E-01, 0.0000000E+00),( 0.2627463E-01, 0.0000000E+00), + ( 0.6513640E+01,-0.8639728E+01),( 0.6513640E+01, 0.8639728E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.125903E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1993181_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1276000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1977590E-02,-0.1956429E-02),( 0.1977590E-02, 0.1956429E-02), + ( 0.2209457E-01, 0.0000000E+00),( 0.2676492E-01, 0.0000000E+00), + ( 0.6497400E+01,-0.8937913E+01),( 0.6497400E+01, 0.8937913E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.168847E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_pfo_1993181_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1270000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1973305E-02,-0.1961639E-02),( 0.1973305E-02, 0.1961639E-02), + ( 0.2233632E-01, 0.0000000E+00),( 0.2646623E-01, 0.0000000E+00), + ( 0.6507300E+01,-0.8744430E+01),( 0.6507300E+01, 0.8744430E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.165014E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1987166_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1273000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2032967E-02,-0.1847821E-02),( 0.2032967E-02, 0.1847821E-02), + ( 0.2415566E-01,-0.3110456E-02),( 0.2415566E-01, 0.3110456E-02), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+01,-0.4358900E+01), + ( 0.9000000E+01, 0.4358900E+01),( 0.2230000E+01,-0.9748180E+01), + ( 0.2230000E+01, 0.9748180E+01),( 0.1000000E+02, 0.0000000E+00)/ nzer= 5 npol= 12 fmul= 0.988680E+07 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1987166_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1267000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1975138E-02,-0.1931283E-02),( 0.1975138E-02, 0.1931283E-02), + ( 0.2432040E-01,-0.4343638E-03),( 0.2432040E-01, 0.4343638E-03), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+01,-0.4358900E+01), + ( 0.9000000E+01, 0.4358900E+01),( 0.2230000E+01,-0.9748180E+01), + ( 0.2230000E+01, 0.9748180E+01),( 0.1000000E+02, 0.0000000E+00)/ nzer= 5 npol= 12 fmul= 0.990850E+07 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1987166_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 12),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1238000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2016575E-02,-0.1887975E-02),( 0.2016575E-02, 0.1887975E-02), + ( 0.2432040E-01,-0.4343638E-03),( 0.2432040E-01, 0.4343638E-03), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+01,-0.4358900E+01), + ( 0.9000000E+01, 0.4358900E+01),( 0.2230000E+01,-0.9748180E+01), + ( 0.2230000E+01, 0.9748180E+01),( 0.1000000E+02, 0.0000000E+00)/ nzer= 5 npol= 12 fmul= 0.101406E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine lac_rpn1_acc(zer,nzer,pol,npol,fmul) complex zero( 4),zer(1),pole( 13),pol(1) data zero/ + ( 0.2167900E-01, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1823900E-01,-0.3226800E-01),( 0.1823900E-01, 0.3226800E-01), + ( 0.2674100E-01, 0.0000000E+00),( 0.1265800E+00,-0.1136900E+00), + ( 0.1265800E+00, 0.1136900E+00),( 0.8069000E-02,-0.1429200E-01), + ( 0.8069000E-02, 0.1429200E-01),( 0.8468100E-02,-0.1461200E-01), + ( 0.8468100E-02, 0.1461200E-01),( 0.1578100E-01, 0.0000000E+00), + ( 0.1733300E-01, 0.0000000E+00),( 0.2310000E-03,-0.1360100E-03), + ( 0.2310000E-03, 0.1360100E-03)/ nzer= 4 npol= 13 fmul= 0.393931E-15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1988014_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1273000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2032967E-02,-0.1847821E-02),( 0.2032967E-02, 0.1847821E-02), + ( 0.2415566E-01,-0.3110456E-02),( 0.2415566E-01, 0.3110456E-02), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.216274E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1988014_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1267000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1975138E-02,-0.1931283E-02),( 0.1975138E-02, 0.1931283E-02), + ( 0.2432040E-01,-0.4343638E-03),( 0.2432040E-01, 0.4343638E-03), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.278676E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1988014_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1238000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2016575E-02,-0.1887975E-02),( 0.2016575E-02, 0.1887975E-02), + ( 0.2432040E-01,-0.4343638E-03),( 0.2432040E-01, 0.4343638E-03), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4500000E+01,-0.2179450E+01),( 0.4500000E+01, 0.2179450E+01), + ( 0.1115000E+01,-0.4874090E+01),( 0.1115000E+01, 0.4874090E+01), + ( 0.5000000E+01, 0.0000000E+00)/ nzer= 5 npol= 13 fmul= 0.285204E+08 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1990151_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1273000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2067051E-02,-0.1803554E-02),( 0.2067051E-02, 0.1803554E-02), + ( 0.2116928E-01, 0.0000000E+00),( 0.2796334E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.7000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.107917E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1990151_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1267000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1977755E-02,-0.1928865E-02),( 0.1977755E-02, 0.1928865E-02), + ( 0.2302862E-01, 0.0000000E+00),( 0.2569431E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.139346E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1990151_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 14),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1238000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2025366E-02,-0.1864613E-02),( 0.2025366E-02, 0.1864613E-02), + ( 0.2435048E-01,-0.1033801E-02),( 0.2435048E-01, 0.1033801E-02), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.1250000E+02, 0.0000000E+00),( 0.9000000E+02, 0.0000000E+00), + ( 0.4830000E+02,-0.1292710E+02),( 0.4830000E+02, 0.1292710E+02), + ( 0.3535535E+02,-0.3535533E+02),( 0.3535535E+02, 0.3535533E+02), + ( 0.1294000E+02,-0.4829655E+02),( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 14 fmul= 0.143167E+15 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1992344_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1273000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2019356E-02,-0.1861284E-02),( 0.2019356E-02, 0.1861284E-02), + ( 0.2115590E-01, 0.0000000E+00),( 0.2794566E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.862244E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1992344_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1267000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1973796E-02,-0.1920043E-02),( 0.1973796E-02, 0.1920043E-02), + ( 0.2429697E-01,-0.1191376E-02),( 0.2429697E-01, 0.1191376E-02), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111488E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1992344_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1238000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2011520E-02,-0.1891535E-02),( 0.2011520E-02, 0.1891535E-02), + ( 0.2317455E-01, 0.0000000E+00),( 0.2555987E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.114211E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1994043_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1273000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1985480E-02,-0.1941951E-02),( 0.1985480E-02, 0.1941951E-02), + ( 0.2255395E-01, 0.0000000E+00),( 0.2619428E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.861615E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1994043_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1267000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1975749E-02,-0.1913127E-02),( 0.1975749E-02, 0.1913127E-02), + ( 0.2426395E-01,-0.1819571E-02),( 0.2426395E-01, 0.1819571E-02), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111542E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_rpn_1994043_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1238000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.2021371E-02,-0.1881933E-02),( 0.2021371E-02, 0.1881933E-02), + ( 0.2428634E-01,-0.1190855E-02),( 0.2428634E-01, 0.1190855E-02), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.114000E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_sur_1990306_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1275000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1963130E-02,-0.1962613E-02),( 0.1963130E-02, 0.1962613E-02), + ( 0.2419426E-01,-0.2684641E-02),( 0.2419426E-01, 0.2684641E-02), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.862862E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_sur_1990306_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1265000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1969477E-02,-0.1961167E-02),( 0.1969477E-02, 0.1961167E-02), + ( 0.2299841E-01, 0.0000000E+00),( 0.2566061E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111361E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_sur_1990306_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1261000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1965200E-02,-0.1823180E-02),( 0.1965200E-02, 0.1823180E-02), + ( 0.2241818E-01, 0.0000000E+00),( 0.2637215E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111915E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_sur_1992217_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1275000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1968506E-02,-0.1967431E-02),( 0.1968506E-02, 0.1967431E-02), + ( 0.2228624E-01, 0.0000000E+00),( 0.2659032E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.862904E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_sur_1992217_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1265000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1971557E-02,-0.1966579E-02),( 0.1971557E-02, 0.1966579E-02), + ( 0.2222441E-01, 0.0000000E+00),( 0.2657623E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111453E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_sur_1992217_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1261000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1963045E-02,-0.1844872E-02),( 0.1963045E-02, 0.1844872E-02), + ( 0.2230511E-01, 0.0000000E+00),( 0.2655230E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.112111E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_tly_1990295_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1274000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1969613E-02,-0.1956303E-02),( 0.1969613E-02, 0.1956303E-02), + ( 0.2257590E-01, 0.0000000E+00),( 0.2621978E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.862615E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_tly_1990295_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1265000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1970207E-02,-0.1958004E-02),( 0.1970207E-02, 0.1958004E-02), + ( 0.2428255E-01,-0.9090473E-03),( 0.2428255E-01, 0.9090473E-03), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111420E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_tly_1990295_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1245000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1979332E-02,-0.1936491E-02),( 0.1979332E-02, 0.1936491E-02), + ( 0.2202982E-01, 0.0000000E+00),( 0.2679666E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.113182E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_tly_1992187_Z(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1274000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1970138E-02,-0.1956825E-02),( 0.1970138E-02, 0.1956825E-02), + ( 0.2151009E-01, 0.0000000E+00),( 0.2747615E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.7000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.861274E+13 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_tly_1992187_N(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1265000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1968212E-02,-0.1956576E-02),( 0.1968212E-02, 0.1956576E-02), + ( 0.2431184E-01,-0.4863097E-03),( 0.2431184E-01, 0.4863097E-03), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.111577E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine sts1_tly_1992187_E(zer,nzer,pol,npol,fmul) complex zero( 5),zer(1),pole( 13),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.1245000E+02, 0.0000000E+00),( 0.2427185E-01, 0.0000000E+00), + ( 0.2427185E-01, 0.0000000E+00)/ data pole/ + ( 0.1980947E-02,-0.1935300E-02),( 0.1980947E-02, 0.1935300E-02), + ( 0.2180314E-01, 0.0000000E+00),( 0.2709104E-01, 0.0000000E+00), + ( 0.6375250E+01,-0.7704297E+01),( 0.6375250E+01, 0.7704297E+01), + ( 0.9000000E+02, 0.0000000E+00),( 0.4830000E+02,-0.1292710E+02), + ( 0.4830000E+02, 0.1292710E+02),( 0.3535535E+02,-0.3535533E+02), + ( 0.3535535E+02, 0.3535533E+02),( 0.1294000E+02,-0.4829655E+02), + ( 0.1294000E+02, 0.4829655E+02)/ nzer= 5 npol= 13 fmul= 0.113248E+14 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_wra_1994086_Z(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1177607E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6733952E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_wra_1994086_N(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1178536E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6754082E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_wra_1994086_E(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1158856E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6672316E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine tgks54000_vel(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.2940000E+01,-0.3000000E+01),( 0.2940000E+01, 0.3000000E+01), + ( 0.7640000E-03, 0.0000000E+00),( 0.1165000E-01, 0.0000000E+00), + ( 0.6715000E-03, 0.0000000E+00),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_xpf_1994167_Z(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1163318E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6660796E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_xpf_1994167_N(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1169864E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6663149E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end subroutine ks54_xpf_1994167_E(zer,nzer,pol,npol,fmul) complex zero( 3),zer(1),pole( 7),pol(1) data zero/ + ( 0.0000000E+00, 0.0000000E+00),( 0.0000000E+00, 0.0000000E+00), + ( 0.0000000E+00, 0.0000000E+00)/ data pole/ + ( 0.1155001E-01, 0.0000000E+00),( 0.7639420E-03, 0.0000000E+00), + ( 0.6689491E-03, 0.0000000E+00),( 0.2940000E+01,-0.2999400E+01), + ( 0.2940000E+01, 0.2999400E+01),( 0.5399263E+01, 0.0000000E+00), + ( 0.1891577E+02, 0.0000000E+00)/ nzer= 3 npol= 7 fmul= 1801.60 do 10 i=1,nzer 10 zer(i)=zero(i) do 20 i=1,npol 20 pol(i)=pole(i) return end