贴错函数。 CALL RANDOM_NUMBER (harvest) 这个是传回乱数。 纯粹设乱数种子： CALL RANDOM_SEED ([size] [, put] [, get]) ==> 本文由 "琏琏 <[email protected]>" > 於 news:3CB93BFB9C0942BA9FABE2E445D16673%40c2e6400 发表 > Fortran 90 的标准应该是 > CALL RANDOM_NUMBER (harvest) > SRAND 是 Intel Fortran 提供的延伸函式，并不被其他的 Fortran 编译器支援。 > ==> 本文由 "㊣８６号情报员再出击 <[email protected]>" > > 於 news:programming%24A13HE1F5%40bbs.cs.nctu.edu.tw 发表 > > ※ 引述《[email protected] (Ray)》之铭言： > > > 我用Fortran的random_number产生一个M乘N的乱数矩阵 > > > 乱数值是0 ~ 1 > > > 可是我发现每次执行的时候 > > > 每次产生的乱数每次都是一模一样 > > > 我希望每次执行程式时，产生的乱数都不一样 > > > 请问要怎麽做呢？ > > 你需要使用srand(k) > > 这个 k 可由user输入，或用time()等时间函数制造一个 > > 详情请查看你的书 > > 　 > -- 风禹科技验证有限公司 ASP.NET Web News Reader 0.2.7 UTF-8 Beta 网站地图 http://tlcheng.twbbs.org/wwwmap.htm 流域防洪/区域水资源/徐昇网/玫瑰图/语音通讯 文章与程式 Basic/Fortran/Windows API/.Net/辅助说明档 原始码、文章与讨论 微软程式设计、系统管理使用新技术论坛讨论区，网友回覆後即时简讯、电子邮件通知： MSDN: http://forums.microsoft.com/msdn-cht/default.aspx?siteid=14 TechNet: http://forums.microsoft.com/technet-cht/default.aspx?siteid=23 -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language