FORTRAN



FORTRAN

Intro
Feature
Annotation
Basic-Syntax
Data-Type

boolean
integer
real
complex
character
dimension


Expression

operator

arithmetic
logical
relational




Statement

if
loop
jump
function


INPUT
OUTPUT









Intro

FORTRAN诞生于1954年，为美国著名的计算机先驱人物约翰·巴克斯所开发。 

是世界上第一种计算机高级语言，为现代软件开发奠定了基础。

FORTRAN是Formula Translation的缩写，意为”公式翻译”。它是为科学、工程问题或企事业管理中的那些能够用数学公式表达的问题而设计的，其数值计算的功能较强。

主要标准版本有F77、F90、F95。 

编译器有ifort、gfortran、G95。

FORTRAN不同版本区别较大，下面以F90为标准



Feature


F77受卡片机72列的影响，所以Fortran一行只允许最多72列，且头6列有特殊意义，包括语句标号
implicit: IJKLMN as INTEGER
strong-type
dimension


Annotation

最初标准以第一列为C或者*表示为注释行 

后来以!为注释符



Basic-Syntax



program program_name
implicit none      

! const
real, parameter :: pi = 3.1415927

! type declaration statements
<Data-Type> :: <var1>,<var2>...

! executable statements  

end program program_name



Data-Type



boolean


logical(.true.  .false.)




integer


integer




real


real
double precision




complex


complex (a,b) as (a+bi)
double precision complex




character


character (len=n)




dimension


, dimension(m[,n]) :: var




Expression



<unary> <rvalue>;
<lvalue> <binary> <rvalue>;



operator



arithmetic


+
-
*
/
**




logical


.and.
.or.
.not.




relational


.eq. as ==
.ne. as /=
.lt. as <
.gt. as >
.le. as <=
.ge. as >=




Statement



if



if (exp1) then
    <statement1>
else if (exp2) then
    <statement2>
else
    <statement3>
end if



select case (exp)
    case value1
        statement1
    case value2
        statement2
    ...
    case default
        statement
end select



loop



do i=begin,end [,step]
    statements
end do



do while (exp)
    statements
end do



jump



goto S
goto (S1,S2...),I
cycle ! like c continue
exit  ! like c break



function



subroutine sub_name(params)
    statements
    return
end subroutine

function func_name(params)
    statements
    call sub_name(...)
    return
end function



INPUT



read fmt, variable_list  



OUTPUT



print fmt, variable_list 
write fmt, variable_list

@Fortran代码

怎么用Fortran求解有无穷解的线性方程组

考研了，以后要学量子化学，导师说以后要用Fortran写程序，郁闷！学的第一门也是课堂上学的唯一一门语言就是Fortran了，不过现在都忘光光了，不过还好，FORTRAN语法很简单，要不了多久就可以温习完了……
偶就想不通FORTRAN为什么还能流行到现在，要说随便那种语言都可以完成他能做的事了……
 
今天不幸，切菜把手切了，差点没把手指给削了一节