±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 428  |  »Ø¸´: 3
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£

jianchaoyv

½ð³æ (СÓÐÃûÆø)

[½»Á÷] ¡¾ÇóÖú¡¿Ò»¸öFortran 90³ÌÐò³ö´í

¸÷λºÃ£¡ÇóÖúÒ»¸öFortran 90³ÌÐòÈçÏ£º
program D3R1
!driver for routine TRAPZD
real,parameter::nmax=15,pio2=1.5707963
external Func,Fint
real::A=0.0,B=pio2
write(*,'(1x,a)') 'integral of Func with 2^(n-1) points'
write(*,'(1x,a,f10.6)')'actual value of integral is',&
               Fint(B)-Fint(A)
write(*,'(1x,t7,a,t16,a)')'n','Approx.integral'
do i=1,nmax
   call TRAPZD(Func,A,B,s,i)
   write(*,'(1x,i6,f20.6)')i,s
end do
end program D3R1
Function Func(x)
    Func=(x**2)*(x**2-2.0)*sin(x)
end function Func
function Fint(x)
!integral of Func
Fint=4.0*x*((x**2)-7.0)*sin(x)-((x**4)-14.0*(x**2)+28.0)*cos(x)
end function Fint



subroutine TRAPZD(Func,A,B,s,n)
integer,parameter::k1=selected_int_kind(13)
integer(kind=k1)::tnm
integer,parameter::k2=selected_real_kind(8,13)
real(kind=k2)::del,sum,x
if(n==1)then
  s=0.5*(b-a)*(Func(a)+Func(b))
  else
  tnm=2.0**(n-1)
  del=(b-a)/tnm
  x=A
  sum=0.0
  do j=2,tnm
    x=x+del
    sum=sum+Func(x)
  end do
   s=0.5*(Func(A)+Func(B)+2.0*sum)*del
end if
end subroutine TRAPZD

ÔËÐкóÌáʾ£ºError: This is an incorrect value for a kind type parameter in this context.   [K1] integer(kind=k1)::tnm

ÇëÎÊ´íÎóÔÚÄÄ£¿£¿
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

yuheng2182

ľ³æ (ÕýʽдÊÖ)

ûÓдíÎóºÍ¾¯¸æ.
2Â¥2009-06-20 08:15:54
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

argo

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

ÉÏÉÆÈôË®

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÎÒÕâ±ß±àÒëºóÖ´ÐÐʱ³öÏÖÒÔÏÂÐÅÏ¢£º
ÒýÓûØÌû:
integral of Func with 2^(n-1) points
actual value of integral is -0.479158
      n        Approx.integral
      1            0.905772
      2            6.166170
      3 -Infinity
      4 -Infinity
      5 -Infinity
      6 NaN
      7 NaN
      8 NaN
      9 NaN
     10 NaN

run-time error M6201: MATH
- sin: DOMAIN error
Image              PC        Routine            Line        Source
b.exe              00407549  Unknown               Unknown  Unknown
b.exe              004073A7  Unknown               Unknown  Unknown
b.exe              00407501  Unknown               Unknown  Unknown
b.exe              00409898  Unknown               Unknown  Unknown
b.exe              0043C93E  Unknown               Unknown  Unknown
b.exe              00430EC0  Unknown               Unknown  Unknown
b.exe              00429F8C  Unknown               Unknown  Unknown
b.exe              004012C4  Unknown               Unknown  Unknown
b.exe              004014A3  Unknown               Unknown  Unknown
b.exe              004011FD  Unknown               Unknown  Unknown
b.exe              00443969  Unknown               Unknown  Unknown
b.exe              00428E29  Unknown               Unknown  Unknown
kernel32.dll       7C817077  Unknown               Unknown  Unknown

Incrementally linked image--PC correlation disabled.

¾ÓÉÆµØ£¬ÐÄÉÆÔ¨£¬ÓëÉÆÈÊ£¬ÑÔÉÆÐÅ£¬ÕýÉÆÖΣ¬ÊÂÉÆÄÜ£¬¶¯ÉÆÊ±¡£
3Â¥2009-06-20 09:55:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

yuheng2182

