It is call action(mySubX) provided action looks as subroutine action(sub) !either – not recommmended, it is old FORTRAN77 style external sub !or – recommended interface subroutine sub(aA, aB) integer,intent(…) :: aA, aB end subroutine end interface ! NOT BOTH!! call sub(argA, argB) provided action knows what to put there as argA, argB to represent aA, … Read more
In general the answer to your first question is Yes and I’ll come to an answer to your second question in a moment. Note first that this is a general answer to a general question and the bright sparks who hang around SO Fortran questions may well come up with special circumstances in which modules … Read more
First, some terminology. Consider the dummy arguments declared as real :: a(n) ! An explicit shape array real :: b(:) ! An assumed shape array real, allocatable :: c(:) ! A deferred shape array (allocatable) real, pointer :: d(:) ! A deferred shape array (pointer) real :: e(*) ! An assumed size array real :: … Read more
Subroutines are stored in a global namespace at compile time. In your example b(); is short hand for main::b();. To limit visibility of a function to a scope you need to assign an anonymous subroutines to a variable. Both named and anonymous subroutines can form closures, but since named subroutines are only compiled once if … Read more
The Devel::Peek module is very handy to get all sorts of information about variables. One of the things you can do with it is dump a reference to a subroutine and get the name of the glob it came from: $ perl -MDevel::Peek -MList::Util=first -e’Dump(\&first)’ SV = IV(0x1094e20) at 0x1094e28 REFCNT = 1 FLAGS = … Read more
It is a function with a prototype that takes two scalar arguments. There are strong arguments for not actually using Perl prototypes in general – as noted in the comments below. The strongest argument is probably: Far More Than Everything You’ve Ever Wanted to Know about Prototypes in Perl There’s a discussion on StackOverflow from … Read more
The length of your call statement is too long. The default maximum width of a line is 132. The compiler will truncate input lines at that width [as it did–and said so with the warning]. After that, you had an incomplete line (e.g. call foo(a,b that was missing the closing )) which generated the second … Read more
The title of your question is a bit misleading. Fortran doesn’t allow you to pass a scalar to an array. But what it DOES allow is passing a single element of an array to a routine’s array dummy argument – this is called “sequence association” in Fortran. As IanH and others have said, the following … Read more
To answer your question: Yes Fortran does preserve the value of internal variables through function and subroutine calls. Under certain conditions … If you declare an internal variable with the SAVE attribute it’s value is saved from one call to the next. This is, of course, useful in some cases. However, your question is a … Read more
Yes, Fortran has procedure pointers, so you can in effect alias a function name. Here is a code example which assigns to the function pointer “f_ptr” one function or the other. Thereafter the program can use “f_ptr” and the selected function will be invoked. module ExampleFuncs implicit none contains function f1 (x) real :: f1 … Read more