代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/164889/5487111
mk va365.mk
#############################################################################
#
# SciTech Multi-platform Graphics Library
#
# ===================================
www.eeworm.com/read/164889/5487114
mk sc32.mk
#############################################################################
#
# SciTech Multi-platform Graphics Library
#
# =====================================================================
www.eeworm.com/read/164889/5487115
mk cl386.mk
#############################################################################
#
# SciTech Multi-platform Graphics Library
#
# =====================================================================
www.eeworm.com/read/164889/5487119
mk wc16.mk
#############################################################################
#
# SciTech Multi-platform Graphics Library
#
# =====================================================================
www.eeworm.com/read/162614/5522545
c typename2.c
// { dg-do assemble }
// { dg-options "" }
// Copyright (C) 1999 Free Software Foundation
// by Alexandre Oliva
// based on bug report by Nick Rasmussen
// T
www.eeworm.com/read/162614/5523158
f90 ptr.f90
program ptr
implicit none
integer, pointer, dimension(:) :: a, b
integer, pointer :: p
integer, target :: i
allocate (a(1:6))
a = (/ 1, 2, 3, 4, 5, 6 /)
b => a
if (any (b .
www.eeworm.com/read/162614/5523212
f90 retarray.f90
! Program to test functions returning arrays
program testfnarray
implicit none
integer, dimension (6, 5) :: a
integer n
! These first two shouldn't require a temporary.
a = 0
a = test
www.eeworm.com/read/162614/5523331
f90 arithmeticif.f90
! Program to test the arithmetic if statement
function testif (a)
implicit none
integer a, b, testif
if (a) 1, 2, 3
b = 2
goto 4
1 b = -1
goto 4
2 b = 0
goto 4
3 b = 1
4 test
www.eeworm.com/read/162614/5526482
f90 inquire.f90
! { dg-do run }
! check to see that you cannot open a direct access file
! for sequential i/o.
! derived from NIST test fm910.for
IMPLICIT NONE
CHARACTER*10 D4VK
OPEN(UNIT=7, A
www.eeworm.com/read/162614/5526541
f90 pr17090.f90
! { dg-do run }
! pr 17090 Runtime I/O error
! bdavis9659@comcast.net
! 9/12/2004
! list directed read with spaces between the last data item and the
! eoln cause missed data items.
! this is a libgf