added: rough fortran implementation