±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 811  |  »Ø¸´: 6
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

zhouzh2011

Òø³æ (³õÈëÎÄ̳)

[ÇóÖú] Ë­ÄܰïÎÒ¿´¿´Õâ¶ÎFortran³ÌÐò£¬²»Ê¤¸Ð¼¤

Ë­ÄܰïÎÒ¿´¿´Õâ¶ÎFortran³ÌÐò£¬ÓëµÚÒ»ÐÔÔ­Àí¼ÆËãÓйص쬲»Ê¤¸Ð¼¤£¡
»Ø¸´´ËÂ¥

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

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

» ²ÂÄãϲ»¶

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

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

zhouzh2011

Òø³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
6Â¥: Originally posted by q1036210267 at 2012-04-14 11:48:09:
¿´¹ýÁË¡£°ï¶¥Ï¡£
ÎÒÏÖÔÚ×öµÄÊÇ·Ö×ÓÄ£Äâ¼ÆËã¡£¶ÔÓÚÄãµÄÁ¿»¯¼ÆË㣬ÎÒ±íʾѹÁ¦ºÜ´ó¡£¡£

ºÇºÇ£¬Ð»Ð»¡£ÄãÄÜ¿´¶® ÎÒÆäʵ²»ÖªµÀÕâ¸ö³ÌÐòµ½µ×ÊÇÔõÑùʵÏÖthe chnage in the number of the component atoms
and reversing of the spin directionµÄ£¬ÊäÈëÖеÄ1 2 3 4ÓÖÊǺÎÒâÒ壿
7Â¥2012-04-14 12:50:34
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 7 ¸ö»Ø´ð

snoopyzhao

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

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

¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
zhouzh2011: ½ð±Ò+1 2012-04-12 19:45:11
ɶÎÊÌâÄØ£¿Õâ¶¼²»Ëµ±ðÈËÔõô¿´£¿
2Â¥2012-04-12 18:46:36
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zhouzh2011

Òø³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by snoopyzhao at 2012-04-12 18:46:36:
ɶÎÊÌâÄØ£¿Õâ¶¼²»Ëµ±ðÈËÔõô¿´£¿

ºÇºÇ£¬Óи½¼þ£¬ÎÒ¶Ôfortran»ù±¾²»¶®£¬ÎÒÏëÖªµÀÕâ¸öÎļþÖ´ÐÐʱÊÇÔõôÊäÈ룬Êä³öµÄ£¿Ð»Ð»ÁË~
3Â¥2012-04-12 19:46:19
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

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

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

xzhdty: , »¶Ó­³£À´³ÌÐòÓïÑÔ 2012-04-12 21:42:35
Ó÷¨ÔÚÎļþÖв»ÊÇÓÐÂ𣿵±È»£¬³ýÁËÕâ¸öÖ®Í⣬ÎÒÒ²¿´²»¶®£¬ºÇºÇ¡­¡­
CODE:
c---------------------------------------------------------------------
c     Utility program which handle the data in the file used
c     by 'cpa91' such that rearrangement of the records,
c     including the chnage in the number of the component atoms
c     and reversing of the spin direction, becomes possible.
c     Input data cards have a form like the following:
c
c     file1  1  2  3  4
c     file2  1  2 -1 -2
c
c     In this case 4 data named respectively 1, 2, 3, and 4 of
c     inout file will be output in the sequence of 1, 2, 1, 2 and
c     further the spin direction for the last two data is reversed.
c     Another example:
c
c     file1  1  2
c     file1  1  2  1  2
c
c     In this case both the input and the output files is file1, and
c     for the input only 2 data, 1 and 2, are assumed to recorded but
c     to be expanded up to 4 data in the output.
c     See inside for further detail.
c     The program uses some routines provided by 'cpasub91'.
c     coded by H. Akai, 27 aug. 1991 in Juelich
c---------------------------------------------------------------------

