Fortran/Wersja do druku

Z Wikibooks, biblioteki wolnych podręczników.
Przejdź do nawigacji Przejdź do wyszukiwania



Fortran




Róg strony.svg
 
 


Spis treści

  1. O podręczniku
  2. Wstęp
    1. Historia języka Fortran
    2. Wprowadzenie do języka Fortran
  3. Podstawowe wiadomości
    1. Zmienne
    2. Instrukcje sterujące
    3. Podstawowe działania matematyczne
    4. Procedury i funkcje
    5. Podstawowe operacje wejścia i wyjścia
  4. Wiadomości zaawansowane
    1. Preprocesor
    2. Operacje na łańcuchach
    3. Styl programowania
    4. Typy złożone
    5. Zarządzanie pamięcią
    6. Odnajdowanie błędów
  5. Przykłady
    1. Iloczyn macierzy
    2. Metoda najmniejszych kwadratów
  6. Dodatek A
    1. Fortran a C
    2. Łączenie języka C z językiem Fortran
  7. Dodatek B
    1. Inne dialekty języka Fortran
  8. Licencja


O podręczniku

Dla kogo przeznaczony jest ten podręcznik

Niniejszy podręcznik ma za zadanie wprowadzić każdą chętną osobę w świat programowania w języku Fortran. Nie jest wymagana przy tym umiejętność programowania (jeśli umiesz już programować w innym języku, będziesz mógł pominąć pewne informacje).

Jak ja mogę pomóc?

Twoja pomoc może dotyczyć wszystkiego w tym podręczniku. Możesz zarówno edytować podręcznik w celu powiększenia jego wartości merytorycznej. Jeśli dopiero się uczysz, to poprawiaj zauważone przez Ciebie błędy (przede wszystkim językowe). Nie bój się edycji.

Konwencje przyjęte w tym podręczniku

Aby łatwiej było czytać oraz edytować ten podręcznik wprowadzone zostają pewne zasady.

Kod źródłowy wyróżniamy poprzez wpisywanie go w odległości dwóch pustych znaków (spacji) od lewej krawędzi ekranu. Oto efekt:

 oto kod źródłowy

W ten sam sposób możemy prezentować dialog programu z użytkownikiem.

Nawigacja

Aby ułatwić nawigację korzystamy z szablonu {{Subst:Naw}}. Przykład jego użycia możesz zobaczyć np. poprzez przeglądnięcie kodu źródłowego któregoś z modułów tego podręcznika.

Język

Edytując ten podręcznik pamiętaj o tym, że czytać go mogą zarówno inżynierowie, jak i początkujący programiści. Staraj się zatem, by język użyty do opisu działania programów był jak najbardziej przystępny oraz zrozumiały.

Autorzy

Wkład w powstanie tego podręcznika mieli:


Historia języka Fortran

Karta perforowana dla języka Fortran

Historia języka Fortran

Zanim w 1956 roku skonstruowano pierwszy komputer tranzystorowy (TX-0), istniał już język programowania wysokiego poziomu. Był nim, stworzony w latach 1954-1957, język Fortran. Wymyślił go wraz ze swoim zespołem John Backus, pracownik firmy IBM. Pierwszym wyzwaniem, z jakim musieli się zmierzyć twórcy Fortranu była wydajność. Obawiano się, że jeśli program napisany w języku wysokiego poziomu będzie zbyt wolny w stosunku do języków assemblerowych, to nikomu nie będzie chciało się go używać. Dołożono zatem wszelkich starań, aby nowy język był jak najbardziej zoptymalizowany. Efektem tego jest wydajność, porównywalna z językiem C. Kolejne standaryzacje przynosiły coraz więcej nowości oraz możliwości języka. W dniu dzisiejszym praktycznie wszystkie obliczenia aerodynamiczne, wytrzymałościowe i cieplne prowadzone są właśnie z użyciem języka Fortran.

Czasy współczesne

Czy Fortran jest wciąż używany ?

  • NASA poszukuje programisty znającego 60-letni język Fortran używany w oprogramowaniu sterującym sondą Voyager[1]
  • dlaczego fizycy wciąż używają Fortrana [2][3]

Wersje języka Fortran

  1. FORTRAN Automatic Coding System for IBM704 - 1957r, pierwszy kompilator języka FORTRAN
  2. FORTRAN 66 - wersja języka fortran, która rozpowszechniła się na komputerach.
  3. FORTRAN 77 - wersja która zdominowała obliczeniach numeryczne w latach 80. Pojawiła się w niej m.in. pętla while. Ostatnia wersja z zapisem obsługującym karty perforowane. Popularna do początku XXI wieku. Na początku XXI wieku występował dobry kompilator g77, jednak obecnie (2012r.) nie jest on rozwijany z przyczyn technicznych.
  4. Fortran 90 - przełomowa wersja Fortranu (od tej wersji nazwę języka pisze się małymi literami). Nowy zapis, niedostosowany do kart perforowanych, struktury, wskaźniki, przeciążanie operatorów, moduły.
  5. Fortran 95 - niewielkie zmiany w stosunku do Fortranu 90. Dodana obsługa wątków. Ostatni proceduralny Fortran. Niektóre profesjonalne kompilatory zatrzymały się na tej wersji (NAG, Lahey, Absoft).
  6. Fortran 2003 - pierwszy obiektowy Fortran.
  7. Fortran 2008 - najnowszy standard języka Fortran. Obsługa równoległości - współtablice ( ang. Coarrays)

Zobacz także

Aby przeczytać całą historię języka Fortran, odwiedź polską Wikipedię.


Wprowadzenie do języka Fortran

O języku Fortran

Język Fortran jest językiem kompilowanym. Oznacza to, że aby uruchomić nasz pierwszy program w Fortranie musimy go skompilować, czyli przetworzyć z postaci czytelnej dla człowieka na kod maszynowy. Historyczne uwarunkowania doprowadziły do tego, że kompilatory języka Fortran generują zoptymalizowany kod, dzięki czemu wykonanie programu, napisanego w Fortranie jest bardzo szybkie. Oprócz tego ważną cechą Fortranu jest jego przenośność. Podobnie, jak język C, także i Fortran jest językiem przenośnym - ale tylko w postaci kodu źródłowego. Natomiast w przeciwieństwie do języka C, Fortran posiada niejako "wbudowane" funkcje obsługi wejścia i wyjścia (Input-Output - I/O) oraz funkcje matematyczne. Np. potęgowanie posiada swój specjalny operator (o nich później). Język Fortran oferuje też ciekawe możliwości dla osób piszących programy pod systemy wieloprocesorowe lub programy równoległe.

Użycie Fortranu do symulacji kolizji dwóch galaktyk

Zastosowanie języka Fortran

Z rozdziału historia poznałeś niektóre zastosowania języka Fortran. Jednak nie są to jedyne jego zastosowania. W jednym z dialektów napisano nawet system operacyjny.

Czego potrzebujesz

Aby rozpocząć przygodę z językiem Fortran musisz koniecznie zaopatrzyć się w:

  • dowolny system operacyjny
  • dowolny edytor tekstowy, który nie formatuje tekstu, lub ma funkcję zapisywania plików bez formatowania.
  • kompilator języka Fortran - tutaj natrafisz na bardzo duży wybór

