代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/258562/11855023
f90 ex0432.f90
program ex0432
implicit none
integer :: a=1
integer :: b=2
real :: c
c=real(a)/real(b) ! 经由库函数real把整数转换成浮点数
write(*,"(F5.2)") c
end
www.eeworm.com/read/258562/11855068
for ex0430.for
PROGRAM ex0430
IMPLICIT NONE
INTEGER A
REAL B
COMPLEX C
CHARACTER*(20) STR
DATA A,B,C,STR /1, 2.0, (1.0,2.0), 'FORTRAN 77'/
WRITE(*,*) A,B,C,STR
STOP
END
www.eeworm.com/read/258562/11855076
f90 ex0431.f90
program ex0431
implicit none
integer :: a=1
integer :: b=2
real :: c
c=a/b
! c=1/2=0, 虽然c是浮点数,但因为a,b是整数,计算a/b时会用整数去计算.
write(*,"(F5.2)") c
end
www.eeworm.com/read/344171/11904136
f corp.f
**==corp.spg processed by SPAG 4.52O at 10:32 on 18 Oct 1996
FUNCTION CORP(R, Rho)
IMPLICIT NONE
INCLUDE 'potential.inc'
DOUBLE PRECISION sig3, ri3, R, CORP, Rho
sig3
www.eeworm.com/read/344171/11904152
f coru.f
**==coru.spg processed by SPAG 4.52O at 10:32 on 18 Oct 1996
FUNCTION CORU(R, Rho)
IMPLICIT NONE
INCLUDE 'potential.inc'
DOUBLE PRECISION sig3, ri3, R, CORU, Rho
sig3
www.eeworm.com/read/153743/12009286
f90 set.f90
subroutine set(n,zmpi)
implicit real*8 (a-h,o-z)
dimension zmpi(n)
do 10,i=1,n-1,2
if (rand().gt..5d0) then
sign=1.d0
else
sign=-1.d0
www.eeworm.com/read/153743/12009307
f90 unfill.f90
subroutine unfill(nd1,nd3,lot,n1dfft,n3,zw,zf)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n3),zf(2,nd1,nd3)
do 100,i3=1,n3
do 100,i1=1,n1dfft
zf(1,i1
www.eeworm.com/read/153743/12009328
f90 unswitch.f90
subroutine unswitch(n1dfft,n2,lot,n1,lzt,zw,zt)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1)
do 100,j=1,n1dfft
do 100,i=1,n2
zt(1,i,j)=zw(1,j,i)
zt(2,i,j)=zw(2,j,i)
10
www.eeworm.com/read/153743/12009346
f90 fill.f90
subroutine fill(nd1,nd3,lot,n1dfft,n3,zf,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n3),zf(2,nd1,nd3)
do 100,i3=1,n3
do 100,i1=1,n1dfft
zw(1,i1,i
www.eeworm.com/read/152548/12107494
txt 使用 midp 列表组件.txt
使用 MIDP 列表组件
作者：Eric Giguere
版本1.0
2001年6月22日
MIDP 将它的用户界面组件分为两组类：高层 API 和底层 API。使用高层 API 你可以使用一组平台独立的抽象类定义你的用户界面，并让 MIDP 实现确定用户界面的外观和操作。底层 API 是你获得完全的画图区域控制并处理原始输入事件。底层 API 在使用底层用户界面 API ...