代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716783
f90 ex0904.f90
program ex0904
implicit none
integer, parameter :: fileid = 10
logical alive
character(len=20) :: filename;
write(*,*) "filename:"
read(*,"(A20)") filename
inquire(file=fil
www.eeworm.com/read/221868/14716785
f90 ex0918.f90
program ex0918
implicit none
integer :: a = 1, b = 2, c = 3
namelist /na/ a,b,c
write(*,nml=na)
stop
end program
www.eeworm.com/read/221868/14716799
f90 ex0920.f90
program ex0920
implicit none
integer :: a(3)
namelist /na/ a
open(10, file="ex0920.txt")
read (10,nml=na)
write(*,"(3I2)") a
stop
end program
www.eeworm.com/read/221868/14716810
f90 ex0915.f90
program ex0915
implicit none
integer :: a
character(len=20) :: string="123"
read( string, * ) a
write(*,*) a
stop
end program
www.eeworm.com/read/221868/14716820
f90 ex0916.f90
program ex0916
implicit none
integer i
integer, external :: GetInteger
i = GetInteger()
write(*,*) i
stop
end program
integer function GetInteger()
implicit none
character(
www.eeworm.com/read/221868/14716823
f90 ex0919.f90
program ex0919
implicit none
integer :: a, b, c
namelist /na/ a,b,c
read (*,nml=na)
write(*,nml=na)
stop
end program
www.eeworm.com/read/221868/14716839
f90 ex0914.f90
program ex0914
implicit none
integer :: a=2
integer :: b=3
character(len=20) :: string
write( unit=string, fmt="(I2,'+',I2,'=',I2)" ) a,b,a+b
write(*,*) string
stop
end pro
www.eeworm.com/read/221868/14716854
for ex0503.for
PROGRAM ex0503
IMPLICIT NONE
INTEGER rain, windspeed
WRITE(*,*) "Rain:"
READ (*,*) rain
WRITE(*,*) "Wind Speed:"
READ (*,*) windspeed
IF ( rain .GT. 150 .OR. windspeed .GT. 10 ) THE
www.eeworm.com/read/221868/14716857
for ex0515.for
PROGRAM ex0515
IMPLICIT NONE
INTEGER I
INTEGER N
PARAMETER(N=10)
DATA I /0/
10 WRITE(*, '(1X,A3,I2)' ) 'I=',I
I=I+1
IF ( I .LT. N ) GO
www.eeworm.com/read/221868/14716860
f90 ex0502.f90
program ex0502
implicit none
real(kind=4) :: height ! 记录身高
real(kind=4) :: weight ! 记录体重
write(*,*) "height:"
read(*,*) height ! 读入身高
write(*,*) "weight:"
read(*,*) weight