代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/338854/12277023
f90 shijianzhuanhuan.f90
SUBROUTINE G_GPS(Y,M,D,H,MIN,S,WN,TOW) !格里高利历转化为儒略日
IMPLICIT NONE
REAL*8 TOW,S
INTEGER Y,M,D,MIN,H,SUM,WN
DOUBLE PRECISION JD,H1
Y=Y+2000
! WRITE(10,*)Y,"年",M,"月",D,"日",H,"时",MIN,"分",S
www.eeworm.com/read/338854/12277047
f90 qiunihaha.f90
SUBROUTINE INV(A,N,A1)
implicit none
integer i,j,k,l,n
character(len=20) :: for='(??(1x,f6.3))' !??是未定几倍输出
real*8 b(n,n),is(n),t,d,B1(N,N),T1,D1,A1(N,N),a(n,n),ik(n)
DO I=1,N
www.eeworm.com/read/234135/14121143
f90 simple_new.f90
program main
implicit none
real(8),parameter::pi=3.141592653589793D0,c=3.0D8
real(8)::d0=15.0,d1=10.0,index2=1.0d0,index0=1.0d0,index3=1.5d0,index1=1.5d0
real(8)::wavelen
www.eeworm.com/read/216499/4892940
s f17.s
/
/
/ f17 -- implicit statement
.globl simpl
.globl getype
.globl chrtab
.globl error
simpl:
jsr r5,getype
br 9f
mov r2,r1
mov r0,-(sp)
movb (r1)+,r0
cmp r0,$'(
beq 1f
cmpb r0,$'/
bne 8f
www.eeworm.com/read/209211/4985399
s strcmp.s
TEXT strcmp(SB), $-4
MOVW R0, R1
MOVW s2+4(FP), R2
MOVW $0xFF, R3 /* mask */
_align: /* align s1 on 4 */
TST $3, R1
BEQ _aligned
MOVBU.P 1(R1), R4 /* implicit write back */
MOVBU.P 1(R
www.eeworm.com/read/195341/5112348
s f17.s
/
/
/ f17 -- implicit statement
.globl simpl
.globl getype
.globl chrtab
.globl error
simpl:
jsr r5,getype
br 9f
mov r2,r1
mov r0,-(sp)
movb (r1)+,r0
cmp r0,$'(
beq 1f
cmpb r0,$'/
bne 8f
www.eeworm.com/read/162614/5526161
f90 aint_anint_1.f90
program aint_anint_1
implicit none
real(4) :: r = 42.7, r1, r2
real(8) :: s = 42.7D0, s1, s2
r1 = aint(r)
r2 = aint(r,kind=8)
if (abs(r1 - r2) > 0.1) call abort()
r1 = anint(r)
www.eeworm.com/read/369339/2801498
s f17.s
/
/
/ f17 -- implicit statement
.globl simpl
.globl getype
.globl chrtab
.globl error
simpl:
jsr r5,getype
br 9f
mov r2,r1
mov r0,-(sp)
movb (r1)+,r0
cmp r0,$'(
beq 1f
cmpb r0,$'/
bne 8f
www.eeworm.com/read/366702/2876524
f90 aint_anint_1.f90
program aint_anint_1
implicit none
real(4) :: r = 42.7, r1, r2
real(8) :: s = 42.7D0, s1, s2
r1 = aint(r)
r2 = aint(r,kind=8)
if (abs(r1 - r2) > 0.1) call abort()
r1 = anint(r)
www.eeworm.com/read/366702/2876963
f90 bounds_check_4.f90
subroutine foo(n,x)
implicit none
integer, intent(in) :: n
complex(8), intent(out) :: x(n,*)
x(1,1) = 0.d0
x(n,1) = 0.d0
x(:,1) = 0.d0
x(2:,1) = 0.d0
x(:n-1,1) = 0.d0
x((/1,n/),1) =