代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335771
f90 ex0831.f90
program ex0831
implicit none
integer :: n
write(*,*) 'N='
read(*,*) n
write(*, "(I2,'! = ',I8)" ) n, fact(n)
stop
contains
recursive integer function fact(n) result(ans)
www.eeworm.com/read/376037/9335812
f90 ex0828.f90
program ex0828
implicit none
integer :: n
integer, external :: fact
write(*,*) 'N='
read(*,*) n
write(*, "(I2,'! = ',I8)" ) n, fact(n)
stop
end
recursive integer function fac
www.eeworm.com/read/376037/9335858
f90 ex0827.f90
program ex0827
implicit none
interface
real function func(x,a,b,c) ! 定义子程式func的接口
implicit none
real x
real, optional :: a,b,c
end function
end interface
write(*,
www.eeworm.com/read/376037/9335860
f90 textgraphlib.f90
module TextGraphLib
implicit none
integer, save :: ScreenWidth ! 定义可以画图的画面宽度
integer, save :: ScreenHeight ! 定义可以画图的画面高度
character, save :: background = ' ' ! 定义预设用来清除画面
www.eeworm.com/read/360542/10088658
f90 ex0509.f90
program ex0509
implicit none
real :: a
real :: b = 3.0
a=SQRT(b)**2-b ! 理论上a应该要等于0
if ( a==0.0 ) then
write(*,*) "a等于0"
else
write(*,*) "a不等于0"
end if
stop
end
www.eeworm.com/read/360542/10088659
for ex0501.for
PROGRAM ex0501
IMPLICIT NONE
REAL speed
WRITE(*,*) "speed:"
READ (*,*) speed
IF ( speed .GT. 100 ) then ! FORTRAN 77要用缩写.GT.代表大于">"
write(*,*) "Slow down."
END IF
STOP
END
www.eeworm.com/read/358843/10178024
f90 ans0603.f90
program main
implicit none
integer, parameter :: answer = 45
integer, parameter :: max = 5
integer weight, i
do i=1,max
write(*,*) "请输入体重"
read(*,*) weight
if ( weight==ans
www.eeworm.com/read/423354/10569108
f90 code72.f90
!!!!!!!!!!!!!!!!!!!!!!!!!!! Program 7.2 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
www.eeworm.com/read/423354/10569110
f90 code210.f90
!!!!!!!!!!!!!!!!!!!!!!!!!!! Program 2.10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!