convert2int_port Function

public function convert2int_port(str) result(convert)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: str

Return Value integer


Called by

proc~~convert2int_port~~CalledByGraph proc~convert2int_port convert2int_port proc~boundary_init_part2 boundary_init_part2 proc~boundary_init_part2->proc~convert2int_port proc~circulator_init_part2 circulator_init_part2 proc~circulator_init_part2->proc~convert2int_port proc~junction_init_part2 junction_init_part2 proc~junction_init_part2->proc~convert2int_port proc~ssfluxlink_init_part2 SSfluxLink_init_part2 proc~ssfluxlink_init_part2->proc~convert2int_port program~reims_p reims_p program~reims_p->proc~boundary_init_part2 program~reims_p->proc~circulator_init_part2 program~reims_p->proc~junction_init_part2 program~reims_p->proc~ssfluxlink_init_part2

Source Code

function convert2int_port(str) result(convert)
    character(len=*), intent(in) :: str
    integer :: convert

    select case (str)
        case ('in')
            convert = 1
        case ('out')
            convert = 2
    end select
end function convert2int_port