gfortran - Is there any way to call Fortran subroutine from character variable (which holds name of subroutine) instead of name of actual subroutine -

i have fortran subroutine sample. call inside program. looking way call character variable, not call sample() following

program calculate   character(97) :: ii='sample'   call ii() ! call sample subroutine end program  subroutine sample   print 'something' end subroutine sample