Edytor

Zamiast zwykłego edytora możesz wybrać Zintegrowane Środowisko Programistyczne (IDE), na przykład Code::Blocks for Fortran lub wtyczkę Photran do środowiska Eclipse, lub środowisko Firmy Intel dla linuxa Intel® Parallel Studio XE for Linux* wersja niekomercyjna.

Kompilator

Jak już wspomniałem, wybór kompilatora może sprawić Ci trudność. Będzie on zależał od systemu operacyjnego oraz możliwości Twojego budżetu. Oczywiście do nauki wystarczy Ci najprostszy, darmowy kompilator. W niniejszym podręczniku będziemy opierali się na najnowszym dziecku projektu GCC - gfortran. Krótką listę dostępnych kompilatorów, zawiera artykuł w polskiej Wikipedii. Niezłym punktem startu jest też anglojęzyczna strona The Fortran Company, na której oprócz informacji o komercyjnych pakietach, znajdziesz też sporo darmowych bibliotek i tutoriali.

Dość ciekawą rzeczą jest natomiast działanie kompilatora. Każdy kompilator języka Fortran składa się z dwóch części

  • kompilatora właściwego, przetwarzającego program na kod maszynowy
  • biblioteki uruchomieniowej

To właśnie w tym drugim elemencie przechowywane są najbardziej podstawowe funkcje. Bibliotekę uruchomieniową możemy porównać do biblioteki języka C w systemach UNIX (tak naprawdę, w systemach Uniksowych część biblioteki uruchomieniowej korzysta z biblioteki języka C). Kompilatory Fortranu umożliwiają także łączenie w jeden program kilku modułów napisanych zarówno w języku Fortran, jak i C. Temu zagadnieniu poświęcony jest ostatni rozdział tego podręcznika (Łączenie języka C z językiem Fortran).


instalacja

Instalacja gfortrana na ubuntu:

  apt-get install gfortran


Po udanej instalacji sprawdzamy wersję:

  gfortran --version

Przykładowy wynik :

GNU Fortran (Ubuntu 5.4.1-2ubuntu1~16.04) 5.4.1 20160904
Copyright (C) 2015 Free Software Foundation, Inc.

GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING

Pierwsze spojrzenie na Fortran 90/95

Witaj świecie!

Zgodnie z tradycją pierwszym przykładem języka programowania powinien być program wyświetlający radosny napis "Hello World!". Oto kod tego programu w Fortranie 95 (albo w Fortranie 90, gdyż niewiele się między sobą różnią):

 !
 ! To jest program przykładowy w Fortranie 90/95  
 !
program helloworld            ! nieobowiązkowy ale zalecany początek programu
     print *, "Hello, world!" ! wyświetlenie na ekranie napisu
end program helloworld        ! koniec programu - obowiązkowy, jeśli wcześniej jest słowo program

Zapiszmy nasz program w pliku hello.f95. Aby go uruchomić musisz wykonać czynność, zwaną kompilacją. Nasze przykłady oprzemy na kompilatorze gfortran. Aby uzyskać program wykonywalny w konsoli musisz wykonać:

gfortran hello.f95 -o hello

Aby uruchomić program należy wywołać ścieżkę dostępu do pliku, np.:

./hello

lub po prostu jego nazwę, jeśli katalog w którym się znajduje został dopisany do zmiennej środowiskowej $PATH.

Wiedza elementarna

  • Język Fortran (niezależnie od wersji) nie rozróżnia wielkości znaków, czyli print* i PRINT* to dla kompilatora dokładnie ta sama instrukcja.
  • W jednym wierszu można umieścić do 132 znaków.
  • Spacje są ważne - służą do oddzielania słów kluczowych i identyfikatorów (oprócz spacji tę funkcję pełnią także inne białe znaki i znaki przestankowe). Nie wolno wstawiać spacji (ani innego znaku) wewnątrz słowa kluczowego lub identyfikatora.
  • Komentarzem jest tekst od symbolu wykrzyknika do najbliższego znaku końca linii. Wyjątkiem jest sytuacja, gdy znak ! pojawia się w cytowaniu.
  • Znak końca linii jest znakiem kończącym instrukcję.
  • Jeśli chcemy kontynuować instrukcję w następnym wierszu musimy na końcu linii postawić znak &. Jeśli jednak chcemy przełamać napis otoczony cudzysłowem lub apostrofami to znak & musimy umieścić na końcu pierwszego i na początku drugiego wiersza.
  • W przypadku, gdy chcemy umieścić kilka instrukcji w jednym wierszu oddzielamy je znakiem ;
  • Język Fortran pozwala na używanie niezadeklarowanych zmiennych (co nie jest zalecane) - typ zmiennej zależy wówczas od pierwszej litery nazwy zmiennej. Nazwy zaczynające się na I,J,K,L,M,N to liczby całkowite, pozostałe to liczby zmiennoprzecinkowe. Możemy zrezygnować z tej możliwości (zalecamy!) umieszczając instrukcję implicit none zaraz po wierszu ze słowem program.
  • Używany alfabet to litery małe: a-z i duże: A-Z, cyfry 0-9, znak podkreślenia _. Dozwolone są również następujące znaki specjalne: spacja, enter oraz +-*/<=>().,'";:!&%$?. Oprócz tego znane nam kompilatory w komentarzach i łańcuchach tekstowych pozwalają na użycie innych znaków, w tym polskich liter "z ogonkami".
  • Struktura programu rozdziela część deklaracyjną od wykonywalnej - tzn. po użyciu jakiejkolwiek instrukcji wykonywalnej, nie można już deklarować zmiennych, stałych itp.
  • Do cytowania napisów (stałych tekstowych) można używać zarówno znaku cudzysłowu " jak i apostrofu '. Przy czym jeśli rozpoczęliśmy cytowanie jednym znakiem, to trzeba zamknąć je tym samym - dzięki temu bez problemu można umieścić w łańcuchu same znaki cytowania np. "User's guide" (ten sam efekt uzyskamy pisząc 'User''s guide').


Zmienne

Czym jest i do czego służy zmienna?

Zmienną w programie komputerowym można rozumieć jako twór, który na 2 cechy:

  1. posiada unikalną nazwę (dzięki której można ją zidentyfikować)
  2. posiada wartość, czyli porcję informacji (niskopoziomowo jest to ciąg bitów).

typ zmiennej

Zmienna w pamięci komputera to ciąg bitów. Program musi wiedzieć, w jaki sposób ją traktować. Inaczej działa się na liczbach całkowitych a inaczej jest na liczbach zmiennoprzecinkowych. Ponadto zmienna może zawierać w sobie inne zmienne. Dlatego każda zmienna musi mieć zdefiniowany swój typ. Typ określa jaka jest długość zmiennej, jak np. dodawać do siebie zmienne, czy można porównać ze sobą 2 zmienne. Jeżeli zmienna zawiera w sobie inne zmienne - jaka jest struktura takiej zmiennej złożonej.

pamięć operacyjna w języku Fortran

