代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/409260/11338839
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/409260/11338850
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/258562/11853967
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/258562/11853977
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/258562/11854281
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/258562/11854385
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/258562/11854493
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/258562/11854526
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/258562/11854544
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/152732/12090001
f90 test3.f90
PROGRAM test3
! Test vmove for treatment of singularities.
USE lsq
IMPLICIT NONE
REAL (KIND(0.0)) :: rand
REAL ( lsq_kind ) :: x(7), y, beta(7), one = 1.0
INTEGER