[PDF] [PDF] FORTRAN 77 Respectant la norme FORTRAN 77





Previous PDF Next PDF



[PDF] FORTRAN 77 Language Reference - Oracle Help Center

WRITE 220 Description 221 Restrictions 224 Comments 224 Examples 225 5 Input and Output 227 Essential FORTRAN I/O Concepts 227 Logical Units 227



[PDF] FORTRAN 77 40 Reference Manual - Oracle Help Center

You can write FORTRAN 77 programs with many VMS extensions so that these programs run with the same source code on both SPARC and VAX systems



[PDF] Initiation au Fortran

9 3 Instructions read et write avec boucles implicites 48 La référence est le Fortran 77 qui reste (malheureusement diraient certains)



[PDF] FORTRAN 77 - Programming Basics

write (**) 'Area = ' area end A FORTRAN program generally consists of a main program and possibly several subprograms (i e functions or subroutines)



[PDF] Cours Fortran 77pdf - raymondnicoletch

Le langage FORTRAN 77 fait l'objet d'une normalisation de l'American National Standard : write do if do while inquire (*) Instruction FORTRAN IV pour 



[PDF] Introduction to programming in Fortran 77 for students of Science

writing the source code – once finished with the analysis of your problem you can write a source code of this algorithm Fortran provides you with a number of 



[PDF] FORTRAN 77

Respectant la norme FORTRAN 77 cette norme prend en compte des instructions supplémentaires spécifiques à la programmation objet II PROGRAM M E FORTRAN



[PDF] fortran 77 tutorial

write(*1010) (x(i) i=150) 1010 format (10I6) Page 24 The format statements says ten numbers should be printed But in the write statement we try to print 



[PDF] Elements de programmation Fortran

9 jan 2018 · c'est `a dire qu'un code écrit en fortran 77 peut être compilé en vers l'extérieur sont respectivement les instructions write et read



[PDF] FORTRAN 77 Users Guide

