program aa    
 integer, parameter :: ikind=selected_real_kind(p=15)
     

real  (kind=ikind),dimension(10,20,30) :: b   
b=3  
print *,b
end program aa