! " ! # $ % & ' " () ) !" *& ,-$ &+ - % & ) + + ! & . &

• • • o o • •

c !

*

! ! " ! $ " %

# &

! # $ '(

$
)

%
*/ 0! 1+ /&- "" /& / &

&

''

,

$ ! * program & &

!end

(

.

program nom ... end

!

! $& !

!

subroutine

end

subroutine nom (arguments) ... end

.

! *

!

function

end

type function nom (arguments) ... end

&
0

'' &

&

/ (

- ,(

, 1

!
%

0,
%

,

&

/ 2

3

4

,( ( 0 / &

, /

56 678

, , / &

(
)&

/ / 8 , /

.

,

/

3 / 3 (0

/

9

$ $

!
:

(

3
' 6

/
# ! * 0 ( , & !# ! !" " + !

0 : 2

# /
2

/ ! / @/ B
2

) / ?" / & ! ( / $ /

/ & " ,

/ , ''' ! !

!

; < . $!. 1 = 1!
.

.

& 1 ! A A !@ >&&
%

; !. /

0> 3 '/ ! $

&

*

!" "! /

& 1 C A A C !. !; <

@ " >&&

&

&
2 % 4 5

7 E %

/ 2

!
'

!
-

D

/ 2 / $ . ;$ !4. 0 F

(

3

#

. '(
1 123 -28 0

% 3
• • e

! D , , 3

/ >&& &

$

#
0

/

0.xxxxx$

'(
0. 1.0 1. 3.1415 31415e-4 1.6e-19 1e12 .001 -36.

% D '(

%

* &

!" $ e

/ d 0d0 0.d0 1.d0 1d0 3.1415d0 31415d-4 1.6d-19 1d12 -36.d0

%

% 4

5

3 / '( ( ! "4 , ! "$

"!+ >

/

(0.,0.) (1.,-1.) (1.34e-7, 4.89e-8)
)'. -

'

&

,

,

3 /

; ' 1
2

D "
5

&

&&

&

parameter(const1=valeur1,const2=valeur2, ...)

3 3
5 4

> / double D &;.

( 2 / &

D

precision q parameter(max=1000, q=1.6d-19)

/

0

.

/ $ / 3 / & 7 & 0, & 9 / / /
• •

&

• • • •

, 3 1 & '

/$ &

$

D / $

, / & 0& $ 6 1 & ' & 1 56 678$ / 3 (

3 -$

/ 0, / /

& & & / $

? 3 > ,

# common C%
0
7

.

'

8 1 program subroutine function

(
2 5

/

type var1, var2, var3, .....

5

/

D

3

D

"
5 4

integer i,j,k real alpha, beta double precision x,y complex z
' 0 .

•

# 0 o o o o

/ $ &

• • •

$ >&& $ */ + *G+ * D !