代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/208614/15242251
f90 upperlower.f90
module LinearAlgebra
implicit none
contains
! 输出矩阵的子程序
subroutine output(matrix)
implicit none
integer :: m,n
real :: matrix(:,:)
integer :: i
character(len=20) :: for='(??(1x,
www.eeworm.com/read/208614/15242253
f90 inverse.f90
module LinearAlgebra
implicit none
contains
! 求逆矩阵
subroutine inverse(A,IA)
implicit none
real :: A(:,:), IA(:,:)
real, allocatable :: B(:,:)
integer :: i,j,N
N = size(A,1)
www.eeworm.com/read/208614/15242257
f90 ex0705.f90
program ex0705
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: matrix(row, col, 3)
integer m ! 用来指定第几个矩阵
integer r ! 用来指定row
integer c ! 用来指定col
www.eeworm.com/read/208614/15242258
f90 ex0709.f90
program ex0709
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: a(2,2)=(/ 1,2,3,4 /)
! a(1,1)=1, a(2,1)=2, a(1,2)=3, a(2,2)=4
integer :: b(4)=(/ 5,6
www.eeworm.com/read/208614/15242259
f90 ex0701.f90
program ex0701
implicit none
integer, parameter :: students = 5
integer :: student(students)
integer i
do i=1, students
write(*,"('Number ',I2)") i
read(*,*) student(i)
end
www.eeworm.com/read/208614/15242261
f90 ex0712.f90
program ex0712
implicit none
integer :: i
real :: income(10)=(/ 25000, 30000, 50000, 40000, 35000, &
60000, 27000, 45000, 28000, 70000 /)
real :: tex(10)=0
wh
www.eeworm.com/read/208614/15242262
f90 ex0716.f90
program ex0716
implicit none
integer :: students
integer, allocatable :: a(:) ! 声明一个可变大小的一维数组
integer :: i
write(*,*) "How many students:"
read(*,*) students
allocate( a(stude
www.eeworm.com/read/208614/15242265
f90 ex0715.f90
program ex0715
implicit none
integer, parameter :: max = 1000
integer :: a(max) ! 先声明一个超大的数组
integer :: students
integer :: i
write(*,*) "How many students:"
read(*,*) student
www.eeworm.com/read/208614/15242266
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/208614/15242267
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