代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2873214
f90 intrinsic_matmul.f90
! Program to test the MATMUL intrinsic
program intrinsic_matmul
implicit none
integer, dimension(2, 3) :: a
integer, dimension(3, 2) :: b
integer, dimension(2) :: x
integer, dimension(3
www.eeworm.com/read/366702/2873229
f90 pr32604.f90
MODULE TEST
IMPLICIT NONE
INTEGER, PARAMETER :: dp=KIND(0.0D0)
TYPE mulliken_restraint_type
INTEGER :: ref_count
REAL(KIND = dp) :: strength
R
www.eeworm.com/read/366702/2873235
f90 strcmp.f90
program test
implicit none
character(len=20) :: foo
foo="hello"
if (llt(foo, "hello")) call abort
if (.not. lle(foo, "hello")) call abort
if (lgt("hello", foo)) call abort
if (.
www.eeworm.com/read/366702/2873236
f90 der_init.f90
! Program to test derived type initializers and constructors
program der_init
implicit none
type t
integer :: i
integer :: j = 4
end type
integer :: m, n
! Explicit initial
www.eeworm.com/read/366702/2873289
f90 der_init_2.f90
! PR 15314
! We were looking at the type of the initialization expression, not the type
! of the field.
program der_init_2
implicit none
type foo
integer :: a(3) = 42
integer :: b = 123
www.eeworm.com/read/366702/2873308
f90 scalarize2.f90
! Program to test the scalarizer
program testarray
implicit none
integer, dimension (:, :), allocatable :: a, b
integer n
allocate(a(6, 5), b(6, 5))
a = 0
do n = 1, 5
a(4, n)
www.eeworm.com/read/366702/2873310
f90 dep_fails.f90
! This gives incorrect results when compiled with
! the intel and pgf90 compilers
Program Strange
Implicit None
Type Link
Integer, Dimension(2) :: Next
End Type Link
Integer, Parameter :: N =
www.eeworm.com/read/366702/2873320
f90 args.f90
! Program to test procudure args
subroutine test (a, b)
integer, intent (IN) :: a
integer, intent (OUT) :: b
if (a .ne. 42) call abort
b = 43
end subroutine
program args
implicit none
www.eeworm.com/read/366702/2873350
f90 parameter_2.f90
! Program to test initialization expressions involving subobjects
program parameter_2
implicit none
type :: SS
integer :: I
integer :: J
end type SS
type :: TT
integer :: N
t
www.eeworm.com/read/366702/2873375
f90 contained_3.f90
! Program to check using parent variables in more than one contained function
program contained_3
implicit none
integer var
contains
subroutine one
var = 1
end subroutine
subrouti