代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877160
f90 record_marker_3.f90
! { dg-do run }
! { dg-options "-frecord-marker=8" }
program main
implicit none
integer (kind=8) :: i1, i2, i3
open(15,form="UNFORMATTED")
write (15) 1_8
close (15)
open (15,form="UNFORM
www.eeworm.com/read/366702/2877499
f90 global_vars_f90_init.f90
! { dg-do run }
! { dg-additional-sources global_vars_f90_init_driver.c }
module global_vars_f90_init
use, intrinsic :: iso_c_binding, only: c_int
implicit none
integer(c_int), bind(c, name='i'
www.eeworm.com/read/203543/15355928
err hand_913_rs232_ok_bak.err
Warning[2068] D:\hand815\Hand_913_rs232_ok_bak.c 31 : obsolete use of implicit 'int' detected.
Warning[2066] D:\hand815\Hand_913_rs232_ok_bak.c 364 : type qualifier mismatch in assignment
Warning[20
www.eeworm.com/read/376037/9335656
f90 sin.f90
! sin函数的绘图范例
program Plot_Sine
use DFLIB
implicit none
integer, parameter :: lines=500 ! 用多少线段来画函数曲线
real(kind=8), parameter :: X_Start=-5.0 ! x轴最小范围
real(kind=8), parameter :: X_End=5.0
www.eeworm.com/read/376037/9335681
f90 plot.f90
! 简单的绘图范例
! By Perng 1997/9/19
program Plot_Demo
! 使用Visual Fortran的绘图功能时需要module dflib
use DFLIB
implicit none
type(xycoord) :: t
integer :: result
call MoveTo(10,10,t) ! 把目前绘图的位置移动到坐
www.eeworm.com/read/466689/7031409
f90 cape.f90
!---------------主程序开始
program main
implicit none
!integer,parameter :: x=61,y=34,z=21
integer,parameter :: x=81,y=71,z=21
real,parameter :: T0=273.16
integer i,j,k
real tk(x,y,z),f(x,y,z),h(x,y
www.eeworm.com/read/445424/7595568
f90 tim_central.f90
subroutine TIM_Central()
! Purpose: Central Difference Method.
use linear_operators
use module_parameter
use module_data
implicit none
integer i
real :: c0, c1, c2, c3, t, M_eff(1:nd
www.eeworm.com/read/445424/7595569
f90 tim_newmark.f90
subroutine TIM_Newmark()
! Purpose: Newmark Method.
use linear_operators
use module_parameter
use module_data
use module_ioport
implicit none
integer i
real :: c0, c1, c2, c3, c4,
www.eeworm.com/read/445424/7595570
f90 tim_gw4.f90
subroutine TIM_GW4()
! Purpose: GW3 or GW3ucs method.
use linear_operators
use module_parameter
use module_data
use module_ioport
implicit none
integer i,j,ii
real :: Lk(4,4), Lc(4
www.eeworm.com/read/445424/7595584
f90 tim_houbolt.f90
subroutine TIM_Houbolt()
! Purpose: Houbolt Method.
use linear_operators
use module_parameter
use module_data
use module_ioport
implicit none
integer i
real :: c0, c1, c2, c3, c4,