This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / cpsipg.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:02:01  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10       FUNCTION CPSIPG(Z,K)                                                      
11       COMPLEX CPSIPG,Z                                                          
12       COMPLEX*16 WPSIPG,W                                                       
13       DOUBLE PRECISION D                                                        
14                                                                                 
15       SROUND(D)=D+(D-SNGL(D))                                                   
16       W=Z                                                                       
17       W=WPSIPG(W,K)                                                             
18       CPSIPG=CMPLX(SROUND(DREAL(W)),SROUND(DIMAG(W)))                           
19       RETURN                                                                    
20       END