代码搜索结果

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)

//////////////////////////////////////////////////////////////////////////////// // ____ ____ // / /\/ / // /___/ \ / // \ \ \/ // \ \ Copyright (c) 2003-2004 X

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