代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/407093/11430049
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/259942/11755924
re config4f.f.re
#define NULL ((char*) 0)
#define YYCTYPE char
#define YYCURSOR p
#define YYLIMIT p
#define YYMARKER q
#define YYFILL(n)
char *scan(char *p)
{
char *q;
/*!re2c
re2c:indent:top = 1;
*/
/*!getstate
www.eeworm.com/read/259942/11756276
c config4f.f.c
/* Generated by re2c */
#line 1 "config4f.f.re"
#define NULL ((char*) 0)
#define YYCTYPE char
#define YYCURSOR p
#define YYLIMIT p
#define YYMARKER q
#define YYFILL(n)
char *scan(char *p)
{
char
www.eeworm.com/read/258562/11854612
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/258562/11854619
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/258562/11854623
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/258562/11854630
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/258562/11854639
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/258562/11854644
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/258562/11854647
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)