ľ³æ (ÕýʽдÊÖ)

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÉÏÃæµÄÔËÐнá¹ûºÍÎÒµÄÒ»Ñù.
4Â¥2009-06-20 10:26:27
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ jianchaoyv µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 350Ò»Ö¾Ô¸±±¾©º½¿Õº½Ìì´óѧ08500²ÄÁÏ¿ÆÑ§Ó빤³ÌÇóµ÷¼Á +5 kjnasfss 2026-04-03 5/250 2026-04-03 22:29 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] ѧ˶288µ÷¼Á!!! +3 СÍõxw123 2026-04-03 3/150 2026-04-03 21:20 by à£à£à£0119
[¿¼ÑÐ] 266Çóµ÷¼Á +18 ÑôÑôÍÛÈû 2026-04-01 18/900 2026-04-03 18:38 by zllcz
[¿¼ÑÐ] ¹¤¿Æ 267Çóµ÷¼Á +5 wanwan00 2026-04-02 7/350 2026-04-03 14:14 by zhangdingwa
[¿¼ÑÐ] 11408£¬284·Ö£¬¶þÕ½Õæ³ÏÇóµ÷¼Á +4 12.27 2026-04-02 4/200 2026-04-03 14:14 by dxiaoxin
[¿¼ÑÐ] 085600ר˶²ÄÁÏÓ뻯¹¤348·ÖÇóµ÷¼Á +10 ÉÏѧÀ²£¡ 2026-04-01 11/550 2026-04-03 14:13 by °ÙÁéͯ888
[¿¼ÑÐ] 319Çóµ÷¼Á +18 Ì«ÈÝÒ×1018 2026-04-01 18/900 2026-04-03 11:18 by linyelide
[¿¼ÑÐ] 327Çóµ÷¼Á +9 ¼³Òàê» 2026-03-29 9/450 2026-04-02 11:44 by ÔËÆøyunqi
[¿¼ÑÐ] 0710ÉúÎïѧÇóµ÷¼Á +9 manman511 2026-04-01 9/450 2026-04-02 10:00 by zxl830724
[¿¼ÑÐ] Ò»Ö¾Ô¸9³õÊÔ366 ±¾Ë«·ÇÇóµ÷¼Á +4 ÔËÆøÀ´µÃÈôÓÐËÆÎ 2026-04-02 4/200 2026-04-02 09:56 by guanxin1001
[¿¼ÑÐ] ¡¾Çóµ÷¼Á¡¿ÐÂÄÜÔ´²ÄÁϱ¾¿Æ£¬Ò»Ö¾Ô¸211£¬³õÊÔ321 +6 Çóµ÷¼ÁѧУ£¬ 2026-04-02 6/300 2026-04-02 09:41 by Çç¿Õ210210
[¿¼ÑÐ] ²ÄÁÏÇóµ÷¼Á +8 ÄØÄØÄÝÄÝ 2026-04-01 8/400 2026-04-02 07:13 by yjolah
[¿¼ÑÐ] 303·Ö 0807ѧ˶Çóµ÷¼Á +3 TYC3632 2026-04-01 3/150 2026-04-01 19:24 by lwk2004
[¿¼ÑÐ] Ò»Ö¾Ô¸ ÄϾ©º½¿Õº½Ìì´óѧ £¬080500²ÄÁÏ¿ÆÑ§Ó빤³Ìѧ˶ +7 @taotao 2026-03-30 7/350 2026-04-01 14:30 by chenqifeng666
[¿¼ÑÐ] Çóµ÷¼Á£¬Ò»Ö¾Ô¸±±ÁÖʳƷÓëÓªÑø095500£¬301·Ö£¬ÒѹýÁù¼¶£¬ÓпÆÑо­Àú +4 ¿ìÀÖ´¢Ðî¹Þ 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[¿¼ÑÐ] 289Çóµ÷¼Á +7 BrightLL 2026-03-29 7/350 2026-03-31 22:05 by 544594351
[¿¼ÑÐ] 085601Ó¢¶þÊý¶þÇóµ÷¼Á ×Ü·Ö325 +4 Óຽº½ 2026-03-31 4/200 2026-03-31 17:38 by ÌÆãå¶ù
[¿¼ÑÐ] 315Çóµ÷¼Á +6 akie... 2026-03-28 7/350 2026-03-31 16:48 by asdfzly
[¿¼ÑÐ] 086000ÉúÎïÓëÒ½Ò©µ÷¼Á +5 Feisty¡£ 2026-03-28 9/450 2026-03-29 12:02 by longlotian
[¿¼ÑÐ] ҩѧ105500Çóµ÷¼Á +3 Ssun¡£¡£ 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û