代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716717
f90 ex0606.f90
program ex0606
implicit none
integer :: dest = 9
integer floor
do floor=1, dest
if ( floor==4 ) cycle
write(*,*) floor
end do
stop
end
www.eeworm.com/read/221868/14716724
f90 ex0603.f90
program ex0603
implicit none
integer i,j
do i=1, 3
do j=1, 3
write(*, "(I2,I2)") i,j
end do
write(*,*) "another circle"
end do
stop
end
www.eeworm.com/read/221868/14716726
f90 ex0602.f90
program ex0602
implicit none
integer, parameter :: limit=10 ! 计数器的上限
integer counter ! 计数器
integer :: ans = 0 ! 拿来累加使用
do counter=2, limit ,2
ans = ans + counter
end do
www.eeworm.com/read/221868/14716728
for ex0602.for
PROGRAM ex0602
IMPLICIT NONE
INTEGER limit
PARAMETER(limit=10)
INTEGER counter
INTEGER ans
DATA ans /0/
DO 100, counter=2, limit, 2
100 ans = ans + counter
WRITE(*,*) ans
www.eeworm.com/read/221868/14716729
f90 ex0610.f90
program ex0610
implicit none
integer counter
integer :: ans = 0
do counter = 1, 100
ans = ans + counter
end do
write(*,*) ans
stop
end
www.eeworm.com/read/221868/14716731
f90 ex0611.f90
program ex0611
implicit none
integer counter
integer :: fn_1 = 1
integer :: fn_2 = 0
integer :: fn = 0
write(*,*) fn_2
write(*,*) fn_1
do counter = 3, 10
fn = fn_2 + fn
www.eeworm.com/read/221868/14716734
f90 ex0604.f90
program ex0604
implicit none
integer, parameter :: limit=10 ! 计数器的上限
integer counter ! 计数器
integer :: ans = 0 ! 拿来累加使用
counter = 2 ! 设定计数器初值
do while( counter
www.eeworm.com/read/221868/14716736
f90 ex1005.f90
program ex1005
implicit none
integer, pointer :: a(:) ! 定义a是一维的指针数组
allocate( a(5) ) ! 配置5个整数的空间给指针a
a = (/ 1,2,3,4,5 /)
write(*,*) a
deallocate( a ) ! allocate得到的内存要记得归还
stop
www.eeworm.com/read/221868/14716737
f90 ex1004.f90
program ex1004
implicit none
integer, pointer :: a(:)
integer, target :: b(5)=(/ 1,2,3,4,5 /)
! 把指针数组a指向数组b
a=>b
! a(1～5)=>b(1～5)
write(*,*) a
a=>b(1:3)
! a(1)=>b(1), a(2
www.eeworm.com/read/221868/14716738
f90 ex1014.f90
module typedef
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
end module typ