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

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

javascript - data.match(var) not working it seems -

-
OK, I have this small block code, which is to scanned a number on the website, but for some reason There is a hip that it is not scanning at all. var regenges = / \ & lt; Span class = "currency-robux" data-to-"item-private-value-price" & gt; ([\ D,]) \ & LT; \ / Span \ & gt; /; Var ValueCiling = Data. Match (reggae); Value-song = number (value slicing location (",", "")); Is there anything wrong with that? This is related to the if statement if (value sling and lieutenant; = price watching) { < P> A function calls to move from there, but for some reason it does not seem to run at all. So I think the Regex is wrong but I'm not sure how. (There is a variable in PriceWinking , this is a snippet from the code.) On the website, I'm trying to remove it. & lt; Span class = "robux" data-plus = "item-privatesale-price" & gt; 115 & lt; / Span & gt; Keep in mind
Read more

javascript - How can I pause a jQuery .each() loop, while waiting for user input? -

-
Before I continue to get a jQuery .each loop to wait for user input There is a problem in repeatedly repeating This is my code (I have commented on what I would like to do): & lt; Html xmlns = "http://www.w3.org/1999/xhtml" & gt; & Lt; Top & gt; & Lt; Link rel = "stylesheet" type = "text / css" href = "common_components.css" /> & Lt; Meta http-equiv = "content-type" content = "text / html; charset = UTF-8" /> & Lt; Link rel = "stylesheet" href = "slider.css" & gt; & Lt ;? Php include_once 'common_components.php'; $ Query = $ dbh- & gt; Queries ("SELECT movies_dir FROM settings"); $ Line = $ query- & gt; Obtain (PDO :: FETCH_ASSOC); Date_default_timezone_set ('UTC'); Echo "& lt; title & gt; movie scanner & lt; / title & gt;"; ? & Gt; & Lt; Script src = "jquery.min.js" & gt; &am
Read more