Référence du module mod_initialise

Les types de données
type	initvar

Fonctions/Subroutines
initA
A initialization Paramètres [in] n dimension [in,out] a matrix Renvoie initial value for a matrix
subroutine	inita (n, a)
setzero
A set to zero Paramètres [in] n dimension, dummy [in,out] a matrix Renvoie null a matrix
subroutine	setzero (n, a)
initB
B initialization Paramètres [in] n dimension [in,out] b matrix
subroutine	initb (n, b)
subroutine	initx (n, x)
	X initialization. Plus de détails...
subroutine	to_test (n, a, b)

Documentation de la fonction/subroutine

inita()

subroutine mod_initialise::inita	(	integer, intent(in)	n,
		real(kind=kind(1.d0)), dimension(n,n), intent(inout)	a
	)

Définition à la ligne 64 du fichier mod_initialise.f90.

  implicit none  ! on force l'initialisation de toutes les variables
  integer, intent(in)             :: n  ! On specifie le role des arguments
  real(kind=kind(1.d0)), intent(inout)   :: a(n,n)
  integer    :: i,j
  real(kind=kind(1.d0))  :: r

  r = exp(2.)+10.
  do j = 1,n
     r = r + real(j)
     a(:,j) = r
  end do

initb()

subroutine mod_initialise::initb	(	integer, intent(in)	n,
		real(kind=kind(1.d0)), dimension(n,n), intent(inout)	b
	)

Définition à la ligne 99 du fichier mod_initialise.f90.

  implicit none  ! on force l'initialisation de toutes les variables
  integer, intent(in)       :: n
  real(kind=kind(1.d0)), intent(inout)    :: b(n,n)
  integer    :: i,j
  real(kind=kind(1.d0))  :: rj,dj,ri,d

  do j = 1,n/2-1
     rj = real(j)
     dj = (0.9 + (0.001 + 0.05*rj)*rj)*rj
     do i = 1,n
        ri = real(i)
        b(i,j) =  0.2 + (0.3 + (0.4 + 0.01*ri)*ri)*ri - dj
     end do
  end do

  d = 1./6.
  do j = n/2,n
     dj = real(j)*0.1
     do i = 1,n
        b(i,j) = i*d + dj
     end do
  end do

initx()

subroutine mod_initialise::initx	(	integer, intent(in)	n,
		real(kind=kind(1.d0)), dimension(n), intent(out)	x
	)

X initialization.

Paramètres

[in]	n	dimension
[in,out]	x	vector

Définition à la ligne 129 du fichier mod_initialise.f90.

  implicit none  ! on force l'initialisation de toutes les variables
  integer, intent(in)       :: n
  real(kind=kind(1.d0)), intent(out)   :: x(n)
  integer    :: i
  real(kind=kind(1.d0))  :: d

  d = 0.4/7.
  do i = 1,n,4
     x(i) = real(i)*d
     x(i+1) = real(i+1)*d
     x(i+2) = real(i+2)*d
     x(i+3) = real(i+3)*d
  end do

Voici le graphe des appelants de cette fonction :

setzero()

subroutine mod_initialise::setzero	(	integer, intent(in)	n,
		real(kind=kind(1.d0)), dimension(n,n), intent(inout)	a
	)

Définition à la ligne 86 du fichier mod_initialise.f90.

  implicit none  ! on force l'initialisation de toutes les variables
  integer, intent(in)             :: n  ! On specifie le role des arguments
  real(kind=kind(1.d0)), intent(inout)   :: a(n,n)

   a=0

to_test()

subroutine mod_initialise::to_test	(	integer, intent(in)	n,
		real(kind=kind(1.d0)), dimension(n), intent(in)	a,
		real(kind=kind(1.d0)), intent(out)	b
	)

Définition à la ligne 146 du fichier mod_initialise.f90.

integer, intent(in)           :: n
 real(kind=kind(1.d0)), intent(in)  :: a(n)
 real(kind=kind(1.d0)), intent(out) ::b
 b=a
 call initx(n,b)

Voici le graphe d'appel pour cette fonction :