Pointer to a function inside a derived type on a module in fortran -


i guess easily use here, since i'm messing around fortran 2003 can't seem understand how things really. fact need write fortran code declares, inside module, new data type has 1 of members pointer real function. like

module new_mod   type my_type     real*8 :: a, b     (here declares real*8 function), pointer :: ptr   end type my_type end module_new  module funcs   real*8 function function1(x)     real*8 :: x     function1 = x*x   end function function1   real*8 function function2(x)     real*8 :: x     function2 = x*x   end function function2 end module funcs

then in main program have like

program my_prog   use module_new   use module_funcs   implicit none   real*8 :: y, z   type(my_type) :: atom   ...   atom%ptr => function1   y = atom%ptr(x)   ...   atom%ptr => function2   z = atom%ptr(x) end program my_prog

while

so main idea module_new contains type has pointer real function. pointer in th eobjects of new type must able point different functions in main program. have seen 1 can similar things abstract interfaces , such, honestly, i'm in mess here. if help, i'll appreciate that. cheers...

well, not type of question send stackoverflow, code needs "slight improvement" (by appropriate definition of slight) work:

module accuracy   implicit none    integer, parameter :: dp = kind(1.0d0)  end module accuracy   module typedef   use accuracy   implicit none    type :: mytype     real(dp) :: aa, bb     procedure(myinterface), pointer, nopass :: myfunc   end type mytype    abstract interface     function myinterface(xx)       import :: dp       real(dp), intent(in) :: xx       real(dp) :: myinterface     end function myinterface   end interface  end module typedef  module funcs   use accuracy   implicit none  contains    function func1(xx)     real(dp), intent(in) :: xx     real(dp) :: func1      func1 = xx    end function func1    function func2(xx)     real(dp), intent(in) :: xx     real(dp) :: func2      func2 = 2.0_dp * xx    end function func2  end module funcs   program test   use accuracy   use typedef   use funcs   implicit none    real(dp) :: xx   type(mytype) :: atom    xx = 12.0_dp   atom%myfunc => func1   print *, atom%myfunc(xx)   atom%myfunc => func2   print *, atom%myfunc(xx)  end program test

there several things worth mentioned:

  • you should use 1 global parameter accuracy (see module accuracy) , forget real*8.

  • your procedure pointer in derived type needs interface, provided within following abstract interface block (see 'abstract interfaces' in f2003 book).

  • you need nopass option procedure pointer in derived type otherwise fortran assume first parameter passed function/subroutine derived type (see 'type bound procedures' in f2003 book).

  • finally, although rather obvious: should read book fortran 2003 features if serious using them in production code.


Comments

Post a Comment

Popular posts from this blog

php - cannot display multiple markers in google maps v3 from traceroute result -

i'm newbie in php mysql , google maps v3. have problems in google maps v3. made traceroute web based , map traceroute's result in google maps v3 final project of college education. have try many tutorials didn't work. have tried tutorials in forum nothing worked. problem cannot display multiple markers got location data database. maybe because i'm newbie , not know how do. confuse looping show markers. here code <?php error_reporting(e_all ^ (e_notice)); ini_set('max_execution_time', 360); $enable_log_user = false; global $ip, $host_name, $host_ip; $host = @$_post['host']; $trace = @$_post['trace']; $self = $_server['php_self']; include("phpsqlajax_dbinfo.php"); $connection = mysql_connect ('127.0.0.1', $username, $password); if (!$connection) { die('not connected : ' . mysql_error());} $db_selected = mysql_select_db($database, $connection); if (!$db_selected) { die ('can\'t use db : ...
Read more

c# - DetailsView in ASP.Net - How to add another column on the side/add a control in each row? -

i have detailsview control on page used edit various fields of record, works in respect. i looking way add 1 column (and if works, why not more) right, absolutely read-only, show same fields of record comparison purposes. i aware there no obvious way such thing out of box detailsview . have looked other controls (transposed gridview , recommended formview , listview ), nothing satisfies. have special data binding setup using detailsview , can't out of without losing features. anyone on how "hack in" additional columns (for display only) on detailsview ? the solution have now, use second detailsview , visible set false in aspx. in code, make sure databind hidden detailsview hosts data third column first, initial detailsview named itemdetails . and in item created event, pass third column html rendering of hidden controls (in last code block) : protected void itemdetails_itemcreated(object sender, eventargs e) { if (dataite...
Read more

css - Text drops down with smaller window -

i've adapted css use in website , can't quite figure out why 1 aspect of page acting way acting. basically, when shrink window below size horizontally, of text "drops down". becomes issue if user viewing website through ipad vertical orientation. can view issue here . i'm hoping make if window gets smaller, placement of text remains intact. the problem area not have enough space put both side navigation , content on 1 line. make automatically adjust page's width when exceeds decrements of width. this code example, , highly unlikely work. if see css more clearly, provide exact code. @media , (max-width:960px) { /* assuming #wrapper 960px across */ #content {width:560px;} /* opposed 720px */ } edit the content drops down @ 980px, have shrink width after there. @media , (max-width:980px) { #container {width:520px;} }
Read more