代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183629/9147012
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/183629/9147013
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/183627/9147024
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/183627/9147025
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/183627/9147034
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/183627/9147046
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/183627/9147056
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/183627/9147059
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/183627/9147073
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
www.eeworm.com/read/183626/9147111
f90 ex0820.f90
program ex0820
implicit none
call sub()
call sub()
call sub()
stop
end program
subroutine sub()
implicit none
integer :: count = 1
save count ! 指定count变量会永远活着, 不会忘记它的