代码搜索结果

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

#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

/* 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

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

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

subroutine getstring(a) ! implicit none character(len=*) :: a write(*,*) a return end subroutine module typedef implicit none type person sequence integer age real

subroutine getinteger(num) !DEC$ ATTRIBUTES C, ALIAS:'_getinteger' :: getinteger implicit none integer num write(*,*) num return end subroutine subroutine getstring(string, len) !DEC

subroutine sub(a) implicit none integer :: a write(*,*) a return end subroutine

module typedef implicit none type person sequence ! 强迫自定义类型中的变量会依顺序在内存中排列 integer age real weight, height end type end module module cprog interface subroutine S

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)