代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/258562/11854464
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/258562/11854467
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/258562/11854485
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/258562/11854488
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/258562/11854506
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/258562/11854522
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/258562/11854536
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/258562/11854537
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/344877/11854552
f90 tridia.f90
subroutine tridia (n, a, b, c, r, u)
implicit none
integer, intent(in) :: n
real, intent(in) :: a(1:n),b(1:n),c(1:n),r(1:n)
real, intent(out) :: u(1:n)
inte
www.eeworm.com/read/258562/11854556
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