Esope source files

   1 : C MTABL     SOURCE    PV        11/03/07    21:17:35     6885           
   2 :       SUBROUTINE MTABL (V,VMAX,IMA,NL)                                          
   3 : C                                                                               
   4 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                      
   5 : C                                                        C                      
   6 : C   MAX D'UN TABLEAU DE LONGUEUR NL              C                              
   7 : C                                                        C                      
   8 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                      
   9 : C                                                                               
  10 :       IMPLICIT INTEGER(I-N)
  11 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  12 :       DIMENSION V(1)                                                            
  13 : C                                                                               
  14 :       IMA=1                                                                    
  15 :       VMAX=0.                                                                   
  16 :       AVMAX=0.                                                                  
  17 :       DO 10 I=1,NL                                                              
  18 :        A=DABS(V(I))                                                             
  19 :        IF (A.GT.AVMAX) THEN                                                     
  20 :         IMA=I                                                                   
  21 :         AVMAX=A                                                                 
  22 :         VMAX=V(I)                                                               
  23 :        ENDIF                                                                    
  24 :   10  CONTINUE                                                                  
  25 :       RETURN                                                                    
  26 :       END                                                                       
  27 :  
  28 :