Język Fortran jest językiem kompilowanym bezpośrednio do kodu maszynowego. Oznacza to, że nie posiada on żadnych mechanizmów, kontrolujących dostęp do pamięci (w przeciwieństwie np. do języka Java). Pamięć jest to nic innego, jak tylko ciąg bitów, które zależnie od interpretacji, mogą dla programu stanowić liczbę całkowitą, znak (jedną literkę), łańcuch (kilka literek) lub liczbę rzeczywistą (w notacji dziesiętnej z kropką). Aby wymusić interpretację ciągu bitów o określonej długości używamy tzw. typów zmiennej. Typ definiuje zwykle też długość zmiennej. Dzięki użyciu typów program wie, że np. zmienna x przechowuje jakąś liczbę całkowitą a zmienna y przechowuje liczbę rzeczywistą. Aby korzystać ze zmiennych musimy je uprzednio zadeklarować. W języku Fortran wykonuje się to w następujący sposób (według normy Fortran95):

  typ_zmiennej :: nazwa_zmiennej

lub (według normy Fortran77) :

  typ_zmiennej nazwa_zmiennej

nazwy zmiennych

Nazwa zmiennej musi jak najwierniej opisywać obiektu rzeczywistego, który ta zmienna opisuje.

Zalecane nazwy zmiennych zależą od typu zmiennej.

  1. zmienne liczbowej - można jej nadać formę orzekającą np. LICZBA_ELEKTRONOW, ZASIEG_RZUTU_KAMIENIA, PREDKOSC_SAMOLOTU_X.
  2. zmienne logiczne - można np. DANE_SA_POPRAWNE, KONTYNUUJ_OBLICZENIA

Każda zmienna musi mieć dobrze opisane swoje znaczenie. Najlepiej na początku programu. Pozwala to uniknąć późniejszego zgadywania znaczenia zmiennej.

Każda zmienna powinna być używana zgodnie ze swoim przeznaczeniem. Wykorzystywanie jednej zmiennej przez różne elementy programu nie związane ze sobą powoduje problemy ze zrozumieniem działania programu.

Typy zmiennej

Typ zmiennej może odnosić się do różnego rodzaju danych, które mają być przechowywane w zmiennej.

Liczby

Typ zmiennej Opis Przykładowe wartości
integer liczba całkowita 15, -6500, 200000000
real liczba zmiennoprzecinkowa pojedynczej precyzji 3.1415, -5.5, .7e3, 12.5E-5
double precision liczba zmiennoprzecinkowa podwójnej precyzji 3.1415D0, -5.5D0, .7d3, 12.5D-5
complex liczby zespolone (kombinacja części rzeczywistej i urojonej) (3.1415, -5.5), (1.4, 7.1E4)

Zmienne liczbowe mogą być podawane w różnych systemach liczbowych. Domyślnie przyjmowany jest dziesiętny, jednak, aby kompilator wiedział, że używasz innego systemu, przyjmuje się następujące założenia:

Zapis System
Z"liczba" lub Z'liczba' szesnastkowy
O"liczba" lub O'liczba' ósemkowy
B"liczba" lub B'liczba' binarny

Język Fortran dopuszcza także definiowanie przez programistę rozmiaru zmiennej. Uzyskuje się to poprzez dodanie w deklaracji zmiennej następującej konstrukcji:

real*4 nazwa_zmiennej
  lub
real   nazwa_zmiennej           -domyślny typ
  lub
real(kind=4)::nazwa_zmiennej

oznacza 4-bajtową liczbę rzeczywistą. Natomiast, aby uzyskać typ podwójnej precyzji używamy konstrukcji:

real*8 nazwa_zmiennej.
  lub
real(kind=8)::nazwa_zmiennej

w niektórych kompilatorach możemy uzyskać poczwórną precyzje.

real(kind=16)::nazwa_zmiennej

Wartości logiczne

Do przechowywania wartości logicznych także przeznaczono specjalny typ danych.

Typ Opis Możliwe wartości
logical Przechowywanie wartości logicznej .TRUE. lub .FALSE.

Znaki i łańcuchy

Przechowywanie pojedynczych znaków odbywa się przy pomocy typu CHARACTER. Natomiast deklarowanie łańcucha polega na dodaniu * oraz długości łańcucha (w znakach). Oznacza to, że aby przechować np. nazwę "pl.Wikibooks" musimy napisać tak:

character*12 :: nazwa="pl.Wikibooks"
print *, nazwa

Uwagi, dotyczące długości poszczególnych typów danych:

  • dla typu integer możliwe jest zaalokowanie 1, 2, 4 lub 8 bajtów
  • dla typu real odpowiednio 4 lub 8
  • dla typu Complex 8 lub 16
  • dla typu character nie ma ograniczeń długości

Stałe

Język Fortran umożliwia także deklarację zmiennych, których zawartości nie da się zmieniać. Są to tzw. stałe. Deklaruje się je podobnie do zmiennych, z tą jednak różnicą, że przy nazwie typu dodajemy słowo parameter. Dla standardu Fortran 95 wygląda to następująco:

   typ, parameter :: nazwa = wartość

Natomiast według Fortran 77 wygląda to tak:

  typ nazwa
  parameter (nazwa=wartość)

Uwaga: kompilator języka Fortran nie zasygnalizuje błędu, jeśli stałej w kodzie programu przypiszesz inną wartość! Np.

   integer, parameter :: p = 3
   print *, "p=",p
   parameter p = 9
   print *, "p=",p

Tablice

Czasami zdarza się, że potrzebujemy przechować więcej niż jedną wartość danego typu (np. real). Język Fortran umożliwia nam zestawianie kilku zmiennych w tzw. tablicę. Definiuje się ją następująco:

  typ zmienna(wymiar)

gdzie wymiar oznacza ilość zmiennych tego samego rodzaju. W tym przypadku będzie to tablica jednowymiarowa. Możemy jednak używać tablic wielowymiarowych, np. 2x2:

  real tablica(2,2)

Nie należy jednak definiować tablicy o zbyt dużej ilości wymiarów - niesie to ze sobą duże zużycie pamięci.

Sposoby deklaracji tablic

W przeciwieństwie do np. języka C, język Fortran umożliwia programiście deklarację tablicy na wiele różnych sposobów. Oto niektóre z nich:

Sposób pierwszy:

  real tablica(10)

Sposób drugi:

  real tablica 
  dimension tablica(10)

Sposób trzeci:

  integer index
  parameter (index=10)
  real tablica(index)

Sposób czwarty:

  real tablica(0:9)

W specyfikacji F95, deklaracja różni się tylko tym, że używany jest dwukropek (::).

Modyfikowanie zawartości tablicy

Aby zmodyfikować jakiś element tablicy, musimy znać jego położenie. Do tego celu służy tzw. indeks. Aby zmodyfikować pierwszy i drugi element tablicy piszemy:

  tablica(1) = 0.4
  tablica(2) = 0.3

Odczyt zawartości jakiegoś elementu tablicy dokonuje się w analogiczny sposób:

  print *, "Tablica[1]=", tablica(1)


Instrukcje sterujące

Logika

Na początku warto zastanowić się, na podstawie czego komputer może podejmować decyzję. Zwykle odbywa się to na podstawie jednej z dwóch wartości - prawdy, oznaczanej w Fortranie jako .TRUE. oraz fałszu, oznaczanego jako .FALSE.. Mamy również pewien zbiór operacji logicznych. Oto one:

