abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

dnes 10:33 | Komunita

V pondělí měl na YouTube online premiéru otevřený krátký 2D film Hero vytvořený v 3D softwaru Blender. Cílem stejnojmenného projektu Hero je vylepšit nástroj Grease Pencil (tužka) v Blenderu 2.8.

Ladislav Hagara | Komentářů: 3
včera 23:22 | Nová verze

Byla vydána verze 4.0 kolekce svobodného softwaru umožňujícího nahrávání, konverzi a streamovaní digitálního zvuku a obrazu FFmpeg (Wikipedie). Přehled novinek v Changelogu (GitHub).

Ladislav Hagara | Komentářů: 0
včera 17:22 | Komunita

Včera vydanou hru Rise of the Tomb Raider pro Linux lze do pondělí 23. dubna koupit na Steamu s 67% slevou. Místo 49,99 € za 16,49 €.

Ladislav Hagara | Komentářů: 0
včera 16:11 | Komunita

Na Humble Bundle lze získat počítačovou hru Satellite Reign (Wikipedie, YouTube) běžící také v Linuxu zdarma. Speciální akce končí v sobotu v 19:00.

Ladislav Hagara | Komentářů: 2
včera 15:44 | Zajímavý software

Společnost Apple koupila před třemi lety společnost FoundationDB vyvíjející stejnojmenný NoSQL databázový systém FoundationDB (Wikipedie). Včera byl tento systém uvolněn jako open source pod licencí Apache 2.0. Zdrojové kódy jsou k dispozici na GitHubu.

Ladislav Hagara | Komentářů: 0
včera 15:00 | Nová verze

Po dva a půl roce od vydání verze 5.7 oznámila společnost Oracle vydání nové major verze 8.0 (8.0.11) databázového systému MySQL (Wikipedie). Přehled novinek v poznámkách k vydání. Zdrojové kódy komunitní verze MySQL jsou k dispozici na GitHubu.

Ladislav Hagara | Komentářů: 2
19.4. 14:44 | Pozvánky

Spolek OpenAlt zve příznivce otevřených technologií a otevřeného přístupu na 151. brněnský sraz, který proběhne v pátek 20. 4. od 18:00 hodin v restauraci Benjamin na Drobného 46.

Ladislav Hagara | Komentářů: 0
19.4. 13:33 | Nová verze

Byla vydána verze 18.04.0 KDE Aplikací (KDE Applications). Přehled novinek v kompletním seznamu změn a na stránce s dalšími informacemi.

Ladislav Hagara | Komentářů: 0
19.4. 13:11 | Nová verze

Bylo oznámeno vydání nové stabilní verze 1.26 a beta verze 1.27 open source textového editoru Atom (Wikipedie). Přehled novinek i s náhledy v příspěvku na blogu. Podrobnosti v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
19.4. 12:55 | Komunita

Dle plánu byla dnes vydána hra Rise of the Tomb Raider (Wikipedie) pro Linux. Koupit ji lze za 49,99 €.

Ladislav Hagara | Komentářů: 3
Používáte na serverech port knocking?
 (3%)
 (7%)
 (46%)
 (27%)
 (17%)
