*-- 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   *                                        
*                                                                    *                                        
**********************************************************************                                        
                                                                        
      DIMENSION IVEC(N)                                                 
                                                                        
**********************************************************************                                        
                                                                        
      ISUM = 0                                                          
      MAX  = 0                                                          
      DO 100 I=1,N                                                      
         IF (IVEC(I).GT.MAX) MAX = IVEC(I)                              
         ISUM = ISUM + IVEC(I)                                          
 100  CONTINUE                                                          
                                                                        
      RETURN                                                            
      END                                                               
*