Added 2d fortran AHOTN code