代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/473767/6839487
f90 ans0502.f90
program main
implicit none
integer day
character(len=20) :: tv
write(*,*) "请输入星期几"
read(*,*) day
select case(day)
case(1,4)
tv = "新闻"
case(2,5)
tv = "电视剧"
case
www.eeworm.com/read/473769/6839493
f90 ans0601.f90
program main
implicit none
integer i
do i=1,5
write(*,*) "Fortran"
end do
stop
end program
www.eeworm.com/read/473769/6839494
f90 ans0604.f90
program main
implicit none
integer, parameter :: max=10
integer i
real item
real ans
ans = 1.0
item = 1.0
do i=2,max
item = item/real(i)
ans = ans+item
end d
www.eeworm.com/read/473769/6839496
f90 ans0602.f90
program main
implicit none
integer i,sum
sum = 0
do i=1,99,2
sum = sum+i
end do
write(*,*) sum
stop
end program
www.eeworm.com/read/473001/6853889
f stencilf90.f
SUBROUTINE stencilf90(A, B, n, iters)
IMPLICIT NONE
INTEGER, INTENT( IN ) :: n, iters
DOUBLE PRECISION, DIMENSION (n,n,n) :: A, B
DOUBLE PRECISION :: c
INTEGER :: count
www.eeworm.com/read/472223/6873374
f90 newton.f90
module numerical
implicit none
real,parameter :: zero=0.00001 !小于zero 的值将被当成0
contains
!割线法的函数
real function newton(a,f,df)
implicit none
real :: a !起始的猜值
real,ext
www.eeworm.com/read/472239/6873736
f90 ans0402.f90
program main
implicit none
real, parameter :: PI=3.14159
real radius
write(*,*) "请输入半径长"
read(*,*) radius
write(*,"(' 面积='f8.3)") radius*radius*PI
end program
www.eeworm.com/read/472239/6873737
f90 ans0401.f90
program main
implicit none
write(*,*) "Have a good time."
write(*,*) "That's not bad."
write(*,*) '"Mary" isn''t my name.'
end program
www.eeworm.com/read/472239/6873738
f90 ans0403.f90
program main
implicit none
real grades
write(*,*) "请输入成绩"
read(*,*) grades
write(*,"(' 调整后成绩为 'f8.3)") SQRT(grades)*10.0
end program
www.eeworm.com/read/472239/6873743
f90 ans0405.f90
program main
implicit none
type distance
real meter, inch, cm
end type
type(distance) :: d
write(*,*) "请输入长度:"
read(*,*) d%meter
d%cm = d%meter*100
d%inch = d%cm/2.54
w