每天看一个fortran文件（2）

 

 

 

fortran不区分大小写

这个例子可以运行，结果是10 。

桩程序

 不知道这个stub;do nothing 为什么要建立一个子程序

原来这可能是比较专业的程序员干的事情，他们的逻辑更为严密，为的是以后如果需要增加一些需求就可以写在这个里面了。

use    only

 这里only 的作用就是，只用模块里的这些变量的意思，所以我们会需要知道要用到那些变量，然后我们用use only 就能很容易的定义了。

逻辑变量的定义

逻辑变量logical ,之前都不怎么用到这个。.FALSE. .TRUE.

 intent

 intent(in) 表示输入

intent(out)表示输出

intent（inout）表示输入输出

IN指明哑元仅用于向过程提供数据，过程的执行期间哑元不能被重定义或成为未定义的，相联合的实元可以是常数、变量、数组以及它们的算术表达式。
OUT指明哑元用于把过程中的数据传回调用过程的程序，与之相结合的实元只允许是变量，不得为常数或算术表达式。
INOUT指明哑元既可以用于向过程提供数据，也可用于向调用程序返回数据，与之相结合的实元只允许是变量。
 

 fortran指针

指针太复杂了实在不想学习，以后再学吧！

Fortran中的指针如何使用,功能怎样,下面的的5个例子足可以让你明白一切!

对于单个值,用起来很简单,但是无法体现指针的强大功能,
示例1:

program test_pointer_1
implicit none
integer,pointer::p1,p2 !定义指针
integer::s
!------------------------------------
ALLOCATE(p1,p2) !分配内存空间
read(*,*)p1,p2
s=p1+p2
write(*,*)'s=',s
Deallocate(p1,p2) !释放内存空间
!------------------------------------
end program test_pointer_1
用指针来操作数组,可以随意引用数组中的任意片段,是指针的强大功能之一,
请看下面的示例2:
program test_pointer_2
implicit none
integer,pointer::a(:)
integer,target::b(5)=(/1,2,3,4,5/)
!-----------------------------------------
!---引用整个数组
a=>b          ! a(1)=1;a(2)=2;a(3)=3;a(4)=4;a(5)=5
write(*,*) 'a=>b ',a
!-----------------------------------------
!---引用数组连续的片段
a=>b(2:3)     ! a(1)=2;a(2)=3
write(*,*) 'a=>b(2:3) ',a
!-----------------------------------------
!---引用数组不连续的片段
a=>b(1:5:2)   ! a(1)=1;a(2)=3;a(3)=5
write(*,*) 'a=>b(1:5:2) ',a
!-----------------------------------------
!---引用数组的倒序(相当于将数组左右颠倒)
a=>b(5:1:-1)  ! a(1)=5;a(2)=4;a(3)=3;a(4)=2;a(5)=1
write(*,*) 'a=>b(5:1:-1) ',a
!------------------------------------
end program test_pointer_2
如果是二维数组,想引用某行或者某列的数据,

请看示例3:

program test_pointer_3
implicit none
Integer::i,j,k
real,pointer::a(:)
real,target::b(3,4)
!-----------------------------------------
!---二维数组赋初值
!data b/1,2,3,4,5,6,7,8,9,10,11,12/
data ((b(i,j),i=1,3),j=1,4)/1,2,3,4,5,6,7,8,9,10,11,12/
!-----------------------------------------
!---打印二维数组内容
do i=1,3
    write(*,*) b(i,:)
end do
!-----------------------------------------
!---引用二维数组第二行
a=>b(2,:)  
write(*,*) 'a=>b(2,:) ',a
!-----------------------------------------
!---引用二维数组第三列
a=>b(:,3)  
write(*,*) 'a=>b(:,3)  ',a
!------------------------------------
end program test_pointer_3

程序运行结果如下:

上面的指针是一维的,对于用二维指针来引用二维数组中的二维片段也是同样方便,

请看示例4:
program test_pointer_4
implicit none
Integer::i,j,k
real,pointer::p(:,:) !二维的指针
real,target::b(3,4)
!-----------------------------------------
!---二维数组赋初值
!data b/1,2,3,4,5,6,7,8,9,10,11,12/
data ((b(i,j),i=1,3),j=1,4)/1,2,3,4,5,6,7,8,9,10,11,12/
!-----------------------------------------
!---打印二维数组内容
write(*,*) 'b(3,4)'
do i=1,3
    write(*,*) b(i,:)
end do
!-----------------------------------------
!---引用二维数组中的二维片段
p=>b(1:2,2:3)  
write(*,*) 'p=>b(1:2,2:3)'
do i=1,2
    write(*,*) p(i,:)
end do
!-----------------------------------------
p=0    !将b(1:2,2:3)中的元素置为0
!---打印二维数组内容
write(*,*) 'b(3,4)'
do i=1,3
    write(*,*) b(i,:)
end do
!------------------------------------
end program test_pointer_4

运行如下:

把指针当做动态数组来使用,也是很方便的:

program test_pointer_5
implicit none
Integer::i
real,pointer::p(:) !利用指针为数组动态分配内存
!-----------------------------------------
allocate(p(5))     !---为数组(指针)分配内存空间
!-----------------------------------------
!---数组赋值
do i=1,5
    p(i)=i*2
end do
!-----------------------------------------
write(*,*) 'p(5)=',p !p(5)=2,4,6,8,10
!-----------------------------------------
deallocate(p)   !---为数组(指针)释放内存空间
end program test_pointer_5

上面的指针使用是最初级的,高级的用法还有实现指针链表和type类型的指针数组等
对于指针下面的语句代码常常用到:

! 常用语句
! POINTER_C=>NULL();          ! 指针指向NULL
! NULLIFY(PTR_A);             ! 指针指向NULL
! STATUS = ASSOCIATED (C);    ! 如果C有所指向返回TRUE
! STATUS = ASSOCIATED (C, E); ! 如果C指向E返回TRUE，如果C和E指向的目标相同或者二者均为NULL返回TRUE（二者都是指针）

————————————————
版权声明：本文为CSDN博主「一懒百邪生」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/rumswell/article/details/9429673