fortran 77 fortran 77 fortran 77 fortran 77 fortran 77 fortran 77

label CONTINUE
{istruzioni}
IF ({espressione logica}) GOTO label
es: READ(*,*) X
10 CONTINUE
WRITE(*,*) X
X=X+1
IF (X.LE.100) GOTO 10
FORTRAN 77
UNTIL - loops
FORTRAN 77
DO - loops
DO label {var} = {espr1},{espr2},{espr3}
{istruzioni}
label CONTINUE
es: READ(*,*) X
DO 10 I=X,100,1
WRITE(*,*) I
10 CONTINUE
nota: DO-loops nidificati (nested)
nota: DO WHILE in alcuni compilatori
FORTRAN 77
Unidimensionali (⇔ vettori)
es: REAL A(15) equivale a REAL A(1:15)
es: DO 10 I=1,15
WRITE(*,*) X(I)
10 CONTINUE
Array
Bidimensionali (⇔ matrici)
es: REAL A(15,10) equivale a REAL A(1:15,1:10)
Pluridimensionali (≤7)
es: REAL A(15,10,5,1,1,5,10)
FORTRAN 77
Sottoprogrammi - FUNCTION
{tipo} FUNCTION {nome} ({variabili})
{dichiarazioni}
{istruzioni}
RETURN
END
es: REAL FUNCTION DELTA(A,B,C)
REAL A,B,C
DELTA=B**2-4.*A*C
RETURN out in
END
SUBROUTINE {nome} ({argomenti})
{dichiarazioni}
{istruzioni}
RETURN
END
...
CALL {nome} ({argomenti})
es: SUBROUTINE DELTA(A,B,C,D)
REAL A,B,C,D
D=B**2-4.*A*C
RETURN
END
FORTRAN 77
Sottoprogrammi - SUBROUTINE
in out
LIBRERIA = raccolta di sottoprogrammi
FUNCTION
es: SQRT(X)
EXP(X)
SIN(X)
SUBROUTINE
radice quadrata
esponenziale
seno
FORTRAN 77
es: SSWAP(N,X,INCX,Y,INCY) scambio X-Y
STRSL(T,TDIM,N,B,JOB,INFO) sistemi Tx=b
LIBRERIE
4