fortran常见问题解决.docVIP

楼主 为了减少重复回答问题，特编此帖，并不定期添加和更新内容。错误难免，欢迎讨论，仅供参考。很多人问哪里可以找到Fortran编译器，有不少热心学友提供网址，特汇集在这里。虽然俺检验过这些链接，但是它们不一定总有效。Fortran?编译器下载：CVF?6.6/SoftDown.asp?ID=11937FTN95?(License:?Free?for?personal?use)/Silverfrost-FTN95/3000-2069_4html?tag=lst-0-10以下操作，如无特别说明，都是以CVF6.6为例。1.?如何加大Stack?size?选Project?=?Settings?=?Link?=?Category:?Output?=?Stack?allocationsReserve:?这里填新值（默认为1M，若需要10M，则2.?如何用Fortran批量生成文件？设要生成4000个文件，文件名为AA1-AA4000，如何写循环生成文件,而不用写4000次write命令呢?用内部文件：character(len=80)?::?filename,forminteger?::?ido?i=1,4000???select?case?(i)???case?(1:9)??????write(form,(i1))?i???case?(10:99)??????write(form,(i2))?i???case?(100:999)??????write(form,(i3))?i???case?(1000:9999)??????write(form,(i4))?i???end?select???write(filename,*)?AA,trim(form),.TXT???open(10,file=filename)???write(10,*)?i???close(10)end?do???stopend3.?如何用Fortran动态生成输出格式？设有一个数组data(100)，输出时，希望每行输出num个数，而num由用户输入，如何实现？用内部文件：character(len=80)?::?formreal?::?data(100)integer?::?i,numdata?=?(/?(i,i=1,100)?/)/10.0read(*,*)?numwrite(form,*)?(,num,f10.3)write(*,form)?datastopend4.?MS?POWERSTATION4.0是不是很垃圾？POWERSTATION4.0是垃圾，其中Bug太多，多到不可用的地步！在这个主题里，换了CVF后问题就没了的人已有相当的数目。如果你用POWERSTATION4.0，遇到莫名其妙的错误，建议换CVF6.6，这是一个比较成熟的编译器。5.?如何用F90/95生成随机数？注意：现在计算机产生的随机数都是伪随机数。random_number(x)?产生一个0到1之间的随机数（x可以是向量），但是每次总是那几个数。用了random_seed?()后，系统根据日期和时间随机地提供种子，使得随机数更随机了。program?random???implicit?none???real?::?x???call?random_seed?()?????!?系统根据日期和时间随机地提供种子???call?random_number?(x)??!?每次的随机数就都不一样了???write(*,*)?x???stopend?program?random6.?函数/子程序超载的例子设要编一个两个变量值互换的子程序swap(a,b)，哑元a,b可能是实型数，整型数，数组，矩阵，字符串，派生类型等等。但是希望只用一个子程序接口swap(a,b)来实现。F90可以用类属接口来实现这种子程序超载：module?Utilities???implicit?none???private?I_Swap,R_Swap,RVec_Swap,RMat_Swap,Type_Swap???public??::?Swap???interface?Swap??????module?procedure?I_Swap,R_Swap,RVec_Swap,RMat_Swap,Type_Swap???end?interface???contains???subroutine?i_swap?(a,b)??!?整型置换??????integer?(ikind),intent(in?o