代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/176119/9515794
f90 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)+
www.eeworm.com/read/360544/10088579
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/360544/10088588
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/360544/10088592
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/360544/10088598
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/360544/10088603
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/360544/10088604
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/360544/10088605
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/161095/10453440
old f77_main.f.old
program f77_main
integer maxn, maxnz
parameter ( maxn = 10000, maxnz = 100000 )
integer rowind(maxnz), colptr(maxn)
real*8 values(maxnz), b(maxn)
integer n, nnz, n
www.eeworm.com/read/161094/10454856
f90 f_pddrive_old.f90
!
! -- Distributed SuperLU routine (version 2.0) --
! Lawrence Berkeley National Lab, Univ. of California Berkeley.
! July 29, 2003
!
!
program f_pddrive
use superlu_mod
include 'mpi