学步园

program sample<br /> parameter (row = 5)<br /> integer err_mesg</p> <p> integer ary1(:), ary11(:, :, <img src="https://admin.xuebuyuan.com/wp-includes/images/smilies/icon_smile.gif" alt=":)" class="wp-smiley" /><br /> allocatable ary1, ary11 !第一种声明动态数组的方式</p> <p> integer, allocatable:: ary2(:), ary22(:) !第二种声明动态数组的方式</p> <p> integer, dimension(:), allocatable:: ary3, ary33 !第三种声明动态数组的方式<br /> !下面是测试部分<br /> allocate(ary1(1:5), ary11(3, 3, 3), stat = err_mesg)<br /> if(0 .eq. err_mesg) then<br /> print *, "ary1 initialize successed!"<br /> else if(0 .ne. err_mesg) then<br /> print *, "ary1 initialize failed", err_mesg<br /> end if !以上测试正常分配的情况，分配成功stat = 0</p> <p> !查看动态数组是否分配空间<br /> if(.not. allocated(ary2)) print *, 'not allocated ary2'<br /> if(.false. .eq. allocated(ary22)) print *, 'not allocated ary22'<br /> if(.true. .eq. allocated(ary1)) print *, 'allocated ary1'<br /> !已被分配空间的数组不可重复分配<br /> allocate(ary11(2, 2, 2), stat = err_mesg)<br /> if(0 .ne. err_mesg) print *, 'Ooops, ary11 has been allocated'<br /> !内存的释放，只有被allocate的内存才能用deallocate释放，否则报错<br /> deallocate(ary1, stat = err_mesg)<br /> if(0 .ne. err_mesg) then<br /> print *, 'ary1 is not allocated'<br /> else if(0 .eq. err_mesg) then<br /> print *, 'ary1 del successfully'<br /> end if</p> <p> deallocate(ary3, stat = err_mesg)<br /> if(0 .ne. err_mesg) then<br /> print *, 'ary3 is not allocated'<br /> else if(0 .eq. err_mesg) then<br /> print *, 'ary3 del successfully'<br /> end if</p> <p>end<br /> subroutine disp(ary)<br /> parameter (row = 5)<br /> !integer row<br /> integer:: ary(1:row)<br /> do i = 1, row<br /> print *, ary(i)<br /> end do<br /> end</p> <p>上述程序的输出:<br /> ary1 initialize successed!<br /> not allocated ary2<br /> not allocated ary22<br /> allocated ary1<br /> Ooops, ary11 has been allocated<br /> ary1 del successfully<br /> ary3 is not allocated<br /> 请按任意键继续. . .</p> <p>