代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335554
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/376037/9335561
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/376037/9335567
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/376037/9335569
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/376037/9335579
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/376037/9335612
f90 forlib.f90
real function circle_area(radius)
!DEC$ ATTRIBUTES DLLEXPORT :: CIRCLE_AREA
!DEC$ ATTRIBUTES ALIAS : "Circle_Area" :: CIRCLE_AREA
implicit none
real radius
real, parameter :: PI = 3.14159
www.eeworm.com/read/376037/9335623
f90 ex1206f.f90
subroutine getstring(a)
!
implicit none
character(len=*) :: a
write(*,*) a
return
end subroutine
module typedef
implicit none
type person
sequence
integer age
real
www.eeworm.com/read/376037/9335629
f90 ex1207f.f90
subroutine getinteger(num)
!DEC$ ATTRIBUTES C, ALIAS:'_getinteger' :: getinteger
implicit none
integer num
write(*,*) num
return
end subroutine
subroutine getstring(string, len)
!DEC
www.eeworm.com/read/376037/9335635
f90 ex1208f.f90
module typedef
implicit none
type person
integer age
real weight, height
end type
end module
program main
use typedef
implicit none
integer :: a=3
character(len=20)
www.eeworm.com/read/376037/9335638
f90 ex1201s.f90
subroutine SUB()
!DEC$ ATTRIBUTES DLLEXPORT :: SUB
implicit none
write(*,*) "Subroutine in DLL"
return
end