Hello, I am attempting to work with the MKL library and in particular the beta function. The commands worked with an older version of mkl on a different system. I think that there may be a problem with my function

I am calling the following subroutine:

subroutine beta_rng_mkl(seed_in, n_rand_obs_in, r_beta_list, shape1, shape2)

use :: mkl_vsl_type

integer :: brng

integer, intent(in) :: seed_in, n_rand_obs_in, methodrng

real, pointer, intent(out) :: r_beta_list

type(VSL_STREAM_STATE) :: stream

integer :: status

external :: vslnewstream, vsrngbeta, vsldeletestream

methodrng = VSL_METHOD_SBETA_CJA

brng = vsl_brng_mcg31

status = vslnewstream(stream, brng, seed_in)

status = vsrngbeta( methodrng, stream, n_rand_obs_in, r_beta_list, shape1, shape2, 0.0, 1.0 )

status = vsldeletestream(stream)

end subroutine

and I get the following error message in my program:

jgold@clinic:~/smwcv/error_infect/data_augment/random_sim/sim1/o1newinfections75$ ifort -free -O2 -stand f03 -check bounds -traceback -warn all -fstack-protector -assume protect_parens -implicitnone -o mcmcobsgammanoepsilon.out mcmcobsgammanoepsilon.f90 -I/opt/intel/composer_xe_2011_sp1.6.233/mkl/include -L/opt/intel/composer_xe_2011_sp1.6.233/mkl/lib/intel64 -lmkl_rt

mcmcobsgammanoepsilon.f90(59): error #8000: There is a conflict between local interface block and external interface block. [R_BETA_LIST]

subroutine beta_rng_mkl(seed_in, n_rand_obs_in, r_beta_list, shape1, shape2)

---------------------------------------------------^

mcmcobsgammanoepsilon.f90(367): error #6634: The shape matching rules of actual arguments and dummy arguments have been violated. [R_BETA_LIST]

call beta_rng_mkl(seed_in, n_rand_obs_in, r_beta_list, shape1, shape2)

below is the local interface:

include "mkl_vsl.f90"

module randvariables

real :: harvest, shape1, shape2

integer :: seed_in, n_rand_obs_in

real, dimension(:), pointer :: r_beta_list

integer :: r_beta_count, rejectflag

integer, dimension (:, :) , allocatable :: link

end module

program mcnet

! Tell the main program to use the randvariables module

use :: randvariables