编辑代码

program main
	real(kind=8)::s(6,6,16) = 0.0           !用于存储传递变量
    real(kind=8) STATEV(582)

    do i = 1,6
        STATEV(i) = i
    enddo
    s = reshape(STATEV(7:582), [6,6,16])
    do i = 1,6
        do j = 1,6
            do k =1,16
                s(i,j,k) = i*100.0+j*10.0+k*1.0
            enddo
        enddo
    enddo
    STATEV(7:582) = reshape(s,[576])
    print*,STATEV
    s = reshape(STATEV(7:582), [6,6,16])
    do i = 1,6
        do j = 1,6
            do k =1,16
                print*,s(i,j,k)
            enddo
        enddo
    enddo    
end