Vocabulary
alien.fortran

Inputs and outputs

return	a string
library	a string
procedure	a string
parameters	a sequence

Word description
Invokes the Fortran subroutine or function procedure in library with parameters specified by the Fortran types specified in the parameters sequence. If the return value is f, no return value is expected, otherwise a return value of the specified Fortran type is expected. Input values are taken off the top of the datastack, and output values are left for the return value (if any) and any parameters specified as out parameters by prepending "!".

Definition

USING: generalizations kernel macros ;

IN: alien.fortran

MACRO: fortran-invoke
( return library function parameters -- quot )
{ [ 2drop nip set-fortran-abi ] [ (fortran-invoke) ] } 4
ncleave ;