Observatoire de Paris - Code Fortran  version1.0
Les types de données
Référence du module mod_initialise

Les types de données

type  initvar
 

Fonctions/Subroutines

initA

A initialization

Paramètres
[in]ndimension
[in,out]amatrix
Renvoie
initial value for a matrix $ a= exp(2)+10 +j $
subroutine inita (n, a)
 
setzero

A set to zero

Paramètres
[in]ndimension, dummy
[in,out]amatrix
Renvoie
null a matrix $ a= 0 $
subroutine setzero (n, a)
 
initB

B initialization

Paramètres
[in]ndimension
[in,out]bmatrix
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.

64  implicit none ! on force l'initialisation de toutes les variables
65  integer, intent(in) :: n ! On specifie le role des arguments
66  real(kind=kind(1.d0)), intent(inout) :: a(n,n)
67  integer :: i,j
68  real(kind=kind(1.d0)) :: r
69 
70  r = exp(2.)+10.
71  do j = 1,n
72  r = r + real(j)
73  a(:,j) = r
74  end do
75 

◆ 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.

99  implicit none ! on force l'initialisation de toutes les variables
100  integer, intent(in) :: n
101  real(kind=kind(1.d0)), intent(inout) :: b(n,n)
102  integer :: i,j
103  real(kind=kind(1.d0)) :: rj,dj,ri,d
104 
105  do j = 1,n/2-1
106  rj = real(j)
107  dj = (0.9 + (0.001 + 0.05*rj)*rj)*rj
108  do i = 1,n
109  ri = real(i)
110  b(i,j) = 0.2 + (0.3 + (0.4 + 0.01*ri)*ri)*ri - dj
111  end do
112  end do
113 
114  d = 1./6.
115  do j = n/2,n
116  dj = real(j)*0.1
117  do i = 1,n
118  b(i,j) = i*d + dj
119  end do
120  end do
121 

◆ initx()

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

X initialization.

Paramètres
[in]ndimension
[in,out]xvector

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

129  implicit none ! on force l'initialisation de toutes les variables
130  integer, intent(in) :: n
131  real(kind=kind(1.d0)), intent(out) :: x(n)
132  integer :: i
133  real(kind=kind(1.d0)) :: d
134 
135  d = 0.4/7.
136  do i = 1,n,4
137  x(i) = real(i)*d
138  x(i+1) = real(i+1)*d
139  x(i+2) = real(i+2)*d
140  x(i+3) = real(i+3)*d
141  end do
142 
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.

86  implicit none ! on force l'initialisation de toutes les variables
87  integer, intent(in) :: n ! On specifie le role des arguments
88  real(kind=kind(1.d0)), intent(inout) :: a(n,n)
89 
90  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.

146 integer, intent(in) :: n
147  real(kind=kind(1.d0)), intent(in) :: a(n)
148  real(kind=kind(1.d0)), intent(out) ::b
149  b=a
150  call initx(n,b)
Voici le graphe d'appel pour cette fonction :