<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Function Pointers in Fortran in Software Archive</title>
    <link>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945270#M18148</link>
    <description>How'bout an example of function be called by its pointer ? &lt;BR /&gt; &lt;BR /&gt;Tim</description>
    <pubDate>Fri, 04 May 2001 02:20:30 GMT</pubDate>
    <dc:creator>rahzan</dc:creator>
    <dc:date>2001-05-04T02:20:30Z</dc:date>
    <item>
      <title>Function Pointers in Fortran</title>
      <link>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945268#M18146</link>
      <description>Does anyone know how to implement the equivalent of C function pointers in fortran?  I have heard rumours of LOC() and EXTERN.  I want to point to a fortran function, not a dll or external c function.  Any help out there?</description>
      <pubDate>Wed, 04 Apr 2001 01:56:16 GMT</pubDate>
      <guid>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945268#M18146</guid>
      <dc:creator>Deleted_U_Intel</dc:creator>
      <dc:date>2001-04-04T01:56:16Z</dc:date>
    </item>
    <item>
      <title>Re: Function Pointers in Fortran</title>
      <link>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945269#M18147</link>
      <description>Sure, if you don't mind extensions.  The concept is pretty much the same as if you used a C or DLL function.  Here's a quick example:&lt;BR /&gt;&lt;BR /&gt;&lt;FONT size="+1&amp;gt;&amp;lt;pre&amp;gt;
program main
external myfunc
pointer (p_which,which)
integer, external :: which
p_which = %loc(myfunc)
write (*,*) which(3) ! Calls routine pointed to by p_which
end
integer function myfunc (i)
myfunc = i + 1
return
end function myfunc
&amp;lt;/pre&amp;gt;&amp;lt;/font&amp;gt;&amp;lt;br&amp;gt;&amp;lt;br&amp;gt;Steve"&gt;&lt;/FONT&gt;</description>
      <pubDate>Wed, 04 Apr 2001 03:12:57 GMT</pubDate>
      <guid>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945269#M18147</guid>
      <dc:creator>Steven_L_Intel1</dc:creator>
      <dc:date>2001-04-04T03:12:57Z</dc:date>
    </item>
    <item>
      <title>Re: Function Pointers in Fortran</title>
      <link>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945270#M18148</link>
      <description>How'bout an example of function be called by its pointer ? &lt;BR /&gt; &lt;BR /&gt;Tim</description>
      <pubDate>Fri, 04 May 2001 02:20:30 GMT</pubDate>
      <guid>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945270#M18148</guid>
      <dc:creator>rahzan</dc:creator>
      <dc:date>2001-05-04T02:20:30Z</dc:date>
    </item>
    <item>
      <title>Re: Function Pointers in Fortran</title>
      <link>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945271#M18149</link>
      <description>Um, isn't that what I gave above?&lt;BR /&gt;&lt;BR /&gt;Steve</description>
      <pubDate>Fri, 04 May 2001 03:52:28 GMT</pubDate>
      <guid>https://community.intel.com/t5/Software-Archive/Function-Pointers-in-Fortran/m-p/945271#M18149</guid>
      <dc:creator>Steven_L_Intel1</dc:creator>
      <dc:date>2001-05-04T03:52:28Z</dc:date>
    </item>
  </channel>
</rss>

