functionName

-

name of externally defined subroutine

f

-

procedure used to generate a partial argument list

 dgetrf := define_external('dgetrf_',

     'm':REF(integer[4]),

     'n':REF(integer[4]),

     'a':ARRAY(float[8]),

     'lda':REF(integer[4]),

     'ipiv':ARRAY(integer[4]),

     'info':REF(integer[4]),

     'LIB'="clapack.dll"

 ):

 dgetrf := define_external('dgetrf_',

     'm':REF(integer[4]),

     'n':REF(integer[4]),

     'a':ARRAY(float[8]),

     'lda':REF(integer[4]),

     'ipiv':ARRAY(integer[4]),

     'info':REF(integer[4]),

     'GENARGS'=proc()

     'LIB'=ExternalCalling:-ExternalLibraryName("clapack");

      end proc

 ):

 clapack_args := proc( fn:string )

     if fn = "dgetrf_" then

     'm':REF(integer[4]),

     'n':REF(integer[4]),

     'a':ARRAY(float[8]),

     'lda':REF(integer[4]),

     'ipiv':ARRAY(integer[4]),

     'info':REF(integer[4]),

     'LIB'=ExternalCalling:-ExternalLibraryName("clapack");

     end if;

 end proc;

 dgetrf := define_external("dgetrf_",'GENARGS'=clapack_args):