代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/258562/11854752
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/153743/12009256
f90 addrho.f90
subroutine addrho(icplexwf,includelast,nd1,nd2,n2,lot,n1dfft,zw,rhopart,weight)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),rhopart(nd1,nd2)
if(icplexwf==2)then
www.eeworm.com/read/153743/12009274
f90 switch_corn.f90
subroutine switch_corn(n1dfft,n2,lot,n1,lzt,zt,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1)
! WARNING: Assuming that high frequencies are in the corners
!
www.eeworm.com/read/153743/12009301
f90 unswitch_corn.f90
subroutine unswitch_corn(n1dfft,n2,lot,n1,lzt,zw,zt)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1)
! WARNING: Assuming that high frequencies are in the corners
www.eeworm.com/read/208614/15242465
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/208614/15242484
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/460526/1560731
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/460526/1560742
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/162614/5526082
f90 char_eoshift_4.f90
! Test eoshift3 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 2, n2 = 5, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
char
www.eeworm.com/read/162614/5526131
f90 char_eoshift_3.f90
! Test eoshift2 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 2, n2 = 5, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
char