*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKISUM(IVEC,N,ISUM,MAX)
*-----------------------------------------Updates 07/02/92-------                                             
**: FKISUM 30205.SB. Change from function to subroutine to please UNDEF.                                      
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Integer version of VSUM; also returns MAX as the largest element   *                                        
*                                                                    *                                        
**********************************************************************                                        
**********************************************************************                                        
*