operacja nazwa
.NOT. negacja
.AND. koniunkcja
.OR. alternatywa
.EQV. równoważność
.NEQV. zaprzeczenie równoważności, alternatywa wykluczająca

Działanie tych operatorów najlepiej zademonstruje ta tabelka:

A B .NOT. A A .AND. B A .OR. B A .EQV. B A .NEQV. B
.TRUE. .TRUE. .FALSE. .TRUE. .TRUE. .TRUE. .FALSE.
.TRUE. .FALSE. .FALSE. .FALSE. .TRUE. .FALSE. .TRUE.
.FALSE. .TRUE. .TRUE. .FALSE. .TRUE. .FALSE. .TRUE.
.FALSE. .FALSE. .TRUE. .FALSE. .FALSE. .TRUE. .FALSE

Porównując dwie liczby możemy np. ocenić ich wzajemną relację, tzn. czy liczba a jest większa, mniejsza a może równa. W języku Fortran możemy do tego celu użyć dwóch grup operatorów. Jedna grupa znana jest zapewne programistom, tworzącym swe programy w językach C oraz Pascal (tzn. >, <, = (lub == w C), >=, <=). Oprócz nich w języku Fortran możemy także używać:

operator opis
.LT. ang. less than - inaczej <
.LE. ang. less equal - inaczej <=
.GT. ang. greater than - inaczej >
.GE. ang. greater equal - inaczej >=
.EQ. ang. equal - inaczej == (lub = w Pascalu)
.NE. ang. not equal - inaczej != (lub <> w Pascalu)


GOTO

Jest to pierwsza instrukcja, jaką poznasz. Jezyk Fortran dawniej wręcz wymuszał użycie konstrukcji GOTO. Aż do wersji Fortranu 66 brakowało konstrukcji pętli WHILE. Trzeba było sobie radzić przez skok do początku refrenu pętli właśnie za pomocą konstrukcji GOTO. W Fortranie 77 wystąpienie błędu operacji wejścia/wyjścia powoduje skok do wskazanego miejsca w programie.

Jedyną zaletą instrukcji GOTO jest możliwość dowolnego kształtowania przebiegu sterowania w programie. Niestety odbywa się to prawie zawsze kosztem czytelności kodu. Konstrukja GOTO powinna być stosowana z umiarem, aby nie stracić kontroli nad rozumieniem programu.

Czytając wprowadzenie do tego podręcznika zapamiętałeś (a jeśli nie, to masz tutaj link), że w języku Fortran (do wersji 77 włącznie) ma znaczenie liczba spacji. Wiesz także, że pierwsze 1-5 spacji przeznaczone jest na pewną liczbę z zakresu od 1 do 99999. Owe liczby nie są tylko po to, aby numerować linijki kodu źródłowego (zresztą i tak czasami byłoby ich za mało). Oznaczają one mniej więcej to, co etykiety w języku C. To dzięki nim możemy określić punkt w kodzie programu, do którego możemy potem "przeskoczyć". Do "skakania" po kodzie programu służy instrukcja GOTO. Oto przykład użycia:

 program skok
   goto 10
   write (*,*) "Skakanka..."
10 continue
end program skok

Efekt działania tego programu jest oczywisty... program po prostu zakończy swe działanie. W kodzie programu została także użyta instrukcja CONTINUE, która powoduje po prostu dalsze wykonywanie programu.

IF

Nasz program powinien mieć możliwość reagowania na zawartość np. zmiennych. Przyjrzyjmy się zatem instrukcji IF. Służy ona do zdefiniowania czynności, które mają być wykonane w momencie prawdziwości jakiegoś warunku. Użycie instrukcji IF wygląda mniej więcej tak:

  IF (warunek) instrukcje do wykonania

Ważne jest przy tym, aby instrukcje te były wpisane w tej samej linijce, co IF - w przeciwnym wypadku kompilator zasygnalizuje błąd.

IF - THEN

Jedna linijka to mało. Czasami potrzebujemy wykonać tak dużo instrukcji, że po prostu nie zmieszczą się w jednej linijce. Do tego celu powstała konstrukcja IF - THEN. Ogólnie rzecz biorąc jej zastosowanie wygląda tak:

 IF (warunek) THEN
   instrukcje do wykonania
 END IF

IF - THEN - ELSE

W tworzeniu programu zdarzają się też przypadki, w których program powinien zareagować także na sytuację przeciwną do warunku. Wtedy z pomocą przychodzi konstrukcja IF - THEN - ELSE:

 IF (warunek) THEN
   instrukcje do wykonania
 ELSE
   instrukcje do wykonania w przeciwnym wypadku
 END IF

SELECT - CASE

Jeśli musimy zareagować na większą ilość warunków, to zamiast powtarzać konstrukcję if-else lepiej użyć select-case. Użycie tej konstrukcji jest bardzo proste:

 select case (wyrażenie)
               case (warunek1)
                 instrukcje do wykonania w przypadku wyrażenie == warunek1
               case (warunek2) 
                 instrukcje do wykonania w przypadku wyrażenie == warunek2
               [case default
                 instrukcje do wykonania w innych przypadkach ]
 end select 

Zastosowanie tej pętli w praktyce jest bardzo proste. Przeanalizujmy następujący przykład:

 program test
   implicit none
 
   integer :: i
   i = 123
   select case (i)
         case (123, 125)
            print *, "i=123 lub i=125"
         case (10:30)
            print *, "i zawiera się w przedziale od 10 do 30"
         case default
            print *, "inny przypadek"
   end select
 
 end program test

Pętle

Może się zdarzyć, że w twoim programie jakaś czynność (bądź kilka czynności) będzie musiała być wykonana kilka razy pod rząd. Oczywiście nie ma sensu kilka razy kopiować i wklejać tego samego kodu. W takich przypadkach z pomocą przychodzą nam pętle. Pętla jest to instrukcja, która umożliwia wielokrotne powtarzanie tego samego kodu. W języku Fortran wyróżnia się kilka rodzajów pętli. Zostaną one omówione poniżej.

do

Najprostszą pętlą jest pętla do. Wygląda ona tak:

  [nazwa] do zmienna=wartość początkowa, wartość końcowa [,skok co]
    instrukcje
  end do [nazwa]

Aby np. policzyć do dziesięciu, licząc po dwa możemy napisać coś takiego:

  do i=0, 10, 2
    print *, "Doliczyłem do ",i
  end do

Jak widzisz, nie musisz wcześniej deklarować zmiennej i. Kompilator automatycznie użyje typu integer. Minusem tej pętli jest to, że krokiem może być tylko liczba całkowita. Za to wielkim plusem jest automatyczne sprawdzanie zakresów. Np. pisząc pętlę od 0 do 10 z krokiem 3 ostatnią wartością będzie 9.

do-if-exit

Pętla ta wykonuje się w nieskończoność, dopóki nie wystąpi instrukcja exit. Instrukcja ta jest zwykle efektem spełnienia jakiegoś warunku. Zwykle wygląda to tak:

 [nazwa] do
    instrukcje
    if (warunek logiczny) exit
    instrukcje
 end do [nazwa]

