poles4.f

       integer    nfit
       parameter (nfit=3)      ! number of fitting functions

       real*8     c(nfit)

       complex*16 z1(nfit)
       complex*16 z2(nfit)



      data c/    0.397723d0 , 0.0803345d0, 0.0463159d0 /



      data z1/  (0.967976d0 , 0.255507d0) , (0.675019d0 , 0.186201d0) , 
     . (0.835287d0 , 0.139491d0) , (0.404769d0 , 0.32466d0) /
      data z2/  (1.65521d0  , 0.317109d0) , (1.92046d0  , 0.276022d0) , 
     . (2.22776d0  , 0.268375d0) , (1.34833d0  , 0.340821d0) /

!  -----------------------------------------






           
om11            = 83.8725          
om21            = 99.5816          
om31            = 343.395          
tau11           = 1.00136          
tau21           = 0.989473         
tau31           = 1.00027          
p1              = 0.0409781        
p2              = 0.0492432        
p3              = 0.0245029