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 14:33 | Nová verze

    Desktopové prostředí KDE Plasma bylo vydáno ve verzi 6.5 (Mastodon). Přehled novinek i s videi a se snímky obrazovek v oficiálním oznámení. Podrobný přehled v seznamu změn.

    Ladislav Hagara | Komentářů: 0
    dnes 13:55 | IT novinky

    Rodina jednodeskových počítačů Orange Pi se rozrostla (𝕏) o Orange Pi 6 Plus.

    Ladislav Hagara | Komentářů: 0
    dnes 13:33 | IT novinky

    Na Humble Bundle běží akce Humble Tech Book Bundle: All Things Raspberry Pi by Raspberry Pi Press. Se slevou lze koupit elektronické knihy od nakladatelství Raspberry Pi Press a podpořit Raspberry Pi Press, Raspberry Pi Foundation North America nebo Humble.

    Ladislav Hagara | Komentářů: 0
    dnes 11:44 | Humor

    Přidaný režim autonomního řízení vozidel Tesla Mad Max je dostupný pro vybrané zákazníky v programu EAP (Early Access Program). Nový režim je na silnici agresivnější, častěji mění pruhy a ne vždy dodržuje rychlostní limity. Agentura JPP spekuluje, že v Česku by se mohl nový režim namísto Mad Max jmenovat Mad Turek...

    karkar | Komentářů: 11
    dnes 04:00 | Nová verze

    Byla vydána nová verze 9.18 z Debianu vycházející linuxové distribuce DietPi pro (nejenom) jednodeskové počítače. Nově také pro NanoPi R3S, R3S LTS, R76S a M5. Přehled novinek v poznámkách k vydání.

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

    bat, tj. vylepšený cat se zvýrazňováním syntaxe a integrací s gitem, byl vydán ve verzi 0.26.0.

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

    Byla vydána první verze 0.0.1 [Mastodon] multipatformního renderovacího jádra webového prohlížeče Servo (Wikipedie). Vývoj Serva započal v roce 2012 v Mozilla Corporation. V roce 2020 bylo Servo předáno nadaci Linux Foundation. Servo je napsané v programovacím jazyce Rust.

    Ladislav Hagara | Komentářů: 1
    včera 15:11 | IT novinky

    Cloudovou službu Amazon Web Services (AWS) americké firmy Amazon dnes postihl globální výpadek. Omezil dostupnost řady aplikací a webů, například populární platformu Snapchat nebo aplikaci s prvky umělé inteligence (AI) Perplexity. Podle webu Downdetector hlásily problémy také uživatelé obchodu Amazon, streamovací platformy PrimeVideo nebo platební služby PayPal.

    Ladislav Hagara | Komentářů: 7
    včera 13:33 | Zajímavý software Ladislav Hagara | Komentářů: 0
    včera 12:44 | Pozvánky

    Od 3. do 16. listopadu proběhnou Dny AI 2025. V úterý 11. listopadu proběhne Open source AI day v Red Hatu v Brně.

    Ladislav Hagara | Komentářů: 0
    Jaké řešení používáte k vývoji / práci?
     (37%)
     (47%)
     (20%)
     (20%)
     (23%)
     (18%)
     (21%)
     (18%)
     (18%)
    Celkem 249 hlasů
     Komentářů: 14, poslední 14.10. 09:04
    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: 395×
    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.