W przeciwieństwie do pętli omówionej powyżej, możemy tutaj użyć typu real jako licznika. Oto przykład:

 real :: p=0
   do
     p = p+0.5
     if (p>10) exit
     print *, "A teraz jest: ",p
   end do


Podstawowe działania matematyczne

Operatory matematyczne

Język Fortran posiada specjalną grupę operatorów, które służą tylko do działań matematycznych. Są to m.in.:

operator działanie
+ dodawanie
- odejmowanie
* mnożenie
/ dzielenie
** potęgowanie

Oprócz nich, w skład specyfikacji języka Fortran wchodzą także funkcje matematyczne, które zostaną omówione poniżej.

ABS

Oblicza wartość bezwzględną z danej liczby. Przykład użycia:

  program abcd
    real :: x
    x = abs (-0.45)
    print *, "|-0.45|=",x
  end program abcd

ACOS

Jest to instrukcja, obliczająca wartość arcus cosinus dla podanego argumentu. Funkcja zwróci wynik w radianach. Przykład użycia:

 program abc
   real :: x
   x = acos (0.9)
   print *, "arccos(0.9)=",x
 end program abc


dACOS

Jest to instrukcja, obliczająca wartość arcus cosinus z liczby o podwójnej precyzji dla podanego argumentu. Funkcja zwróci wynik o podwójnej precyzji w radianach. Przykład użycia:


 program Dabc
   real (kind=8):: x,a
   a=0.9
   x = dacos (a)
   print *, "arccos(0.9)=",x
 end program Dabc

dACOSd

Jest to instrukcja, obliczająca wartość arcus cosinus z liczby o podwójnej precyzji dla podanego argumentu. Funkcja zwróci wynik o podwójnej precyzji w stopniach. Przykład użycia:


 program Dabcd
   real (kind=8):: x,a
   a=0.9
   x = dacosd (a)
   print *, "arccos(0.9)=",x,stopnie'
 end program Dabcd


Procedury i funkcje

Tworząc programy niejednokrotnie zdarzy Ci się powtarzać kilkakrotnie ten sam fragment kodu. Będzie on dotyczył różnego rodzaju czynności. Może także się zdarzyć, że będziesz potrzebował użyć języka Fortran w projekcie, który będzie tworzony przy użyciu języka C. W podobnych przypadkach użyjesz funkcji. Funkcję można zdefiniować jako wydzielony fragment programu wyspecjalizowany do wykonywania określonej czynności. W tytule tego rozdziału zostało także użyte słowo procedura. Jest to z kolei pewien przypadek funkcji, kiedy nie zwraca ona żadnej wartości - np. wyniku obliczeń. Różni się ona przy tym sposobem deklaracji oraz wywołania.

Korzystanie z funkcji

Ucząc się trudnej sztuki programowania z tego podręcznika spotkałeś się już z funkcjami. Dobrym przykładem mogą tu być funkcje write oraz print, które służą do obsługi wyjścia programu. Funkcję wywołuje się w następujący sposób (elementy w nawiasach kwadratowych są nieobowiązkowe):

  [zmienna =] nazwa_funkcji([argumenty funkcji])

W języku Fortran istnieje także możliwość przypisania funkcji pewnej wartości i korzystania z niej jako ze zmiennej. Oto jej deklaracja:

  nazwa_funkcji([argumenty funkcji]) = wartość

Deklarowanie funkcji

W języku Fortran funkcję definiuje się w sposób następujący:

  [typ danych] FUNCTION nazwa_funkcji ([argumenty funkcji])
    instrukcje...
    END

Zwracanie wartości

W przeciwieństwie, do np. C w Fortranie wartość, która ma zostać zwrócona jest przypisywana nazwie funkcji. Natomiast słowo RETURN powoduje natychmiastowe wyjście z funkcji. Wygląda to mniej więcej tak:

  real function kwadrat (a)
     real, intent(in) :: a
     kwadrat = a**2
     return 
  end function

Funkcja rekurencyjna

W języku Fortran stworzenie funkcji rekurencyjnej nie jest takie proste a dodatkowo nie jest zgodne ze standardem f77. Aby funkcja mogła wywołać samą siebie musimy użyć słowa recursive:

  recursive function nazwa
    nazwa()
  end function nazwa

Procedura

Oprócz funkcji, wyróżniamy jeszcze procedurę. Definiuje się ją tak:

  subroutine nazwa_procedury ([argumenty])
    instrukcje
    [return]
  end subroutine nazwa_procedury

Aby wywołać procedurę musisz użyć instrukcję call:

  call nazwa_procedury ([argumenty])


Podstawowe operacje wejścia i wyjścia

Język Fortran posiada własne mechanizmy zarządzania wejściem i wyjściem. W przeciwieńtwie do języków niskopoziomowych nie korzysta bezpośrednio z zestawu funkcji dostarczanych przez system operacyjny[4]. Dlatego też w Fortranie samemu można definiować takie elementy, jak np. uchwyt pliku, który w innych językach (np. C) otrzymuje się od funkcji otwierającej plik.

Podstawowe funkcje

open

Aby móc wykonywać jakiekolwiek operacje na pliku (np. odczytywanie lub zapis do pliku) musimy go najpierw otworzyć, czyli powiadomić system operacyjny komputera, że dany plik będzie używany przez nasz program. W języku Fortran otwarcie pliku wiąże się także z przypisaniem mu identyfikatora (czyli dodatniej liczby całkowitej), który posłuży do identyfikacji pliku w kodzie programu. Otwarcie pliku może nastąpić także z różnymi opcjami. Na przykład, jeśli chcemy tylko odczytywać dane z pliku to nasz plik powinien zostać otwarty w trybie tylko do odczytu (ro, read only).

Język Fortran do otwierania plików korzysta z funkcji open. Najogólniej dany plik można otworzyć tak:

  open (20, file="sciezka/nazwa pliku", iostat=stat)

Takie wywołanie fukcji oznacza "otwórz plik 'sciezka/nazwa pliku' i nadaj mu identyfikator 20". Od tego momentu funkcje odczytujące i zapisujące dane do pliku mogą korzystać z pliku.


Preprocesor

Vista-vlc.png

Sekcja " Fortran/Preprocesor " znajduje się w budowie

Vista-vlc.png

Jeżeli chcesz rozszerzyć ten podręcznik o tę sekcję, kliknij na ten link.


Operacje na łańcuchach

Vista-vlc.png

Sekcja " Fortran/Operacje na łańcuchach " znajduje się w budowie

Vista-vlc.png

Jeżeli chcesz rozszerzyć ten podręcznik o tę sekcję, kliknij na ten link.


Styl programowania

Vista-vlc.png

Sekcja " Fortran/Styl " znajduje się w budowie

Vista-vlc.png

Jeżeli chcesz rozszerzyć ten podręcznik o tę sekcję, kliknij na ten link.


Typy złożone

Vista-vlc.png

Sekcja " Fortran/Typy złożone " znajduje się w budowie

Vista-vlc.png

Jeżeli chcesz rozszerzyć ten podręcznik o tę sekcję, kliknij na ten link.


Zarządzanie pamięcią

Vista-vlc.png

Sekcja " Fortran/Zarządzanie pamięcią " znajduje się w budowie

Vista-vlc.png

