资源描述：
《数组的使用及Fortran函数》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1.数组引用方法2.数组逻辑结构和存储结构3.数组的输入输出4.Fortran子程序概述5.语句函数6.外部函数子程序7.内部函数子程序8.应用举例9.作业第七讲数组的使用及Fortran函数第七讲数组的使用及Fortran函数苏州科技大学计算中心7.1数组引用方法/概述7.1数组引用方法数组声明只是确定了一个数组的类型、维数和元素个数。在程序中需要引用数组的某个元素、某些元素和全部元素,或者给数组元素赋予新的值,数组元素可参与某种运算,可作为操作数放在表达式中。示例程序：INTEGER::num(-2:2),sum=0.0num(-2)=100;num(-1)=200;nu
2、m(0)=300;num(1)=400;num(2)=500av1=(num(-2)+num(-1)+num(0)+num(1)+num(2))/5.0DOI=-2,2sum=sum+num(I)ENDDOav2=sum/5.0WRITE(*,*)'av1=',av1WRITE(*,*)'av2=',av2END概述格式检测示例第七讲数组的使用及Fortran函数苏州科技大学计算中心7.1数组引用方法/格式7.1数组引用方法概述格式检测示例数组引用一般格式：（1）按下标引用数组名（数组下标[,数组下标]）数组下标→算术表达式：算术表达式（2）按整体引用数组名如：INTEGER
3、id(10)id=25!等价id(1)=25;id(2)=25;…;id(10)=25id(1)=2*id(1);id(5)=3*id(5);id(10)=2*id(2)+3*id(9)id(2:4)=15;id(6:9)=35id(:10)=999!等价于id(1:10)=999步骤id(1)id(2)id(3)id(4)id(5)id(6)id(7)id(8)id(9)id(10)125252525252525252525250252525752525252512535015151575353535351254999999999999999999999999999999第
4、七讲数组的使用及Fortran函数苏州科技大学计算中心7.1数组引用方法/检测7.1数组引用方法数组引用要保证下标值落在下界和上界之间，否则将产生严重后果。使用内部函数（UBOUND、LBOUND）分别检测数组的上界和下界。→UBOUND(数组名[,[DIM=]<整型表达式>])→LBOUND(数组名[,[DIM=]<整型表达式>])可检测某一维(指定维数，有第二参数)，结果为整数。也可检测所有维(不指定维数，缺第二参数)，结果为一维整型数组。例：INTEGERnum(-5:-1,11,15,-2:2)LBOUND(num,1)
5、等于-5UBOUND(num,1)等于-1LBOUND(num)等于（/-5，11，-2/）UBOUND(num)等于（/-1，15，2）概述格式检测示例第七讲数组的使用及Fortran函数苏州科技大学计算中心7.1数组引用方法/示例7.1数组引用方法INTEGERarr(-5:3,100:110,4)INTEGER(1)ub(3),ub1,ub2,ub3,lb(3),lb1,lb2,lb3ub1=UBOUND(arr,1);ub2=UBOUND(arr,DIM=2);ub3=UBOUND(arr,3)ub=UBOUND(arr)lb1=LBOUND(arr,1);lb2=L
6、BOUND(arr,DIM=2);lb3=LBOUND(arr,3)lb=LBOUND(arr)WRITE(*,*)'函数UBOUND(arr,1)求数组arr第1维的下标上界是：',ub1WRITE(*,*)'函数UBOUND(arr,DIM=2)数组arr第2维的下标上界是：',ub2WRITE(*,*)'函数UBOUND(arr,3)求数组arr第3维的下标上界是：',ub3WRITE(*,*)'函数UBOUND(arr)求数组arr所有维的下标上界依次是：',ubWRITE(*,*)'函数LBOUND(arr,1)求数组arr第1维的下标下界是：’,lb1WRITE(
7、*,*)'函数LBOUND(arr,DIM=2)数组arr第2维的下标下界是：',lb2WRITE(*,*)'函数LBOUND(arr,3)求数组arr第3维的下标下界是：',lb3WRITE(*,*)'函数LBOUND(arr)求数组arr所有维的下标下界依次是：',lbEND（运行结果）概述格式检测示例第七讲数组的使用及Fortran函数苏州科技大学计算中心7.1数组引用方法/示例/运行结果7.1数组元素引用INTEGERarr(-5:3,100:110,4)INTEGER(1)ub(3),ub1,
