函数子程序、子例程子程序使用的基本准则:16 ◆当子程序不需要返回值时,使用子例程子程 序。 ◆当子程序仅需要返回一个值时,使用函数子 程序,利用函数名进行返回。 ◆当子程序需要返回多个值时,一般使用子例 程子程序,利用实参进行返回。 【1.2】编写子例程子程序分别求出4×4矩阵两个 对角线上元素之和。 两个对角线指主对角线、次对角线。 §2子例程子程序 2021/2/24
16 2021/2/24 函数子程序、子例程子程序使用的基本准则： ❖ 当子程序不需要返回值时，使用子例程子程 序。 ❖ 当子程序仅需要返回一个值时，使用函数子 程序，利用函数名进行返回。 ❖ 当子程序需要返回多个值时，一般使用子例 程子程序，利用实参进行返回。 【11.2】编写子例程子程序分别求出4×4矩阵两个 对角线上元素之和。 两个对角线指主对角线 、次对角线。 §2 子例程子程序
subroutine sum(a, s1, s2) real a(4, 4) s1=0 do10i=1,4 s1=s1+a(i,) 10 continue s2=0 do20i=1,4 s2=s2+a(5-) 20 continue end §2子例程子程序 2021/2/24
17 2021/2/24 §2 子例程子程序 subroutine sum(a, s1, s2) real a(4,4) s1=0 do 10 i=1,4 s1=s1+a(i,i) 10 continue s2=0 do 20 i=1,4 s2=s2+a(i,5-i) 20 continue end