代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/476406/6760959
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/476406/6760960
f90 ex1203f.f90
module typedef
implicit none
type person
sequence ! 强迫自定义类型中的变量会依顺序在内存中排列
integer age
real weight, height
end type
end module
module cprog
interface
subroutine S
www.eeworm.com/read/476406/6760961
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/409260/11338887
f90 ex1204f.f90
module cprog
interface
integer function FUNC(a)
!DEC$ ATTRIBUTES C, ALIAS:'_func' :: FUNC
integer a(2,2)
end function
end interface
end module cprog
program main
use c
www.eeworm.com/read/409260/11338892
f90 ex1202f.f90
module cprog
interface
subroutine SUBA(a)
!DEC$ ATTRIBUTES C, ALIAS:'_sub1' :: SUBA
integer :: a
!DEC$ ATTRIBUTES REFERENCE :: a
end subroutine
subroutine SUBB(a)
!DEC$ AT
www.eeworm.com/read/409260/11338895
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/409260/11338901
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/409260/11338905
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/409260/11338907
f90 ex1203f.f90
module typedef
implicit none
type person
sequence ! 强迫自定义类型中的变量会依顺序在内存中排列
integer age
real weight, height
end type
end module
module cprog
interface
subroutine S
www.eeworm.com/read/409260/11338909
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)