代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/445424/7595585
f90 tim_gw3.f90
subroutine TIM_GW3()
! 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(3,3), Lc(3
www.eeworm.com/read/440809/7680596
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/244744/12845916
f cosqb1.f
SUBROUTINE COSQB1 (N,X,W,XH)
IMPLICIT DOUBLE PRECISION (A-H, O-Z)
DIMENSION X(1) ,W(1) ,XH(1)
NS2 = (N+1)/2
NP2 = N+2
DO 101 I=3,N,2
XIM1
www.eeworm.com/read/240740/13200875
f90 022.f90
program zuoye1
implicit none
integer :: j,m,n,c,p=1,s,y
integer,parameter :: x=12 !节点数
real,parameter :: hd=0.06,h=1000,k=40,T0=100,Tf=0,Fo=0.1 !平板厚度,表面传热系数,导热系数,
www.eeworm.com/read/308778/13692221
for a04b.for
SUBROUTINE INITWA (MODEL)
C
C
C***ADD:DPR***
IMPLICIT DOUBLE PRECISION ( A-H,O-Z )
C***END:DPR***
C
GO TO (1,2,3,4,4,6,7,8,8,10,10,12,13,14,14,14),MODEL
C
C
C
1 RETURN
www.eeworm.com/read/476406/6760976
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/476406/6760995
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/409260/11338928
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/409260/11338952
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/258562/11854697
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