代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/228083/14401313
f90 test2.f90
!plane wave method for 2d photonic crystals
!正方形排列、正方形截面
use msimsl
implicit none
real*8, parameter:: pb=0.68d0,pi=3.14159265d0,angle=30.0d0 !lb=0.45d0,fb is the volume factor ratio
integer,
www.eeworm.com/read/233448/4678820
f90 list_read_1.f90
! pr 14942, list directed io
program d
implicit none
integer i, j, m, n, nin, k
real x(3,4)
data x / 1,1,1,2,2,2,3,3,3,4,4,4 /
real y(3,4)
data y / 1,1,1,2,2,
www.eeworm.com/read/216499/4892871
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/195341/5112279
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/162614/5523298
f90 list_read_1.f90
! pr 14942, list directed io
program d
implicit none
integer i, j, m, n, nin, k
real x(3,4)
data x / 1,1,1,2,2,2,3,3,3,4,4,4 /
real y(3,4)
data y / 1,1,1,2,2,
www.eeworm.com/read/341021/3261060
f90 mpi_base.f90
MODULE MPI_BASE
IMPLICIT NONE
! This module was created by the script buildiface
INTERFACE
SUBROUTINE MPI_TYPE_CREATE_DARRAY(v0,v1,v2,v3,v4,v5,v6,v7,v8,v9,ierror)
www.eeworm.com/read/288222/4008753
f shupdn.f
subroutine shupdn(s,saa)
implicit none
complex*16 s(2), saa(2,2)
complex*16 tmp
tmp = saa(1,1)*s(1) + saa(1,2)*s(2)
s(2) = saa(2,1)*s(1) + saa(2,2)*s(2)
s(1) = tmp
return
end
www.eeworm.com/read/369339/2801429
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/366702/2873292
f90 list_read_1.f90
! pr 14942, list directed io
program d
implicit none
integer i, j, m, n, nin, k
real x(3,4)
data x / 1,1,1,2,2,2,3,3,3,4,4,4 /
real y(3,4)
data y / 1,1,1,2,2,
www.eeworm.com/read/366702/2877364
f90 pr35944-1.f90
! { dg-do run }
implicit none
integer i
real rda1(10), rda(10), rval
double precision dda1(10), dda(10), dval
rda = (/ 1,2,3,4,5,6,7,8,9,10 /)
rDA1 = MOD (1.1*(rDA(1)-5.0), P=(rDA-2.5))