²é¿´: 5974  |  »Ø¸´: 8
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

nkleof

Òø³æ (ÕýʽдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿±íÃæ¾²µçÊÆÔõô¼ÆË㣿

¿´µ½ÓеÄÎÄÏ×ÖÐ×ö³öÁË´Ó±íÃæÉîÈëµ½Ìå²ÄÁϵĸ÷²ãµÄ¾²µçÊÆ£¬ÈçÏÂͼËùʾ£º

ÇëÎÊÕâ¸ö¾²µçÊÆÊý¾Ý´Óvasp¼ÆËãµÄ½á¹ûÖÐÈçºÎÌáÈ¡£¿
»Ø¸´´ËÂ¥

» ÊÕ¼±¾ÌûµÄÌÔÌûר¼­ÍƼö

µÚÒ»ÐÔÔ­ÀíºÍµç»¯Ñ§ µÚÒ»ÐÔÔ­Àí ²»´íµÄÌû×Ó

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹ØÉ̼ÒÍÆ¼ö: (ÎÒÒ²ÒªÔÚÕâÀïÍÆ¹ã)

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

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

huangpengru

Í­³æ (СÓÐÃûÆø)

¡ï ¡ï
nkleof(½ð±Ò+1):лл²ÎÓë
cenwanglai(½ð±Ò+1):лл»Ø¸´£¡ 2010-10-10 09:03:21
¿´Ìûhttp://muchong.com/bbs/viewthread.php?tid=2357737&fpage=1
¸´ÖƹýÀ´µÄʱºò¼Çס£º
WRITE(*,*) 'Error opening or reading file LOCPOT.'
֮ǰÉÙÁ˸ö¿Õ¸ñ
5Â¥2010-10-09 09:31:17
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 9 ¸ö»Ø´ð

liangab_234620

ľ³æ (СÓÐÃûÆø)

¡ï ¡ï
nkleof(½ð±Ò+1):лл²ÎÓë
cenwanglai(½ð±Ò+1):ÄãÊÇ˵ÄǸö¼ÆË㹦º¯ÊýµÄÀë×Ó£¿ 2010-09-29 11:36:03
nkleof(½ð±Ò+4):лл¡£ 2010-09-29 17:07:04
VASPÀϼҵÄÀý×ÓÎļþÀïÃæÓÐ
2Â¥2010-09-29 10:40:53
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

nkleof

Òø³æ (ÕýʽдÊÖ)

ÒýÓûØÌû:
Originally posted by liangab_234620 at 2010-09-29 10:40:53:
VASPÀϼҵÄÀý×ÓÎļþÀïÃæÓÐ

лл»Ø¸´£¬¿´ÆðÀ´ºÃÏñÊÇÔÚINCARÀïÃæÉèÖÃLVTOT=TRUE£¬È»ºóÔÚLOCPOTÎļþÀïÃæÄܹ»µÃµ½the planar-averaged potential ¡£
²»¹ý»¹ÊDz»Ì«Ã÷°×ÈçºÎ´¦Àí£¬Äܲ»ÄÜÌṩÏêϸһµãµÄ¼ÆËã²¢´¦ÀíÏà¹ØÊý¾ÝµÄ×ÊÁÏ£¿
3Â¥2010-09-29 17:06:37
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

valenhou001

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

¡ï ¡ï ¡ï
nkleof(½ð±Ò+1):лл²ÎÓë
cenwanglai(½ð±Ò+2):лл»Ø¸´£¡ 2010-09-30 09:18:36
nkleof(½ð±Ò+7):·Ç³£¸Ðл£¡ 2010-09-30 10:24:19
ÍøÉÏ¿ÉÒÔÕÒµ½Ïà¹ØµÄ¹¤¾ß£¬vasp×éŪµÄworkshopµÄ²ÄÁÏÀïÃæºÃÏñ¾ÍÓÐÀàËÆµÄ¹¤¾ß£¬Ì¨ÍåѧÊõȦ°ìµÄworkshopµÄ²ÄÁÏÀïÃæÒ²Óд¦ÀíLOCPOTµÄ¹¤¾ß¡£×Ô¼ºÐ´Ò»¸öÒ²ºÜ¼òµ¥¡£

¶ÁÈëLOCPOT£¬È»ºóдһ¸öÇóºÍµÄ×Ó¹ý³Ì¾Í¿ÉÒԵõ½ÁË¡£

pot (i,jk) ÕâÊÇlocal potentialµÄÊý×飬ËüµÄάÊýÔÚLOPOTÎļþÀïÃæÓиø³ö£¬Ò²Ò»°ãÊÇNGX, NGY, NGZ¡£¼ÙÉè±íÃæ»ò½çÃæµÄ·¨Ïò·½ÏòÊÇÔÚz·½ÏòÉÏ£¬ÄÇô
do k =1, NGZ
    summ = 0.0
    do j= 1, NGY
       do i = 1, NGX
           summ = pot(i,j,k) +summ
        end do
    end do
     summ =  ±íÃæ»ò½çÃæµÄÃæ»ý * summ/ (NGX * NGY)
     write(*,*)   k*Ô­°ûcÖáµÄ³¤¶È,   summ
  end do
ҪעÒâµÄ¾ÍÊǸ÷¸öÁ¿µÄµ¥Î»¡£
4Â¥2010-09-30 08:48:45
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û