代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183626/9147222
f90 textgraphlib.f90
module TextGraphLib
implicit none
integer, save :: ScreenWidth ! 定义可以画图的画面宽度
integer, save :: ScreenHeight ! 定义可以画图的画面高度
character, save :: background = ' ' ! 定义预设用来清除画面
www.eeworm.com/read/183623/9147360
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/183623/9147363
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/379595/9192371
f random.f
!===========================================================================
! RCS: $Id: random.F,v 1.1 1997/07/24 11:11:09 kresse Exp $
!
! This random number generator originally appeared in Toward
www.eeworm.com/read/378186/9243013
f check.f
Subroutine check( a, n, ok )
! ----------------------------------------------------------------------
! --- Check values for progam 'mod1j': a(i) = i should hold for all
! elements of intege
www.eeworm.com/read/378186/9243151
f cparrs.f
Subroutine cparrs( sa, ta, b, n )
! ----------------------------------------------------------------------
! --- 'cparrs' copies the source arrays 'sa' into the target
! arrays 'ta' and init
www.eeworm.com/read/376037/9335334
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/376037/9335646
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/376037/9335747
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/376037/9335749
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