Fortran1小时入门教程资料下载.pdf
《Fortran1小时入门教程资料下载.pdf》由会员分享,可在线阅读,更多相关《Fortran1小时入门教程资料下载.pdf(19页珍藏版)》请在冰豆网上搜索。
2CompaqVisualFortran6.5(CVF)XPWIN7?
MicrosoftVisualStudio2005(VS2005)MicrosoftVisualStudio2008(VS2008)3InterVisualFortranv11(IVF)XPWIN7?
CUITXYLSUltraEdit?
CUITCUITXYLSEditPlus?
CUITCUITXYLS?
123?
CUITXYLS?
if?
case?
.and.or.not.CUITXYLSQ1?
60?
if(?
)then?
endifQ2?
7090?
1else?
2endif?
1)then?
1elseif(?
2)then?
2elseif(?
3)then?
3elseif(?
n)then?
nelse?
n+1endifCUITXYLScase?
selectcase(?
)case(?
1)?
1case(?
2)?
2case(?
n)?
ncasedefault?
endselect?
)?
1?
2?
3CUITXYLS?
12dowhile?
do?
CUITCUITXYLSQ:
?
110?
doi=e1,e2,e3?
enddodowhile?
dowhile(?
enddoexitcyclepausedo?
dowhile?
FORTRAN90?
A
(1)A
(2)A(3).A(n)A(1,1)A(1,2)A(1,3)A(2,1)A(2,2)A(2,3)A
(1)A
(2)A(3)A(n)?
A(1,1)A(2,1)A(1,2)A(2,2)A(1,3)A(2,3)1352461234561?
3?
1:
m?
deallocate(ave)?
allocate(ave(m,n)?
real,dimension(:
:
),allocatable:
aveCUITXYLS?
open?
ASCII?
open(unit,file,form,access,recl)open(11,file=d:
datab.txt,form=formatted,access=direct,recl=10)open(10,file=d:
dataa.txt,form=formatted,access=sequential)?
close(10)close(11)close(unit)CUITXYLS?
formatted?
unformatted?
binary?
sequential?
direct?
/?
read(10)/write(10)read(10,*)/write(10,*)CUITXYLS?
CUITCUITXYLS