代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2876632
f90 char_cshift_1.f90
! Test cshift0 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 2, n2 = 3, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
integ
www.eeworm.com/read/366702/2876639
f90 char_eoshift_1.f90
! Test eoshift0 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 6, n2 = 5, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
char
www.eeworm.com/read/366702/2876777
f90 char_eoshift_2.f90
! Test eoshift1 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 2, n2 = 5, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
char
www.eeworm.com/read/366702/2876835
f90 char_cshift_2.f90
! Test cshift1 for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n1 = 2, n2 = 3, n3 = 4, slen = 3
character (len = slen), dimension (n1, n2, n3) :: a
integ
www.eeworm.com/read/366702/2876850
f90 logical_1.f90
! { dg-do run }
! PR middle-end/19543
program logical_1
implicit none
logical(1), parameter :: t1 = .TRUE., f1 = .FALSE.
logical(2), parameter :: t2 = .TRUE., f2 = .FALSE.
logical(4), paramete
www.eeworm.com/read/366702/2876855
f90 bind_c_vars.f90
! { dg-do run }
! { dg-additional-sources bind_c_vars_driver.c }
module bind_c_vars
use, intrinsic :: iso_c_binding
implicit none
integer(c_int), bind(c) :: myF90Int
real(c_float), bind(c, na
www.eeworm.com/read/366702/2877194
f90 common_10.f90
use iso_c_binding
implicit none
type, bind(C) :: mytype1
integer(c_int) :: x
real(c_float) :: y
end type mytype1
type mytype2
sequence
integer :: x
real :: y
end type mytype2
type m
www.eeworm.com/read/366702/2877474
f90 inquire-complex.f90
! { dg-do run }
! PR 23428: Inquire(iolength) used to give the wrong result.
program main
implicit none
integer s4, s8
complex(kind=8) c8
complex(kind=4) c4
inquire (iolength=s4) c4
www.eeworm.com/read/352651/10531392
f90 multiplier.f90
module Multipliter_Variable
parameter(n_dimension=100)
implicit doubleprecision (a-h,o-z)
double precision::u0(n_dimension),v0(n_dimension)
double precision::a0,b0,c0,error,ph
integer::l,m,lh
www.eeworm.com/read/460969/7236534
f90 nrutil.f90
MODULE NRUTIL
USE NRTYPE
IMPLICIT NONE
INTEGER(I4B), PARAMETER :: NPAR_ARTH=16,NPAR2_ARTH=8
INTEGER(I4B), PARAMETER :: NPAR_GEOP=4,NPAR2_GEOP=2
INTEGER(I4B), PARAMETER :: NPAR_CUMSUM=16
INTEGER(