Télécharger la plaquette Cast3M


fr en

Télécharger mtabl.eso

Retour à la liste

Numérotation des lignes : 

mtabl

  1. C MTABL     SOURCE    CB215821  16/04/21    21:17:51     8920
  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=ABS(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.  
  29.  
  30.  
  31.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales