9. Formen hos ett Fortran-program

• 9.0 Inledning
• 9.1 Fix form
• 9.2 Fri form
• 9.3 Fortsättningsrader
• 9.4 Kommentarer
• 9.5 Gemensam form

9.0 Inledning

Tidigare skrevs alla Fortran-program i ett hålkortsbaserat system där kolumnerna var mycket viktiga, och den verkliga programtexten (källkoden) strängt taget bara fick finnas i kolumnerna 7 till 72. Sedan 1979 använder inte ens jag längre några hålkort. En ny form för källkoden har därför skapats.

9.1 Fix form

Ett vanligt fel är att man låter den verkliga programtexten börja för tidigt (före kolumn 7), vilket ger att kompilatorn oftast noterar ett fel, eller låter den fortsätta för långt åt höger (efter kolumn 72), vilket kompilatorn oftast ej noterar som fel.

9.2 Fri form

En rad under fri form får innehålla upp till 132 tecken (inklusive eventuella blanka).

• En avgörande skillnad är att under fix form är blanka ej signifikanta (utom i textsträngar), men i fri form är de det.

9.3 Fortsättningsrader

     PRINT *, ' Detta är en lång utmatningsrads första del', 
    *' och detta är dess andra del!'

Under fri form markerar man i stället på den rad som skall fortsättas att en fortsättningsrad följer,

PRINT *, ' Detta är en lång utmatningsrads första del', &
' och detta är dess andra del!'

Under fri form tillåtes maximalt 39 fortsättningsrader.

Ibland kan det hända att en viss identifierare eller ett visst numeriskt uttryck inte får plats på raden. Man kan då under fri form avbryta var som helst med tecknet & och sedan på nästa rad ge ett nytt & som första icke-blanka tecken. Man fortsätter sedan direkt från detta & utan blank. Tecknet & fungerar således som ett slags avstavningstecken.

        PI = 3.141592653589793

        PI = 3.14159265&
                &3589793

Det kan ibland vara önskvärt att göra tvärtom, nämligen att ha flera satser på samma rad. Detta sker med hjälp av semikolon, samt med utropstecken före eventuell avslutande kommentar på raden. Det var däremot ej möjligt att ha flera logiska satser på samma rad under Fortran 77 och tidigare.

        A = 0.0 ; B = 1.0 ; C = 2.0      ! Initiering

Notera att under den nya fria formen så är blanka signifikanta, dvs mitt favoritexempel

        DO 25 I = 1. 25

        DO25I = 1.25

9.4 Kommentarer

Under fri form inledes kommentarer med ! var som helst på raden och avslutas med radslut. Notera att C eller * ej är tillåtna som kommentartecken under den fria formen.

Observera att kommentarrader ej kan fortsättas eftersom även tecknet & där behandlas som tillhörigt kommentaren. Däremot kan man fritt lägga in kommentarrader även bland fortsättningsrader. Man kan naturligtvis "fortsätta" kommentarrader genom att ge ett ! i kolumn 1 på nästa rad, men då blir det formellt en ny kommentar.

Ovanstående gäller den nya fria formen. Utropstecken i någon av kolumnerna 1 till 5 eller 7 till 72 betyder naturligtvis kommentar även i den gamla fixa formen, men i kolumn 6 betyder både ! och ; som tidigare fortsättningsrad. Notera att under Fortran 77 är däremot utropstecken inte tillåtet i kolumn 2 till 5 (om det inte finns en kommentarsymbol redan i kolumn 1).

• Kommentarer är ett inkompatibilitetsproblem mellan Fortran 77 och fri form Fortran 90, men ej mellan fix och fri form Fortran 90, eftersom utropstecknet ! är tillåtet för att inleda en kommentar i båda. Lyckligtvis är det även tillåtet i såväl Sun Fortran 77 och DEC Fortran 77 (både DEC Station Ultrix och VAX/VMS) som i CRAY CF77.

Övningar.

        A = 0.0 ; B = 3.0 ! First variables ; C = 17.0 ; D = 33.0

(9.2) Är följande rader korrekt Fortran 90?

        Y = SIN(MAX(X1,X2)) * EXP( -COS(X3)**I ) - TAN(AT&
                & AN(X4))

9.5 Gemensam form

• Fortran 77
• Fortran 90 fix form
• Fortran 90 fri form

      program TEST                      ! kolumn 73
!                                            |
      write(*,*)                             &
     &     ' test '
      end
!    |
! kolumn 6