Styleguide: Difference between revisions

From BlueM
Jump to navigation Jump to search
(→‎Allgemein: Screenshot für Tabstopps)
Line 1: Line 1:
==Allgemein==
==Allgemein==
* Die Tab-Größe sollte auf 3 Leerzeichen gesetzt sein.
[[Bild:Fortran_tabstops.jpg|thumb|Visual Studio 2005 Optionen für Tabstopp-Einstellungen für Fortran]]
* Schlüsselwörter (z.B. <code>IF</code>, <code>FUNCTION</code>, <code>INTEGER</code> etc.) sollten großgeschrieben werden.
* Die Tab-Größe sollte auf 3 Leerzeichen gesetzt sein (siehe [[:Bild:Fortran_tabstops.jpg|Screenshot]]).
* Schlüsselwörter (z.B. <code>IF</code>, <code>FUNCTION</code>, <code>INTEGER</code> etc.) sollten in Großbuchstaben geschrieben werden.
* Die Schlüsselwörter <code>END IF</code>, <code>END DO</code> etc. sollten wie hier angegeben mit einem Leerzeichen geschrieben werden.
* Die Schlüsselwörter <code>END IF</code>, <code>END DO</code> etc. sollten wie hier angegeben mit einem Leerzeichen geschrieben werden.
<br clear="all"/>


==Formatierung==
==Formatierung==

Revision as of 01:44, 13 September 2007

Allgemein

Visual Studio 2005 Optionen für Tabstopp-Einstellungen für Fortran
  • Die Tab-Größe sollte auf 3 Leerzeichen gesetzt sein (siehe Screenshot).
  • Schlüsselwörter (z.B. IF, FUNCTION, INTEGER etc.) sollten in Großbuchstaben geschrieben werden.
  • Die Schlüsselwörter END IF, END DO etc. sollten wie hier angegeben mit einem Leerzeichen geschrieben werden.


Formatierung

Funktionen sollten folgendermaßen formatiert werden: <fortran>

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX c Funktionsbeschreibung

     FUNCTION FOO (BAR) RESULT (LOK)

c .................................................................

     USE MODULE
     INTEGER  :: i
     LOGICAL  :: LOK

c .................................................................

     LOK = .FALSE.

c Kommentar

     DO i = 1, 10
        CALL FOOBAR()
        IF (.NOT. LOK) GOTO 9999
     END DO
     LOK = .TRUE.
     GOTO 10000

c ................................................................. c Fehlerbehandlung 9999 IF (.NOT. LOK) ERROR = FEHLER(50, ' ', ' ', 0)

     GOTO 10000

c ................................................................. 10000 RETURN

     END FUNCTION FOO

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

</fortran>