Fortran 90 callback example