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í
×
    včera 17:22 | IT novinky

    Josef Průša oznámil zveřejnění kompletních CAD souborů rámů tiskáren Prusa CORE One a CORE One L. Nejsou vydány pod obecnou veřejnou licenci GNU ani Creative Commons ale pod novou licencí OCL neboli Open Community License. Ta nepovoluje prodávat kompletní tiskárny či remixy založené na těchto zdrojích.

    Ladislav Hagara | Komentářů: 2
    včera 17:00 | Komunita

    Nový CEO Mozilla Corporation Anthony Enzor-DeMeo tento týden prohlásil, že by se Firefox měl vyvinout v moderní AI prohlížeč. Po bouřlivých diskusích na redditu ujistil, že v nastavení Firefoxu bude existovat volba pro zakázání všech AI funkcí.

    Ladislav Hagara | Komentářů: 0
    včera 10:11 | IT novinky

    V pořadí šestou knihou autora Martina Malého, která vychází v Edici CZ.NIC, správce české národní domény, je titul Kity, bity, neurony. Kniha s podtitulem Moderní technologie pro hobby elektroniku přináší ucelený pohled na svět současných technologií a jejich praktické využití v domácích elektronických projektech. Tento knižní průvodce je ideální pro každého, kdo se chce podívat na současné trendy v oblasti hobby elektroniky, od

    … více »
    Ladislav Hagara | Komentářů: 1
    včera 03:11 | Komunita

    Linux Foundation zveřejnila Výroční zprávu za rok 2025 (pdf). Příjmy Linux Foundation byly 311 miliónů dolarů. Výdaje 285 miliónů dolarů. Na podporu linuxového jádra (Linux Kernel Project) šlo 8,4 miliónu dolarů. Linux Foundation podporuje téměř 1 500 open source projektů.

    Ladislav Hagara | Komentářů: 0
    včera 02:11 | Zajímavý článek

    Jean-Baptiste Mardelle se v příspěvku na blogu rozepsal o novinkám v nejnovější verzi 25.12.0 editoru videa Kdenlive (Wikipedie). Ke stažení také na Flathubu.

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

    OpenZFS (Wikipedie), tj. implementace souborového systému ZFS pro Linux a FreeBSD, byl vydán ve verzi 2.4.0.

    Ladislav Hagara | Komentářů: 0
    včera 01:00 | IT novinky

    Kriminalisté z NCTEKK společně s českými i zahraničními kolegy objasnili mimořádně rozsáhlou trestnou činnost z oblasti kybernetické kriminality. V rámci operací OCTOPUS a CONNECT ukončili činnost čtyř call center na Ukrajině. V prvním případě se jednalo o podvodné investice, v případě druhém o podvodné telefonáty, při kterých se zločinci vydávali za policisty a pod legendou napadeného bankovního účtu okrádali své oběti o vysoké finanční částky.

    Ladislav Hagara | Komentářů: 4
    18.12. 14:44 | IT novinky

    Na lepší pokrytí mobilním signálem a dostupnější mobilní internet se mohou těšit cestující v Pendolinech, railjetech a InterPanterech Českých drah. Konsorcium firem ČD - Telematika a.s. a Kontron Transportation s.r.o. dokončilo instalaci 5G opakovačů mobilního signálu do jednotek Pendolino a InterPanter. Tento krok navazuje na zavedení této technologie v jednotkách Railjet z letošního jara.

    Ladislav Hagara | Komentářů: 6
    18.12. 12:22 | Bezpečnostní upozornění

    Rozšíření webového prohlížeče Urban VPN Proxy a další rozšíření od stejného vydavatele (např. 1ClickVPN Proxy, Urban Browser Guard či Urban Ad Blocker) od července 2025 skrytě zachytávají a odesílají celé konverzace uživatelů s AI nástroji (včetně ChatGPT, Claude, Gemini, Copilot aj.), a to nezávisle na tom, zda je VPN aktivní. Sběr probíhá bez možnosti jej uživatelsky vypnout a zahrnuje plný obsah dotazů a odpovědí, metadata relací i

    … více »
    Ladislav Hagara | Komentářů: 5
    18.12. 05:22 | Zajímavý software

    QStudio, tj. nástroj pro práci s SQL podporující více než 30 databází (MySQL, PostgreSQL, DuckDB, QuestDB, kdb+, …), se stal s vydáním verze 5.0 open source. Zdrojové kódy jsou k dispozici na GitHubu pod licencí Apache 2.0.

    Ladislav Hagara | Komentářů: 6
    Kdo vám letos nadělí dárek?
     (13%)
     (0%)
     (0%)
     (0%)
     (6%)
     (6%)
     (19%)
     (31%)
     (25%)
    Celkem 16 hlasů
     Komentářů: 11, poslední dnes 07:16
    Rozcestník

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

    Marek 'Maxicom' Zelenka avatar 27.8.2008 14:21 Marek 'Maxicom' Zelenka | skóre: 14 | Kralupy nad Vltavou
    Dialogové okno "otevřít soubor" ve FORTRANU?
    Přečteno: 423×
    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: 14 | 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: 14 | 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: 14 | 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.