代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/198623/7920365
s fxg.s
/
/
/ fxg -- declare implicit functions
.globl funimpl
.globl getname
.globl lookup
funimpl:
bit $7,symtab(r3)
bne 1f
jsr r5,getname
mov r2,-(sp)
mov $symbuf,r2
jsr r5,lookup; funtab
br 2f
www.eeworm.com/read/153743/12009327
f90 multpot.f90
subroutine multpot(icplexwf,icplex,includelast,nd1,nd2,n2,lot,n1dfft,pot,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),pot(icplex*nd1,nd2)
if(icplexwf==1)then
www.eeworm.com/read/338854/12277009
f90 n wenjian tiqu.f90
program nwenjian
implicit none
integer prn,nian,yue,ri,i,nj,k,toc,shi,fen,miao,WN,TOW
integer::status=0
REAL*8 wpian,wpiao,wpsu,iode,crs,on,m0,cuc,e,cus,sqrta,toe,cic,omEga,cis,i0,crc,w,omegad
RE
www.eeworm.com/read/216499/4892875
s fxg.s
/
/
/ fxg -- declare implicit functions
.globl funimpl
.globl getname
.globl lookup
funimpl:
bit $7,symtab(r3)
bne 1f
jsr r5,getname
mov r2,-(sp)
mov $symbuf,r2
jsr r5,lookup; funtab
br 2f
www.eeworm.com/read/195341/5112283
s fxg.s
/
/
/ fxg -- declare implicit functions
.globl funimpl
.globl getname
.globl lookup
funimpl:
bit $7,symtab(r3)
bne 1f
jsr r5,getname
mov r2,-(sp)
mov $symbuf,r2
jsr r5,lookup; funtab
br 2f
www.eeworm.com/read/162614/5526107
f90 dup_save_1.f90
! { dg-do run }
program save_1
implicit none
integer i
integer foo1, foo2, foo3, foo4
do i=1,10
if (foo1().ne.i) then
call abort
end if
if (foo2().ne.i) then
cal
www.eeworm.com/read/162614/5526485
f90 dup_save_2.f90
! { dg-do compile }
! { dg-options "-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
end if
i
www.eeworm.com/read/369339/2801433
s fxg.s
/
/
/ fxg -- declare implicit functions
.globl funimpl
.globl getname
.globl lookup
funimpl:
bit $7,symtab(r3)
bne 1f
jsr r5,getname
mov r2,-(sp)
mov $symbuf,r2
jsr r5,lookup; funtab
br 2f
www.eeworm.com/read/366702/2876374
f90 dup_save_1.f90
! { dg-do run }
program save_1
implicit none
integer i
integer foo1, foo2, foo3, foo4
do i=1,10
if (foo1().ne.i) then
call abort
end if
if (foo2().ne.i) then
cal
www.eeworm.com/read/366702/2876630
f pr32921.f
! { dg-do compile }
! { dg-options "-O2 -fdump-tree-lim" }
! gfortran -c -m32 -O2 -S junk.f
!
MODULE LES3D_DATA
IMPLICIT REAL*8 (A-H,O-Z)
PARAMETER ( NSPECI = 1, ND = 7 + NSPECI )