代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/476406/6761040
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/476406/6761061
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/476406/6761086
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/476406/6761088
f90 textgraphlib.f90
module TextGraphLib
implicit none
integer, save :: ScreenWidth ! 定义可以画图的画面宽度
integer, save :: ScreenHeight ! 定义可以画图的画面高度
character, save :: background = ' ' ! 定义预设用来清除画面
www.eeworm.com/read/409260/11338555
f90 sglui3.f90
module sgl_util
use sgl
implicit none
integer, save :: x=200
integer, save :: y=200
contains
subroutine display()
integer, parameter :: size = 20
call sglClearBuffer()
call sglC
www.eeworm.com/read/409260/11338803
f90 ex0918.f90
program ex0918
implicit none
integer :: at = 1, b = 2, c = 3
namelist /na/ at,b,c
write(*,nml=na)
stop
end program
www.eeworm.com/read/409260/11338921
f90 qsort.f90
program main
use DFPORT
implicit none
integer :: a(5) = (/ 5,3,1,2,4 /)
integer(2), external :: compareINT
call QSORT( a, 5, 4, compareINT )
write(*,*) a
stop
end program
inte
www.eeworm.com/read/409260/11338989
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/409260/11338990
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/409260/11339008
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)