| ²é¿´: 480 | »Ø¸´: 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 ] |
» ²ÂÄãϲ»¶
ÊýÒ»Ó¢Ò»271ר˶£¨085401£©Çóµ÷¼Á£¬¿É¿ç
ÒѾÓÐ8È˻ظ´
295Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
0856Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
²ÄÁÏѧ˶333Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
299Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
Ò»Ö¾Ô¸Ö£ÖÝ´óѧ£¬080500ѧ˶£¬×Ü·Ö317·ÖÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
289Çóµ÷¼Á
ÒѾÓÐ12È˻ظ´
070305¸ß·Ö×Ó»¯Ñ§ÓëÎïÀí 304·ÖÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
0703»¯Ñ§µ÷¼Á£¬Çóµ¼Ê¦ÊÕ
ÒѾÓÐ10È˻ظ´
¸÷λÀÏʦºÃ£¬ÎÒµÄһ־ԸΪ±±¾©¿Æ¼¼´óѧ085601²ÄÁÏר˶
ÒѾÓÐ5È˻ظ´
¡ï ¡ï
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
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















»Ø¸´´ËÂ¥
