| ²é¿´: 476 | »Ø¸´: 4 | |||
| µ±Ç°Ö÷ÌâÒѾ´æµµ¡£ | |||
[½»Á÷]
¡¾ÇóÖú¡¿¿´²»¶®Õâ¸öÊÇʲôÒâ˼¡¾Òѽâ¾ö¡¿
|
|||
|
octupusÀïÃæÓÐÒ»¾äÕâÑùµÄ£º call R_FUNC(hamiltonian_eigenval) (h, sys, 1, sys%st%nst) ! eigenvalues Ôõô±äÁ¿»¹ÊÇÁ½¸öÀ¨ºÅ·Ö¿ªÑ½£¿²»Ã÷°×£¬Çë¸ßÊÖÖ¸µã£¬³õʶfortran90,¶àл¸ßÊÖÖ¸µã ![]() ![]() [ Last edited by nono2009 on 2009-12-15 at 14:55 ] |
» ²ÂÄãϲ»¶
11408Èí¼þ¹¤³ÌÇóµ÷¼Á
ÒѾÓÐ3È˻ظ´
Ò»Ö¾Ô¸211 ³õÊÔ270·Ö Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
300Çóµ÷¼Á£¬²ÄÁÏ¿ÆÑ§Ó¢Ò»Êý¶þ
ÒѾÓÐ6È˻ظ´
ѧ˶274Çóµ÷¼Á
ÒѾÓÐ9È˻ظ´
±¾¿ÆË«·Ç²ÄÁÏ£¬¿ç¿¼Ò»Ö¾Ô¸»ªµç085801µçÆø£¬283Çóµ÷¼Á£¬ÈκÎרҵ¶¼¿ÉÒÔ
ÒѾÓÐ7È˻ظ´
¸÷λÀÏʦºÃ£¬ÎÒµÄһ־ԸΪ±±¾©¿Æ¼¼´óѧ085601²ÄÁÏר˶
ÒѾÓÐ3È˻ظ´
317·Ö Ò»Ö¾Ô¸ÄÏÀí¹¤²ÄÁϹ¤³Ì ±¾¿Æºþ¹¤´ó Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
081200-11408-276ѧ˶Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
316Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
322Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
senlia
ľ³æ (СÓÐÃûÆø)
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ¹ó±ö: 3.521
- ½ð±Ò: 2178.1
- ºì»¨: 1
- Ìû×Ó: 223
- ÔÚÏß: 6.7Сʱ
- ³æºÅ: 849005
- ×¢²á: 2009-09-16
- ÐÔ±ð: GG
- רҵ: ¼ÆËãÊýѧÓë¿ÆÑ§¹¤³Ì¼ÆËã
¡ï ¡ï ¡ï ¡ï ¡ï
stereochemistry(½ð±Ò+5,VIP+0):¶àл¹Ø×¢£¬·îÉÏ5½ð 12-15 14:44
stereochemistry(½ð±Ò+5,VIP+0):¶àл¹Ø×¢£¬·îÉÏ5½ð 12-15 14:44
| ÎÒÒ²µÚÒ»´Î¼ûµ½ ËäÈ»ÓÃÁËfortranÂú¾ÃÁË µ«¶¼Êdz£¹æ±à³Ì ¹Ø×¢Ò»Ï ºÙºÙ |

2Â¥2009-12-15 14:33:24
tjyl
½ð³æ (ÕýʽдÊÖ)
- ³ÌÐòÇ¿Ìû: 2
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 3218.1
- ºì»¨: 2
- Ìû×Ó: 576
- ÔÚÏß: 156.6Сʱ
- ³æºÅ: 765184
- ×¢²á: 2009-05-07
- רҵ: ÉúÎïÎÞ»ú»¯Ñ§
- ¹ÜϽ: ³ÌÐòÓïÑÔ
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
stereochemistry(½ð±Ò+10,VIP+0):¶àд¸ßÊÖÖ¸µã£¬ÎÒ×Ðϸ¿´¿´£¬ÏÈ·îÉÏ10½ð 12-15 14:43
nono2009(½ð±Ò+3,VIP+0):ллӦÖú£¡Ñ§Ï°ÁË¡£ 12-15 14:46
nono2009(½ð±Ò+10,VIP+0):´ú·¢Ó¦Öú½±Àø£¡ 12-15 14:54
stereochemistry(½ð±Ò+10,VIP+0):¶àд¸ßÊÖÖ¸µã£¬ÎÒ×Ðϸ¿´¿´£¬ÏÈ·îÉÏ10½ð 12-15 14:43
nono2009(½ð±Ò+3,VIP+0):ллӦÖú£¡Ñ§Ï°ÁË¡£ 12-15 14:46
nono2009(½ð±Ò+10,VIP+0):´ú·¢Ó¦Öú½±Àø£¡ 12-15 14:54
|
Õâ¸öÓ¦¸ÃÊÇʹÓÃÁ˺ê°É£¬ÓеıàÒëÆ÷Ö§³Ö¡£ R_FUNC(x) Ó¦¸ÃÊÇÒ»¸ö´ø²ÎÊýµÄºê ¹À¼Æ¶¨ÒåÊÇ #define R_FUNC(x) x ±àÒëǰԤ´¦ÀíÆ÷×öÌæ»» ʵ¼ÊµÈͬÓà call hamiltonian_eigenval (h, sys, 1, sys%st%nst) ¸öÈ˲²⣬Äã¼ì²éһϴúÂëÀïÊDz»ÊÇÓÖhamiltonian_eigenvalµÄ¶¨Òå¡£ |
3Â¥2009-12-15 14:40:34
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
nono2009(½ð±Ò-10,VIP+0):´ú¿Û½±Àø½ð±Ò£¡ 12-15 14:54
nono2009(½ð±Ò-10,VIP+0):´ú¿Û½±Àø½ð±Ò£¡ 12-15 14:54
|
¶àлָµã£¬¸Ð¼¤²»¾¡£¬¹ûÈ»ÊÇÓж¨Òåºê£¬Çë°ßÖñÔÙת10½ð¸ø×¨¼Ò¡£¶àлÁË¡£ ![]() |
4Â¥2009-12-15 14:47:43
¡ï ¡ï
nono2009(½ð±Ò+2,VIP+0):лл£¡´ó¼Ò¶¼¿ªÑÛ½çÁË¡£ 12-15 14:54
nono2009(½ð±Ò+2,VIP+0):лл£¡´ó¼Ò¶¼¿ªÑÛ½çÁË¡£ 12-15 14:54
|
¶àлר¼Ò£¬ÊǶ¨ÒåÁËÒ»¸öºê£¬ºÇºÇ #define R_FUNC(x) z ## x ȷʵÏ൱ÓÚµ±ÓÃÁË ¡®zhamiltonian_eigenval¡¯ ÁË£¬ºÇºÇ£¬Ð»Ð»×¨¼Ò£¬¿ªÁËÑÛ½çÁË¡£ |
5Â¥2009-12-15 14:52:37















»Ø¸´´ËÂ¥
