123456789101112131415 use strict;use warnings;use FFI::Platypus 2.00;my $ffi = FFI::Platypus->new( api => 2, lang => 'Fortran', lib => './array2d.so',);$ffi->attach( print_array2x5 => ['integer[10]'] => 'void' );my $array = [5,10,15,20,25,30,35,40,45,50];print_array2x5($array);
use
strict;
warnings;
FFI::Platypus 2.00;
my
$ffi
= FFI::Platypus->new(
api
=> 2,
lang
=>
'Fortran'
,
lib
'./array2d.so'
);
->attach(
print_array2x5
=> [
'integer[10]'
] =>
'void'
$array
= [5,10,15,20,25,30,35,40,45,50];
print_array2x5(