Jeżeli chcesz rozszerzyć ten podręcznik o tę sekcję, kliknij na ten link.


Odnajdowanie błędów

ftnchek

Jednym z użytecznych programów do odnajdowania błędów w kodzie napisanym w języku Fortran jest program ftnchek.

Dla przykładu sprawdźmy plik test.f:

       program test
       call nie_ma(0.4)
       print*,'zapomnialem ostatni apostrof
       end

komenda

ftnchek test.f

daje następującą informację:

FTNCHEK Version 3.3 November 2004

File test.f:
     3         print*,'zapomnialem ostatni apostrof
                                                    ^
Error near line 3 col 46 file test.f: Closing quote missing from string

1 syntax error detected in file test.f

Warning: Subprogram NIE_MA never defined
   Invoked in module TEST line 2 file test.f

Pokazuje on jeden błąd w linii 3 w kolumnie 46 (brakuje apostrof (quote)), i uważa, że subroutine nie_ma (lub NIE_MA) nie jest zdefiniowany.

Linki zewnętrzne


Iloczyn macierzy

Poniższy program w FORTRAN-77 sprawdza wymiary macierzy, następnie, jeżeli wymiary macierzy umożliwiają wykonanie operacji mnożenia, pobiera od użytkownika zawartość macierzy i wyświetla macierz będącą iloczynem wprowadzonych macierzy.

     PROGRAM iloczyn macierzy
     REAL A(10,10), B(10,10), C(10,10)
     INTEGER Aw,Ak,Bw,Bk,Cw,Ck,i,j,k
     PRINT *,'Wprowadz wymiary macierzy A (w,k)'
     READ *,Aw,Ak
     PRINT *,'Wprowadz wymiary macierzy B (w,k)'
     READ *,Bw,Bk
     IF (Ak.NE.Bw) THEN
     PRINT *,'Nie zgadzaja sie wymiary macierzy'
     STOP
     ENDIF
     
     Cw=Aw
     Ck=Bk
     
     PRINT *,'Wprowadz wiersze macierzy A'
     DO i=1,Aw
     READ *,(A(i,j),j=1,Ak)
     ENDDO
     
     PRINT *,'Wprowadz wiersze macierzy B'
     DO i=1,Bw
     READ *,(B(i,j),j=1,Bk)
     ENDDO
     
     DO i=1,Cw
       DO j=1,Ck
         C(i,j)=0
         DO k=1,Ak
          C(i,j)=C(i,j)+A(i,k)*B(k,j)
         ENDDO
       ENDDO
     ENDDO
     
     
     PRINT *,'Macierz wynikowa  ='
     DO i=1,Cw
     PRINT *,(C(i,j),j=1,Ck)
     ENDDO
     
     END


Metoda najmniejszych kwadratów

Poniższy program w FORTRAN-77 przybliża punkty pomiarowe prostą o równaniu y = ax + b wyliczając wartości współczynników a i b oraz ich niepewności.

     PROGRAM metoda_najmniejszych_kwadratow
     
     REAL x(20), y(20), a, b, xSredn, D, 
    1      yDelta, aDelta, bDelta
     INTEGER n
 
     PRINT *, 
     PRINT *, 
     PRINT *, 'Program dopasowuje prosta do zbioru punktow'
     PRINT *, 'doswiadczalnych wykorzystujac metode najmniejszych'
     PRINT *, 'kwadratow, ponadto oblicza odchylenia standardowe'
     PRINT *, 'obydwu parametrow prostej.'
     PRINT *, 
 
     PRINT *, 'Wprowadz liczbe punktow dosw. (min=3,maks=20)..'
     READ *, n
     IF ( (n.GT.20) .OR. (n.LT.3) ) THEN
       PRINT *, 'Liczba spoza zakresu !!'
       STOP
     ENDIF
 
     PRINT *, 'Wprowadz wspolrzedne punktow (na przemian: odcieta'
     PRINT *, 'i rzedna oddzielone spacja lub ENTER bez nawiasow'
     PRINT *, 'i przecinkow, wartosci calkowite od dziesietnych'
     PRINT *, 'oddzielone kropka)...'
     READ *, (x(i), y(i), i=1, n)      
 
     xSredn=0
     DO i=1, n
       xSredn = xSredn + x(i)
     ENDDO
     xSredn = xSredn / n
     
     D=0
     DO i=1, n
       D = D + ( x(i) - xSredn )**2  
     ENDDO
     IF (D.EQ.0) THEN
       PRINT *, 'Wprowadzone punkty sugeruja, ze szukana prosta'
       PRINT *, 'bedzie rownolegla do osi Oy, co uniemozliwia'
       PRINT *, 'obliczenie wartosci wspolczynnikow a i b rownania.'
       STOP
     ENDIF
  
     a=0
     DO i=1, n
       a = a + y(i) * ( x(i) - xSredn )
     ENDDO
     a = a / D
 
     b=0
     DO i=1, n
       b = b + ( y(i) - a*x(i) )
     ENDDO
     b = b / n
 
     yDelta = 0
     DO i=1, n
       yDelta = yDelta + ( y(i) - a*x(i) - b )**2
     ENDDO
     yDelta = yDelta / (n-2)
     yDelta = SQRT(yDelta)
 
     aDelta = yDelta / SQRT( D )
     bDelta = yDelta * SQRT( 1/n + (xSredn**2)/D )
 
     PRINT *, 'Wprowadzone punkty najlepiej przybliza prosta:' 
     PRINT *, '     y =', a, ' x +', b, '  ,'
     PRINT *, 'przy czym bledy wspolczynnikow a i b maja wartosc odp.:'
     PRINT *, '     ', aDelta, '  ,  ', bDelta
 
 
     END


Fortran a C

Vista-vlc.png

Sekcja " Fortran/Fortran a C " znajduje się w budowie

Vista-vlc.png

Jeżeli chcesz rozszerzyć ten podręcznik o tę sekcję, kliknij na ten link.


Łączenie języka C z językiem Fortran

Vista-vlc.png

Sekcja " Fortran/Łączenie " znajduje się w budowie

Vista-vlc.png

Jeżeli chcesz rozszerzyć ten podręcznik o tę sekcję, kliknij na ten link.


Inne dialekty języka Fortran

FORTRAN-77

W języku FORTRAN 77 i wcześniejszych, pozycja znaku w lini kodu wpływała na jego znaczenie. Instrukcje języka umieszczano między 7 a 72 kolumną. Zatem program hello.f (zwróć uwagę na rozszerzenie) będzie wyglądał tak:

C To jest program przykładowy w FORTRAN-77  
      program hello
        write (*,*) "Hello world"
      end program hello

Uwaga - znaki odstępu (spacje) na początku linijki kodu mają znaczenie! Kompilacja i uruchomienie wygląda tak:

gfortran hello.f -o hello
./hello

Oto ściąga, która wyjaśnia co oznaczają odpowiednie odstępy:

Odległość (w spacjach) Zawartość Znaczenie
1 znak C lub * Komentarz, lub kontynuacja komentarza
1 do 5 liczba pomiędzy 1 do 99999 numer linijki (działa jako etykieta w instrukcji skoku)
6 wyrażenia, rozpoczynające określony blok kodu
7 do 72 różne wyrażenia instrukcje Fortranu
73 do 80 komentarz


