|
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
• |
Déclaration
des variables
|
|
|
|
INTEGER, PARAMETER :: n = 10
|
|
|
|
INTEGER :: ierr = 0
|
|
|
|
REAL(8), DIMENSION (-n:n, 0:1) ::
a, b
|
|
|
|
REAL(4), DIMENSION(:), ALLOCATABLE :: z
|
|
|
• |
Allocation
dynamique
|
|
|
|
ALLOCATE ( z(n+4*m+2), STAT=ierr)
|
|
|
|
IF ( ierr /= 0 )
STOP ou IF ( ierr == 0 ) THEN …
|
|
|
DEALLOCATE ( z )
|
|
|
• |
Interface
|
|
|
|
SUBROUTINE calcul
(n,a,b,c)
|
|
|
|
INTEGER, INTENT(IN) :: n
|
|
|
|
REAL(8), INTENT(OUT) :: a
|
|
|
|
REAL(8), INTENT(IN) :: b, c
|
|
|
|