compilation - How to access a PRIVATE PUBLIC interface in Fortran? -


i have following code:

subroutine test use mp, only: mp_bcast integer :: b = 0 logical :: ... call mp_bcast (a, b) end subroutine test

the problem module mp goes follow:

module mp implicit none private  public :: mp_bcast ! interface mp_bcast   module procedure mp_bcast_i1, mp_bcast_r1, mp_bcast_c1, mp_bcast_l  ! etc end interface  subroutine mp_bcast_l(msg,source,gid)   implicit none   logical :: msg   integer, intent(in) :: source   integer, intent(in) :: gid end subroutine mp_bcast_l

it private interface public. cannot modify module mp (belong software want interface to).

i use following makefile:

mods = ../../modules_mp/libmod.a prog : prog.o test.o $(ld) $(ldflags) -o prog.x $(mods)

this way though access public interface in module libmod.a contains module 'mp'. not work , error:

test.f90(38): error #6285: there no matching specific subroutine generic subroutine call.   [mp_bcast]   call mp_bcast (a,b) -------^

what correct way proceed?

thank you,

samuel

if calling generic routine, compiler goes through specific routines find 1 matches type of arguments. if doesn't find one, error message get.

have close @ types a , b are, , see whether 1 of specific routines matches it.

updated due more information

the specific subroutine think matches has 3 dummy arguments (one logical, 2 integer), supplying 2 (logical , 1 integer).

note: below original answer, people commented on, i'll leave it.

maybe a of type real , b type integer, compiler search specific routine has 1 real , 1 integer, in order, , doesn't find one. in case, might necessary convert 1 of variables, so:

call mp_bcast(a, float(b))

note: writing:

module procedure mp_bcast_i1, mp_bcast_r1, mp_bcast_c1  ! etc

i deduce _i1 might stand integer(kind=1), , forth, though don't think there such thing real(kind=1).


Comments

Post a Comment

Popular posts from this blog

c++ - Difference between pre and post decrement in recursive function argument -

i have following sample code used pre-decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(--c); cout << c << endl; return; } } this function give output input 4 : dp3 dp2 dp1 dp0 0 1 2 3 but when use post decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(c--); cout << c << endl; return; } } output goes in infinite loop dp4 can explain me in detail why happens ? this happens because function(c--) called same value of c , when finishes c decremented. recursively called, hence called same value no chance of return , hit stack overflow error. assume this, int x = 1, y = 0; y = x++ result y == 1 , x == 2. if y = ++x , bot x , y 2.
Read more

php - Nothing but 'run(); ' when browsing to my local project, how do I fix this? -

i added new project. made mistake in projectname.conf file in sites-available apache2, led me reinstalling apache2. after reinstalling , re-enabling projects on every page of every project .. <body> run(); </body> .. i've run composer update, restarted service, restarted pc, checked config files, tried disabling new project. there nothing in error log, , access.log: 127.0.0.1 - - [15/may/2015:01:40:47 +0200] "get / http/1.1" 304 181 "-" "mozilla/5.0 (x11; ubuntu; linux x86_64; rv:38.0) gecko/20100101 firefox/38.0" maybe i'm forgetting apache2 reinstall? don't think did different last time installed it. looks haven't setup php correctly. take @ this great guide , maybe you're forgetting link php config apache2.
Read more

php - How can I echo out this array? -

i don't know how go grabbing data in variable , put foreach loop. class tree{ private $info = array( array('name'=>'jim','state'=>'nu','company'=>'nu','phone'=>array('cell'=>'5615111111','office'=>'5611111111'),'email'=>array('primary'=>'exs@example.com','ex@there.com')), array('name'=>'joe smith','city'=>'phoenix','phone'=>'4805551111','email'=>'jsmith@some_email.com'), array('name'=>'john doe','city'=>'chandler','company'=>'doe co.','email'=>array('jdoe@gmail.com','personal'=>'email@email.com'),'phone'=>'6025550002') ); } if you're inside of class, can access private variable using $this->variablename . example, i
Read more