workflow_name_to_index Function

function workflow_name_to_index(name) result(idx)

get the index of this workflow in the array

Arguments

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

Return Value integer


Called by

proc~~workflow_name_to_index~~CalledByGraph proc~workflow_name_to_index problem_19::workflow_name_to_index proc~process problem_19::process proc~process->proc~workflow_name_to_index program~problem_19 problem_19 program~problem_19->proc~process

Source Code

        function workflow_name_to_index(name) result(idx)
            !! get the index of this workflow in the array
            character(len=*),intent(in) :: name
            integer :: idx
            do idx = 1, size(workflows)
                if (name == workflows(idx)%name) return ! found it
            end do
            if (idx>size(workflows)) error stop 'workflow not found: '//name
        end function workflow_name_to_index