代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/190666/5176100
f auto1.f
* Test automatic arrays.
program auto1
implicit none
integer i
integer j0(40)
integer j1(40)
integer jc0(40)
integer jc1(40)
common /jc0/ jc0
comm
www.eeworm.com/read/190666/5176114
f auto0.f
* Test automatic arrays.
program auto0
implicit none
integer i
integer j0(40)
integer j1(40)
integer jc0(40)
integer jc1(40)
common /jc0/ jc0
comm
www.eeworm.com/read/190666/5176174
f 20000629-1.f
SUBROUTINE MIST(N, BETA)
IMPLICIT REAL*8 (A-H,O-Z)
INTEGER IA, IQ, M1
DIMENSION BETA(N)
DO 80 IQ=1,M1
IF (BETA(IQ).EQ.0.0D0) GO TO 120
80 CONTINUE
120 IF (
www.eeworm.com/read/162614/5523285
f90 intrinsic_aint_anint.f90
! Program to test AINT and ANINT intrinsics
subroutine real4test (op, res1, res2)
implicit none
real(kind=4) :: op
real(kind=4) :: res1, res2
if (diff(aint(op), res1) .or. &
diff(
www.eeworm.com/read/162614/5526129
f90 char_pack_1.f90
! Test (non-scalar) pack for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 3, n2 = 4, nv = 10, slen = 9
character (len = slen), dimension (n1, n2) :: a
www.eeworm.com/read/162614/5526402
f90 char_spread_1.f90
! Test spread for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 3, n2 = 10, n3 = 4, slen = 9
character (len = slen), dimension (n1, n3) :: a
integer :
www.eeworm.com/read/162614/5526500
f90 char_unpack_1.f90
! Test unpack0 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 3, n2 = 4, nv = 10, slen = 9
character (len = slen), dimension (n1, n2) :: field
char
www.eeworm.com/read/340665/3276775
f auto1.f
* Test automatic arrays.
program auto1
implicit none
integer i
integer j0(40)
integer j1(40)
integer jc0(40)
integer jc1(40)
common /jc0/ jc0
comm
www.eeworm.com/read/340665/3276789
f auto0.f
* Test automatic arrays.
program auto0
implicit none
integer i
integer j0(40)
integer j1(40)
integer jc0(40)
integer jc1(40)
common /jc0/ jc0
comm
www.eeworm.com/read/340665/3276857
f 20000629-1.f
SUBROUTINE MIST(N, BETA)
IMPLICIT REAL*8 (A-H,O-Z)
INTEGER IA, IQ, M1
DIMENSION BETA(N)
DO 80 IQ=1,M1
IF (BETA(IQ).EQ.0.0D0) GO TO 120
80 CONTINUE
120 IF (