fortran常见问题解决.docx

楼主为了减少重复回答问题，特编此帖，并不定期添加和更新内容。错误难免，欢迎讨论，仅供参考。很多人问哪里可以找到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?dostopend3.?如何用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?out)??::??a,b?integer?(ikind)?????????????????::??t?。。。????????????????!?略?end?subroutine?i_swap?subroutine?r_swap?(a,b)??!?实型置换?real?(rkind),?intent(in?out)????::?a,b?real?(rkin