±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 3254  |  »Ø¸´: 5

panjunxing

ľ³æ (ÖøÃûдÊÖ)

СѧÉú

[ÇóÖú] Èýά¸µÀïÒ¶±ä»» ÒÑÓÐ1È˲ÎÓë

½«Ò»×é16*32*64µÄÈýάÊý×éÓÃfortran³ÌÐò½øÐиµÁ¢Ò¶±ä»»£¬Ö÷³ÌÐò¸ÃÈçºÎ±àд£¿
ÏÂÃæÊǸµÁ¢Ò¶±ä»»Ô´³ÌÐò£¬¿ÉϧÎÒ²»»áÓã¬ÁíÍ⸽ÉÏ×Ô¼ºµÄ³ÌÐò£¬Çë¸÷λ´óÏÀ¶à¶àÖ¸½Ì£¡
SUBROUTINE rlft3(data,speq,nn1,nn2,nn3,isign)
INTEGER isign,nn1,nn2,nn3
COMPLEX data(nn1/2,nn2,nn3),speq(nn2,nn3)
INTEGER i1,i2,i3,j1,j2,j3,nn(3)
DOUBLE PRECISION theta,wi,wpi,wpr,wr,wtemp
COMPLEX c1,c2,h1,h2,w
c1=cmplx(0.5,0.0)
c2=cmplx(0.0,-0.5*isign)
theta=6.28318530717959d0/dble(isign*nn1)
wpr=-2.0d0*sin(0.5d0*theta)**2
wpi=sin(theta)
nn(1)=nn1/2
nn(2)=nn2
nn(3)=nn3
if(isign.eq.1)THEN
call fourn(data,nn,3,isign)
do  i3=1,nn3
do  i2=1,nn2
speq(i2,i3)=data(1,i2,i3)
end do
end do
endif
do i3=1,nn3
j3=1
if (i3.ne.1)
j3=nn3-i3+2
wr=1.0d0
wi=0.0d0
do i1=1,nn1/4+1
j1=nn1/2-i1+2
do i2=1,nn2
j2=1
if (i2.ne.1) j2=nn2-i2+2
if(i1.eq.1)then
h1=c1*(data(1,i2,i3)+conjg(speq(j2,j3)))
h2=c2*(data(1,i2,i3)-conjg(speq(j2,j3)))
data(1,i2,i3)=h1+h2
speq(j2,j3)=conjg(h1-h2)
else
h1=c1*(data(i1,i2,i3)+conjg(data(j1,j2,j3)))
h2=c2*(data(i1,i2,i3)-conjg(data(j1,j2,j3)))
data(i1,i2,i3)=h1+w*h2
data(j1,j2,j3)=conjg(h1-w*h2)
endif
end do
wtemp=wr
wr=wr*wpr-wi*wpi+wr
wi=wi*wpr+wtemp*wpi+wi
w=cmplx(sngl(wr),sngl(wi))
end do
end do
if(isign.eq.-1)then
call fourn(data,nn,3,isign)
endif
return
END
»Ø¸´´ËÂ¥

» ±¾Ìû¸½¼þ×ÊÔ´Áбí

  • »¶Ó­¼à¶½ºÍ·´À¡£ºÐ¡Ä¾³æ½öÌṩ½»Á÷ƽ̨£¬²»¶Ô¸ÃÄÚÈݸºÔð¡£
    ±¾ÄÚÈÝÓÉÓû§×ÔÖ÷·¢²¼£¬Èç¹ûÆäÄÚÈÝÉæ¼°µ½ÖªÊ¶²úȨÎÊÌ⣬ÆäÔðÈÎÔÚÓÚÓû§±¾ÈË£¬Èç¶Ô°æÈ¨ÓÐÒìÒ飬ÇëÁªÏµÓÊÏ䣺xiaomuchong@tal.com
  • ¸½¼þ 1 : 1.f90
  • 2014-03-12 17:53:13, 9.72 K

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÈËÉúÂÃ;£¬¿ÉÒÔÐÝÏ¢£¬µ«±ðÍü¼Ç±¼ÅÜ
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

