Passing a FORTRAN object to C and vice versa -

-

मेरे पास मेरा फ़ॉर्तोरन ऑब्जेक्ट है 

  यह% ऑब्जेक्ट% a this% object% b यह% ऑब्जेक्ट% c

मैं इसे सी में लिखे गए कोड में देना चाहता हूं, मैं एक फोरट्रान प्रोग्रामर हूं और मुझे सी के साथ बहुत कम जोखिम मिला है। मैं Iso_c_binding पूर्णांक और सरणियों को पार करने के लिए, लेकिन अब मुझे ऑब्जेक्ट पास करना होगा

मैं निम्नलिखित वस्तु में ऑब्जेक्ट को परिभाषित करता हूं 

  TYPE ऑब्जेक्ट INTEGER :: एक INTEGER :: b INTEGER :: c end TYPE ऑब्जेक्ट
"post-text" itemprop = "text">

आप इंटरऑपरेट करने योग्य प्रकार कर सकते हैं: 

  का उपयोग करें iso_c_binding प्रकार, BIND (सी): : ऑब्जेक्ट INTEGER (c_int) :: एक INTEGER (c_int) :: बी INTEGER (c_int) :: सी एंड प्रकार ऑब्जेक्ट प्रकार (वस्तु) :: ओ

मानक में प्रतिबंध हैं ऑब्जेक्ट पर उदाहरण के लिए, इसमें ऑलोकेटेबल या पॉइंटर घटकों को शामिल नहीं किया जा सकता है।

जब आप इसे एक इंटरऑपरेबल प्रक्रिया में पास करते हैं: 

  शून्य उप (c_object * x) {} सबस्ट्रैनेट उप (x (सी, नाम = "उप") प्रकार (ऑब्जेक्ट), आशय (अंतराल) :: एक्स एंड सबराउटिन कॉल उप (ओ)

यह एक सी स्ट्रक्चर के साथ इंटरऑपरेट है

<पूर्व> टाइपिंगफ़ाइल संरचना {int a; Int b; Int c; } C_object; आप गैर-इंटरऑपरेट करने वाले प्रकारों को सी में भी पारित कर सकते हैं, लेकिन आपको पॉइंटर्स का उपयोग करना है: 
  सब-रूटिन सब 2 (x) बाइंड (सी, नाम = "उप") प्रकार (c_ptr), मान :: एक्स अंत सब-रूटिन कॉल उप 2 (लोक (ओ))

Comments

Post a Comment

Popular posts from this blog

mysql - How to enter php data into a html multiple select box -

-
I am working on a page that will create a team. I just want to create a selection box which will list all the users of all the users. After that, the user can select more than one friend (i.e. 5) and can send the request to these 5 people to join the team but I am having problems I did this: Select $ sql = "Select i. *, Join * Connect with M * m.id = i.clique_id where adder_id =: id"; $ Stmt = $ db- & gt; Query ($ sql, array ('id' = & gt; $ _SESSION ['id'])); While ($ record = $ stmt-> fetch ()) {$ surname = $ record ['surname']; } and this: & lt; Select multiple = "true" name = "category" well id = "category" name = "category" category = "" & gt; & Lt; Option value = "& lt ;? php echo $ surname ;? & gt;" & Gt; & Lt ;? Php ek $ nickname; ? & Gt; & Lt; / Options & gt; & Lt; / Select & gt; But only a friend's nickname...
Read more

java - Can't add JTree to JPanel of a JInternalFrame -

-
Image
There are two panels in my JInternalframe. I want to add TopPanel to Jtree to nominate another. But I can not add Jaitari to the top of the panel. Please help me in this piece of code: DefaultMutableTreeNode root = new DefaultMutableTreeNode ("deck"); DefaultMutableTreeNode Item Clubs = New DefaultMutableTreeNode ("Club"); AddAllCard (itemClubs); Root.add (itemClubs); DefaultMutableTreeNode item = New DefaultMutableTreeNode ("Diamonds"); AddAllCard (itemDiamonds); Root.add (itemDiamonds); DefaultMutableTreeNode Itemspads = New DefaultMutableTreeNode ("Spades"); AddAllCard (itemSpades); Root.add (itemSpades); DefaultMutableTreeNode item increases = new DefaultMutableTreeNode ("heart"); AddAllCard (itemHearts); Root.add (itemHearts); Default Trimodel Tree Model = New DefaultTreeModel (Route); Tree = new jetty (tree modal); ScrollPane = new JScrollPane (tree); // scrollPane.setViewportView (tree); . ScrollPane.getViewport () add (tr...
Read more

c++ - Cassandra datastax cpp driver - avoiding unnecessary copies -

-
I use the following method to create my insert statement for Cassandra (using datastax cpp driver) : ssStmt1 & lt; & Lt; "Insert some table (...) value (....)" string sStatement1 = ssStmt1.str (); Castestring cass1 = cass_string_init (sStatement1.c_str ()); CassStatement * pStmt1 = cass_statement_new (cass1, 0); I have also tried the following: CassString cass1 = cass_string_init ("Enter some table (id, date, c) value (? ,?,?); "); CassStatement * pStmt1 = cass_statement_new (cass1, 3); Cass_statement_bind_uuid (pStmt1, 0, uuidKey); Cass_statement_bind_int64 (PSTMT1, 1, timestamp); Cass_statement_bind_string (pStmt1, 2, sSomething); The first pattern works with mixed keys, the second is not. The key has a timestamp and a UUID. Timestamp is one of two errors in the field (based on the used bond statement). If bound in this way: cass_statement_bind_int64_by_name (pStmt1, "date", timestamp); I get the following error: Inva...
Read more