代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221870/14716538
f90 upperlower.f90
module LinearAlgebra
implicit none
contains
! 输出矩阵的子程序
subroutine output(matrix)
implicit none
integer :: m,n
real :: matrix(:,:)
integer :: i
character(len=20) :: for='(??(1x,
www.eeworm.com/read/221870/14716545
f90 inverse.f90
module LinearAlgebra
implicit none
contains
! 求逆矩阵
subroutine inverse(A,IA)
implicit none
real :: A(:,:), IA(:,:)
real, allocatable :: B(:,:)
integer :: i,j,N
N = size(A,1)
www.eeworm.com/read/221870/14716553
f90 ex1109.f90
module NewGraphLib
use TextGraphLib
implicit none
contains
subroutine OutputToFile(filename)
implicit none
character(len=*), intent(in) :: filename
character(len=10) :: fmt="(xxx
www.eeworm.com/read/221870/14716556
f90 ex1106.f90
module MA
implicit none
type ta
integer a
end type
interface operator(+)
module procedure add
end interface
contains
integer function add(a,b)
type(ta), intent(in) ::
www.eeworm.com/read/221870/14716558
f90 ex1101.f90
module bank
implicit none
private money
public LoadMoney, SaveMoney, Report
integer :: money = 1000000
contains
subroutine LoadMoney(num)
implicit none
integer :: num
money=m
www.eeworm.com/read/221870/14716562
f90 ex1108.f90
module time_util
implicit none
type :: time
integer :: hour,minute
end type time
interface operator(+) ! 让type(time)类型变量能够相加
module procedure add_time_time ! time+time
module
www.eeworm.com/read/221870/14716564
f90 ex1102.f90
module bank
implicit none
integer :: money = 1000000
integer :: fileid = 10
private money, fileid
private TimeLog
contains
subroutine TimeLog()
implicit none
integer :: num
www.eeworm.com/read/221870/14716568
f90 ex1110.f90
module rational_util
implicit none
private
public :: rational, &
operator(+), operator(-), operator(*),&
operator(/), assignment(=),&
output
type :
www.eeworm.com/read/221870/14716570
f90 ex1107.f90
module time_util
implicit none
type :: time
integer :: hour,minute
end type time
interface operator(+) ! 让type(time)类型变量能够相加
module procedure add
end interface
contains
www.eeworm.com/read/221870/14716611
f90 forlib.f90
real function circle_area(radius)
!DEC$ ATTRIBUTES DLLEXPORT :: CIRCLE_AREA
!DEC$ ATTRIBUTES ALIAS : "Circle_Area" :: CIRCLE_AREA
implicit none
real radius
real, parameter :: PI = 3.14159