Celkem 339 hlasů
 Komentářů: 29, poslední 5.4. 12:25
    Rozcestník

    Dotaz: Dialogové okno "otevřít soubor" ve FORTRANU?

    Marek 'Maxicom' Zelenka avatar 27.8.2008 14:21 Marek 'Maxicom' Zelenka | skóre: 13 | Kralupy nad Vltavou
    Dialogové okno "otevřít soubor" ve FORTRANU?
    Přečteno: 365×
    Dobrý den,

    potřeboval bych z programu, napsaném ve FORTRANU, zavolat dialogové okno "otevřít soubor", a pak programu vrátit cestu k vybranému souboru.

    Nevíte prosím někdo jak na to? Mám představu, že se k programu přibalí nějaká knihovna, která toto obstarává v prostředích GNOME nebo KDE a přes ní se to "nějak" udělá. Program by měl fungovat jak v Linuxu tak i na Windows.

    Děkuji za všechny vaše nápady

    Odpovědi

    27.8.2008 20:19 #Tom | skóre: 32 | blog: Inspirace, aneb co jsem kde vyhrabal
    Rozbalit Rozbalit vše Re: Dialogové okno "otevřít soubor" ve FORTRANU?
    Jaký Fortran máte na mysli? Ve Fortranu 77 bych se s něčím takovým otravovat nechtěl a obsluhu těchto věcí bych vytvořil v C nebo C++. Výslednou funkci pak lze samozřejmě z Fortranu 77 zavolat. Fortran 95 neznám skoro vůbec, ale tam už by možná šly takové funkce volat přímo.

    Připojení funkcí a knihoven z jiného jazyka je snadné, z hlediska volání překladače a linkeru je to v podstatě stejné jako u C a C++. Jména proměnných a funkcí v obou jazycích se však trochu liší. GNU Fortran 77 připojuje ke jménům funkcí automaticky podtržítko, funkce opndlg_ v C se bude volat ve Fortranu call opndlg. Common blocky jsou v C dostupné jako struktury, jejímiž prvky jsou jednotlivé proměnné.
    Marek 'Maxicom' Zelenka avatar 9.9.2008 23:55 Marek 'Maxicom' Zelenka | skóre: 13 | Kralupy nad Vltavou
    Rozbalit Rozbalit vše Re: Dialogové okno "otevřít soubor" ve FORTRANU?
    Řešení nakonec bylo jednoduché:

    opendialog.f90:

    ! Program: Grafické rozhrani pro interaktivni vstup jmena souboru.
    
    ! Pouzity kompilator: Intel(R) Visual Fortran Compiler for applications running on IA-32, Version 10.1
    
    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    
          program opendialog
    
    ! nacteme potrebne knihovny pro pouziti Windows API
    
          use comdlg32
    
          use user32
    
          
    
          implicit none
    
    
    
          type(T_OPENFILENAME) ofn
    
          character(512) :: file_spec = ""C
    
          integer status,ilen
    
          
    
          ofn%lStructSize = SIZEOF(ofn)
    
          ofn%hwndOwner = GetForegroundWindow()
    
          ofn%hInstance = NULL
    
          ofn%lpstrFilter = loc(0)
    
          ofn%lpstrCustomFilter = NULL
    
          ofn%nMaxCustFilter = 0
    
          ofn%nFilterIndex = 1
    
          ofn%lpstrFile = loc(file_spec)
    
          ofn%nMaxFile = sizeof(file_spec)
    
          ofn%nMaxFileTitle = 0
    
          ofn%lpstrInitialDir = NULL
    
          ofn%lpstrTitle = loc(""C)
    
          ofn%Flags = OFN_PATHMUSTEXIST
    
          ofn%lpstrDefExt = loc("txt"C)
    
          ofn%lpfnHook = NULL
    
          ofn%lpTemplateName = NULL
    
          
    
    ! Zkontrolujeme navratovou hodnotu
    
          status = GetOpenFileName(ofn)
    
          if (status .eq. 0) then
    
            type *,'Nevratila se cesta k souboru!'
    
          else
    
    ! Zjistime pocet znaku cesty k souboru
    
            ilen = INDEX(file_spec,CHAR(0))
    
            type *,'Cesta k souboru: ',file_spec(1:ilen-1)
    
          end if
    
          end program opendialog
    Marek 'Maxicom' Zelenka avatar 9.9.2008 23:57 Marek 'Maxicom' Zelenka | skóre: 13 | Kralupy nad Vltavou
    Rozbalit Rozbalit vše Re: Dialogové okno "otevřít soubor" ve FORTRANU?
    Řešení je zatím jen pro Windows...
    Fuky avatar 10.9.2008 01:53 Fuky | skóre: 52 | blog: 4u
    Rozbalit Rozbalit vše Re: Dialogové okno "otevřít soubor" ve FORTRANU?
    Příloha:

    Já bych to nekomplikoval, napsal část s GUI v C a přilinkoval k vlastnímu programu ve Fortranu. Ukázka v příloze využívá GTK.

    Fuky avatar 10.9.2008 07:51 Fuky | skóre: 52 | blog: 4u
    Rozbalit Rozbalit vše Re: Dialogové okno "otevřít soubor" ve FORTRANU?
    Nebo můžeš zkusit Platform Independent Library for Fortran, ale myslím, že to nebude moc používané a odladěné...
    Fuky avatar 10.9.2008 08:01 Fuky | skóre: 52 | blog: 4u
    Rozbalit Rozbalit vše Re: Dialogové okno "otevřít soubor" ve FORTRANU?
    A ještě mě napadá, že F2PY - Fortran to Python interface generator by nemuselo být špatné řešení.
    Marek 'Maxicom' Zelenka avatar 10.9.2008 08:52 Marek 'Maxicom' Zelenka | skóre: 13 | Kralupy nad Vltavou
    Rozbalit Rozbalit vše Re: Dialogové okno "otevřít soubor" ve FORTRANU?

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.