Fortran数组、函数--xdd

1.数组的声明

integer,parameter::num=
integer::student(num)
或者 integer a()
或者 integer a(,)
student()=    !第一个元素值为5，默认索引值从1开始
赋初值
integer A()
data /,,,,/
data /*/     !5个0
data(A(i),i=,,)  /,,/        !隐do循环

2.数组操作

3.where...elsewhere...endwhere 《fortran95 程序设计》彭国伦 p138

将数组中符合某一特征（比如小于3）的元素重新形成一个数组

4.声明一个可变大小的数组

integer,allocatable::A(:)    !A是一个可变大小的一维数组
write(*,*)"how many syudents"
read(*,*)num
allocate(a(num))              !配置内存空间 

---

---

5.函数

5.1子程序subroutine

program ex
...
call subroutine sub1()
...
end program

subroutine sub1()
...
end subroutine sub1

子程序中遇到return即返回到调用处，如在子程序最后可以省略

5.2全局变量common

common a,b
a=
b=