代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716693
f90 ex0706.f90
program ex0706
implicit none
integer, parameter :: students = 5
integer :: student(students) = (/ 80, 90, 85, 75, 95 /)
integer i
do while( .true. )
write(*,*) "Query:"
read(*
www.eeworm.com/read/221868/14716695
f90 ex0710.f90
program ex0710
implicit none
integer :: i
integer :: a(5)=(/ (i,i=1,5) /)
integer :: b(5)=0
! 把a(1～5)中小于3的元素值赋值给b
where( a
www.eeworm.com/read/221868/14716698
f90 ex0708.f90
program ex0708
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: ma(row, col) = 1
integer :: mb(row, col) = 4
integer :: mc(row, col)
integer :: i
www.eeworm.com/read/221868/14716700
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/221868/14716702
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/221868/14716704
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/221868/14716706
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/221868/14716708
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/221868/14716713
f90 ex0601.f90
program ex0601
implicit none
integer counter
integer, parameter :: lines=10
! counter
www.eeworm.com/read/221868/14716716
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