1 SUBROUTINE HZERO( PARTR , PARTI ) 



2 IMPLICIT DOUBLE PRECI SION ( A-H , 0-Z) 



3 DOUBLE PRECISION PARTI, PARTR, K2 , IIVIZ12 



4 COMMON /AHZERO/ HZEROR .HZEROI 



5 D2 = PARTR**2 + PARTI**2 



6 8 K2 = .7978845608*EXP(PARTI) 



7 D = SQRT{D2) 



8 RLZ12 = (SORT((PARTR + p)/2.))/D 



9 IF(D - PARTR) 9,9,10 



10 9 IMZ12 = 



11 GO TO 11 



12 10 IMZ12 = (SORT((D - PARTR)/2. ))/D 



13 11 COST = COS(PARTR) 



14 SINT =-SIN(PARTR) 



15 HZEROR = K2*(RLZ12*C0ST - IMZ12*SINT) 



16 HZEROI = K2*(IMZ12*C0ST + RLZ12*SINT) 



17 RETURN 



18 END 



73 



