kexuedj的个人博客分享 http://blog.sciencenet.cn/u/kexuedj

博文

按标题搜索
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基础学习|2577 次阅读|没有评论
第一次写博文,纪念一下吧!
热度 1 2014-12-26 21:35
一直都是在看别人的博客,自己从来没有写过。有时候写出来怕人家笑话,有时候感觉写出来也没什么意义。可能我对博客还是缺乏了解。这是我的第一篇博文,以此来纪念!
2342 次阅读|1 个评论 热度 1

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2024-9-19 12:43

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部