#!/usr/bin/perl

use P2f2p;

sub userfunc {
    my $v = shift;
    print "userfunc()\n  called from Fortran with arg: $v\n";
    my $r = $v + 0.5;
    print "  returning: $r\n";
    return $r;
}

my $r = P2f2p::myfunc(3, 7, \&userfunc );

printf "myfunc() returned: %.2f\n", $r;