Licencja

Version 1.2, November 2002

Copyright (C) 2000,2001,2002  Free Software Foundation, Inc.
51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.

0. PREAMBLE

The purpose of this License is to make a manual, textbook, or other functional and useful document "free" in the sense of freedom: to assure everyone the effective freedom to copy and redistribute it, with or without modifying it, either commercially or noncommercially. Secondarily, this License preserves for the author and publisher a way to get credit for their work, while not being considered responsible for modifications made by others.

This License is a kind of "copyleft", which means that derivative works of the document must themselves be free in the same sense. It complements the GNU General Public License, which is a copyleft license designed for free software.

We have designed this License in order to use it for manuals for free software, because free software needs free documentation: a free program should come with manuals providing the same freedoms that the software does. But this License is not limited to software manuals; it can be used for any textual work, regardless of subject matter or whether it is published as a printed book. We recommend this License principally for works whose purpose is instruction or reference.

1. APPLICABILITY AND DEFINITIONS

This License applies to any manual or other work, in any medium, that contains a notice placed by the copyright holder saying it can be distributed under the terms of this License. Such a notice grants a world-wide, royalty-free license, unlimited in duration, to use that work under the conditions stated herein. The "Document", below, refers to any such manual or work. Any member of the public is a licensee, and is addressed as "you". You accept the license if you copy, modify or distribute the work in a way requiring permission under copyright law.

A "Modified Version" of the Document means any work containing the Document or a portion of it, either copied verbatim, or with modifications and/or translated into another language.

A "Secondary Section" is a named appendix or a front-matter section of the Document that deals exclusively with the relationship of the publishers or authors of the Document to the Document's overall subject (or to related matters) and contains nothing that could fall directly within that overall subject. (Thus, if the Document is in part a textbook of mathematics, a Secondary Section may not explain any mathematics.) The relationship could be a matter of historical connection with the subject or with related matters, or of legal, commercial, philosophical, ethical or political position regarding them.

The "Invariant Sections" are certain Secondary Sections whose titles are designated, as being those of Invariant Sections, in the notice that says that the Document is released under this License. If a section does not fit the above definition of Secondary then it is not allowed to be designated as Invariant. The Document may contain zero Invariant Sections. If the Document does not identify any Invariant Sections then there are none.

The "Cover Texts" are certain short passages of text that are listed, as Front-Cover Texts or Back-Cover Texts, in the notice that says that the Document is released under this License. A Front-Cover Text may be at most 5 words, and a Back-Cover Text may be at most 25 words.

A "Transparent" copy of the Document means a machine-readable copy, represented in a format whose specification is available to the general public, that is suitable for revising the document straightforwardly with generic text editors or (for images composed of pixels) generic paint programs or (for drawings) some widely available drawing editor, and that is suitable for input to text formatters or for automatic translation to a variety of formats suitable for input to text formatters. A copy made in an otherwise Transparent file format whose markup, or absence of markup, has been arranged to thwart or discourage subsequent modification by readers is not Transparent. An image format is not Transparent if used for any substantial amount of text. A copy that is not "Transparent" is called "Opaque".

Examples of suitable formats for Transparent copies include plain ASCII without markup, Texinfo input format, LaTeX input format, SGML or XML using a publicly available DTD, and standard-conforming simple HTML, PostScript or PDF designed for human modification. Examples of transparent image formats include PNG, XCF and JPG. Opaque formats include proprietary formats that can be read and edited only by proprietary word processors, SGML or XML for which the DTD and/or processing tools are not generally available, and the machine-generated HTML, PostScript or PDF produced by some word processors for output purposes only.

The "Title Page" means, for a printed book, the title page itself, plus such following pages as are needed to hold, legibly, the material this License requires to appear in the title page. For works in formats which do not have any title page as such, "Title Page" means the text near the most prominent appearance of the work's title, preceding the beginning of the body of the text.

A section "Entitled XYZ" means a named subunit of the Document whose title either is precisely XYZ or contains XYZ in parentheses following text that translates XYZ in another language. (Here XYZ stands for a specific section name mentioned below, such as "Acknowledgements", "Dedications", "Endorsements", or "History".) To "Preserve the Title" of such a section when you modify the Document means that it remains a section "Entitled XYZ" according to this definition.

The Document may include Warranty Disclaimers next to the notice which states that this License applies to the Document. These Warranty Disclaimers are considered to be included by reference in this License, but only as regards disclaiming warranties: any other implication that these Warranty Disclaimers may have is void and has no effect on the meaning of this License.

2. VERBATIM COPYING

You may copy and distribute the Document in any medium, either commercially or noncommercially, provided that this License, the copyright notices, and the license notice saying this License applies to the Document are reproduced in all copies, and that you add no other conditions whatsoever to those of this License. You may not use technical measures to obstruct or control the reading or further copying of the copies you make or distribute. However, you may accept compensation in exchange for copies. If you distribute a large enough number of copies you must also follow the conditions in section 3.

You may also lend copies, under the same conditions stated above, and you may publicly display copies.

3. COPYING IN QUANTITY

If you publish printed copies (or copies in media that commonly have printed covers) of the Document, numbering more than 100, and the Document's license notice requires Cover Texts, you must enclose the copies in covers that carry, clearly and legibly, all these Cover Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on the back cover. Both covers must also clearly and legibly identify you as the publisher of these copies. The front cover must present the full title with all words of the title equally prominent and visible. You may add other material on the covers in addition. Copying with changes limited to the covers, as long as they preserve the title of the Document and satisfy these conditions, can be treated as verbatim copying in other respects.

If the required texts for either cover are too voluminous to fit legibly, you should put the first ones listed (as many as fit reasonably) on the actual cover, and continue the rest onto adjacent pages.

If you publish or distribute Opaque copies of the Document numbering more than 100, you must either include a machine-readable Transparent copy along with each Opaque copy, or state in or with each Opaque copy a computer-network location from which the general network-using public has access to download using public-standard network protocols a complete Transparent copy of the Document, free of added material. If you use the latter option, you must take reasonably prudent steps, when you begin distribution of Opaque copies in quantity, to ensure that this Transparent copy will remain thus accessible at the stated location until at least one year after the last time you distribute an Opaque copy (directly or through your agents or retailers) of that edition to the public.

It is requested, but not required, that you contact the authors of the Document well before redistributing any large number of copies, to give them a chance to provide you with an updated version of the Document.

4. MODIFICATIONS

