fortran-抛硬币产生随机数，建立动态分配内存的数组

李大俊 2015-7-6 21:40

PROGRAM MAIN IMPLICIT NONE !动态地为数组分配内存 !REAL,DIMENSION(:,:),ALLOCATABLE :: A !与下面的语句等价 REAL,ALLOCATABLE :: A(:,:) REAL :: U !随机地产生u CALL RANDOM_NUMBER(U) !对u的判断 IF(U 0.5)THEN ALLOCATE(A(5,8)) ELSE ALLOCATE(A(7,4)) END IF !数据输出，位置为屏幕 PRINT * ...

个人分类: fortran基础学习|2380 次阅读|没有评论

本页有 6 篇博文因作者的隐私设置或未通过审核而隐藏