The result is an array of shape SHAPE with the same type as SOURCE . Example: PROGRAM test_reshape INTEGER, DIMENSION(4) :: x WRITE(*,*) SHAPE(x) ! prints "4" ...
確定! 回上一頁