代码搜索：parameter
找到约 10,000 项符合「parameter」的源代码
代码结果 10,000
www.eeworm.com/read/258562/11854058
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/258562/11854063
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/258562/11854066
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/258562/11854073
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/258562/11854076
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/258562/11854176
f90 sglui1.f90
module sgl_util
use sgl
implicit none
integer, save :: x=100
integer, save :: y=100
contains
subroutine display()
integer, parameter :: size = 20
call sglClearBuffer()
call sglC
www.eeworm.com/read/344877/11854217
f90 enkfpar_module.f90
MODULE enkfpar_module
!=======================================================================
! Source file: enkfpar_module.f90
! author : QinJun , 6/5/2004
!
!====================
www.eeworm.com/read/258562/11854233
f90 ex0601.f90
program ex0601
implicit none
integer counter
integer, parameter :: lines=10
! counter
www.eeworm.com/read/258562/11854248
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/258562/11854255
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