
!********************************************
!****    File generated by Tree2C V1.0   ****
!**** (c) 2017-2019, Alessandro Pedretti ****
!********************************************


!**** Classification module ****/

module financial_service
  implicit none

  !**** Output values ****

  integer, parameter :: T2F90_FINANCIAL_SERVICE_C1 = 0
  integer, parameter :: T2F90_FINANCIAL_SERVICE_C2 = 1
  integer, parameter :: T2F90_FINANCIAL_SERVICE_C3 = 2
  integer, parameter :: T2F90_FINANCIAL_SERVICE_C4 = 3
  integer, parameter :: T2F90_FINANCIAL_SERVICE_C5 = 4

  !**** Values of the attributes ****

  integer, parameter :: T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING = 0
  integer, parameter :: T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING = 1
  integer, parameter :: T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING = 2
  integer, parameter :: T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING = 3
  integer, parameter :: T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR = 0
  integer, parameter :: T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER = 1
  integer, parameter :: T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN = 2
  integer, parameter :: T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR = 3
  integer, parameter :: T2F90_FINANCIAL_SERVICE_TYPE_STUDENT = 4

  type :: T2F90_FINANCIAL_SERVICE_Input

    !**** Properties ****

    integer :: LifeStyle
    integer :: Type
    real :: Vacation
    real :: eCredit
    real :: property
    real :: salary

  contains
    procedure, pass(this) :: Classify
    procedure, pass(this) :: DomCheck
  end type T2F90_FINANCIAL_SERVICE_Input

