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

    dnes 21:11 | Nová verze

    Armbian, tj. linuxová distribuce založená na Debianu a Ubuntu optimalizovaná pro jednodeskové počítače na platformě ARM a RISC-V, ke stažení ale také pro Intel a AMD, byl vydán ve verzi 23.11 Topi. Přehled novinek v Changelogu.

    Ladislav Hagara | Komentářů: 0
    dnes 16:22 | Nová verze

    Po 4 měsících vývoje byla vydána nová verze 4.2 multiplatformního open source herního enginu Godot (Wikipedie, GitHub). Přehled novinek i s náhledy v příspěvku na blogu a na YouTube.

    Ladislav Hagara | Komentářů: 0
    dnes 16:11 | Nová verze

    Byla vydána nová stabilní verze 23.11 linuxové distribuce NixOS (Wikipedie). Její kódové označení je Tapir. Podrobný přehled novinek v poznámkách k vydání. O balíčky se v NixOS stará správce balíčků Nix.

    Ladislav Hagara | Komentářů: 0
    dnes 14:11 | Bezpečnostní upozornění

    Národní úřad pro kybernetickou a informační bezpečnost (NÚKIB) upozorňuje na hrozbu spojenou s používáním mobilní aplikace WeChat a její čínské verze Weixin (dále jen WeChat). Ta sbírá velký objem uživatelských dat, a právě to by – v kombinaci se způsobem jejich sběru – mohlo sloužit k přesnému zacílení kybernetických útoků.

    Ladislav Hagara | Komentářů: 0
    dnes 14:00 | Zajímavý software

    LibreQoS je svobodná aplikace vhodná pro poskytovatele internetové připojení pro rezervaci a řízení datových toků zákazníků (QoS - Quality of Service, QoE - Quality of Experience). Zdrojové kódy jsou k dispozici na GitHubu pod licencí GPLv2. Aktuální verze je 1.4.

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

    Byla vydána Beta 1 verze KDE 6 (Plasma, Frameworks a Gear) postavené na Qt 6. Testovat lze například v distribuci KDE Neon. Stabilní verze je plánována na konec února 2024. Předchozí velké vydání 5 vylo vydáno téměř před 10 lety (červenec 2014).

    Ladislav Hagara | Komentářů: 19
    včera 23:00 | Komunita

    Open-source webmail Roundcube se připojil k balíku aplikací Nextcloudu. Převzetí firmou Nextcloud ale plánováno není, pouze integrace a podpoření vývoje.

    Fluttershy, yay! | Komentářů: 0
    včera 18:44 | IT novinky

    Stability AI představila SDXL Turbo, tj. umělou inteligenci pro generování obrázků z textového popisu v reálném čase, viz ukázka na YouTube.

    Ladislav Hagara | Komentářů: 1
    včera 12:33 | Nová verze

    Svobodná webová platforma pro sdílení a přehrávání videí PeerTube (Wikipedie) byla vydána v nové major verzi 6. Přehled novinek i s náhledy a videi v oficiálním oznámení a na GitHubu (6.0.0, 6.0.1).

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

    S eDoklady lze mít od ledna 2024 občanku v mobilní aplikaci [Digitální a informační agentura – DIA].

    Ladislav Hagara | Komentářů: 8
    Používáte modální textový editor?
     (75%)
     (3%)
     (2%)
     (20%)
    Celkem 289 hlasů
     Komentářů: 8, poslední 16.11. 22:24
    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: 375×
    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.