batched example working in Fortran