C MTABL     SOURCE    PV        11/03/07    21:17:35     6885           
      SUBROUTINE MTABL (V,VMAX,IMA,NL)                                          
C                                                                               
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                      
C                                                        C                      
C   MAX D'UN TABLEAU DE LONGUEUR NL              C                              
C                                                        C                      
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                      
C                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
      DIMENSION V(1)                                                            
C                                                                               
      IMA=1                                                                    
      VMAX=0.                                                                   
      AVMAX=0.                                                                  
      DO 10 I=1,NL                                                              
       A=DABS(V(I))                                                             
       IF (A.GT.AVMAX) THEN                                                     
        IMA=I                                                                   
        AVMAX=A                                                                 
        VMAX=V(I)                                                               
       ENDIF                                                                    
  10  CONTINUE                                                                  
      RETURN                                                                    
      END