baobiao007

ľ³æ (Ö°Òµ×÷¼Ò)

ÖйúÌØÉ«

Õâ¶«Î÷ºÜÓÐÓã¬ÊµÏÖÄѶȱȽϴó
ÎÒͬÒâÊå±¾»ªµÄ¹Ûµã£¬ÈËÃÇͶÉíÒÕÊõºÍ¿ÆÑ§ÁìÓòµÄÇ¿ÁÒÔ¸ÍûÖ®Ò»¾ÍÊÇÌÓÀëÍ´¿à¡¢²Ð¿áºÍ¿ÝÔïÎÞζµÄÏÖʵÉú»î£¬ÌÓÀë×Ô¼ºÆ®ºö²»¶¨µÄÆßÇéÁùÓûµÄèäèô¡£--°®Òò˹̹
2Â¥2014-03-12 17:53:47
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

panjunxing

ľ³æ (ÖøÃûдÊÖ)

СѧÉú

ÒýÓûØÌû:
2Â¥: Originally posted by baobiao007 at 2014-03-12 17:53:47
Õâ¶«Î÷ºÜÓÐÓã¬ÊµÏÖÄѶȱȽϴó

ÄúÄܰïÎÒÒ»ÏÂÂð£¿
ÈËÉúÂÃ;£¬¿ÉÒÔÐÝÏ¢£¬µ«±ðÍü¼Ç±¼ÅÜ
3Â¥2014-03-13 09:10:20
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

cooooldog

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

ส็็็

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
Â¥Ö÷²»ÈçÓÃÕâÀïµÄ´úÂë:

http://fftwpp.sourceforge.net/

¿ÉÒÔ´Ópython, C++, Fortranµ÷ÓÃ,¶øÇÒ¶¼ÓÐÀý×Ó, ¿ÉÒÔ´ÓÀý×ÓÀïÃæÑ§Ï°Ó÷¨
ส็็็็็็็็็็็็็็็็็็็็
4Â¥2014-03-13 09:37:25
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

cooooldog

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

ส็็็

ÓÃÕâ¸ö´úÂ뻹ÓÐÒ»¸öºÃ´¦, Äã¿ÉÒÔÖ±½Óemail´úÂëµÄ×÷ÕßÇë½Ì²»¶®µÄÎÊÌâ;
ÄÇÖÖÀ´Ô´²»Ã÷µÄ´úÂë,»¹ÊÇÉÙÓÃΪÃî.
ส็็็็็็็็็็็็็็็็็็็็
5Â¥2014-03-13 09:38:36
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lixinwen000

ľ³æ (ÕýʽдÊÖ)

ÒýÓûØÌû:
4Â¥: Originally posted by cooooldog at 2014-03-13 09:37:25
Â¥Ö÷²»ÈçÓÃÕâÀïµÄ´úÂë:

http://fftwpp.sourceforge.net/

¿ÉÒÔ´Ópython, C++, Fortranµ÷ÓÃ,¶øÇÒ¶¼ÓÐÀý×Ó, ¿ÉÒÔ´ÓÀý×ÓÀïÃæÑ§Ï°Ó÷¨

