代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5523384
f90 module_result.f90
! Result variables in module procedures
module module_result
implicit none
contains
function test () result (res)
integer res
res = 0
end function
end module
www.eeworm.com/read/162614/5526028
f90 der_pointer_4.f90
! {dg-do compile }
! PR 24426
! Pointer-components of derived type with initialized components
module crash
implicit none
type foo
integer :: i = 0
type (foo), pointer :: next
end type f
www.eeworm.com/read/162614/5526240
f imag_1.f
! { dg-do compile }
program bug
implicit none
complex(kind=8) z
double precision x,y
z = cmplx(1.e0_8,2.e0_8)
y = imag(z)
y = imagpart(z)
x = realpart(z
www.eeworm.com/read/162614/5526430
f90 enum_1.f90
! { dg-do run }
! Program to test ENUM parsing
program main
implicit none
enum, bind (c) ! { dg-warning "New in Fortran 2003" }
enumerator :: red, black
enumerator blue
end enum
if
www.eeworm.com/read/162614/5526517
f90 pr17164.f90
! { dg-do run }
! pr17164
! index aborts when substring is longer than string
implicit none
character*5 x
integer i
x='12345'
i=index(x,'blablabl')
if (i.ne.0) call
www.eeworm.com/read/162614/5526550
f90 pr16935.f90
! { dg-do run }
! pr16935
! segfault at run time on open statement
program bug2
implicit none
open( 1 , file = "str_500.txt", position = "REWIND" )
end
www.eeworm.com/read/160303/5575075
v1
# conn for OE for network behind us.
# Uses would-be-implicit conn OEself.
include ../setup.default.new
conn OEnet
leftsubnet=192.0.2.0/24 # behind east
also=OEself
conn OEself
left=%defaultrout
www.eeworm.com/read/472230/6873655
f90 gauss_jordan.f90
module LinearAlgebra
implicit none
contains
!Gauss_Jordan method
subroutine Gauss_Jordan(A,S,ANS)
implicit none
real :: A(:,:)
real :: S(:)
real :: ANS(:)
real,allocatable :: B(
www.eeworm.com/read/369540/9641154
makefile
CC = gcc
LINK = gcc
CFLAGS = -g -c
INCPATH =
LIBS =
OBJECTS_DIR = ./
TARGET=msgque
####### Implicit rules
.SUFFIXES: .c
.c.o:
$(CC) $(CFLAGS) $(INCPATH) -o $@ $<
####### Build
www.eeworm.com/read/367630/9739368
f90 tvd.f90
module define
implicit none
integer,parameter::Nmax=500
real,parameter::a=0.2,lampta=0.1
real,parameter::eps=0.00000001
real,parameter::h=1.0/Nmax,tao=lampta*h/a
contains
real