"slasq3"μ λν μ
λ ₯ 맀κ°λ³μκ° μλ ν¨ν΄μ λ°λ₯Ό λ:
i0 =3, n0=16, pp=1,desig=0.2f, qmax=0.2f, nfail=4, iter=1, ndiv = 2, ieee = 0, ttype = -1
μ΄ ν¨μλ μ½λ λΌμΈ 332 ~ 362 μ¬μ΄μ 무ν 루νμ λΉ μ§λ€.
100% μ¬ν.
μ΄κ²μ΄ μ΄μ λ²μ μμ μλνλ€κ³ μκ°νμλκΉ? AFAIK μ μ΄λ 3.7.0 μ΄νλ‘ slasq ν¨μλ μμ λμ§ μμμ΅λλ€. κ·νμ μ€λͺ μμ TAUκ° μΆ©λΆν μμμ§μ§ μκΈ° λλ¬Έμ λ°λ³΅λκ³ μμ΅λκΉ?
μ΄κ²μ΄ μ΄μ λ²μ μμ μλνλ€κ³ μκ°νμλκΉ? AFAIK μ μ΄λ 3.7.0 μ΄νλ‘ slasq ν¨μλ μμ λμ§ μμμ΅λλ€. κ·νμ μ€λͺ μμ TAUκ° μΆ©λΆν μμμ§μ§ μκΈ° λλ¬Έμ λ°λ³΅λκ³ μμ΅λκΉ?
μ£μ‘ν©λλ€. μ§κΈκΉμ§ 3.9.0μμλ§ νμΈνμ΅λλ€. μ΄ λ²μ μ΄ νμ¬ μ μΌν λ²μ μ΄κΈ° λλ¬Έμ λλ€.
νΉν λ°°μ΄ z μ ν¬ν¨λ κ°μ μ¬μ©νμ¬ μ΄μ λν μμ ν μ¬νμκ° ββμμ΅λκΉ? λλ λΉμ μ΄ μ 곡ν λ°μ΄ν°μ μμμ zλ‘ λ¬Έμ λ₯Ό μ¬νν μ μμΌλ©° λ°°μ΄ μμ μ€ νλλΌλ NaNμ΄ μλλλΌλ λμ μΌμ΄ λ°μν κ²μ΄λΌκ³ μμ ν©λλ€.
dminμ΄ nanμ΄λ©΄ μ¬λ°λ₯Έ μλͺ»λ κ°μΌλ‘ μ€μ ν΄μΌ ν©λλ€. 무νμ λ§μ κ²μ λλ€.
λλ μ΄κ²μ λν΄ μκ°νμ§λ§, NaNκ³Ό λΉκ΅νλ κ·μΉμ΄ λ§λ€λ©΄ μ΄κ²μ μλ§λ λ¬Έμ κ° μλ κ²μ λλ€.
μ½λλ₯Ό λΉλνκΈ° μν΄ 4b3c7c249f6a2cfed76603d9987cf5164fa6f9e1μ μ¬μ©νλ 무ν 루ν μμ:
PROGRAM testSLASQ3
IMPLICIT NONE
* .. Scalar Arguments ..
LOGICAL IEEE
INTEGER I0, ITER, N0, NDIV, NFAIL, PP, TTYPE
REAL DESIG, DMIN, DMIN1, DMIN2, DN, DN1, DN2, G,
& QMAX, SIGMA, TAU
* .. Array Arguments ..
REAL Z( 64 )
* .. Subroutines ..
EXTERNAL SLASQ3
PARAMETER ( IEEE=.FALSE. )
PARAMETER ( I0 = 3 )
PARAMETER ( QMAX = 1.0 )
ITER=1
N0=16
NDIV=2
NFAIL=4
PP=1
TTYPE=-1
DESIG=0.2
DMIN1=0.1
DMIN2=0.1
DN=1.0
DN1=1.0
DN2=1.0
G=1.0
TAU=1.0
Z = (/0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0,
& 0.1,0.2,0.3,0.4,0.5,0.6,
& 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0,
& 0.1,0.2,0.3,0.4,0.5,0.6,
& 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0,
& 0.1,0.2,0.3,0.4,0.5,0.6,
& 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0,
& 0.1,0.2,0.3,0.4,0.5,0.6/)
CALL SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL,
& ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1,
& DN2, G, TAU )
END PROGRAM testSLASQ3
@weslleyspereira κ²μλ¬Όμ κΈ°λ°μΌλ‘ μ΄ λ¬Έμ λ₯Ό μ’
λ£νκ² μ΅λλ€.
@Peter9606 λ¬Έμ λ₯Ό μ κ³ ν΄ μ£Όμ
μ κ°μ¬ν©λλ€. λ¬Έμ κ° λ€μ λ°μνλ©΄ λ€μ λ¬Έμν΄ μ£ΌμΈμ.
μ€λ¦¬μ.
κ°μ₯ μ μ©ν λκΈ
νΉν λ°°μ΄ z μ ν¬ν¨λ κ°μ μ¬μ©νμ¬ μ΄μ λν μμ ν μ¬νμκ° ββμμ΅λκΉ? λλ λΉμ μ΄ μ 곡ν λ°μ΄ν°μ μμμ zλ‘ λ¬Έμ λ₯Ό μ¬νν μ μμΌλ©° λ°°μ΄ μμ μ€ νλλΌλ NaNμ΄ μλλλΌλ
λμ μΌμ΄ λ°μν κ²μ΄λΌκ³ μμν©λλ€.