代码搜索：parameter
找到约 10,000 项符合「parameter」的源代码
代码结果 10,000
www.eeworm.com/read/409260/11338677
f90 qdagi.f90
program main
use IMSL
implicit none
real, external :: F
real :: BOUND = 1.0
integer :: INTER = 1
real, parameter :: ERRABS = 1E-3
real, parameter :: ERRREL = 1E-3
real ANS, ERR
www.eeworm.com/read/409260/11338678
f90 fnlsq.f90
program main
use IMSL
implicit none
integer, parameter :: INTCEP = 1
integer, parameter :: NBASIS = 2
integer, parameter :: NDATA = 90
integer, parameter :: IWT = 0
real, external
www.eeworm.com/read/409260/11338683
f90 qdags.f90
program main
use IMSL
implicit none
integer NOUT
real, external :: F
real A, B
real, parameter :: ERRABS = 1E-5
real, parameter :: ERRREL = 1E-5
real ANS, ERR
A = 0.0
B
www.eeworm.com/read/409260/11338687
f90 bvpms.f90
! IMSL BVPMS范例
! 求解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
www.eeworm.com/read/409260/11338689
f90 csiez.f90
program main
use IMSL
implicit none
integer, parameter :: NDATA = 10, N = 20
real XDATA(NDATA), FDATA(NDATA)
real XVEC(N), VALUE(N)
real, parameter :: xmin = -5.0, xmax = 5.0
real
www.eeworm.com/read/409260/11338800
f90 ex0904.f90
program ex0904
implicit none
integer, parameter :: fileid = 10
logical alive
character(len=20) :: filename;
write(*,*) "filename:"
read(*,"(A20)") filename
inquire(file=fil
www.eeworm.com/read/409260/11338853
f90 ex0912.f90
program ex0912
implicit none
integer, parameter :: fileid = 10
character(len=20) :: filename = "list.bin"
integer player
real :: hit(9) = (/ 3.2, 2.8, 3.3, 3.2, 2.9, 2.7, 2.2, 2.3, 1.
www.eeworm.com/read/409260/11338982
for ex0515.for
PROGRAM ex0515
IMPLICIT NONE
INTEGER I
INTEGER N
PARAMETER(N=10)
DATA I /0/
10 WRITE(*, '(1X,A3,I2)' ) 'I=',I
I=I+1
IF ( I .LT. N ) GO
www.eeworm.com/read/409260/11339106
f90 ex0429.f90
program ex0429
implicit none
real pi
parameter(pi=3.14159)
write(*,"(F4.2)") sin(pi/6)
end
www.eeworm.com/read/263658/11348642
log cc_build_debug.log
----------------------------- 97wave.pjt - Debug -----------------------------
"F:\ti6000\c6000\cgtools\bin\cl6x" -g -fr"F:/myprojects/97wave/Debug" -d"_DEBUG" -mv6700 -@"Debug.lkf" "97wave.c"
"97