function - Passing type bound procedures as arguments -

-

i trying pass type bound procedure argument subroutine. want know if possible in fortran. here code snippet shows trying . 

module type_definitions   type test_type   integer :: i1, i2,i3  contains     procedure :: add_integers_up   end type test_type  contains     subroutine add_integers_up(this,i4,ans)        class(test_type) ::         integer :: i4,ans         ans = this%i1+this%i2+this%i3+i4     end subroutine add_integers_up  subroutine print_result_of_subroutine(i4,random_subroutine)    integer :: i4,ans     interface       subroutine  random_subroutine(i1,i2)         integer:: i1,i2      end subroutine random_subroutine   end interface    call random_subroutine(i4,ans)    write(*,*) ans    end subroutine print_result_of_subroutine   end module type_definitions   program main     use type_definitions    implicit none     integer :: i1,i2,i3,i4    integer :: ans     type(test_type) :: test_obj     i1 =1; i2=2; i3=3    test_obj%i1 = i1     test_obj%i2 = i2     test_obj%i3 = i3     i4 = 4     call print_result_of_subroutine(i4,test_obj%add_integers_up)       end program main

is possible in fortran? compiler error when try compile code using ifort.

test_obj%add_integers_up not procedure - binding happens to procedure called add_integers_up. cannot pass binding actual argument.

if want pass specific procedure binding associated with, pass procedure! hypothetically:

call print_result_of_subroutine(i4, add_integers_up)

but other posters have noted, in example code interface of procedure not match interface of corresponding dummy argument in print_result_of_subroutine.

if test_obj%add_integers_up referred associated procedure pointer component (and interface component matched being expected print_result_of_subroutine) things work appear expecting.

note fortran 90 not support type bound procedures (or procedure pointer components) - code requires fortran 2003.


Comments

Post a Comment

Popular posts from this blog

c# - SVN Error : "svnadmin: E205000: Too many arguments" -

-
i trying reposotries using c# code process svncommand = null; var psi = new processstartinfo("svnadmin"); psi.redirectstandardoutput = true; psi.redirectstandarderror = true; psi.useshellexecute = false; psi.arguments= @"dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump"; using (svncommand = process.start(psi)) { var myoutput = svncommand.standardoutput; var myerror = svncommand.standarderror; debug.write("output :" + environment.newline + environment.newline + myoutput.readtoend() + environment.newline + "error :" + environment.newline + environment.newline + myerror.readtoend()); svncommand.close(); } when use dump command commandline svnadmin dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump it works fine when try ...
Read more

c# - Copy ObservableCollection to another ObservableCollection -

-
how copy observablecollection item observablecollection without reference of first collection? here observablecollection item value changes affecting both collections. code private observablecollection<ratemodel> _allmetalrate = new observablecollection<ratemodel>(); private observablecollection<ratemodel> _metalrateondate = new observablecollection<ratemodel>(); public observablecollection<ratemodel> allmetalrate { { return this._allmetalrate; } set { this._allmetalrate = value; notifypropertychanged("metalrate"); } } public observablecollection<ratemodel> metalrateondate { { return this._metalrateondate; } set { this._metalrateondate = value; notifypropertychanged("metalrateondate"); } } foreach (var item in metalrateondate) allmetalrate.add(item); what causing , how can solve it? you need clone object referenced item before it's a...
Read more

All overlapping substrings matching a java regex -

-
is there api method returns (possibly overlapping) substrings match regular expression? for example, have text string: string t = 04/31 412-555-1235; , , have pattern: pattern p = new pattern("\\d\\d+"); matches strings of 2 or more characters. the matches are: 04, 31, 412, 555, 1235. how overlapping matches? i want code return: 04, 31, 41, 412, 12, 55, 555, 55, 12, 123, 1235, 23, 235, 35. theoretically should possible -- there obvious o(n^2) algorithm enumerates , checks substrings against pattern. edit rather enumerating substrings, safer use region(int start, int end) method in matcher . checking pattern against separate, extracted substring might change result of match (e.g. if there non-capturing group or word boundary check @ start/end of pattern). edit 2 actually, it's unclear whether region() expect zero-width matches. specification vague, , experiments yield disappointing results. for example: string line = "xx90xx"; strin...
Read more