代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335499
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/376037/9335507
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/376037/9335510
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/376037/9335512
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/376037/9335514
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/376037/9335517
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/376037/9335520
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/376037/9335522
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/376037/9335540
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
www.eeworm.com/read/376037/9335541
f90 ex0918.f90
program ex0918
implicit none
integer :: a = 1, b = 2, c = 3
namelist /na/ a,b,c
write(*,nml=na)
stop
end program