Manual which contains a formal specification of the FORTRAN 77 Programming Language INTENDED READERS Writing SARF Files in FORTRAN 77 Programs

)02&230)*138&)2(9

2012/(:13(*2() !"!(*20-+3'&2035(

+(/&5&/2;5( D .<*3')(9 .&)*+(*3)*251/230)*&1,03)*1) (*4&/(0-+3'&2035( .&)*+(*.0))<(*.(*(7(,4+(*(7&/2(,()2

1)(*4&/(

01.(*04230)*@&/1+2&23@*

(40+6/043<&<2<A+1*3(15*&,<+305&230)*0)2 +&)'&'(9 ()25(453*(*A )0,45083()2.(D EA

4<5&230))(+.(413*45;*.1)

+&5(/=(5/=((2.(+3).1*253(A )018(++()05,(9 !#A(*4(/2&)2+&)05,( "/(22()05,(

0-B(2A

014+1*3(15*@3/=3(5*A

0154018035 :1&25(<2&4(**0)2)A015/(+&0)123+3*(1).(*

4&'(*2&).&5.(*2

H<:138&+()2.(I

I*15JA+**0)2*4 .<8(+044(,()2(2)01*)(+(*/32(50)*4&*3/3A

A=&:1(@3/=3(5*015/(.1)

450'5&,,(4(12G25(/0,43+<*<4&5<,()2A

@3/=3(5-3)&35(9@3/=3(5(7AG,(*3+(450'5&,,((*2/0,40*<.1)*(1+ @3/=3(50-B(2"/(22(<2&4((*20-+3'&2035(A &'(015+&)/(51)450'5&,,( "3+@&12:1(+(@3/=3(5(74(18()2.3@@<5(5A

0". !% $("++'()#,

1*!*. !2+')*!*. !

0, !-.)!

&3*<(A

3,(+%*) .'")

)(+3')( @&M0)*138&)2(9 =&,4<23:1(22(9=3@@5(*()25(+(*/0+0))(*(2 .(+&+3')(454,(++ )' !.*!*)$("++ !(++ )&2$.*!'. !.'!'-. $%* %() $(-. 2%$-. 25'. 6+') )'2A3():1(2012/0,,()2&35(*032 *1-B(/23@"3+(*2838(,()2/0)*(3++< .(/0,,()2(5&-0).&,,()2*(*45045(*

450'5&,,(*A

/&5&/2;5(C+&/0+0))(A ))(4(5.5&53()()+3*3-3+327,/ +$. 8$ C Exemple de programme type : calcul d"un sinus C

PROGRAM TYPE

C Declarations

INTEGER I, IDEUX

REAL AMPLITUDE(10),T

& FREQUENCE, pi

C Initialisations

FREQUENCE = 50.

PI = 3.1416

IDEUX = 0

C Corps du programme

DO I=1,10

ideux = IDEUX+2

T = FLOAT(IDEUX)

AMPLITUDE(I) = SIN (2. * PI*FREQUENCE*T)

WRITE(*,100)IDEUX

ENDDO

100 FORMAT(1X,I2)

END )450'5&,,( A #.$9- (*.37/=3@@5(*.01-+(/02(;

3,4+(/02(

6,-0+(*&532=,<23:1(*<

&5&)2=;*(*>,

35'1+(2

03)2

01-+(403)2?

0"++' #,

8&53&-+(*(2+(*3)*251/230)*9"""

"AAAAA

0,$&)% !+*/0)*2321()2+(*)0,**6,-0+3:1(*:1(/=03*32+(450'5&,,(154015.<*3')(5+(*

5(*4(/2(52503*5;'+(*9

)(B&,&3*/0,,()/(54&51)/&5&/2;5()1,<53:1(

G25(/0,40*<*.&1,&73,1,/&5&/2;5(*A

5"3+*&8;5(:1(

5(*4(/2(5/(22(5;'+(A

3,&$ *!

+*/0)*2321()2+&40)/21&230).1+&)'&'(9 (*4&/(

35'1+("

&5()2=;*(*HOOOOJ +&*=(*$OOOO$

3 !($& *!

'&')(-(&1/014()+3*3-3+328&53&-+(9P

0,$& *!'9+&'@* !

&'(740)()23&230)==H5305321+234+3/&230)=H530532

383*30)H530532 ..3230)01*25&/230)

H530532

3,$& *! .'()) .!

()25(.(17403)2**&)*(*4&/( 9

0Q(5=()AAA253/2(,()24+1*4(232:1(AAA

5(&2(5=()AAA253/2(,()24+1*'5&).:1(AAA

0Q(505:1&+AAA+1*4(23201<'&+:1(AAA

5(&2(505:1&+AAA+1*'5&).01<'&+:1(AAA

AR1&+AAA'&+CAAA

0):1&+AAA0)<'&+CAAA

4,$& *!.("'@* !

A

A<'&230)+0'3:1(H530532 A

A2+0'3:1(H530532 A A

1+0'3:1(H530532 #8$ !% %())& !

5(/0))&N2/3):264(*.(.0))<(*9

(7(,4+(*9"S!#" 0,& . )5<(+4(12&8035.(17@05,(*.3,(+$. /

5<(+*A

(7(,4+(*9HA"AJ"H#A"AJ"HA"AJ

4,9B) % !

(7(,4+(*9/015*.( "0,9"SP .(.(17/=&N)(*A&*6)2&7(.(/(2

04<5&2(15(*29$$H.01-+(*+&*=J

(7(,4+(.(/0)/&2<)&230)9P$$ (5<*1+2&20-2()1*(5&P

7,("'@*

(*4&/( "/(*8&+(15**0)29

AA85&3

AA@&17

0&.'()!% %())& !

.(*3)*251/230)*.(.4015/=&:1(264(.(.0))<(*A

8$ % %())& !)!*'()!%

)23(5TT<(+TT0,4+(7( T T=&N)(.(/&5&/2;5(* T+() +()(*2+()-5(.( /&5&/2;5(*.(+& /=&N)(

0'3:1(

(7(,4+(9" T "" T )(.(*4&523/1+&532<*.1 "(*2:13+(73*2(.(*.450'5&,,(A

6)2&7(9

D 264(
D (29/&5&/2;5(*&+4=&-<23:1(* (7(,4+(9HJ

H&=",6J

HFJ X )(,4G/=(4&*.( .4(5,(22()2+1*&'(.(+3)*251/230)

4052&-+(A

3-. */ +' !

)0,.(+&8&53&-+(2&-+(&1A$ +' C. *%*-. * !6.')%' #(2+&

3)*251/230)

6)2&7(9

D )0,8&53&-+(>2&3++(>"2&3++(AAA"2&3++(?,

0,&5')''()% .%'+ )!'().(!% .%&.'()

8&53&-+(/0)/(5)<(A

(7(,4+(9

H##J"H##"J

H#J"H##"#"J

4 ! 9B) !% !)(/=&N)(/0,40*<(.&1,&73,1,/&5&/2;5(**(. 9 T+()

01T+()

3)(*24&**4 (*2.T#"H#J

T"T# "(2 #/=&N)(*.(#/&5&/2;5(*/=&/1)(A /=&N)(9

H9J.<*3')(+&*01*/=&N)(.(

.13;,(&13;,(/&5&/2;5(

3)/+1*A

7()!) ! ')''.'!'()% C'-. !#,()!) !

+3)*251/230) 9

6)2&7(9

D >)0,O/0)*2&)2(:8&+(15"AAAAAA, &'(#(7(,4+(9T T HPA!" PA!!! #J

0,)''.'!'()% C'-. !

.6)2&7(9 D )0,O8&53&-+(8&+(15O3)323&+( (7(,4+(9)-403)2

5&60)"2(,4*HJ

2(,4*$A"#A"A$

5&60)")-403)2$#A"##$

!"C##A(2&-+(&1"#!$.(.3,()*30)(*23)323&+3*2(,4*HJPA

2(,4*HJP#A

2(,4*HJPA

D'-. !.(. !2C'-. !".(-. !)

.(*C'-. !.(. !C/(22(1)326)2&7(9 D )0,O-+0/8&5>"8&5"AAA? ,<,035(A+4(126&80354+1*3(15* .&)*1)450'5&,,(A exemple : C Programme principal

REAL X(100)

CHARACTER*20 CAR

INTEGER MAT(100,100)

COMMON/TOTO/X,MAT,CAR

Appel à sous-programme

END

C Sous-programme

REAL ALPHA(100)

CHARACTER*20 CAR

INTEGER RES(100,100)

COMMON/TOTO/ALPHA,RES,CAR

RETURN

END &)*/(2(7(,4+("+( .()0,(*25<4<2<.&)*/=&:1(1)32<.( )0,*.(8&53&-+(*.1 )(*0)24&*+(*,G,(*.&)*+(450'5&,,(

8&53&-+(.&)*+(*01*450'5&,,(A

(,G,(+(/0)2()1.(/055(*40).&1 /0)2()1.(%&A #E(*. !% ()F. (5L+(.1)(-01/+( (*23.()23:1(C/(+13.( 01() A++( D (2: D 3/42

3.(-1223@3)>"34&*?

D

3/42:3.(-12"3@3)>"34&*?

)*251/230)*01)*251/230)* (2: !"9/0,42(15.(-01/+( ' ("945(,3;5(8&+(15:1(45().5&!" )9.(5)3;5(8&+(15:1(45().5&!" !$94&*.3)/5<,()2&230)()25(' ("(2)A3!$)(*24&* *43' ("(*2<'&+C)"+(-+0/$"("$(*2(7 &)*+(/&*0Z!$(*240*323@"*3' ("(*2*14<53(15C)"+(-+0/$"("$ exemple : INTEGER ICPT,DEB,FIN

REAL PRODAB(10,10), A(10,10) ,B(10,10)

REAL Y(100),OMEGA,T

PARAMETER (OMEGA=314.16)

C

C Calcul d"un produit matriciel PRODAB= A*B

C

DO I=1,10

DO J =1,10

PRODAB(I,J) = 0.

DO K = 1,10

PRODAB(I,J) = PRODAB(I,J) + A(I,k)*B(K,J)

ENDDO ENDDO ENDDO C

C Calcul d"un sinus

C

T = 0.

DEB = 100

FIN = 1

DO 10 ICPT=DEB,FIN, -2

Y(ICPT) = SIN(OMEGA*T)

T = T+1.

10 CONTINUE

END

3+)6&4&*1))0,-5(()23(5.(4&*.3)/5<,()2&230)()25(' ("(2)"+&

P"#" 9 9

45<*+&-01/+("+&8&+(15.((*2.(A

)(-01/+( I

40**3-+(*9

D (2: D G >/0).3230),G D >/0).3230), )*251/230)*01)*251/230)* (2: '"9(745(**30)+0'3:1(

4&*(7 exemple : LOGICAL LTEST

INTEGER I1,I2,A(100),B(100)

REAL T,TFIN,OMEGA,ALPHA(100)

PARAMETER (TFIN=10.,OMEGA = 314.)

C

C Calcul d"un sinus

C

T = 0.

I1 = 1

DOWHILE(T.LT.TFIN)

ALPHA(I1) = SIN(OMEGA*T)

T = T+0.5

I1 = I1+1

ENDDO C

C .Permutation de deux tableaux

C

I1 = 1

I2 = 100

LTEST = .TRUE.

DO 20 WHILE(LTEST)

A(I1) = B(I2)

I1 = I1 + 1

I2 = I2 - 1

IF(I1.GT.100.)LTEST=.FALSE.

20 CONTINUE

END

0()F. !()%''()) .!

')!*'()012/0,,(() 01() +3)*251/230) >/0).3230),)*251/230)O*3,4+( '"9(745(**30)+0'3:1( >/0).3230), )*251/230)* >/0).3230)J )*251/230)*O# )*251/230)*O >/0).3230)O#, )*251/230)*O# >/0).3230)O, )*251/230)*O >/0).3230)O, )*251/230)*O A A A )*251/230)*O? (*2 exemple : LOGICAL LTEST

REAL X,Y,Z,PI

PARAMETER (PI=3.1416)

X = -1.

IF(LTEST) X= 0.

IF(X.LT.0.)THEN

Y = PI/2.

X = +1.

ENDIF

IF(X.EQ.0.)THEN

Y = PI

ELSE

Y = 0.

ENDIF

IF(X.LT.0.)THEN

Y = PI/4.

ELSEIF(X.GT.0.)THEN

Y = PI/2.

ELSEquotesdbs_dbs19.pdfusesText_25
[PDF] fortran 90

[PDF] fortran 90 example

[PDF] fortran 90 function

[PDF] fortran 90 handbook pdf

[PDF] fortran 90 pi

[PDF] fortran 90 programming pdf

[PDF] fortran 90 read

[PDF] fortran 90 standard pdf

[PDF] fortran 90 textbook

[PDF] fortran 90 textbook pdf

[PDF] fortran 90 tutorial pdf

[PDF] fortran 90 write format

[PDF] fortran 90/95 pdf

[PDF] fortran 95 compiler

[PDF] fortran 95 continuation line