You may copy and distribute a Modified Version of the Document under the conditions of sections 2 and 3 above, provided that you release the Modified Version under precisely this License, with the Modified Version filling the role of the Document, thus licensing distribution and modification of the Modified Version to whoever possesses a copy of it. In addition, you must do these things in the Modified Version:

  • A. Use in the Title Page (and on the covers, if any) a title distinct from that of the Document, and from those of previous versions (which should, if there were any, be listed in the History section of the Document). You may use the same title as a previous version if the original publisher of that version gives permission.
  • B. List on the Title Page, as authors, one or more persons or entities responsible for authorship of the modifications in the Modified Version, together with at least five of the principal authors of the Document (all of its principal authors, if it has fewer than five), unless they release you from this requirement.
  • C. State on the Title page the name of the publisher of the Modified Version, as the publisher.
  • D. Preserve all the copyright notices of the Document.
  • E. Add an appropriate copyright notice for your modifications adjacent to the other copyright notices.
  • F. Include, immediately after the copyright notices, a license notice giving the public permission to use the Modified Version under the terms of this License, in the form shown in the Addendum below.
  • G. Preserve in that license notice the full lists of Invariant Sections and required Cover Texts given in the Document's license notice.
  • H. Include an unaltered copy of this License.
  • I. Preserve the section Entitled "History", Preserve its Title, and add to it an item stating at least the title, year, new authors, and publisher of the Modified Version as given on the Title Page. If there is no section Entitled "History" in the Document, create one stating the title, year, authors, and publisher of the Document as given on its Title Page, then add an item describing the Modified Version as stated in the previous sentence.
  • J. Preserve the network location, if any, given in the Document for public access to a Transparent copy of the Document, and likewise the network locations given in the Document for previous versions it was based on. These may be placed in the "History" section. You may omit a network location for a work that was published at least four years before the Document itself, or if the original publisher of the version it refers to gives permission.
  • K. For any section Entitled "Acknowledgements" or "Dedications", Preserve the Title of the section, and preserve in the section all the substance and tone of each of the contributor acknowledgements and/or dedications given therein.
  • L. Preserve all the Invariant Sections of the Document, unaltered in their text and in their titles. Section numbers or the equivalent are not considered part of the section titles.
  • M. Delete any section Entitled "Endorsements". Such a section may not be included in the Modified Version.
  • N. Do not retitle any existing section to be Entitled "Endorsements" or to conflict in title with any Invariant Section.
  • O. Preserve any Warranty Disclaimers.

If the Modified Version includes new front-matter sections or appendices that qualify as Secondary Sections and contain no material copied from the Document, you may at your option designate some or all of these sections as invariant. To do this, add their titles to the list of Invariant Sections in the Modified Version's license notice. These titles must be distinct from any other section titles.

You may add a section Entitled "Endorsements", provided it contains nothing but endorsements of your Modified Version by various parties--for example, statements of peer review or that the text has been approved by an organization as the authoritative definition of a standard.

You may add a passage of up to five words as a Front-Cover Text, and a passage of up to 25 words as a Back-Cover Text, to the end of the list of Cover Texts in the Modified Version. Only one passage of Front-Cover Text and one of Back-Cover Text may be added by (or through arrangements made by) any one entity. If the Document already includes a cover text for the same cover, previously added by you or by arrangement made by the same entity you are acting on behalf of, you may not add another; but you may replace the old one, on explicit permission from the previous publisher that added the old one.

The author(s) and publisher(s) of the Document do not by this License give permission to use their names for publicity for or to assert or imply endorsement of any Modified Version.

5. COMBINING DOCUMENTS

You may combine the Document with other documents released under this License, under the terms defined in section 4 above for modified versions, provided that you include in the combination all of the Invariant Sections of all of the original documents, unmodified, and list them all as Invariant Sections of your combined work in its license notice, and that you preserve all their Warranty Disclaimers.

The combined work need only contain one copy of this License, and multiple identical Invariant Sections may be replaced with a single copy. If there are multiple Invariant Sections with the same name but different contents, make the title of each such section unique by adding at the end of it, in parentheses, the name of the original author or publisher of that section if known, or else a unique number. Make the same adjustment to the section titles in the list of Invariant Sections in the license notice of the combined work.

In the combination, you must combine any sections Entitled "History" in the various original documents, forming one section Entitled "History"; likewise combine any sections Entitled "Acknowledgements", and any sections Entitled "Dedications". You must delete all sections Entitled "Endorsements."

6. COLLECTIONS OF DOCUMENTS

You may make a collection consisting of the Document and other documents released under this License, and replace the individual copies of this License in the various documents with a single copy that is included in the collection, provided that you follow the rules of this License for verbatim copying of each of the documents in all other respects.

You may extract a single document from such a collection, and distribute it individually under this License, provided you insert a copy of this License into the extracted document, and follow this License in all other respects regarding verbatim copying of that document.

7. AGGREGATION WITH INDEPENDENT WORKS

A compilation of the Document or its derivatives with other separate and independent documents or works, in or on a volume of a storage or distribution medium, is called an "aggregate" if the copyright resulting from the compilation is not used to limit the legal rights of the compilation's users beyond what the individual works permit. When the Document is included in an aggregate, this License does not apply to the other works in the aggregate which are not themselves derivative works of the Document.

If the Cover Text requirement of section 3 is applicable to these copies of the Document, then if the Document is less than one half of the entire aggregate, the Document's Cover Texts may be placed on covers that bracket the Document within the aggregate, or the electronic equivalent of covers if the Document is in electronic form. Otherwise they must appear on printed covers that bracket the whole aggregate.

8. TRANSLATION

Translation is considered a kind of modification, so you may distribute translations of the Document under the terms of section 4. Replacing Invariant Sections with translations requires special permission from their copyright holders, but you may include translations of some or all Invariant Sections in addition to the original versions of these Invariant Sections. You may include a translation of this License, and all the license notices in the Document, and any Warranty Disclaimers, provided that you also include the original English version of this License and the original versions of those notices and disclaimers. In case of a disagreement between the translation and the original version of this License or a notice or disclaimer, the original version will prevail.

If a section in the Document is Entitled "Acknowledgements", "Dedications", or "History", the requirement (section 4) to Preserve its Title (section 1) will typically require changing the actual title.

9. TERMINATION

You may not copy, modify, sublicense, or distribute the Document except as expressly provided for under this License. Any other attempt to copy, modify, sublicense or distribute the Document is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance.

10. FUTURE REVISIONS OF THIS LICENSE

The Free Software Foundation may publish new, revised versions of the GNU Free Documentation License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. See http://www.gnu.org/copyleft/.

Each version of the License is given a distinguishing version number. If the Document specifies that a particular numbered version of this License "or any later version" applies to it, you have the option of following the terms and conditions either of that specified version or of any later version that has been published (not as a draft) by the Free Software Foundation. If the Document does not specify a version number of this License, you may choose any version ever published (not as a draft) by the Free Software Foundation.

How to use this License for your documents

To use this License in a document you have written, include a copy of the License in the document and put the following copyright and license notices just after the title page:

Copyright (c)  YEAR  YOUR NAME.
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.2
or any later version published by the Free Software Foundation;
with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.
A copy of the license is included in the section entitled "GNU
Free Documentation License".

If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, replace the "with...Texts." line with this:

with the Invariant Sections being LIST THEIR TITLES, with the
Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST.

If you have Invariant Sections without Cover Texts, or some other combination of the three, merge those two alternatives to suit the situation.

If your document contains nontrivial examples of program code, we recommend releasing these examples in parallel under your choice of free software license, such as the GNU General Public License, to permit their use in free software.

  1. computerworld, wiadomości : NASA.poszukuje.programisty.znajacego.60.letni.jezyk.Fortran.html
  2. icm : oprogramowanie numeryczne
  3. Daniel Celton : why-physicsts-still-use-fortran/
  4. Oznacza to, że tworzy swego rodzaju "otoczkę" dla funkcji systemu operacyjnego.