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~2~~CalledByGraph proc~workflow_name_to_index~2 problem_19b::workflow_name_to_index proc~process~2 problem_19b::process proc~process~2->proc~workflow_name_to_index~2 proc~process~2->proc~process~2 program~problem_19b problem_19b program~problem_19b->proc~workflow_name_to_index~2 program~problem_19b->proc~process~2

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