代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5526186
f90 char_cshift_1.f90
! Test cshift0 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 2, n2 = 3, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
integ
www.eeworm.com/read/162614/5526190
f90 char_eoshift_1.f90
! Test eoshift0 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 6, n2 = 5, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
char
www.eeworm.com/read/162614/5526246
f90 char_eoshift_2.f90
! Test eoshift1 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/5526261
f90 char_cshift_2.f90
! Test cshift1 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 2, n2 = 3, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
integ
www.eeworm.com/read/421520/2051679
f d3drawsurf.f
SUBROUTINE D3DrawSurf(Psi, Size, MaxSize)
IMPLICIT NONE
INTEGER Size, MaxSize
DOUBLE PRECISION Psi(MaxSize, MaxSize)
DOUBLE PRECISION x1, y1, x2, y2, z1, z2, z3, z4, Fac
www.eeworm.com/read/421520/2051690
f d3drawsurf.f
SUBROUTINE D3DrawSurf(Psi, Size, MaxSize)
IMPLICIT NONE
INTEGER Size, MaxSize
DOUBLE PRECISION Psi(MaxSize, MaxSize)
DOUBLE PRECISION x1, y1, x2, y2, z1, z2, z3, z4, Fac
www.eeworm.com/read/393688/2472171
f initstats.f
subroutine initstats
use precision
use stats
implicit none
npos = 0
ndif = 0
difmx = 0.
rdifmx = 0.
xmx(1) = -9.d88
xmx(2) = -9.d88
xmn(1) = +9.d88
xmn(2) = +9.d88
rms = 0.
www.eeworm.com/read/393688/2472679
f initstats.f
subroutine initstats
use precision
use stats
implicit none
npos = 0
ndif = 0
difmx = 0.
rdifmx = 0.
xmx(1) = -9.d88
xmx(2) = -9.d88
xmn(1) = +9.d88
xmn(2) = +9.d88
rms = 0.
www.eeworm.com/read/366702/2876296
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/366702/2876435
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