代码搜索结果
找到约 10,000 项符合
F 的代码
f_atan2f.s
/*
* ====================================================
* Copyright (C) 1998, 2002 by Red Hat Inc. All rights reserved.
*
* Permission to use, copy, modify, and distribute this
* software is fr
f_log10f.s
/*
* ====================================================
* Copyright (C) 1998, 2002 by Red Hat Inc. All rights reserved.
*
* Permission to use, copy, modify, and distribute this
* softw
f_atan2f.s
/*
* ====================================================
* Copyright (C) 1998 by Cygnus Solutions. All rights reserved.
*
* Permission to use, copy, modify, and distribute this
* software is fre
f_log10f.s
/*
* ====================================================
* Copyright (C) 1998 by Cygnus Solutions. All rights reserved.
*
* Permission to use, copy, modify, and distribute this
* softwa
f_atan2f.s
/*
* ====================================================
* Copyright (C) 1998 by Cygnus Solutions. All rights reserved.
*
* Permission to use, copy, modify, and distribute this
* software is fre
f_log10f.s
/*
* ====================================================
* Copyright (C) 1998 by Cygnus Solutions. All rights reserved.
*
* Permission to use, copy, modify, and distribute this
* softwa
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
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
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
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