Õâ¸öÍøÖ·Ôõô´ò²»¿ªÄØ£¿
¾²Ë®Á÷Éî
6Â¥2014-03-25 15:42:19
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ panjunxing µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] °²»Õ´óѧר˶ÉúÎïÓëҽҩרҵ(086000)324·Ö£¬Ó¢ÓïÒѹýËÄÁù¼¶£¬Áù¼¶521£¬Çóµ÷¼Á +10 ÃÀζ¿ÉÀÖ¼¦³á 2026-03-26 11/550 2026-03-31 19:20 by syh9288
[¿¼ÑÐ] 375Çóµ÷¼Á +7 ÓêÏÄÕûÒ¹ 2026-03-29 7/350 2026-03-31 18:52 by xhai2011
[¿¼ÑÐ] 085602 307·Ö Çóµ÷¼Á +9 ²»ÖªµÀ½Ðʲô£¡ 2026-03-26 9/450 2026-03-31 18:10 by 544594351
[¿¼ÑÐ] 311Çóµ÷¼ÁÒ»Ö¾Ô¸ºÏ·Ê¹¤Òµ´óѧ +11 Çï¶þÊ®¶þ 2026-03-30 11/550 2026-03-31 18:09 by 253863592
[¿¼ÑÐ] 308Çóµ÷¼Á +11 īīĮ 2026-03-25 11/550 2026-03-31 17:54 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 317Çóµ÷¼Á +12 µ°»ÆÏÌÈâôÕ 2026-03-26 13/650 2026-03-31 16:44 by asdfzly
[¿¼ÑÐ] 0856 335·Ö | ·â×°or¼¤¹â¼Ó¹¤ ÀÏʦ¿´¿´ÎÒ£¡£¡ +9 cccchenso 2026-03-29 9/450 2026-03-31 16:37 by lishahe
[¿¼ÑÐ] 263Çóµ÷¼Á +3 DDDDuu 2026-03-27 3/150 2026-03-31 16:21 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] Ó¢Ò»ÊýÒ»×Ü·Ö334Çóµ÷¼Á +4 ³ÂÑôÀ¤ 2026-03-31 4/200 2026-03-31 14:22 by ¼Çʱ¾2026
[¿¼ÑÐ] 070300»¯Ñ§279Çóµ÷¼Á +7 ¹þ¹þ¹þ^_^ 2026-03-31 9/450 2026-03-31 10:02 by cal0306
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷½»288»¯¹¤×¨Ë¶Çóµ÷¼Á +4 ºÃÔ˺ÃÔË½Ó½Ó 2026-03-24 4/200 2026-03-31 09:18 by Î÷¾©Ñ§ÔºÍÁľ¹¤³
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤´óѧ²ÄÁÏÓ뻯¹¤£¨085600£©296Çóµ÷¼Á +25 µ¾ÆÞС±à 2026-03-26 25/1250 2026-03-30 20:11 by µÎµÎÉϰ¶Ñ½
[¿¼ÑÐ] Ò»Ö¾Ô¸ÏÃÃÅ´óѧ²ÄÁϹ¤³Ìר˶354ÕÒµ÷¼Á£¡£¡£¡ +5 ±´ß±µ±µ 2026-03-30 5/250 2026-03-30 18:16 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 0703 »¯Ñ§ Çóµ÷¼Á£¬Ò»Ö¾Ô¸É½¶«´óѧ 342 ·Ö +7 Shern¡ª- 2026-03-28 7/350 2026-03-30 16:31 by nothingͶ¸åÖÐ
[¿¼ÑÐ] 332Çó92µ÷¼Á +8 ½¶½¶123 2026-03-28 8/400 2026-03-29 10:46 by ÖÜè÷µ¤
[¿¼ÑÐ] 085600£¬×¨Òµ¿Î»¯¹¤Ô­Àí£¬321·ÖÇóµ÷¼Á +5 ´ó²öС×Ó 2026-03-28 5/250 2026-03-29 08:56 by qingfeng258
[¿¼ÑÐ] 295Çóµ÷¼Á +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
[¿¼ÑÐ] ¿¼Ñе÷¼Á +10 ºôºô£¿~+123456 2026-03-24 10/500 2026-03-27 11:46 by wangjy2002
[¿¼ÑÐ] 085602»¯Ñ§¹¤³ÌÇóµ÷¼Á¡£ +4 ƽÀÖÀÖÀÖ 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
[¿¼ÑÐ] »úеѧ˶310·Ö£¬ÊýÒ»Ó¢Ò»£¬Ò»Ö¾Ô¸211±¾¿ÆË«·ÇÕÒµ÷¼ÁÐÅÏ¢ +3 @357 2026-03-25 3/150 2026-03-26 16:34 by by.MENG
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û