Lines Matching refs:ivalue

27   recursive subroutine recfunc (ivalue)
28     integer, intent(in) :: ivalue  local
31     foo1%bar = ivalue
32     foo2%bar = ivalue
33     if (ivalue .le. 3) then
34       val1(ivalue) = foo1%bar
35       val2(ivalue) = foo2%bar
36       call recfunc (ivalue + 1)
37       val1(ivalue + 3) = foo1%bar
38       val2(ivalue + 3) = foo2%bar
46   integer, intent(in) :: ivalue  local
60     subroutine func(ivalue, rv1, rv2)
62       integer, intent(in) :: ivalue  local