1、2Compaq Visual Fortran 6.5（CVF）XPWIN7?Microsoft Visual Studio 2005（VS2005）Microsoft Visual Studio 2008（VS2008）3Inter Visual Fortran v11（IVF）XPWIN7?CUITXYLSUltraEdit?CUITCUITXYLSEditPlus?CUITCUITXYLS?123?CUITXYLS?if?case?.and.or.not.CUITXYLSQ1?60?if（?）then?endifQ2?7090?1else?2endif?1）then?1elseif（?2）
2、then?2elseif（?3）then?3elseif（?n）then?nelse?n+1endifCUITXYLScase?select case（?）case（?1）?1case（?2）?2case（?n）?ncase default?end select?）?1?2?3CUITXYLS?12do while?do?CUITCUITXYLSQ:?110?do i=e1,e2,e3?enddodo while?do while（?enddoexitcyclepausedo?do while?FORTRAN90?A（1）A（2）A（3）.A（n）A（1,1）A（1,2）A（1,3）A（2,1
3、）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
