1 module da_rsl_interfaces 2 3 interface 4 subroutine rsl_register_f90_base_and_size(base,size) 5 real, intent(in) :: base(:) 6 integer, intent(in) :: size 7 end subroutine rsl_register_f90_base_and_size 8 end interface 9 10 end module da_rsl_interfaces