DO-Schleife als Block
DO I=1, 10 ! ohne Label BLA(I) ENDDO ! statt "100 CONTINUE"
implizite Typen verbieten
IMPLICIT NONE ! statt IMPLICIT LOGICAL A-Z
Files wörtlich einbinden
INCLUDE 'mpif.h' ! ueberfluessig: nimm Module!
WHILE-Schleife
DO WHILE (A < 42) ! ueberfluessig: DO .. EXIT .. ENDDO (s.u.) A = A*1.15 COUNT = COUNT + 1 ENDDO