4Â¥2012-04-12 20:00:19
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +3 ÎâèùÓ±£¡ 2026-04-03 3/150 2026-04-03 10:48 by Ñо¿Éúµ÷¼Á-²ÄÁÏ
[¿¼ÑÐ] Ò»Ö¾Ô¸aÇø211£¬085601-307·ÖÇóµ÷¼Á +13 µ³¼ÎºÀ 2026-03-31 26/1300 2026-04-03 08:33 by 495374996
[¿¼ÑÐ] 312Çóµ÷¼Á +4 ÉÞÔÂÉ« 2026-04-02 5/250 2026-04-03 08:21 by fangshan711
[¿¼ÑÐ] ÍÁľˮÀû328·ÖÇóµ÷¼Á +5 ¼²·çÖª¾¢²Ý666 2026-04-02 5/250 2026-04-03 07:49 by ¼ªÁÖ½¨Öþ´óѧÍÁÄ
[¿¼ÑÐ] ÄÜÔ´¶¯Á¦ µ÷¼Á +3 ²»ÆÆ²»Á¢0 2026-04-02 3/150 2026-04-02 12:46 by ffffjjjj
[¿¼ÑÐ] 377Çóµ÷¼Á +3 RASKIN 2026-04-02 3/150 2026-04-02 09:45 by zzchen2000
[¿¼ÑÐ] ÍÁľ304Çóµ÷¼Á +6 ÍÃͻͻͻ£¬ 2026-03-31 7/350 2026-04-02 09:06 by coolminer
[¿¼ÑÐ] 08ÉúÎïÓëҽҩר˶³õÊÔ346ÕÒµ÷¼Á +6 dianeeee 2026-04-01 7/350 2026-04-02 08:23 by guoweigw
[¿¼ÑÐ] 0856£¬269·ÖÇóµ÷¼Á +8 ÓÐѧÉϾÍÐÐÇóÇóÁ 2026-03-30 11/550 2026-04-01 22:33 by 2026²ÄÁϵ÷¼Á
[¿¼ÑÐ] 339Çóµ÷¼Á£¬Ïëµ÷»Ø½­ËÕ +7 ¿¾ÂóÑ¿ 2026-03-27 10/500 2026-04-01 21:35 by 495374996
[¿¼ÑÐ] Çóµ÷¼Á +4 DADA¹Ö 2026-03-31 4/200 2026-04-01 14:30 by ZXlzxl0425
[¿¼ÑÐ] 358Çóµ÷¼Á +3 ÍõÏòÑô»¨ 2026-03-31 3/150 2026-04-01 09:56 by zzchen2000
[¿¼ÑÐ] Çóµ÷¼Á ÉúÎïѧ 377·Ö +6 zzll03 2026-03-31 6/300 2026-03-31 17:33 by ÌÆãå¶ù
[¿¼ÑÐ] ¿¼Ñе÷¼ÁÇóÖú +7 13287130938 2026-03-31 7/350 2026-03-31 16:39 by 690616278
[¿¼ÑÐ] 266·Ö£¬Çó²ÄÁÏÒ±½ðÄÜÔ´»¯¹¤µÈµ÷¼Á +8 ÍÛºôºßºôºß 2026-03-27 10/500 2026-03-31 13:35 by Huaxue_Wang
[¿¼ÑÐ] ±¾¿Æ211×Ü·Ö289£¬08¹¤Ñ§ÕæÐÄÇóµ÷¼Á +3 utopiaE 2026-03-30 3/150 2026-03-30 23:42 by ms629
[¿¼ÑÐ] µ÷¼Á +4 GK72 2026-03-30 4/200 2026-03-30 20:32 by dick_runner
[¿¼ÑÐ] 317·Ö Ò»Ö¾Ô¸ÄÏÀí¹¤²ÄÁϹ¤³Ì ±¾¿Æºþ¹¤´ó Çóµ÷¼Á +12 ÓóÄàСÁåîõ 2026-03-28 12/600 2026-03-30 17:06 by wangjy2002
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by ÂäÉ˼
[¿¼ÑÐ] 295Çóµ÷¼Á +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û