代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/470720/1448406
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/470693/1460271
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/470693/1460285
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/470693/1460352
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/242866/4533938
svn-base makefile.svn-base
include ../config
SOURCES = \
wrapper_base.cpp \
pcall.cpp \
error.cpp \
ref.cpp \
scope.cpp \
class.cpp \
class_rep.cpp \
function.cpp \
find_best_match.cpp \
implicit_cast.cpp \
open.cpp
www.eeworm.com/read/240162/4583474
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/240162/4583488
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/240162/4583558
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/233448/4678805
f90 forall_2.f90
!program to test nested forall construct and forall mask
program test
implicit none
integer a(4,4)
integer i, j
do i=1,4
do j=1,4
a(j,i) = j-i
enddo
enddo
forall (i=2:4, a(1
www.eeworm.com/read/233448/4678808
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(