代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/476406/6760847
f90 csint.f90
program main
use IMSL
implicit none
integer, parameter :: NDATA = 25, N = 30
real XDATA(NDATA), FDATA(NDATA)
real BREAK(NDATA), CSCOEF(4,NDATA), X
real, parameter :: xmin = -5.0, xma
www.eeworm.com/read/476406/6760869
f90 csiez.f90
program main
use IMSL
implicit none
integer, parameter :: NDATA = 10, N = 20
real XDATA(NDATA), FDATA(NDATA)
real XVEC(N), VALUE(N)
real, parameter :: xmin = -5.0, xmax = 5.0
real
www.eeworm.com/read/476406/6760907
f90 ex0922.f90
program ex0922
use typedef
implicit none
integer, parameter :: recl_unit = 4
integer, parameter :: buffer_size = 256*256
character :: cbuffer(buffer_size)
integer :: ibuffer(buffer
www.eeworm.com/read/476406/6760917
f90 ex0908.f90
module typedef
type player
character(len=80) :: name
real weight, height
real score
end type
end module
program ex0908
use typedef
implicit none
character(len=20) :: fi
www.eeworm.com/read/476406/6760922
f90 ex0911.f90
program ex0911
implicit none
integer, parameter :: fileid = 10
character(len=20) :: filename = "ex0911dat.txt"
integer player
real hit
integer error
open(unit=fileid, file
www.eeworm.com/read/409260/11338478
f90 stack.f90
module STACK_UTILITY
implicit none
private
integer, parameter :: TOP=50
integer, save :: current = 0
integer, save :: stack(TOP)
public push, pop
contains
! 把数据放入堆栈中
subrout
www.eeworm.com/read/409260/11338486
f90 knight.f90
module STACK_UTILITY
implicit none
private
integer, parameter :: TOP=50
integer, save :: current = 0
integer, save :: stack(TOP)
public push, pop
contains
! 把数据放入堆栈中
subrout
www.eeworm.com/read/409260/11338652
f90 csint.f90
program main
use IMSL
implicit none
integer, parameter :: NDATA = 25, N = 30
real XDATA(NDATA), FDATA(NDATA)
real BREAK(NDATA), CSCOEF(4,NDATA), X
real, parameter :: xmin = -5.0, xma
www.eeworm.com/read/409260/11338689
f90 csiez.f90
program main
use IMSL
implicit none
integer, parameter :: NDATA = 10, N = 20
real XDATA(NDATA), FDATA(NDATA)
real XVEC(N), VALUE(N)
real, parameter :: xmin = -5.0, xmax = 5.0
real
www.eeworm.com/read/409260/11338807
f90 ex0922.f90
program ex0922
use typedef
implicit none
integer, parameter :: recl_unit = 4
integer, parameter :: buffer_size = 256*256
character :: cbuffer(buffer_size)
integer :: ibuffer(buffer