Re: Array of subroutines

From: beliavsky@xxxxxxx
Date: 19 Jun 2006 05:41:14 -0700

Michael Metcalf wrote:

<snip>

call array (i, arg1, arg2, arg3)

and inside array:

subroutine array(index, arg1, arg2, arg3)
:
select case(index)
case(1)
call the_real_thing1(arg1, arg2, arg3)
case(2)
etc.

I would consider gathering arguments arg1, arg2, arg3 into a derived
type and making the derived type an argument of all the subroutines, so
that later one could effectively add or change arguments by changing
the components of the derived type.

.

References:
- Array of subroutines
  - From: John Keenan
- Re: Array of subroutines
  - From: Brooks Moses
- Re: Array of subroutines
  - From: Michael Metcalf

Prev by Date: Re: heap allocation of arrays
Next by Date: Re: compile problem:subroutines in module procedure (CVF6.6)
Previous by thread: Re: Array of subroutines
Next by thread: Re: Array of subroutines
Index(es):
- Date
- Thread

Relevant Pages

Re: FORTRAN/VBA-EXCEL COMMON BLOCKS
... common /myvar/ arg1, arg2 ... (if you won't be using the dll with a Fortran client, I think you can drop the dllexport attribute on the common block) ... subroutine get_arg1 ...
(comp.lang.fortran)
Re: Array of subroutines
... call array(arg1, arg2, arg3) ... The Metcalf/Reid/Cohen book shows an example of how to pass a subroutine ...
(comp.lang.fortran)
Re: What are python closures realy like?
... def foobar(arg1, arg2, arg3): ... do something with arg1 and argument ... do something with arg1 and arg2 ...
(comp.lang.python)
Re: Shell script to catch PL/SQL return values
... echo "Database: $INSTANCE" ... echo "Arg1: $ARG1" ... echo "Arg2: $ARG2" ... echo "Arg3: $ARG3" ...
(comp.databases.oracle.tools)
Re: Shell script to catch PL/SQL return values
... echo "Database: $INSTANCE" ... echo "Arg1: $ARG1" ... echo "Arg2: $ARG2" ... echo "Arg3: $ARG3" ...
(comp.databases.oracle.misc)