代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183625/9147253
f90 ex0719.f90
program ex0719
implicit none
integer, parameter :: L=3, M=4, N=2
real :: A(L,M) = (/ 1,2,3,4,5,6,7,8,9,10,11,12 /)
real :: B(M,N) = (/ 1,2,3,4,5,6,7,8 /)
real :: C(L,N)
integer :: i,j
www.eeworm.com/read/183625/9147256
f90 ex0711.f90
program ex0711
implicit none
integer :: i
integer :: a(5)=(/ (i,i=1,5) /)
integer :: b(5)=0
where( a
www.eeworm.com/read/183625/9147257
f90 ex0714.f90
program ex0714
implicit none
integer I,J
integer, parameter :: size = 5
integer :: a(size,size)
forall ( I=1:size, J=1:size, I>J ) a(I,J)=1 ! 上半部分
forall ( I=1:size, J=1:size, I==J
www.eeworm.com/read/183625/9147259
f90 ex0707.f90
program ex0707
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: m(row, col)
integer r ! 用来指定row
integer c ! 用来指定column
data ((m(r,c), r=1, 2), c=
www.eeworm.com/read/183625/9147264
f90 ex0713.f90
program ex0713
implicit none
integer i
integer :: a(5)
forall(i=1:5)
a(i)=5
end forall
! a(1)=a(2)=a(3)=a(4)=a(5)=5
write(*,*) a
forall(i=1:5)
a(i)=i
end forall
www.eeworm.com/read/183624/9147269
f90 ex0601.f90
program ex0601
implicit none
integer counter
integer, parameter :: lines=10
! counter
www.eeworm.com/read/183624/9147271
f90 ex0608.f90
program ex0608
implicit none
integer :: i,j
outter: do i=1,3
inner: do j=1,3
write(*, "('(',i2,',',i2,')')" ) i,j
end do inner
end do outter
stop
end
www.eeworm.com/read/183624/9147274
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/183624/9147283
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/183624/9147288
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