代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877215
f03 bind_c_dts_2.f03
! { dg-do run }
! { dg-additional-sources bind_c_dts_2_driver.c }
module bind_c_dts_2
use, intrinsic :: iso_c_binding
implicit none
type, bind(c) :: my_c_type_0
integer(c_int) :: i
type(c_ptr)
www.eeworm.com/read/466685/7031404
f90 indexes.f90
!---------------主程序开始
program main
implicit none
integer,parameter :: x=61,y=34,z=21
real,parameter :: T0=273.16
integer i,j,k
real tk(x,y,z),f(x,y,z),h(x,y,z),u(x,y,z),v(x,y,z)
real citase
www.eeworm.com/read/198623/7920355
s fx5.s
/
/
/ fx5 -- declare implicit
.globl declimpl
.globl getname
declimpl:
bit $7,symtab(r3)
bne 1f / already declared
jsr r5,getname
movb symbuf,r0
cmp r0,$'a
blo 2f
sub $6,r0 / map 'a -> 'Z+
www.eeworm.com/read/403548/11514990
f90 anb1.f90
program anb
implicit none
integer lx,ly
parameter(lx=120,ly=80)
real*8 density,init_g
real*8 omega_v,omega_g,mu,a,tao_v,tao_g !mu为粘度，a为导温系数，tao_v为质量分布函数的弛
www.eeworm.com/read/153743/12009258
f90 switchreal.f90
subroutine switchreal(includelast,n1dfft,n2,n2eff,lot,n1zt,lzt,zt,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1zt)
if(includelast==1)then
! Compute symmetric an
www.eeworm.com/read/153743/12009260
f90 init.f90
! f90 -O5 -arch ev67 -omp -lmpi -ldxml testall.f90
Implicit real*8 (a-h,o-z)
logical parallel
integer count1,count2,count_rate,count_max
parameter(parallel=.true.,ndat=64,ntime=2)
parame
www.eeworm.com/read/153743/12009297
f90 fill_corn.f90
subroutine fill_corn(md1,md3,lot,n1dfft,n3,zf,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n3),zf(2,md1,md3)
! WARNING: Assuming that high frequencies are in the corners
! and
www.eeworm.com/read/153743/12009304
f90 unfill_corn.f90
subroutine unfill_corn(md1,md3,lot,n1dfft,n3,zw,zf)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n3),zf(2,md1,md3)
! WARNING: Assuming that high frequencies are in the corners
www.eeworm.com/read/153743/12009310
f90 switchreal_cent.f90
subroutine switchreal_cent(includelast,n1dfft,max2,n2,lot,n1zt,lzt,zt,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1zt)
if(includelast==1)then
! Compute symmetri
www.eeworm.com/read/153743/12009325
f90 unswitch_cent.f90
subroutine unswitch_cent(n1dfft,max2,m2,n2,lot,n1,lzt,zw,zt)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1)
! Here, zero and positive frequencies