Vstup/Vystup

Open

Otevření souboru a spojení s jednotkou. Příkaz má tvar:

open([unit=]číslo,file='nazev',status='new/old/scratch',
            access='sequential/direct/append',form='formated/unformated',
            action='read/write/readwrite',recl=číslo,...)

parameter status udává stav souboru při jeho otevření. Pokud soubor neexistuje a je otevřen s parametrem old, dostaneme chybu. Paremeter scratch vytváří dočasný soubor. Přístup k souboru může být buď sekvenční, přímý nebo můžeme do již existujícího souboru dopisovat. Záznamy v něm jsou buď formatované (obyčejně u souborů typu počítač-člověk) nebo neformatované (soubory typu počítač-počítač).Můžeme též předem specifikovat akci kterouy chceme se souborem dělat a parametrem recl definovat délku záznamů v souboru.

Close

Uzavření souboru. Příkaz má tvar:

close([unit=]číslo,status='keep/delete',...)

parameter status udává jestli má po uzavření soubor existovat nebo ne.

Inquire

Zjištění informací o souboru. Příkaz má tvar:

inquire(file='název',exist=.true./.false.,...)

tento příkaz má velké množství nejrůznejších parametrů a lze s ním zjistit o souboru kde co. Nejčastější použití je zjištění, jestli daný soubor existuje nebo ne. Například:

logical :: existuje
inquire(file='data.dat',exist=existuje)
write(*,*) existuje

Endfile

Zapsání značky konec souboru do souboru. Příkaz má tvar:

endfile([unit=]číslo,...)

paraemtry má pouze chybové.

Backspace

Vrácení o jeden záznam vzad. Příkaz má tvar:

backspace([unit=]číslo,...)

paraemtry má pouze chybové.

Rewind

Přetočení souboru na začátek. Příkaz má tvar:

rewind([unit=]číslo,...)

paraemtry má pouze chybové.

Čtení

Na čtení záznamů nebo řádků ze souboru používáme příkaz read. Každé jeho zavolání způsobí načtení jednoho záznamu nebo řádku z daného souboru. To znamená, že opakované čtení jednoho řádku lze procés jedině ve spolupráci s příkazem backspace nebo vhodným formátováním. Příkaz přiřadí hodnoty do proměnný uvedených za příkazem.

read([unit=]číslo,[fmt=]formát,[end=návěší],..) proměnné

jako jednotka může být uvedeno číslo předím otevřeneho souboru, hvězdička udávající standardní vstup nebo znaková konstanta ze které se čte. Formát je udání formátové specifikace nebo hvězdička udávající volný formát. Je-li uveden parameter end a dočteme se na konec souboru, skočí příkaz na předem dané návěští.

Zápis

Na zápis záznamů nebo řádků do souboru používáme příkaz write. Každé jeho zavolání způsobí zapsání jednoho záznamu nebo řádku do daného souboru. Ve fortranu je to obvyklý způsob zpracování. Není zvykem vypisovat na jeden řádek pomocí více příkazů, i když to lze udělat. Příkaz vypíše hodnoty proměnných uvedených za příkazem.

write([unit=]číslo,[fmt=]formát,[advance='no'],..) proměnné

jako jednotka může být uvedeno číslo předtím otevřeného souboru, hvězdička udávající standardní výstup nebo znaková konstanta do které se zapisuje. Formát je udání formátové specifikace nebo hvězdička udávající volný formát. Je-li uveden parameter advance='no' pak se neprovádí odřádkování a následující příkaz write začne vypisovat na tentýž řádek.

Formát

Formátování je ve fortranu mimořádně bohaté. Zde jsou uvedeny jen nejvíce používané způsoby. Postup při použití formátu je takový, že se postupně berou proměnné které se mají vypsat a asociují se s příslušným formátem. Pokud si neodpovídají typově dojde k chybě. Pokud neodpovídá počet formátových specifikací a počet veličin je v případě, že je formát delší než výspuní veličiny zbytek ignorován, pokud je naopak více výstupních veličin než formátů dojde k odřádkování. Všechny formáty odpovídající veličinám lze opakovat. Při formátovacím řízení se lze předbíhat i vracet.

Program degrees
! ukazka vstupu a vystupu volnym formatem
real :: ra1,ra2,dec1,dec2,ra,dec
character(len=80) :: objname

write(*,*) 'Degrees: program na prevod souradnic z hodin na stupne'
write(*,*)

! hlavni cyklus 
do 
   ! precteni objektu z klavesnice
   write(*,*) 'zadej nazev objektu v apostrofech, hodiny, minuty v RA a dec:', &
              '    konec=^D|^Z' 
   read(*,*,end=666) objname,ra1,ra2,dec1,dec2
   ra = 15.0*(ra1 + ra2/60.0)
   dec = dec1 + dec2/60.0
   write(*,*) objname,ra,dec
enddo
666 continue

end

Iw[.m]

Fw.d      nebo      Ew.d[Ee]    nebo Gw.d[Ee]

A[w]

kP

write(*,'(1P,E8.3)') 1.2  ->   1.2e+00

T, TR, TL