代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/288222/4008752
f rnormc.f
subroutine rnormc(e,ex,xnorm)
implicit none
common/lwater/lfluid
logical lfluid
real*8 ex
real*8 DREAL
real *8 test,testt,x,y,fac,xnorm
complex*16 e(5,5)
integer i, j, IUP
test = 0.0D+00
www.eeworm.com/read/288222/4008768
f hskl.f
subroutine hskl(cossh,rsinsh,sinshr,TL,iwat,hl)
implicit none
complex*16 cossh, rsinsh, sinshr
real TL
integer iwat
complex*16 hl(2,2)
if(iwat.eq.0)then
hl(1,1) = cossh
hl(2,1) = TL*rsinsh
www.eeworm.com/read/440906/1778407
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/440906/1778421
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/440906/1778489
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/366702/2873276
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/366702/2873279
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/366702/2876428
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/366702/2876541
f03 c_funloc_tests_2.f03
! { dg-do compile }
module c_funloc_tests_2
use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc
implicit none
contains
subroutine sub0() bind(c)
type(c_funptr) :: my_c_funptr
inte
www.eeworm.com/read/366702/2876581
f90 minmaxloc_1.f90
! { dg-do run }
! Check max/minloc.
! PR fortran/31726
!
program test
implicit none
integer :: i(1), j(-1:1), res(1)
logical, volatile :: m(3), m2(3)
m = (/ .false., .false., .false. /)
m2 =