Quelques fonctions intrinsèques de FORTRAN 90

Notation

array	::	désigne un tableau quelque
mask	::	un tableau de logique
vecta, vectb	::	un tableau de dimension 1
mata, matb	::	une matrice ( un tableau de rang 2)

Voici quelque functions utiles

MAXVAL(array)	:	fournit la plus grande valeur du tableau array.
		Le résultat est du même type que les éléments
		du tableau array
MINVAL(array)	:	fournit la plus petite valeur du tableau array.
PRODUCT(array)	:	fournit le produit des éléments du tableau array.
SUM(array)	:	fournit la somme des éléments du tableau array.
DOTPRODUCT(vecta, vectb)	:	fournit le produit scalaire de deux vecteurs vecta et vectb.
	:	Ceci est équivalent à
	:	SUM(vecta*vectb)
MATMUL(mata, matb)	:	fournit une matrice contenant le produit matriciel
		de deux matrices mata et matb.
ALLOCATED(array)	:	fournit un logique contenant la valeur .TRUE.
		si le tableau array ( déclaré avec l'attribut ALLOCATE)
		est alloué et la valeur .FALSE. sinon.
MAXLOC(array)	:	fournit un tableau d'entiers de rang 1 et de taille égale
		au rang de array. Sa valeur est l'indice du premier
		élément où le maximun est atteint.
MINLOC(array)	:	blabla
ABS(array)	:	fournit un tableau de même type, même profil que array.
		Sa valeur est la valeur absolue de chaque composante.
TRANSPOSE(mata)	:	matrice contenant la transposée de mata

       PROGRAM FIN
          IMPLICIT NONE
          REAL, DIMENSION (10,20) :: A
          INTEGER, DIMENSION (2)  :: Tloc
          INTEGER, DIMENSION (1)  :: T1
          REAL                    :: x,y
          INTEGER                 :: i,j

          A = (/(sin(i+j),i =1,10),j=1,20 /)
          x = MAXVAL(A)
          y = MAXVAL(A(2:6,5:17))
          print*,'x = ',x,'y = ',y
          Tloc = MAXLOC(A)
          print*,'Tloc = ', Tloc
          print*,'MAXLOC(A(2:6,5:17)) = ', MAXLOC(A(2:6,5:17))
          T1 = MAXLOC(A(:,5))
          print*,'T1 = ', T1
       END PROGRAM FIN