Styleguide

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:

• Vorschlag A

<fortran>

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX c Funktionsbeschreibung

     FUNCTION FOO (BAR) RESULT (LOK)

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

     USE MODULE
     INTEGER  i
     LOGICAL  LOK
     character(*) str

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>

• Vorschlag B

<fortran>

C---------------------------------------------------------------------- C MOD_Beispiel: Ein Modul ! c Anmerkung: blabla C----------------------------------------------------------------------

     module MOD_Beispiel
     use MODULE_BLABLAblabla
     implicit none
     
     integer MemberInt

     contains      

C---------------------------------------------------------------------- C funktion FOO : Eine unsinnige zu Demonstrationszwecken erstellte virtuelle Fkt c Anmerkung: gibt false zurück wenn Fehler ! C----------------------------------------------------------------------

     logical function FOO (BAR)
     use MODULE_BLABLA

        integer  i
        logical  LOK
        character(*) str
     
        FOO = .FALSE.

        !---------------------------------------------
        !Abschnitt A
        !---------------------------------------------
        do i = 1, 10
           CALL FOOBAR()
           !Wenn fehler dann raus !
           IF (.NOT. LOK)
              ERROR = FEHLER(50, '    ', '    ', 0)
              return
           end if
        end do

        FOO = .TRUE.
        return
     end function FOO

     end module MOD_Beispiel

</fortran>

Operatoren in Fortran

in Fortran gibt es zwei Syntaxen für Operatoren

Operator     Relationship  
.LT. or  <   Less than  
.LE. or  <=  Less than or equal to  
.EQ. or  ==  Equal to  
.NE. or  /=  Not equal to  
.GT. or  >   Greater than  
.GE. or  >=  Greater than or equal to  

Für Weiterentwicklungen sollten die gebräuchlichen Symbole benutzt werden:

<   Less than  
<=  Less than or equal to  
==  Equal to  
/=  Not equal to  
>   Greater than  
>=  Greater than or equal to