FHTR fortran coding for disseration