FHTR fortran code for dissertation