*-- Author : S.Burke
      INTEGER FUNCTION FFCHG(IPDG)
*-----------------------------------------Updates 03/03/93-------                                             
**: FFCHG .......SB. Protect against odd codes.                                                               
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Work out the particle charge from the PDG code                     *                                        
*                                                                    *                                        
**********************************************************************                                        
**********************************************************************                                        
* Zero will get this particle ignored                                                                         
* Special codes                                                                                               
* Deuteron/triton                                                                                             
* Alpha                                                                                                       
* else geantino/showino                                                                                       
*