contains

  !**** Classification function ****

  function Classify(this) result(Res)
    class(T2F90_FINANCIAL_SERVICE_Input) , intent(in) :: this
    integer :: Res

    integer :: k
    integer :: OccurMax
    integer, dimension(0:4) :: Occur

    Occur(:) = 0

    !**** Tree 1 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%property < 2.5200) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 19.5000) then
          if (this%salary < 17.8000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          if (this%eCredit < 84.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.5400) then
        if (this%salary < 19.4200) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%eCredit < 31.0000) then
            if (this%salary < 20.8800) then
              if (this%salary < 20.3600) then
                Res = T2F90_FINANCIAL_SERVICE_C5;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        if (this%property < 5.5000) then
          if (this%eCredit < 53.5000) then
            if (this%Vacation < 39.5000) then
              if (this%Vacation < 24.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            if (this%eCredit < 74.0000) then
              if (this%Vacation < 38.5000) then
                if (this%Vacation < 36.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              if (this%property < 4.2300) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 14.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4800) then
        if (this%eCredit < 21.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 11.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 2 ****

    if (this%Vacation < 17.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 20.3800) then
          if (this%property < 4.6000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 59.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Vacation < 46.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%Vacation < 50.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
        end if
      else
        if (this%property < 5.7500) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%salary < 20.1800) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%eCredit < 50.5000) then
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              if (this%Vacation < 44.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%eCredit < 40.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C5;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%Vacation < 31.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 3 ****

    if (this%salary < 21.8800) then
      if (this%Vacation < 21.0000) then
        if (this%property < 1.8600) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%salary < 20.6500) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              if (this%eCredit < 71.5000) then
                if (this%eCredit < 59.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C3;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%property < 4.4100) then
            if (this%eCredit < 43.5000) then
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            if (this%eCredit < 67.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%eCredit < 82.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%eCredit < 31.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            if (this%Vacation < 43.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 48.5000) then
            if (this%salary < 18.8300) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%eCredit < 25.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%property < 5.3300) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            end if
          else
            if (this%eCredit < 23.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              if (this%property < 2.8600) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
        end if
      end if
    else
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 4 ****

    if (this%salary < 21.3100) then
      if (this%eCredit < 20.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%salary < 19.8600) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%Vacation < 48.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          if (this%Vacation < 29.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%salary < 16.9700) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            if (this%Vacation < 17.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%Vacation < 47.5000) then
                if (this%eCredit < 79.5000) then
                  if (this%property < 5.5200) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              if (this%Vacation < 41.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%Vacation < 45.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C5;
                end if
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              if (this%salary < 19.3000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%Vacation < 30.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  if (this%Vacation < 39.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    if (this%eCredit < 72.5000) then
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    end if
                  end if
                end if
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            if (this%eCredit < 150.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          end if
        end if
      end if
    else
      if (this%Vacation < 20.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        if (this%eCredit < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%salary < 24.1900) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 5 ****

    if (this%Vacation < 17.0000) then
      if (this%salary < 21.0600) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%eCredit < 28.0000) then
        if (this%Vacation < 45.0000) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        if (this%salary < 21.1200) then
          if (this%property < 5.5200) then
            if (this%salary < 20.8700) then
              if (this%Vacation < 25.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  if (this%salary < 20.0500) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            else
              if (this%Vacation < 36.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 6 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 16.6400) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 18.5000) then
          if (this%Vacation < 9.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            if (this%eCredit < 57.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.5200) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%property < 4.9500) then
          if (this%property < 2.8000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%salary < 20.6900) then
              if (this%Vacation < 29.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%eCredit < 78.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 15.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 21.0000) then
        if (this%Vacation < 29.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 7 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 18.5000) then
        if (this%salary < 18.7700) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%property < 2.1300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 3.1400) then
            if (this%Vacation < 24.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 33.0000) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 41.5000) then
          if (this%property < 5.5000) then
            if (this%property < 3.5800) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%salary < 20.3000) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4800) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 8 ****

    if (this%eCredit < 28.0000) then
      if (this%Vacation < 31.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            if (this%Vacation < 43.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    else
      if (this%salary < 21.9800) then
        if (this%salary < 19.7500) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%salary < 19.3500) then
              if (this%Vacation < 44.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            if (this%Vacation < 21.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%property < 3.3700) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%Vacation < 36.0000) then
                  if (this%Vacation < 29.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            if (this%Vacation < 21.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 9 ****

    if (this%Vacation < 15.5000) then
      if (this%eCredit < 19.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 19.4500) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%salary < 20.6300) then
            if (this%Vacation < 47.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 17.8300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%Vacation < 29.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 5.5000) then
              if (this%salary < 19.9500) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%eCredit < 79.0000) then
                  if (this%eCredit < 50.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    if (this%property < 4.7100) then
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    else
                      if (this%Vacation < 43.0000) then
                        Res = T2F90_FINANCIAL_SERVICE_C4;
                      else
                        Res = T2F90_FINANCIAL_SERVICE_C1;
                      end if
                    end if
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 10 ****

    if (this%Vacation < 17.5000) then
      if (this%property < 1.9900) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 88.5000) then
          if (this%salary < 16.2300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 6.4700) then
              if (this%eCredit < 38.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C3;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    else
      if (this%Vacation < 48.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%Vacation < 31.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%Vacation < 42.0000) then
            if (this%property < 3.4400) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%salary < 21.1200) then
                if (this%property < 5.5200) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            if (this%eCredit < 43.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%eCredit < 25.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 11 ****

    if (this%eCredit < 26.5000) then
      if (this%Vacation < 47.0000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          if (this%Vacation < 16.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          if (this%eCredit < 19.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    else
      if (this%eCredit < 94.0000) then
        if (this%salary < 21.9800) then
          if (this%Vacation < 24.5000) then
            if (this%salary < 21.3000) then
              if (this%Vacation < 11.5000) then
                if (this%property < 4.4300) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C3;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                if (this%salary < 20.6000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  if (this%eCredit < 49.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    if (this%eCredit < 67.0000) then
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    end if
                  end if
                end if
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              if (this%property < 6.3000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                if (this%salary < 17.8300) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                if (this%Vacation < 51.5000) then
                  if (this%eCredit < 50.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 12 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 30.0000) then
        if (this%salary < 16.6400) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 57.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 31.0000) then
        if (this%Vacation < 47.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%property < 5.5000) then
          if (this%Vacation < 24.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 79.0000) then
              if (this%Vacation < 50.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%salary < 20.0700) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4700) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 46.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 13 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 19.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 30.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%Vacation < 39.5000) then
            if (this%eCredit < 69.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 50.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%eCredit < 72.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 43.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%property < 2.4200) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%salary < 21.2700) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 14 ****

    if (this%eCredit < 23.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        if (this%salary < 18.7000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%salary < 19.5900) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C2;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%eCredit < 6.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
    else
      if (this%Vacation < 18.0000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%eCredit < 73.5000) then
            if (this%salary < 19.4500) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%eCredit < 54.5000) then
            if (this%salary < 20.8900) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%eCredit < 24.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%Vacation < 24.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            if (this%salary < 18.7100) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%eCredit < 42.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 15 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 17.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 30.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%property < 2.8000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Vacation < 41.5000) then
            if (this%property < 5.3300) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%Vacation < 27.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            if (this%property < 4.7100) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 18.7600) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 46.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 16 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4400) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%salary < 21.9100) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.5400) then
        if (this%Vacation < 47.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 20.8900) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 48.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%eCredit < 42.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 14.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4800) then
        if (this%Vacation < 24.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 98.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 17 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 65.0000) then
        if (this%eCredit < 55.5000) then
          if (this%Vacation < 33.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          if (this%eCredit < 62.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        if (this%salary < 15.7000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.2500) then
        if (this%Vacation < 32.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%eCredit < 74.0000) then
          if (this%eCredit < 62.5000) then
            if (this%property < 4.9400) then
              if (this%Vacation < 17.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 17.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 7.0000) then
        if (this%Vacation < 26.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 21.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 18 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 14.0000) then
        if (this%Vacation < 4.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 3.2600) then
            if (this%Vacation < 12.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          else
            if (this%salary < 18.4800) then
              if (this%eCredit < 59.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C3;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          end if
        end if
      else
        if (this%salary < 18.5200) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.4400) then
        if (this%eCredit < 32.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 20.3600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 67.0000) then
              if (this%eCredit < 55.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 45.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 26.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 19 ****

    if (this%eCredit < 26.5000) then
      if (this%Vacation < 17.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 47.0000) then
          if (this%eCredit < 21.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    else
      if (this%salary < 21.9800) then
        if (this%Vacation < 21.5000) then
          if (this%property < 4.6000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Vacation < 9.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            if (this%salary < 17.8600) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%eCredit < 79.5000) then
                if (this%property < 3.3000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              if (this%eCredit < 52.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              if (this%Vacation < 44.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%Vacation < 50.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 20 ****

    if (this%Vacation < 16.0000) then
      if (this%property < 1.9900) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%salary < 19.8800) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    else
      if (this%Vacation < 46.0000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 17.8300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%property < 3.9400) then
            if (this%property < 3.5100) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 26.5000) then
          if (this%salary < 20.3600) then
            if (this%salary < 20.3000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%Vacation < 50.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%Vacation < 52.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%eCredit < 79.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 21 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 65.0000) then
        if (this%salary < 18.5200) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%salary < 16.1200) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 33.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%property < 5.5000) then
          if (this%eCredit < 50.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 77.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 19.1300) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 16.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%eCredit < 22.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 94.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 22 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        if (this%property < 5.3300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 59.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        if (this%Vacation < 19.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.4400) then
        if (this%Vacation < 32.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 3.1200) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              if (this%salary < 20.1800) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 15.0000) then
        if (this%eCredit < 9.0000) then
          if (this%property < 1.5500) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 23 ****

    if (this%Vacation < 22.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%eCredit < 65.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 73.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%Vacation < 30.5000) then
          if (this%eCredit < 50.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%eCredit < 33.0000) then
          if (this%Vacation < 46.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%property < 5.5000) then
            if (this%property < 2.8000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%Vacation < 24.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%eCredit < 43.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  if (this%property < 4.9500) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    if (this%Vacation < 43.0000) then
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    end if
                  end if
                end if
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%Vacation < 43.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 24 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 30.0000) then
        if (this%salary < 16.6400) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 38.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%property < 4.9500) then
          if (this%property < 2.5100) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Vacation < 41.0000) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%eCredit < 49.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  if (this%eCredit < 50.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    if (this%eCredit < 69.0000) then
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    end if
                  end if
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 19.5000) then
        if (this%Vacation < 28.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%property < 6.8600) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 25 ****

    if (this%salary < 21.9600) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%Vacation < 33.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%eCredit < 46.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            if (this%salary < 18.4600) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            if (this%property < 3.8600) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%eCredit < 30.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%eCredit < 74.0000) then
            if (this%eCredit < 53.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%Vacation < 40.5000) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        if (this%Vacation < 18.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%Vacation < 21.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%Vacation < 46.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        if (this%salary < 21.1100) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    else
      if (this%Vacation < 31.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 26 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        if (this%salary < 16.2300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%salary < 16.8000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        if (this%eCredit < 61.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%Vacation < 22.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%Vacation < 46.5000) then
        if (this%eCredit < 47.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Vacation < 24.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 5.5200) then
              if (this%property < 3.5900) then
                if (this%Vacation < 41.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 52.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 18.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 46.0000) then
        if (this%Vacation < 20.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 109.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 27 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 67.0000) then
        if (this%property < 3.4900) then
          if (this%Vacation < 32.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          if (this%salary < 18.4400) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        if (this%salary < 16.1200) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Vacation < 38.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.5700) then
        if (this%salary < 21.3700) then
          if (this%eCredit < 18.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%salary < 20.4100) then
              if (this%eCredit < 54.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C5;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 51.0000) then
          if (this%salary < 20.2600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 5.5200) then
              if (this%property < 3.3700) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 18.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4800) then
        if (this%Vacation < 22.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%Vacation < 46.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%salary < 20.8400) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 28 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 18.5000) then
        if (this%eCredit < 65.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 2.8600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        if (this%salary < 17.8300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 30.5000) then
        if (this%property < 1.6100) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 20.1800) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%salary < 21.4100) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 41.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 14.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%property < 1.8100) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%eCredit < 11.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 19.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 29 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 21.7000) then
        if (this%eCredit < 40.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%salary < 18.4600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.4400) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 20.6000) then
            if (this%eCredit < 60.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 41.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%eCredit < 42.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 17.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 46.0000) then
        if (this%Vacation < 19.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 26.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 30 ****

    if (this%salary < 21.7800) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 18.4900) then
          if (this%salary < 16.2300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%salary < 16.8000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          if (this%Vacation < 16.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%eCredit < 30.5000) then
          if (this%property < 1.6100) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%Vacation < 47.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
        else
          if (this%property < 5.5000) then
            if (this%property < 3.3700) then
              if (this%Vacation < 41.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%eCredit < 73.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              if (this%salary < 20.1800) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        if (this%salary < 19.1300) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%Vacation < 26.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%eCredit < 15.0000) then
          if (this%Vacation < 28.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        if (this%eCredit < 149.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    else
      if (this%Vacation < 32.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 31 ****

    if (this%Vacation < 18.5000) then
      if (this%salary < 20.8300) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    else
      if (this%Vacation < 47.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 17.8300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%property < 4.1400) then
            if (this%property < 3.3700) then
              if (this%Vacation < 41.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%salary < 21.8800) then
          if (this%eCredit < 29.0000) then
            if (this%salary < 20.2500) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              if (this%property < 1.9600) then
                Res = T2F90_FINANCIAL_SERVICE_C5;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 32 ****

    if (this%eCredit < 24.5000) then
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
        if (this%eCredit < 15.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
        if (this%property < 1.4100) then
          if (this%Vacation < 30.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%property < 1.6100) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%eCredit < 21.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    else
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 16.6400) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%salary < 21.9100) then
            if (this%salary < 18.4100) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%Vacation < 41.5000) then
          if (this%salary < 20.3000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 3.5100) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%salary < 20.1800) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        if (this%eCredit < 89.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 33 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 20.0000) then
        if (this%salary < 18.5200) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%eCredit < 35.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Vacation < 46.5000) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%salary < 20.6000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%Vacation < 39.5000) then
                  if (this%property < 5.5200) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 19.1300) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 34 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%salary < 24.0500) then
          if (this%eCredit < 63.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.3900) then
        if (this%salary < 20.4100) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%Vacation < 48.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        if (this%salary < 19.3400) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%Vacation < 39.5000) then
              if (this%Vacation < 33.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%salary < 20.3000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%Vacation < 30.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%salary < 21.0200) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 46.5000) then
        if (this%property < 1.3200) then
          if (this%Vacation < 23.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 35 ****

    if (this%Vacation < 24.5000) then
      if (this%eCredit < 19.0000) then
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%salary < 20.6500) then
          if (this%salary < 20.0600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          if (this%eCredit < 52.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Vacation < 40.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%salary < 20.6200) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        if (this%Vacation < 40.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              if (this%eCredit < 56.5000) then
                if (this%Vacation < 39.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                if (this%salary < 20.3000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  if (this%eCredit < 67.0000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                end if
              end if
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            if (this%eCredit < 60.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%eCredit < 42.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%eCredit < 75.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 36 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 18.0000) then
        if (this%eCredit < 65.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 78.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        if (this%salary < 17.8600) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.5400) then
        if (this%salary < 21.3700) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%property < 5.5200) then
          if (this%eCredit < 53.5000) then
            if (this%Vacation < 39.5000) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%salary < 20.8900) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            if (this%salary < 20.8700) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%property < 0.9800) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 18.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4600) then
        if (this%Vacation < 24.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 40.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 46.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 37 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 16.6400) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%salary < 21.4900) then
        if (this%property < 2.5000) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%salary < 21.0500) then
            if (this%Vacation < 44.0000) then
              if (this%salary < 20.6000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%salary < 20.7800) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                if (this%eCredit < 68.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 6.5000) then
        if (this%Vacation < 26.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 21.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 38 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 23.5000) then
        if (this%property < 3.3000) then
          if (this%salary < 21.5800) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          if (this%Vacation < 4.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 77.5000) then
              if (this%property < 5.6600) then
                Res = T2F90_FINANCIAL_SERVICE_C3;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%Vacation < 35.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%property < 1.6100) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%Vacation < 44.0000) then
            if (this%eCredit < 45.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%Vacation < 33.5000) then
                if (this%Vacation < 29.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 41.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%eCredit < 72.5000) then
            if (this%property < 6.6200) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 19.1300) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 21.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.2600) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%property < 1.7500) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%Vacation < 46.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 39 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 65.0000) then
        if (this%salary < 18.4100) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%salary < 17.7600) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 4.9500) then
            if (this%property < 2.8600) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%eCredit < 81.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 18.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4800) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 46.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%salary < 20.7200) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 40 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 28.5000) then
        if (this%salary < 19.9100) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 31.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%eCredit < 79.0000) then
          if (this%Vacation < 41.5000) then
            if (this%property < 3.5100) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%property < 5.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%Vacation < 47.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4800) then
        if (this%Vacation < 22.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 41 ****

    if (this%eCredit < 23.5000) then
      if (this%salary < 18.6900) then
        if (this%property < 2.1700) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%eCredit < 9.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%Vacation < 46.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    else
      if (this%eCredit < 65.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%Vacation < 32.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%property < 5.3600) then
            if (this%Vacation < 50.5000) then
              if (this%salary < 21.4100) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  if (this%salary < 19.0300) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%Vacation < 17.5000) then
          if (this%property < 7.7300) then
            if (this%property < 6.4700) then
              if (this%salary < 16.1200) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                  Res = T2F90_FINANCIAL_SERVICE_C3;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%Vacation < 36.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%salary < 16.9600) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 42 ****

    if (this%eCredit < 24.5000) then
      if (this%property < 1.3100) then
        if (this%Vacation < 29.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 17.7000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    else
      if (this%Vacation < 16.0000) then
        if (this%eCredit < 88.5000) then
          if (this%salary < 21.1300) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              if (this%eCredit < 59.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C3;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%Vacation < 24.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%property < 4.9500) then
              if (this%eCredit < 50.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%eCredit < 81.5000) then
                  if (this%Vacation < 38.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              if (this%salary < 20.3600) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 43 ****

    if (this%Vacation < 17.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%eCredit < 65.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 3.2600) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          if (this%property < 2.2000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%salary < 16.8900) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 5.7100) then
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%salary < 20.1800) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                if (this%salary < 19.0300) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  if (this%Vacation < 44.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C5;
                  end if
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 44 ****

    if (this%property < 2.9800) then
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          if (this%Vacation < 22.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
        if (this%Vacation < 45.5000) then
          if (this%Vacation < 24.0000) then
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C2;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C2;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
        if (this%eCredit < 26.5000) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%eCredit < 21.5000) then
              if (this%Vacation < 47.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C5;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%eCredit < 47.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    else
      if (this%eCredit < 94.0000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%Vacation < 19.5000) then
            if (this%Vacation < 7.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%salary < 20.1800) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          if (this%Vacation < 45.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 45 ****

    if (this%Vacation < 24.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%property < 3.3000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 58.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 77.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Vacation < 47.5000) then
        if (this%Vacation < 31.5000) then
          if (this%eCredit < 36.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 3.5700) then
              if (this%Vacation < 26.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          if (this%Vacation < 37.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%Vacation < 41.5000) then
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                if (this%Vacation < 39.5000) then
                  if (this%eCredit < 56.0000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
      else
        if (this%eCredit < 26.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%property < 2.8600) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 46 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        if (this%property < 4.8900) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%salary < 21.9100) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%salary < 20.6300) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 20.3600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 5.5200) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 51.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 17.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%property < 6.1700) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 47 ****

    if (this%eCredit < 23.5000) then
      if (this%Vacation < 44.5000) then
        if (this%Vacation < 10.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            if (this%eCredit < 16.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C2;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    else
      if (this%salary < 21.9800) then
        if (this%Vacation < 24.0000) then
          if (this%salary < 20.0600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C3;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          if (this%eCredit < 45.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              if (this%Vacation < 30.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              if (this%eCredit < 47.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%property < 4.5400) then
                  if (this%property < 3.5100) then
                    if (this%Vacation < 41.0000) then
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    end if
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                else
                  if (this%salary < 20.3600) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    if (this%Vacation < 33.5000) then
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    end if
                  end if
                end if
              end if
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
      else
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 48 ****

    if (this%Vacation < 24.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%eCredit < 65.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%eCredit < 28.0000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          if (this%property < 2.2000) then
            if (this%eCredit < 10.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 20.1700) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%salary < 21.5200) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%Vacation < 40.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%property < 5.3300) then
              if (this%Vacation < 51.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 49 ****

    if (this%Vacation < 16.0000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%eCredit < 65.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 79.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Vacation < 46.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%Vacation < 44.0000) then
              if (this%eCredit < 79.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%Vacation < 40.0000) then
              if (this%salary < 19.3000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%eCredit < 42.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 30.5000) then
          if (this%salary < 20.5200) then
            if (this%Vacation < 50.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                Res = T2F90_FINANCIAL_SERVICE_C5;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%eCredit < 72.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 50 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 24.5000) then
        if (this%salary < 18.4800) then
          if (this%salary < 16.2300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Vacation < 9.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%eCredit < 32.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Vacation < 30.0000) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%eCredit < 20.5000) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 44.0000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%property < 5.5200) then
              if (this%eCredit < 79.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%Vacation < 40.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 15.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 44.5000) then
        if (this%property < 1.3200) then
          if (this%eCredit < 18.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 51 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 16.6400) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          if (this%Vacation < 17.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 25.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 33.0000) then
        if (this%salary < 20.6300) then
          if (this%eCredit < 18.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%property < 3.9400) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%eCredit < 67.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%Vacation < 36.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%salary < 19.3500) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 44.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Vacation < 51.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 21.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 15.0000) then
        if (this%eCredit < 7.5000) then
          if (this%Vacation < 27.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%salary < 21.2000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 52 ****

    if (this%Vacation < 21.0000) then
      if (this%eCredit < 26.0000) then
        if (this%Vacation < 13.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%salary < 21.3100) then
          if (this%property < 4.6000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 5.6600) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    else
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 17.5800) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%eCredit < 33.0000) then
          if (this%salary < 20.6300) then
            if (this%Vacation < 47.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%Vacation < 41.5000) then
            if (this%Vacation < 39.5000) then
              if (this%salary < 20.6000) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  if (this%property < 5.3300) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 53 ****

    if (this%eCredit < 23.5000) then
      if (this%Vacation < 13.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 46.5000) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    else
      if (this%salary < 21.9000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%Vacation < 30.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%salary < 21.0200) then
            if (this%eCredit < 74.0000) then
              if (this%property < 3.0400) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  if (this%eCredit < 65.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            if (this%salary < 21.4100) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 54 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 16.1400) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 18.5000) then
          if (this%eCredit < 57.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 33.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%Vacation < 38.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 53.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 76.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 24.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 112.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 55 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 65.0000) then
        if (this%salary < 18.4600) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 73.5000) then
          if (this%salary < 21.7000) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%Vacation < 47.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 77.0000) then
            if (this%Vacation < 42.0000) then
              if (this%Vacation < 39.5000) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  if (this%salary < 20.6000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 15.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.4800) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 18.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 84.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 56 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 19.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 31.0000) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 5.5200) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%eCredit < 79.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 17.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 7.5000) then
        if (this%Vacation < 27.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 21.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 57 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 17.8900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 30.5000) then
        if (this%property < 1.6100) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%salary < 20.3600) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%Vacation < 48.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
        end if
      else
        if (this%property < 5.5000) then
          if (this%Vacation < 24.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%salary < 21.5200) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.3200) then
        if (this%eCredit < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 58 ****

    if (this%eCredit < 26.5000) then
      if (this%salary < 18.6900) then
        if (this%Vacation < 10.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%salary < 15.4800) then
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        if (this%Vacation < 46.5000) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%Vacation < 50.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
        end if
      end if
    else
      if (this%salary < 21.9000) then
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            if (this%eCredit < 37.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%salary < 16.9800) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%eCredit < 43.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%property < 6.0500) then
                if (this%salary < 19.9500) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                    if (this%Vacation < 47.5000) then
                      if (this%eCredit < 79.5000) then
                        Res = T2F90_FINANCIAL_SERVICE_C4;
                      else
                        Res = T2F90_FINANCIAL_SERVICE_C1;
                      end if
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    end if
                  end if
                  if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                  if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                  if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                    if (this%Vacation < 51.5000) then
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    end if
                  end if
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 59 ****

    if (this%Vacation < 21.0000) then
      if (this%property < 2.1200) then
        if (this%eCredit < 27.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%property < 3.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            if (this%Vacation < 9.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              if (this%Vacation < 10.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C3;
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Vacation < 47.0000) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%property < 5.7100) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%Vacation < 24.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              if (this%eCredit < 57.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%property < 4.0200) then
              if (this%salary < 23.7000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C5;
              end if
            else
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%property < 5.1200) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 60 ****

    if (this%Vacation < 19.5000) then
      if (this%eCredit < 19.0000) then
        if (this%property < 2.1200) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%property < 3.8100) then
          if (this%salary < 23.7000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          if (this%eCredit < 57.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Vacation < 46.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%salary < 20.5200) then
            if (this%Vacation < 50.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                Res = T2F90_FINANCIAL_SERVICE_C5;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        if (this%salary < 16.9400) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%eCredit < 79.0000) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%eCredit < 60.5000) then
                  if (this%Vacation < 33.0000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                if (this%eCredit < 42.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 61 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.5200) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%eCredit < 63.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%property < 3.3000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Vacation < 44.0000) then
              if (this%eCredit < 79.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%salary < 18.8400) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 40.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 14.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 84.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 62 ****

    if (this%Vacation < 21.0000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%eCredit < 65.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 77.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Vacation < 48.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%Vacation < 28.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%Vacation < 27.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%Vacation < 36.5000) then
                if (this%Vacation < 33.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%salary < 21.9400) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%Vacation < 51.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%eCredit < 39.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          if (this%salary < 17.8900) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%property < 4.7100) then
              if (this%Vacation < 56.0000) then
                if (this%salary < 20.7500) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 63 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 65.0000) then
        if (this%salary < 18.5200) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%salary < 16.1200) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%eCredit < 65.5000) then
            if (this%Vacation < 29.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%salary < 19.3500) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%property < 2.8600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 5.3300) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 19.1300) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 21.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 46.5000) then
        if (this%property < 1.8200) then
          if (this%salary < 21.6200) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 64 ****

    if (this%Vacation < 16.0000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%eCredit < 77.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            if (this%eCredit < 59.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%Vacation < 33.5000) then
          if (this%salary < 18.5100) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%eCredit < 32.0000) then
          if (this%salary < 20.6300) then
            if (this%property < 1.6100) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              if (this%Vacation < 47.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C5;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%Vacation < 38.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 53.5000) then
              if (this%property < 4.4100) then
                if (this%Vacation < 39.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              if (this%eCredit < 76.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%eCredit < 16.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 65 ****

    if (this%eCredit < 23.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        if (this%salary < 19.1300) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%Vacation < 26.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%property < 1.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
    else
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 18.4400) then
          if (this%property < 5.3300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%salary < 16.8000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          if (this%salary < 22.2900) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%eCredit < 32.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%property < 5.3600) then
            if (this%salary < 20.8700) then
              if (this%Vacation < 29.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%eCredit < 81.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 66 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 22.5000) then
        if (this%property < 3.4000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 57.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        if (this%salary < 17.2100) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
        if (this%Vacation < 47.5000) then
          if (this%eCredit < 50.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
        if (this%Vacation < 45.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
        if (this%eCredit < 31.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%Vacation < 35.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 18.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 25.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 67 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        if (this%property < 5.3300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          if (this%Vacation < 19.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 26.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 31.0000) then
        if (this%eCredit < 21.0000) then
          if (this%Vacation < 48.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%eCredit < 73.0000) then
          if (this%property < 4.9500) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%property < 3.3000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 6.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%property < 1.4300) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 84.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 68 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 65.0000) then
        if (this%salary < 18.6100) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%property < 3.2600) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%Vacation < 46.0000) then
        if (this%property < 5.5000) then
          if (this%Vacation < 29.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%salary < 21.5200) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%eCredit < 79.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%property < 2.5700) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%eCredit < 79.0000) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 18.8800) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 6.5000) then
        if (this%Vacation < 26.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 21.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%property < 6.1700) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 69 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 22.5000) then
        if (this%eCredit < 65.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%salary < 15.3000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        if (this%Vacation < 28.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%eCredit < 46.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 31.0000) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%eCredit < 74.0000) then
          if (this%property < 5.5000) then
            if (this%salary < 21.5200) then
              if (this%eCredit < 43.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%property < 4.5400) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  if (this%eCredit < 62.0000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 14.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 19.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 88.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 70 ****

    if (this%Vacation < 16.0000) then
      if (this%salary < 21.2300) then
        if (this%property < 2.1200) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            if (this%Vacation < 9.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 24.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%property < 2.5900) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%salary < 21.5500) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%salary < 21.0200) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                if (this%Vacation < 38.5000) then
                  if (this%salary < 20.4800) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                if (this%salary < 18.8300) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 71 ****

    if (this%Vacation < 24.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%eCredit < 65.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 78.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Vacation < 47.5000) then
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 19.9700) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              if (this%eCredit < 49.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%Vacation < 41.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%Vacation < 40.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%property < 3.9500) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%salary < 19.6900) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
      else
        if (this%eCredit < 25.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%eCredit < 68.5000) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 72 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        if (this%salary < 16.6400) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Vacation < 9.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        if (this%Vacation < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%Vacation < 46.5000) then
        if (this%salary < 19.3100) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%salary < 21.1200) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Vacation < 33.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%salary < 19.7500) then
            if (this%Vacation < 55.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%eCredit < 39.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%Vacation < 51.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 19.6300) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%property < 1.7500) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%eCredit < 11.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 24.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 73 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 18.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 37.0000) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 41.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.3200) then
        if (this%eCredit < 19.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 74 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        if (this%property < 5.3300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%Vacation < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 31.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%salary < 19.3000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%Vacation < 42.0000) then
            if (this%eCredit < 44.5000) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                if (this%eCredit < 42.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            if (this%property < 2.8600) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%property < 4.7100) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 15.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 7.5000) then
        if (this%Vacation < 26.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%eCredit < 15.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%salary < 21.4200) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 75 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%salary < 21.7000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.5400) then
        if (this%eCredit < 41.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%Vacation < 29.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%property < 2.8700) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 50.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.3200) then
        if (this%Vacation < 24.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%property < 2.2400) then
          if (this%salary < 20.3800) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        else
          if (this%eCredit < 21.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 81.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 76 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.5200) then
        if (this%eCredit < 62.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 71.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        if (this%Vacation < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%salary < 20.6300) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%salary < 19.3500) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%property < 5.5200) then
            if (this%Vacation < 24.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%eCredit < 65.0000) then
                if (this%salary < 21.0700) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 18.6600) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 16.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.3200) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%salary < 22.1100) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%property < 2.4300) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%Vacation < 47.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C5;
              end if
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 24.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 77 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 65.0000) then
        if (this%salary < 18.5200) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 73.5000) then
          if (this%Vacation < 23.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          if (this%Vacation < 46.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%property < 4.9500) then
          if (this%salary < 19.4500) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%Vacation < 41.5000) then
                if (this%salary < 20.8900) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  if (this%Vacation < 39.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              if (this%property < 2.8600) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%eCredit < 18.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 45.0000) then
        if (this%Vacation < 21.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 27.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 78 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%Vacation < 18.0000) then
        if (this%salary < 16.2300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%eCredit < 40.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.4400) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%salary < 19.3500) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%Vacation < 23.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 3.3700) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%property < 5.5200) then
                if (this%Vacation < 41.0000) then
                  if (this%Vacation < 36.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    if (this%eCredit < 69.0000) then
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    end if
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%property < 1.8100) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%eCredit < 18.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 79 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 55.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%salary < 21.9100) then
          if (this%Vacation < 16.5000) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%Vacation < 47.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 5.5000) then
            if (this%salary < 20.4100) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%property < 3.4100) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  if (this%Vacation < 51.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 7.5000) then
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%property < 1.4800) then
          if (this%eCredit < 19.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 91.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 80 ****

    if (this%Vacation < 15.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%Vacation < 10.5000) then
          if (this%salary < 18.4800) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Vacation < 46.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 17.8300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%property < 2.2700) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 61.5000) then
              if (this%property < 5.3300) then
                if (this%salary < 20.2500) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            else
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                if (this%eCredit < 67.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%salary < 19.3300) then
            if (this%Vacation < 54.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%eCredit < 43.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 81 ****

    if (this%Vacation < 16.0000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 18.4800) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            if (this%salary < 16.8000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 17.9600) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%property < 2.4800) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%property < 4.9500) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%Vacation < 39.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              if (this%Vacation < 40.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              if (this%Vacation < 51.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%eCredit < 16.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 82 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 16.6400) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 18.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.4400) then
        if (this%Vacation < 32.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%property < 5.5000) then
          if (this%salary < 19.3100) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%property < 3.3500) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%property < 4.9500) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%Vacation < 43.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 19.1300) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 83 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%eCredit < 56.0000) then
        if (this%Vacation < 33.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          if (this%eCredit < 78.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 30.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%Vacation < 46.5000) then
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          if (this%salary < 21.0200) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 3.2200) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          if (this%Vacation < 30.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            if (this%eCredit < 51.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
      else
        if (this%eCredit < 39.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%Vacation < 51.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 21.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%salary < 22.1100) then
        if (this%property < 1.2300) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%eCredit < 18.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 84 ****

    if (this%Vacation < 16.0000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 18.5200) then
          if (this%eCredit < 59.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Vacation < 9.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%eCredit < 39.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%salary < 16.9600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        if (this%property < 2.5400) then
          if (this%Vacation < 46.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%property < 4.9500) then
            if (this%property < 3.3700) then
              if (this%Vacation < 45.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%eCredit < 68.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%Vacation < 46.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 85 ****

    if (this%eCredit < 29.5000) then
      if (this%Vacation < 47.5000) then
        if (this%Vacation < 10.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            if (this%Vacation < 21.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C2;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
    else
      if (this%salary < 21.9800) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%Vacation < 30.0000) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              if (this%Vacation < 17.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%eCredit < 62.5000) then
            if (this%Vacation < 50.0000) then
              if (this%salary < 21.1200) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%Vacation < 33.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            if (this%Vacation < 28.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%eCredit < 79.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          if (this%eCredit < 134.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 86 ****

    if (this%Vacation < 16.0000) then
      if (this%salary < 21.2300) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 16.6400) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%Vacation < 9.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C3;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%salary < 21.8800) then
        if (this%eCredit < 21.0000) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            if (this%salary < 17.8300) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            if (this%salary < 21.0500) then
              if (this%property < 2.6400) then
                if (this%Vacation < 54.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C5;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  if (this%eCredit < 67.0000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    if (this%Vacation < 39.5000) then
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    else
                      Res = T2F90_FINANCIAL_SERVICE_C1;
                    end if
                  end if
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              if (this%Vacation < 28.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 87 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        if (this%property < 5.3300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          if (this%salary < 21.2500) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 26.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%Vacation < 24.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%Vacation < 41.5000) then
            if (this%Vacation < 31.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%eCredit < 50.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                if (this%Vacation < 33.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  if (this%eCredit < 79.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                end if
              end if
            end if
          else
            if (this%eCredit < 76.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 19.1300) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%Vacation < 16.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%salary < 22.2500) then
          if (this%salary < 19.8700) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 88 ****

    if (this%eCredit < 23.5000) then
      if (this%Vacation < 47.5000) then
        if (this%Vacation < 10.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          if (this%eCredit < 21.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        if (this%Vacation < 50.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%salary < 21.1600) then
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
    else
      if (this%Vacation < 21.0000) then
        if (this%salary < 21.6300) then
          if (this%property < 3.8600) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%property < 5.6600) then
              Res = T2F90_FINANCIAL_SERVICE_C3;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%Vacation < 30.0000) then
            if (this%salary < 18.2300) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%eCredit < 49.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%property < 3.7900) then
                if (this%Vacation < 41.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            if (this%eCredit < 34.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%salary < 19.6900) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 89 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.5200) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          if (this%Vacation < 24.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.4500) then
        if (this%salary < 21.3700) then
          if (this%Vacation < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%eCredit < 74.0000) then
          if (this%Vacation < 24.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%salary < 21.5200) then
              if (this%salary < 18.8700) then
                if (this%salary < 18.4100) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 16.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 23.5000) then
        if (this%eCredit < 6.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%salary < 23.7200) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 90 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4400) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%salary < 21.7000) then
          if (this%Vacation < 16.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%Vacation < 47.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%salary < 19.3400) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%salary < 21.0500) then
            if (this%salary < 20.6000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%Vacation < 33.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          else
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%salary < 21.5200) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 15.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 91 ****

    if (this%eCredit < 23.5000) then
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
        if (this%Vacation < 30.0000) then
          if (this%Vacation < 10.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
        if (this%property < 1.6600) then
          if (this%Vacation < 46.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    else
      if (this%Vacation < 13.5000) then
        if (this%property < 3.7500) then
          if (this%Vacation < 10.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%salary < 16.8900) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%property < 5.7500) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              if (this%property < 2.5300) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                  if (this%Vacation < 39.5000) then
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
                if (this%salary < 19.6400) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 92 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
        if (this%eCredit < 45.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
        if (this%property < 3.2900) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%salary < 21.2500) then
            if (this%eCredit < 64.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C3;
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
        if (this%eCredit < 65.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 77.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
      if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
        if (this%Vacation < 28.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 33.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      else
        if (this%eCredit < 50.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%eCredit < 79.0000) then
            if (this%Vacation < 51.0000) then
              if (this%Vacation < 38.5000) then
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              if (this%Vacation < 55.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 15.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 21.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 17.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 93 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 19.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%eCredit < 32.0000) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%property < 3.3000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%salary < 19.2200) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%salary < 19.2500) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 17.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%property < 1.3200) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 11.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 26.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 94 ****

    if (this%eCredit < 26.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C5;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        if (this%eCredit < 6.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%Vacation < 28.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
    else
      if (this%salary < 21.9800) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%Vacation < 30.0000) then
            if (this%salary < 16.6400) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                if (this%salary < 18.4100) then
                  Res = T2F90_FINANCIAL_SERVICE_C3;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C3;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%property < 4.9500) then
            if (this%property < 3.3700) then
              if (this%salary < 19.3500) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%eCredit < 58.0000) then
                  if (this%Vacation < 45.0000) then
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C4;
                  end if
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
            else
              if (this%Vacation < 24.5000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            if (this%salary < 20.4400) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          if (this%eCredit < 134.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 95 ****

    if (this%Vacation < 14.5000) then
      if (this%eCredit < 19.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        if (this%eCredit < 88.5000) then
          if (this%salary < 22.2300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Vacation < 44.5000) then
          if (this%eCredit < 18.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          if (this%eCredit < 14.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
      else
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 17.8300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%eCredit < 47.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            if (this%eCredit < 77.0000) then
              if (this%salary < 19.6600) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                  if (this%Vacation < 39.5000) then
                    if (this%eCredit < 56.5000) then
                      Res = T2F90_FINANCIAL_SERVICE_C4;
                    else
                      if (this%Vacation < 33.5000) then
                        Res = T2F90_FINANCIAL_SERVICE_C1;
                      else
                        Res = T2F90_FINANCIAL_SERVICE_C4;
                      end if
                    end if
                  else
                    Res = T2F90_FINANCIAL_SERVICE_C1;
                  end if
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
                if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 96 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      else
        if (this%Vacation < 21.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%property < 2.4400) then
        if (this%Vacation < 46.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      else
        if (this%salary < 19.3400) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%eCredit < 67.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%Vacation < 30.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              if (this%salary < 21.0200) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 18.0000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%eCredit < 14.0000) then
        if (this%eCredit < 7.5000) then
          if (this%Vacation < 28.0000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C2;
        end if
      else
        if (this%eCredit < 21.0000) then
          if (this%Vacation < 28.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C2;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%eCredit < 89.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C4;
      else
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 97 ****

    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
      if (this%salary < 18.4900) then
        if (this%property < 5.3300) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      else
        if (this%Vacation < 18.5000) then
          Res = T2F90_FINANCIAL_SERVICE_C3;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
      if (this%Vacation < 46.5000) then
        if (this%salary < 19.3000) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        else
          if (this%salary < 21.2300) then
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
            if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
              if (this%eCredit < 42.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      else
        if (this%property < 3.4200) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        else
          if (this%salary < 20.0700) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
      if (this%Vacation < 15.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
      if (this%Vacation < 44.5000) then
        if (this%Vacation < 20.0000) then
          Res = T2F90_FINANCIAL_SERVICE_C2;
        else
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
        if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
          Res = T2F90_FINANCIAL_SERVICE_C5;
        end if
      end if
    end if
    if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
      if (this%Vacation < 20.5000) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      else
        Res = T2F90_FINANCIAL_SERVICE_C4;
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 98 ****

    if (this%Vacation < 16.0000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 16.6400) then
          Res = T2F90_FINANCIAL_SERVICE_C1;
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Vacation < 47.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 17.8300) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%salary < 20.6000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%Vacation < 37.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              else
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%Vacation < 30.5000) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%Vacation < 51.5000) then
          if (this%eCredit < 40.5000) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 99 ****

    if (this%Vacation < 23.5000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%property < 3.4000) then
          if (this%salary < 21.5800) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        else
          if (this%Vacation < 10.5000) then
            if (this%Vacation < 7.0000) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              if (this%eCredit < 58.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C3;
              end if
            end if
          else
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%Vacation < 48.5000) then
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
          if (this%salary < 17.2700) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          else
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
          if (this%salary < 21.0500) then
            if (this%property < 5.5000) then
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
                if (this%eCredit < 79.5000) then
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                end if
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              end if
              if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          else
            if (this%salary < 22.1200) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            else
              Res = T2F90_FINANCIAL_SERVICE_C5;
            end if
          end if
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
        if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
          Res = T2F90_FINANCIAL_SERVICE_C4;
        end if
      else
        if (this%eCredit < 26.5000) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        else
          if (this%property < 4.7100) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          else
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Tree 100 ****

    if (this%Vacation < 21.0000) then
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
        if (this%salary < 18.5200) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C3;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C3;
        end if
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
        Res = T2F90_FINANCIAL_SERVICE_C1;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
        Res = T2F90_FINANCIAL_SERVICE_C2;
      end if
      if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
        Res = T2F90_FINANCIAL_SERVICE_C3;
      end if
    else
      if (this%eCredit < 23.5000) then
        if (this%Vacation < 47.0000) then
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
        else
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C1;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C5;
          end if
        end if
      else
        if (this%property < 5.7500) then
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLLSAVING) then
            if (this%salary < 20.1100) then
              Res = T2F90_FINANCIAL_SERVICE_C1;
            else
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDLSAVING) then
            Res = T2F90_FINANCIAL_SERVICE_C4;
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGSAVING) then
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_STUDENT) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_ENGINEER) then
              if (this%Vacation < 40.0000) then
                Res = T2F90_FINANCIAL_SERVICE_C1;
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_LIBRARIAN) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_PROFESSOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
            if (this%Type == T2F90_FINANCIAL_SERVICE_TYPE_DOCTOR) then
              Res = T2F90_FINANCIAL_SERVICE_C4;
            end if
          end if
          if (this%LifeStyle == T2F90_FINANCIAL_SERVICE_LIFESTYLE_SPENDGGSAVING) then
            if (this%eCredit < 75.5000) then
              if (this%eCredit < 41.0000) then
                if (this%Vacation < 40.0000) then
                  Res = T2F90_FINANCIAL_SERVICE_C1;
                else
                  Res = T2F90_FINANCIAL_SERVICE_C4;
                end if
              else
                Res = T2F90_FINANCIAL_SERVICE_C4;
              end if
            else
              Res = T2F90_FINANCIAL_SERVICE_C1;
            end if
          end if
        else
          Res = T2F90_FINANCIAL_SERVICE_C1;
        end if
      end if
    end if

    Occur(Res) = Occur(Res) + 1;

    !**** Find the most frequent output class ****

    OccurMax = Occur(0)
    Res      = 0

    do k = 0, 4
      if (Occur(k) > OccurMax) then
        OccurMax = Occur(k)
        Res      = k
      end if
    end do

  end function Classify


  !**** Domain check function ****

  !*
  !* Return the number of domain violations
  !*

  function DomCheck(this) result(Violations)
    class(T2F90_FINANCIAL_SERVICE_Input) , intent(in) :: this
    integer :: Violations

    Violations = 0

    if (this%Vacation < 1.00000000 .or. this%Vacation > 64.00000000) Violations = Violations + 1
    if (this%eCredit < 3.00000000 .or. this%eCredit > 347.00000000) Violations = Violations + 1
    if (this%property < 0.00800000 .or. this%property > 17.87370000) Violations = Violations + 1
    if (this%salary < 8.50760000 .or. this%salary > 31.75000000) Violations = Violations + 1

  end function DomCheck

end module
