代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/409260/11338733
f90 ex1009.f90
module func
! person类型最少占用18 bytes
! 因为它有10个字元及两个浮点数
type person
character(len=10) :: name
real :: height, weight
end type
! pperson类型通常占用4 bytes
! 因为它里面只有一个指针, 指针在PC中固定使用4 bytes
type ppe
www.eeworm.com/read/409260/11338744
f90 ex1002.f90
program ex1002
implicit none
integer, pointer :: p ! 声明一个可以指向整数的指针
allocate(p) ! 配置一块可以存放integer的内存空间给指针p
p=100 ! 得到内存后指针p 可以像一般整数一样来使用
write(*,*) p
stop
end
www.eeworm.com/read/409260/11338754
f90 ex1008.f90
module func
contains
function getmin(p)
implicit none
integer, pointer :: p(:)
integer, pointer :: getmin
integer i,s
integer min
s=size(p,1) ! 查寻数组的大小
min = 2**30 ! 先把min设定成
www.eeworm.com/read/409260/11338757
f90 ex1012.f90
module typedef
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: next
end type datalink
end module typedef
program ex1012
use typedef
implicit none
www.eeworm.com/read/409260/11338760
f90 ex1007.f90
program ex1007
implicit none
integer, target :: a(8)=(/ 10, 15, 8, 25, 9, 20, 17, 19 /)
integer, pointer :: p(:)
interface
function getmin(p)
integer, pointer :: p(:)
inte
www.eeworm.com/read/409260/11338764
f90 ex1001.f90
program ex1001
implicit none
integer, target :: a=1 ! 声明一个可以当成目标的变量
integer, pointer :: p ! 声明一个可以指向整数的指针
p=>a ! 把指针p指到变量a
write(*,*) p
a=2 ! 改变a的值
write(*,*) p
p=3 ! 改变指
www.eeworm.com/read/409260/11338767
f90 ex1006.f90
program ex1006
implicit none
integer, pointer :: a(:,:) ! 定义a是2维的指针数组
integer, target :: b(3,3,2)
integer i
forall( i=1:3 )
b(:,i,1)=i
b(:,i,2)=2*i
end forall
a=>b(:,:,
www.eeworm.com/read/409260/11338770
f90 ex1010.f90
module typedef
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: next
end type datalink
end module typedef
program ex1010
use typedef
implicit none
www.eeworm.com/read/409260/11338774
f90 ex1003.f90
program ex1003
implicit none
integer, pointer :: a => null()
integer, target :: b=1,c=2
write(*,*) associated(a) ! FALSE, 指针a尚未指定
a => c
write(*,*) associated(a) ! TRUE, 指针a
www.eeworm.com/read/409260/11338800
f90 ex0904.f90
program ex0904
implicit none
integer, parameter :: fileid = 10
logical alive
character(len=20) :: filename;
write(*,*) "filename:"
read(*,"(A20)") filename
inquire(file=fil