代码搜索结果
找到约 10,000 项符合
F 的代码
f1dim.f90
FUNCTION f1dim(x)
INTEGER NMAX
REAL f1dim,func,x
PARAMETER (NMAX=50)
!USES func
INTEGER j,ncom
REAL pcom(NMAX),xicom(NMAX),xt(NMAX)
COMMON /f1com/ pcom,xicom,ncom
do j=1,ncom
xt(j)=pcom(j)+
f1dim.f90
FUNCTION f1dim(x)
INTEGER NMAX
REAL f1dim,func,x
PARAMETER (NMAX=50)
!USES func
INTEGER j,ncom
REAL pcom(NMAX),xicom(NMAX),xt(NMAX)
COMMON /f1com/ pcom,xicom,ncom
do j=1,ncom
xt(j)=pcom(j)+
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
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
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
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
ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
ex1203f.f90
module typedef
implicit none
type person
sequence ! 强迫自定义类型中的变量会依顺序在内存中排列
integer age
real weight, height
end type
end module
module cprog
interface
subroutine S
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)