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

zhouzh2011

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

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

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

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

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

» ²ÂÄãϲ»¶

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

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢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µÄ»ØÌû
²é¿´È«²¿ 7 ¸ö»Ø´ð

snoopyzhao

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

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

¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
zhouzh2011: ½ð±Ò+1 2012-04-12 19:45:11
ɶÎÊÌâÄØ£¿Õâ¶¼²»Ëµ±ðÈËÔõô¿´£¿
2Â¥2012-04-12 18:46:36
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢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µÄ»ØÌû

zhouzh2011

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

ÒýÓûØÌû:
4Â¥: Originally posted by snoopyzhao at 2012-04-12 20:00:19:
Ó÷¨ÔÚÎļþÖв»ÊÇÓÐÂ𣿵±È»£¬³ýÁËÕâ¸öÖ®Í⣬ÎÒÒ²¿´²»¶®£¬ºÇºÇ¡­¡­


c---------------------------------------------------------------------
c     Utility program which handle the data in the file u ...

ºÇºÇ£¬¾ÍÊDz»ÊǺܶ®£¬ÄÜÚ¹ÊÍһϾͺÃÁË
5Â¥2012-04-12 21:06:19
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] µ÷¼ÁÇóÖú +4 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-02 4/200 2026-04-02 18:14 by ÇÇßÕßÕßÕ
[¿¼ÑÐ] 266·Ö£¬Ò»Ö¾Ô¸µçÆø¹¤³Ì£¬±¾¿Æ²ÄÁÏ£¬Çó²ÄÁÏרҵµ÷¼Á +4 ÍÛºôºßºôºß 2026-04-02 4/200 2026-04-02 18:10 by zhyzzh
[¿¼ÑÐ] 348Çóµ÷¼Á +11 zzzzyk123 2026-04-01 11/550 2026-04-02 16:52 by Wang200018
[¿¼ÑÐ] ²ÄÁÏ340·Öµ÷¼Á +6 ÏÄÒ¹Íí·ç_long 2026-04-02 8/400 2026-04-02 16:48 by yunlongyang
[¿¼ÑÐ] ѧ˶»úе¹¤³Ì303Çóµ÷¼Á +4 ÎÞÃûËùÒÔ½ÐÎâÃ÷ 2026-03-30 4/200 2026-04-02 14:06 by asdfzly
[¿¼ÑÐ] Ò»Ö¾Ô¸±±½»´ó²ÄÁϹ¤³Ì×Ü·Ö358 +3 cs0106 2026-04-02 5/250 2026-04-02 11:37 by olim
[¿¼ÑÐ] 271Çóµ÷¼Á +15 ÀÕ²¼ÀÊ@ 2026-03-31 20/1000 2026-04-02 11:24 by Sammy2
[¿¼ÑÐ] 354Çóµ÷¼Á +4 lxb598 2026-03-31 5/250 2026-04-02 09:55 by Jaylen.
[¿¼ÑÐ] 291Çóµ÷¼Á +20 Y-cap 2026-03-29 25/1250 2026-04-01 23:49 by ÐÀϲ777
[¿¼ÑÐ] 266·Ö£¬Ò»Ö¾Ô¸µçÆø¹¤³Ì£¬±¾¿Æ²ÄÁÏ£¬Çó²ÄÁÏרҵµ÷¼Á +10 ÍÛºôºßºôºß 2026-04-01 11/550 2026-04-01 21:48 by chyhaha
[¿¼ÑÐ] 349Çóµ÷¼Á +6 ³ÔµÄ²»ÉÙ 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[¿¼ÑÐ] ʡ˫һÁ÷ÖØµãÒ»±¾´óѧÕÐÊÕµ÷¼Á +4 wwwwffffff 2026-03-31 7/350 2026-04-01 15:23 by wwwwffffff
[¿¼ÑÐ] 274Çóµ÷¼Á +6 xiao°®Í¬Ñ§ 2026-03-30 6/300 2026-03-31 10:04 by cal0306
[¿¼ÑÐ] 085602»¯¹¤Çóµ÷¼Á£¨331·Ö£© +8 111@127 2026-03-30 8/400 2026-03-30 21:23 by Ñо¿É®µ¼µ¼
[¿¼ÑÐ] ±§Ç¸ +3 ÌïºéÓÐ 2026-03-30 3/150 2026-03-30 19:11 by ÃÔºýCCPs
[¿¼ÑÐ] 105500ҩѧÇóµ÷¼Á£¬Ò»Ö¾Ô¸É½¶«´óѧҩѧ£¬348·Ö +3 gr¹þ¹þ¹þ 2026-03-28 3/150 2026-03-30 18:56 by Ô´_2020
[¿¼ÑÐ] 071010 323 ·ÖÇóµ÷¼Á +3 Baekzhy 2026-03-27 3/150 2026-03-30 14:24 by andresqi
[¿¼ÑÐ] 085602 »¯Ñ§¹¤³Ìר˶ 340·ÖÇóµ÷¼Á +4 qianbai11 2026-03-29 4/200 2026-03-30 11:34 by ÌÆãå¶ù
[¿¼ÑÐ] һ־Ը˫һÁ÷»úе285·ÖÇóµ÷¼Á +4 ÐÒÔ˵ÄÈýľ 2026-03-29 5/250 2026-03-29 14:49 by Miko19
[¿¼ÑÐ] ±¾¿ÆÐÂÄÜÔ´¿ÆÑ§Ó빤³Ì£¬Ò»Ö¾Ô¸»ªÀíÄܶ¯285Çóµ÷¼Á +3 AZMK 2026-03-27 5/250 2026-03-28 16:19 by xxxsssccc
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û