两种方法：
1。 在声明 B 的时候

program main
  implicit none
  
  integer:: IA(6) = (/1,2,3,4,5,6/)
  integer:: IB(3, 2) = (/1,2,3,4,5,6/) 
 
  stop      
end program main

2。  用 ReShape 函数。