代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183627/9147050
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/183627/9147066
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/380344/9152077
f90 langrangeinterpolation.f90
module INTERPOLATE_UTILITY
use sgl
implicit none
type point
real x,y
end type
real, parameter :: PI=3.14159
real, parameter :: xmin = -PI*3.0, xmax = PI*3.0
integer, paramete
www.eeworm.com/read/183445/9158750
m lin_kernel.m
function x = lin_kernel(a,b,c)
% kernel function for implicit higher dimension mapping, based on
% the standard inner-product
%
% x = lin_kernel(a,b)
%
% 'a' can only contain one datapoint in a row,
www.eeworm.com/read/376037/9335269
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/376037/9335278
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/376037/9335447
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/376037/9335469
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/376037/9335543
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/376037/9335564
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