代码搜索：parameter
找到约 10,000 项符合「parameter」的源代码
代码结果 10,000
www.eeworm.com/read/409260/11338550
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/409260/11338604
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/409260/11338625
f90 ex0601.f90
program ex0601
implicit none
integer counter
integer, parameter :: lines=10
! counter
www.eeworm.com/read/409260/11338636
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/409260/11338640
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/409260/11338648
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/409260/11338650
f90 zreal.f90
program main
use IMSL
implicit none
integer, parameter :: ITMAX = 100
integer, parameter :: NROOT = 2
real, parameter :: EPS = 1.0E-6
real, parameter :: ERRABS = 1.0E-6
real, para
www.eeworm.com/read/409260/11338652
f90 csint.f90
program main
use IMSL
implicit none
integer, parameter :: NDATA = 25, N = 30
real XDATA(NDATA), FDATA(NDATA)
real BREAK(NDATA), CSCOEF(4,NDATA), X
real, parameter :: xmin = -5.0, xma
www.eeworm.com/read/409260/11338655
f90 ivprk.f90
! IMSL IVPRK范例
! 求解Y'(t)=-0.01*Y(t)
! initial condition Y(0)=2
program main
use IMSL
implicit none
integer, parameter :: MXPARM = 50
integer, parameter :: N = 1
integer IDO, ISTEP, N
www.eeworm.com/read/409260/11338656
f90 bvpfd1.f90
! IMSL BVPFD示范
! 求解y'''-y''+y'-y=0
! 经过y'=y, y2=y', y3=y''代换后会变成First order ODE
! y1'=y2
! y2'=y3
! y3'=y3-y2+y1
! 答案为y1=cos(t), y2=-sin(t), y3=-cos(t)
program main
use IMSL
implicit none