代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877583
f90 dup_save_2.f90
! { dg-do compile }
! { dg-options "-fall-intrinsics -std=f95" }
program save_2
implicit none
integer i
integer foo1, foo2, foo3, foo4
do i=1,10
if (foo1().ne.i) then
call abort
www.eeworm.com/read/366702/2877593
f90 maxlocval_1.f90
! { dg-do run }
! Check that maxval uses for integers HUGE()-1.
! PR fortran/30512
program main
implicit none
integer(1) :: i1(3), a1(3:2)
integer(2) :: i2(3), a2(3:2)
integer(4) :: i4(3), a4(3:2)
in
www.eeworm.com/read/110167/15540894
f90 youngs-vof.f90
! calculate the transportation from neighbour cell
subroutine transport(c,itype, tanalfa, tanbeta, u1,u3,u4,u2,dx,dy,dt,f1,f3,f4,f2)
implicit double precision (a-h,o-z)
cotalfa=1.0/tanalfa
www.eeworm.com/read/153743/12009272
f90 switch_cent.f90
subroutine switch_cent(n1dfft,max2,m2,n2,lot,n1,lzt,zt,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1)
! Here, zero and positive frequencies
do
www.eeworm.com/read/288222/4008759
f svupdn.f
subroutine svupdn(s,haa)
implicit none
complex*16 s(4), haa(4,4)
complex*16 t(4), tmp
integer i, j
do 100 i=1,4
tmp = dcmplx(0.0d+00,0.0d+00)
do 101 j=1,4
tmp = tmp + haa(i,j)*s(j)
101
www.eeworm.com/read/288222/4008767
f svupdn.f
subroutine svupdn(s,haa)
implicit none
complex*16 s(4), haa(4,4)
complex*16 t(4), tmp
integer i, j
do 100 i=1,4
tmp = dcmplx(0.0d+00,0.0d+00)
do 101 j=1,4
tmp = tmp + haa(i,j)*s(j)
101
www.eeworm.com/read/367631/9739333
f90 lu.f90
!对矩阵A(N,N)进行LU分解
!无法分解者返回0,成功返回1
FUNCTION DECOMP(A,B,N)
IMPLICIT NONE
INTEGER R,I,K,N,DECOMP,IMAX,B(N),IP(N)
DOUBLE PRECISION FMAX,A(N,N),S,EPS,T(N)
PARAMETER(EPS=0.01)
DECOMP=1
R=1
DO WHILE(
www.eeworm.com/read/183622/9147469
f90 ex0435.f90
program ex0435
implicit none
! 判断可以记录9个位数的整数kind值
integer, parameter :: long_int = selected_int_kind( 9 )
! 判断可以记录3个位数的整数kind值
integer, parameter :: short_int = selected_int_kind( 3 )
! 判断可以
www.eeworm.com/read/378913/9213244
f90 adi.f90
SUBROUTINE adi(a,b,c,d,e,f,g,u,jmax,k,alpha,beta,eps)
IMPLICIT REAL*8(a-h,o-z)
PARAMETER (jj=100,kk=6,nrr=2**(kk-1),maxits=100,&
zero=0.d0,two=2.d0,half=0.5d0)
DIMENSION a(jmax,jmax),b(
www.eeworm.com/read/376037/9335905
f90 ex0435.f90
program ex0435
implicit none
! 判断可以记录9个位数的整数kind值
integer, parameter :: long_int = selected_int_kind( 9 )
! 判断可以记录3个位数的整数kind值
integer, parameter :: short_int = selected_int_kind( 3 )
! 判断可以