return_class_closure Function

private pure function return_class_closure(f_L_class, f_r_class, f_l_closure, f_r_closure) result(retval)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: f_L_class
logical, intent(in) :: f_r_class
logical, intent(in) :: f_l_closure
logical, intent(in) :: f_r_closure

Return Value integer


Source Code

   pure function return_class_closure(f_L_class, f_R_class, f_L_closure, f_R_closure) result(retval)
      implicit none
      logical, intent(in) :: f_L_class, f_r_class, f_l_closure, f_r_closure
      integer :: retval

      if (.not. f_L_class) then
         if (.not. f_r_class) then
            if (.not. f_l_closure) then
               if (.not. f_r_closure) then
                  retval = lt_N_class_N_closure
               else
                  retval = lt_N_class_R_closure
               end if
            else
               if (.not. f_r_closure) then
                  retval = lt_N_class_L_closure
               else
                  retval = lt_N_class_LR_closure
               end if
            end if
         else
            if (.not. f_l_closure) then
               if (.not. f_r_closure) then
                  retval = lt_R_class_N_closure
               else
                  retval = lt_R_class_R_closure
               endif
            else
               if (.not. f_r_closure) then
                  retval = lt_R_class_L_closure
               else
                  retval = lt_R_class_LR_closure
               end if
            end if
         end if
      else
         if (.not. f_r_class) then
            if (.not. f_l_closure) then
               if (.not. f_r_closure) then
                  retval = lt_L_class_N_closure
               else
                  retval = lt_L_class_R_closure
               end if
            else
               if (.not. f_r_closure) then
                  retval = lt_L_class_L_closure
               else
                  retval = lt_L_class_LR_closure
               end if
            end if
         else
            if (.not. f_l_closure) then
               if (.not. f_r_closure) then
                  retval = lt_LR_class_N_closure
               else
                  retval = lt_LR_class_R_closure
               endif
            else
               if (.not. f_r_closure) then
                  retval = lt_LR_class_L_closure
               else
                  retval = lt_LR_class_LR_closure
               end if
            end if
         end if   
      end if
   end function return_class_closure