代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5523254
f90 intrinsic_dummy.f90
! Program to test passing intrinsic functions as actual arguments for
! dummy procedures.
subroutine test (proc)
implicit none
real proc
real a, b, c
a = 1.0
b = sin (a)
c = proc (a
www.eeworm.com/read/162614/5523266
f90 strcommon_1.f90
! PR14081 character variables in common blocks.
subroutine test1
implicit none
common /block/ c
character(len=12) :: c
if (c .ne. "Hello World") call abort
end subroutine
subroutine test2
www.eeworm.com/read/162614/5523272
f90 partparm.f90
! Program to test
subroutine test (p)
integer, dimension (3) :: p
if (any (p .ne. (/ 2, 4, 6/))) call abort
end subroutine
program partparm
implicit none
integer, dimension (2, 3) :: a
www.eeworm.com/read/162614/5523279
f90 parameter_1.f90
! Program to test array parameter variables.
program parameter_1
implicit none
integer i
INTEGER, PARAMETER :: ii(10) = (/ (I,I=1,10) /)
REAL, PARAMETER :: rr(10) = ii
do i = 1, 10
i
www.eeworm.com/read/162614/5523282
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/162614/5523294
f90 forall.f90
! Program to test the FORALL construct
program testforall
implicit none
integer, dimension (3, 3) :: a
integer, dimension (3) :: b
integer i
a = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/),
www.eeworm.com/read/162614/5523304
f90 enum_4.f90
! Program to test the default initialisation of enumerators inside different program unit
module mod
implicit none
enum, bind (c)
enumerator :: red , yellow, blue
enumerator :: green
en
www.eeworm.com/read/162614/5523305
f90 strarray_4.f90
program strarray_4
character(len=5), dimension(2) :: c
c(1) = "Hello"
c(2) = "World"
call foo1(c)
call foo2(c, 2)
call foo3(c, 5, 2)
contains
subroutine foo1(a)
implicit none
chara
www.eeworm.com/read/162614/5523310
f90 userop.f90
module uops
implicit none
interface operator (.foo.)
module procedure myfoo
end interface
interface operator (*)
module procedure boolmul
end interface
interface assign
www.eeworm.com/read/162614/5523343
f90 initializer.f90
! Program to test static variable initialization
! returns the parameter from the previous invocation, or 42 on the first call.
function test (parm)
implicit none
integer test, parm
integer :