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 22:22 | Zajímavý článek

    AI tento rok naplno vtrhla do vývoje softwaru a výrazně ovlivňuje také open source projekty. Jiří Eischmann v příspěvku Jak mění AI open source na svém blogu rozebírá několik trendů, které v open source v poslední době v souvislosti s AI pozoruje, a jak tyto trendy svět otevřeného softwaru mění (Inflace projektů, Zahlcení kontroly, Klesající motivace zveřejňovat kód).

    Ladislav Hagara | Komentářů: 0
    dnes 22:00 | IT novinky

    Evropská komise (EK) vyměřila americké internetové společnosti Google pokutu 890 milionů eur (21,5 miliardy Kč) za porušení unijního nařízení o digitálních trzích (DMA). Firma se podle unijní exekutivy provinila tím, že ve vyhledávači Google Search upřednostňovala vlastní služby a že podnikům ukládala omezení, která jim bránila nasměrovat spotřebitele k alternativním, často levnějším nákupním kanálům na platformě Google Play.

    … více »
    Ladislav Hagara | Komentářů: 0
    včera 19:44 | IT novinky

    Samsung na akci Galaxy Unpacked July 2026 (YouTube) představil své nové telefony Galaxy Z Fold8 Ultra, Fold8 a Flip8, hodinky Galaxy Watch Ultra2 a Watch9 a chytré brýle ve spolupráci s Gentle Monster a Warby Parker.

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

    Po pěti letech vývoje vyšla česká počítačová hra Scarlet Deer Inn (ProtonDB). Scarlet Deer Inn je vyšívaná temná středověká pohádka. Zatímco život ve zdánlivě obyčejné vesnici se točí kolem běžných povinností a sousedských drbů, v podzemí se skrývají zlověstná tajemství.

    Ladislav Hagara | Komentářů: 1
    včera 13:33 | IT novinky

    Představen byl Raspberry Pi Touch Display 2 s uhlopříčkou 10 palců a rozlišením 1200 × 1920 pixelů. Cena je 80 dolarů.

    Ladislav Hagara | Komentářů: 3
    včera 13:22 | Komunita

    RPCS3 (Wikipedie), tj. open source emulátor Sony PlayStation 3, snížil minimální požadavky. Nově jsou podporovány starší grafické karty ATI Radeon řady HD 2000, 3000 a 4000 z let 2007 až 2009. Na PC běží už 75 % všech her pro PlayStation 3. V budoucnu bude RPCS3 fungovat bez firmwaru z PS3. V RPCS3 byl implementován systémový modul cellSysmodule (𝕏).

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

    Vyšel open-source nástroj winetop (MIT) — nativní CLI/TUI pro sledování a ukončování Wine, Proton, Lutris, Heroic a Bottles sezení. Seskupuje procesy podle WINEPREFIX / Steam AppId, umí bezpečně zabít jen hru (včetně Steam reaperu) a nabízí i skriptovatelné příkazy (list, kill, orphans, …). Balíčky jsou mimo jiné na crates.io, Copru (dnf copr enable kovariadam/winetop), PPA ppa:kovariadam/winetop a AUR (winetop-bin).

    kovariadam | Komentářů: 0
    včera 02:44 | IT novinky

    Ve spolupráci společností OpenAI a Work Louder byla představena (𝕏) hardwarová klávesnice Codex Micro pro práci s AI agenty. Cena klávesnice je 230 dolarů.

    Ladislav Hagara | Komentářů: 2
    21.7. 20:00 | Nová verze

    Byl vydán Mozilla Firefox 153.0. Přehled novinek v poznámkách k vydání a poznámkách k vydání pro vývojáře. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 153 bude brzy k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 0
    21.7. 13:44 | Bezpečnostní upozornění Ladislav Hagara | Komentářů: 11
    Které desktopové prostředí na Linuxu používáte?
     (11%)
     (7%)
     (2%)
     (17%)
     (30%)
     (5%)
     (6%)
     (2%)
     (15%)
     (24%)
    Celkem 2213 hlasů
     Komentářů: 30, poslední 3.4. 20:20
    Rozcestník

    Interface mezi C++ a F77

    6.3.2008 10:35 | Přečteno: 1260× | Výběrový blog | poslední úprava: 10.6.2008 17:33

    Jednoduchy příklad interface mezi C++ a f77

    Minulý víkend jsem za po dlouhé době potřeboval udělat interface mezi kódem ve fortranu a kódem v C++. Jelikož jsem to již dlouho nedělal, chvíli mi trvalo, než jsem si vzpomněl, jak to udělat (neměl jsem přístup na net; při této příležitosti jsem si zas uvědomil, že bez netu jsem jako bez ruky :-( - tedy co se programování týče). Poté, co se mi to zadařilo, jsem se rozhodnul udělat si jednoduchý prográmek pro přístě, až zas budu bez netu a budu vzpomínat, jak se to dělá. Vše níže uvedené platí pro kompilátor gcc.

    Volání fortranovské rutiny z C++ je vcelku jednoduché, stačí funkci deklarovat jako externí, název je stejný jako ve fortranu, ale přídáme podtržítko. Případný parameter předáme pomocí jeho adresy:

    extern "C" {void vypisparam_(int* cislo);}
    ...
    vypisparam_(&mojeCislo);
    

    Obvykle ale potřebujeme víc. Velmi často je potřeba nějak přistupovat k proměnným ve fortranovských common blocích. Mějme následně definovaný common blok a jednoduchý fotranovský prográmek:
    test.inc:

           DOUBLE PRECISION dp1,dp2
           INTEGER int1
           COMMON/MYTEST/dp1,dp2,int1
    
    test.f:
          PROGRAM TEST
          INCLUDE 'test.inc'
          CALL NASTAV
          CALL VYPIS
          CALL VYPISPARAM(20)
          CALL VYPIS
          END
    
          SUBROUTINE NASTAV
          INCLUDE 'test.inc'
          PRINT*,'Rutina Nastav - nastavuji parametry'
          dp1 = 1.D0
          dp2 = 3.5D0
          int1 = 10
          END
    
          SUBROUTINE VYPIS
          INCLUDE 'test.inc'
          PRINT*,"Rutina Vypis:"
          PRINT*,'dp1 = ',dp1
          PRINT*,'dp2 = ',dp2
          PRINT*,'int1 = ',int1
          END
    
          SUBROUTINE VYPISPARAM(a)
          INCLUDE 'test.inc'
          INTEGER a
          dp1 = a
          dp2 = a
          int1 = a
          PRINT*,'Rutina VypisParam:'
          PRINT*,'a=',a
          END
    
    Common blok bude v C++ reprezentovat struktura. Proměnné v common bloku jsou uloženy v paměti za sebou. Inicializace tedy probíhá tak, že se ukazateli na strukturu v C++ předá adresa první proměnné common bloku z fortranu. Je proto nutné, aby proměnné ve struktuře byly stejného typu a ve stejném pořadí jako ve fortranu (pro vícerozměrná pole pak ješte je nutno dát pozor indexy). O vrácení adresy common bloku se nám postará jednoduchá fortranovská funkce:
          FUNCTION common_block_address(common_block_name)
          INCLUDE 'test.inc'
          CHARACTER*(*) common_block_name
          INTEGER common_block_address
          INTEGER aaadress
          IF(common_block_name.EQ.'MYTEST')THEN
             common_block_address = adress(dp1)
          ELSE
             PRINT*,'Neexistujici common block'
          ENDIF
          RETURN
          END
    
    Jednoduchý prográmek v C++, který volá rutiny fortranovského kódu a pracuje s proměnnými v common bloku, by mohl vypadat takto (v C++ by tedy bylo vhodnejší, abychom byli objektoví:-), vytvořit objekt, který by reprezentoval fortanovský kód):
    #include <iostream>
    
    double loc_dp1,loc_dp2;
    int loc_int1;
    
    
    struct MyTest_t{
      double dp1,dp2;
      int int1;
    };
    
    extern "C" {
      void nastav_();
      void vypis_();
      void vypisparam_(int* cislo);
    }
    
    extern "C" void* adress_(void* var){
      return var;
    }
    
    extern "C" void* common_block_address_(char*,int len);
    
    MyTest_t* fMyTest;
    void InitCommonBlock(){
      fMyTest = (MyTest_t*)common_block_address_("MYTEST",6);
    }
    
    void LocalParToFor(){
        fMyTest->dp1 = loc_dp1;
        fMyTest->dp2 = loc_dp2;
        fMyTest->int1 = loc_int1;
    }
    
    void ForToLocalPar(){
        loc_dp1 = fMyTest->dp1;
        loc_dp2 = fMyTest->dp2;
        loc_int1 = fMyTest->int1;
    }
    
    int main(){
      int aaa = 100;
      InitCommonBlock();
      nastav_();
      vypis_();
      ForToLocalPar();
      std::cout << "loc_dp1 je " << loc_dp1 << std::endl;
      std::cout << "loc_dp2 je " << loc_dp2 << std::endl;
      std::cout << "loc_int1 je " << loc_int1 << std::endl;
      vypisparam_(&aaa);
      loc_dp1 = 4.5;
      loc_dp2 = 8.3;
      loc_int1 = 15;
      LocalParToFor();
      vypis_();
      return 0;
    }
    
    Vše kompilujeme pomocí g++ a poté slikujeme dohromady společně s knihovnou gfortan, u mě např. takto:
    g++ common_block_address.o interface.o test.o -L/usr/lib/gcc/i386-redhat-linux/4.3.0/ -lgfortran        

    Hodnocení: 100 %

            špatnédobré        

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

    Komentáře

    Vložit další komentář

    6.3.2008 11:14 anicka | blog: ze_zivota
    Rozbalit Rozbalit vše Re: Interface mezi C++ a F77
    Hezky clanek a pekne osklive dejavu. Staci nad clankem jen trochu privrit oci a predstavim si zdrojaky octave... :-)
    ^D
    6.3.2008 13:55 Let_Me_Be | skóre: 20 | blog: cat /proc/idea/current | Brno
    Rozbalit Rozbalit vše Re: Interface mezi C++ a F77
    Sice nechapu co to dela ve vyberu, ale jinak dobry zapisek.
    Linked in profil - Můj web - Nemůžete vyhrát hádku s blbcem. Nejdřív vás stáhne na svoji úroveň a pak ubije zkušenostmi.
    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.