代码搜索结果

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)+

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)

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

! ! -- 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