Heat Release and Transfer Fortran Code