代码搜索: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))