代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/208614/15242384
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/208614/15242385
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/208614/15242386
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/208614/15242394
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/208614/15242395
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
www.eeworm.com/read/208614/15242401
f90 ex0920.f90
program ex0920
implicit none
integer :: a(3)
namelist /na/ a
open(10, file="ex0920.txt")
read (10,nml=na)
write(*,"(3I2)") a
stop
end program
www.eeworm.com/read/208614/15242405
f90 ex0915.f90
program ex0915
implicit none
integer :: a
character(len=20) :: string="123"
read( string, * ) a
write(*,*) a
stop
end program
www.eeworm.com/read/208614/15242408
f90 ex0916.f90
program ex0916
implicit none
integer i
integer, external :: GetInteger
i = GetInteger()
write(*,*) i
stop
end program
integer function GetInteger()
implicit none
character(
www.eeworm.com/read/208614/15242409
f90 ex0919.f90
program ex0919
implicit none
integer :: a, b, c
namelist /na/ a,b,c
read (*,nml=na)
write(*,nml=na)
stop
end program
www.eeworm.com/read/208614/15242414
f90 ex0914.f90
program ex0914
implicit none
integer :: a=2
integer :: b=3
character(len=20) :: string
write( unit=string, fmt="(I2,'+',I2,'=',I2)" ) a,b,a+b
write(*,*) string
stop
end pro