代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/409260/11338993
for ex0516.for
PROGRAM ex0516
IMPLICIT NONE
INTEGER I
INTEGER N
DATA I,N /2,1/
GOTO(10,20,30) I/N
10 WRITE(*,*) 'I/N=1'
GOTO 100
20 WRITE(*,*) 'I/N=2'
GOTO 100
3
www.eeworm.com/read/409260/11338997
f90 ex0510.f90
program ex0510
implicit none
real :: a
real :: b = 4.0
real, parameter :: e = 0.0001
a=SQRT(b)**2-b ! 理论上a应该要等于0
if ( abs(a-0.0)
www.eeworm.com/read/409260/11339003
for ex0514.for
PROGRAM ex0514
IMPLICIT NONE
REAL height ! 记录身高
REAL weight ! 记录体重
WRITE(*,*) "height:"
READ(*,*) height ! 读入身高
WRITE(*,*) "weight:"
READ(*,*) weight ! 读入体重
IF ( weig
www.eeworm.com/read/409260/11339027
f90 ex0839.f90
program ex0839
implicit none
integer :: a
read(*,*) a
call sub( a, *100, *200 )
! 特别另外指定两个返回点, 分别是行代码100及200这两个地方
write(*,*) "Default"
stop
100 write(*,*) "Return 1"
stop
www.eeworm.com/read/258562/11854033
f90 ex0718.f90
program ex0718
implicit none
integer, parameter :: size=10
integer :: a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /)
integer :: i,j
integer :: t
do i=1, size-1
do j=i+1, size
if
www.eeworm.com/read/258562/11854475
f90 ex0903.f90
program ex0903
implicit none
character(len=20) :: filename = "ex0903.f90"
logical alive
inquire(file=filename, exist=alive)
if ( alive ) then
write(*,*) filename," exist."
els
www.eeworm.com/read/258562/11854500
f90 ex0902.f90
program ex0902
implicit none
character(len=20) :: string
open(unit=10, file="test.txt")
write(10,"(A20)") "Good morning." ! 写到文件中
rewind(10)
read(10,"(A20)") string ! 从文件中读出来
wr
www.eeworm.com/read/258562/11854531
f90 ex0901.f90
program ex0901
implicit none
open(unit=10, file="hello.txt")
write(10,*) "Hello"
stop
end
www.eeworm.com/read/258562/11854817
for ex0516.for
PROGRAM ex0516
IMPLICIT NONE
INTEGER I
INTEGER N
DATA I,N /2,1/
GOTO(10,20,30) I/N
10 WRITE(*,*) 'I/N=1'
GOTO 100
20 WRITE(*,*) 'I/N=2'
GOTO 100
3
www.eeworm.com/read/258562/11854827
f90 ex0510.f90
program ex0510
implicit none
real :: a
real :: b = 4.0
real, parameter :: e = 0.0001
a=SQRT(b)**2-b ! 理论上a应该要等于0
if ( abs(a-0.0)