代码搜索：implicit

找到约 5,250 项符合「implicit」的源代码

代码结果 5,250
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/291542/8410429

for output.for

! copyright:wangaifeng ! DATE :2007-07-25 ! Company :GUCAS subroutine output(u,nx,ny,dx,dy,ighost,gama) implicit real(a-h,o-z) real u(-ighost:nx+ighost,-ighost:ny+ighost
·
www.eeworm.com/read/291542/8410432

for init.for

! copyright:wangaifeng ! DATE :2007-07-25 ! Company :GUCAS subroutine init(u,nx,ny,ighost,gama) implicit real(a-h,o-z) real u(-ighost:nx+ighost,-ighost:ny+ighost,0:3)
·
www.eeworm.com/read/291542/8410449

for solvex.for

! copyright:wangaifeng ! DATE :2007-07-25 ! Company :GUCAS subroutine Solvex(u,ft,nx,ny,ighost,gama) implicit real(a-h,o-z) real u(-ighost:nx+ighost,-ighost:ny+ighost,0:
·
www.eeworm.com/read/291542/8410477

for solvey.for

! copyright:wangaifeng ! DATE :2007-07-25 ! Company :GUCAS subroutine Solvey(u,gt,nx,ny,ighost,gama) implicit real(a-h,o-z) real u(-ighost:nx+ighost,-ighost:ny+ighost,0:
·
www.eeworm.com/read/286531/8761734

for jiheguangxue.for

IMPLICIT real*8 A-Z integer I,N open(1,file='abc.DAT') 30 continue ! write(*,*)'input the order of rainbow and the maximum of refractive index:' read(*,*)n,max_m ! For n order rainbow(n=N-2)
·
www.eeworm.com/read/183629/9146999

f90 ex1015.f90

module linklist implicit none type :: datalink integer :: i type(datalink), pointer :: prev ! 指向上一条数据 type(datalink), pointer :: next ! 指向下一条数据 end type datalink contains
·
www.eeworm.com/read/183624/9147319

f90 ex0614.f90

program ex0614 implicit none real a,b,ans character :: key = 'y' ! 为了至少进入循环1次 do while( key=='y' .or. key=='Y' ) read(*,*) a read(*,"(A1)") key read(*,*) b select case(key)
·
www.eeworm.com/read/183623/9147391

f90 ex0511.f90

program ex0511 implicit none character(len=20) :: str1,str2 character relation write(*,*) "String 1:" read(*,"(A20)") str1 write(*,*) "String 2:" read(*,"(A20)") str2 if (
·
www.eeworm.com/read/376037/9335443

f90 ex0614.f90

program ex0614 implicit none real a,b,ans character :: key = 'y' ! 为了至少进入循环1次 do while( key=='y' .or. key=='Y' ) read(*,*) a read(*,"(A1)") key read(*,*) b select case(key)
·
www.eeworm.com/read/376037/9335504

f90 ex1015.f90

module linklist implicit none type :: datalink integer :: i type(datalink), pointer :: prev ! 指向上一条数据 type(datalink), pointer :: next ! 指向下一条数据 end type datalink contains
·