代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221870/14716515
f90 newton_forward.f90
module INTERPOLATE_UTILITY
use sgl
implicit none
type point
real x,y
end type
real, parameter :: PI=3.14159
real, parameter :: xmin = 0.0, xmax = PI*3.0
integer, parameter ::
www.eeworm.com/read/221870/14716518
f90 lagrange.f90
module INTERPOLATE_UTILITY
use sgl
implicit none
type point
real x,y
end type
real, parameter :: PI=3.14159
real, parameter :: xmin = 0.0, xmax = PI*3.0
integer, parameter ::
www.eeworm.com/read/221868/14716851
f90 ex0907.f90
module typedef
type student
integer Chinese,English,Math
end type
end module
program ex0907
use typedef
implicit none
type(student) :: s
character(len=80) :: filename = "dat
www.eeworm.com/read/117551/14915831
f90 fdtd10.f90
program test_fdtd
!-- Test code for FDTD + PML, version 1.0, May 1999
!-- by Jos Bergervoet.
implicit none
integer, parameter :: wp = selected_real_kind(5) ! Choose working precision
www.eeworm.com/read/208614/15242244
f90 newton_forward.f90
module INTERPOLATE_UTILITY
use sgl
implicit none
type point
real x,y
end type
real, parameter :: PI=3.14159
real, parameter :: xmin = 0.0, xmax = PI*3.0
integer, parameter ::
www.eeworm.com/read/208614/15242245
f90 lagrange.f90
module INTERPOLATE_UTILITY
use sgl
implicit none
type point
real x,y
end type
real, parameter :: PI=3.14159
real, parameter :: xmin = 0.0, xmax = PI*3.0
integer, parameter ::
www.eeworm.com/read/208614/15242286
f90 game.f90
module GAME_DATA
use global
implicit none
integer, parameter :: SX = 240, SY = 440
integer, parameter :: BoundX = 20, BoundY = 20
integer, parameter :: BoardWidth = SX-BoundX*2
integ
www.eeworm.com/read/208614/15242303
f90 sgldraw5.f90
module sgl_util
use sgl
implicit none
real, parameter :: PI = 3.14159
real, parameter :: range = PI*3
real, save :: left, right, top, bottom
integer, save :: width, height
contains
www.eeworm.com/read/208614/15242417
f90 ex0907.f90
module typedef
type student
integer Chinese,English,Math
end type
end module
program ex0907
use typedef
implicit none
type(student) :: s
character(len=80) :: filename = "dat
www.eeworm.com/read/470720/1444424
c instantiate3.c
// Test that 'inline template' instantiates the vtable.
// { dg-do compile }
// { dg-options "-O -fno-implicit-templates" }
template struct A {
virtual void f () { }
};
inline template st