±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 2098  |  »Ø¸´: 5

shenhai1315

ľ³æ (ÕýʽдÊÖ)

[ÇóÖú] fortran³ÌÐòÖÐwriteÊä³ö¸ñʽÓÐÎÊÌâ ÒÑÓÐ1È˲ÎÓë

´ó¼ÒºÃ£¬ÎÒfortranС³ÌÐò¶ÁÈ¡Îı¾Êý¾Ýºó£¬ÔÙwriteÊä³ö£¬µ«ÊÇÊä³ö¸ñʽÓÐÎÊÌ⣬ҲÕÒ²»µ½Ô­Òò¡£Âé·³¶®fortranµÄ¿´Ï£¬¸ÃÈçºÎÐ޸쬲¿·Ö´úÂëÈçÏ£º
101  open(unit=10,status='unknown',access='append',file='rh-opt.com')
!!!!!!!make first input file,  def guess!!!!!!!
!     do i = 1,9
!        write(10,*) line(i)
!     end do
!     write(10,*) n
!     write(10,*) line(10)
     do i = 1, n     
        write(10,*) atom(i),qnew(3*(i-1)+1),qnew(3*(i-1)+2),qnew(3*(i-1)+3)
     end do
     write(10,*)'   '   
     write(10,*)'   '   
     write(10,*)'   '            
     close(10)      
     ! 200  format(I3,$)

     
ÒÔÉÏÎı¾Êä³ö£¬·¢ÏÖÓлسµ£¬¶øÇҺöà¿Õ¸ñºÍÓÐЧÊý×ÖÌ«¶à£¬ÈçºÎÐÞ¸ÄÄØ¡£ÎÒ¶Ôfortran²»Ê죬²»ÖªµÀÕ¦¸Ä£¬Ð»Ð»¡£
±ÈÈ磬ÀûÓÃÒÔÉϳÌÐòÔËÐкó£¬ÎÊÌâÊä³öÈçÏ£º
C                               -1.89021440000000       0.000000000000000E+000
   1.92476630000000     

¶øÎÒÏëÒªµÄµÄ£º
C  -1.89021440000000    0.000000000000000E+00  1.92476630000000
ÕâÑù¼ÆËã³ÌÐò²ÅÄܼÆË㣬¾ÍÊÇÊä³ö¸ñʽ²»¶ÔºÃÏñ¡£

ллÁË
»Ø¸´´ËÂ¥

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

ÓÆÓÆ

» ²ÂÄãϲ»¶

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

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

jerkwin

ר¼Ò¹ËÎÊ (ÕýʽдÊÖ)

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

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ...
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
shenhai1315: ½ð±Ò+100 2014-04-19 10:46:55
ʹÓÃÓиñʽµÄÊä³ö
write(10,*) atom(i),qnew(3*(i-1)+1),qnew(3*(i-1)+2),qnew(3*(i-1)+3)
¸ÄΪ
write(10,'(A, 3F12.8)') atom(i),qnew(3*(i-1)+1),qnew(3*(i-1)+2),qnew(3*(i-1)+3)
2Â¥2014-04-18 22:17:02
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

shenhai1315

ľ³æ (ÕýʽдÊÖ)

ÒýÓûØÌû:
2Â¥: Originally posted by jerkwin at 2014-04-18 22:17:02
ʹÓÃÓиñʽµÄÊä³ö
write(10,*) atom(i),qnew(3*(i-1)+1),qnew(3*(i-1)+2),qnew(3*(i-1)+3)
¸ÄΪ
write(10,'(A, 3F12.8)') atom(i),qnew(3*(i-1)+1),qnew(3*(i-1)+2),qnew(3*(i-1)+3)

ÄúºÃ£¬'(A, 3F12.8)'ÖÐAºÍ3F12.8¶¼´ú±íʲôÒâ˼£¿Ð»Ð»
3Â¥2014-04-18 23:37:16
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

jerkwin

ר¼Ò¹ËÎÊ (ÕýʽдÊÖ)

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

¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ...
shenhai1315: ½ð±Ò+100, ¡ï¡ï¡ï¡ï¡ï×î¼Ñ´ð°¸ 2014-04-19 11:35:31
ÒýÓûØÌû:
3Â¥: Originally posted by shenhai1315 at 2014-04-18 23:37:16
ÄúºÃ£¬'(A, 3F12.8)'ÖÐAºÍ3F12.8¶¼´ú±íʲôÒâ˼£¿Ð»Ð»...

µÚÒ»¸ö±äÁ¿Ê¹ÓÃ×Ö·û¸ñʽÊä³ö, ºóÃæÈý¸öʹÓø¡µã¸ñʽ, ¹²12λ, СÊýµãºóÓаËλ

» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©

4Â¥2014-04-19 11:02:32
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lkh010910110

½ð³æ (СÓÐÃûÆø)

Ëͺ컨һ¶ä
ÒýÓûØÌû:
4Â¥: Originally posted by jerkwin at 2014-04-19 11:02:32
µÚÒ»¸ö±äÁ¿Ê¹ÓÃ×Ö·û¸ñʽÊä³ö, ºóÃæÈý¸öʹÓø¡µã¸ñʽ, ¹²12λ, СÊýµãºóÓаËλ...

ÄãºÃ£¬ÄÇ¡±£¨A1000£©¡°ÊÇʲôÒâË¼ÄØ
5Â¥2014-11-09 19:06:30
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

jerkwin

ר¼Ò¹ËÎÊ (ÕýʽдÊÖ)

ÒýÓûØÌû:
5Â¥: Originally posted by lkh010910110 at 2014-11-09 19:06:30
ÄãºÃ£¬ÄÇ¡±£¨A1000£©¡°ÊÇʲôÒâË¼ÄØ...

×Ö·û´®¸ñʽ, Õ¼1000λ
6Â¥2014-11-09 23:52:34
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ shenhai1315 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 327Çóµ÷¼Á +3 Xxjc1107. 2026-04-06 3/150 2026-04-06 20:15 by lijunpoly
[¿¼ÑÐ] Ò»Ö¾Ô¸ÄϿƴóÉúÎïѧ297·Ö£¬Çóµ÷¼ÁÍÆ¼ö +5 Y-yyusx 2026-04-06 6/300 2026-04-06 19:53 by lijunpoly
[¿¼ÑÐ] Ò»Ö¾Ô¸Ö£ÖÝ´óѧ²ÄÁÏÓ뻯¹¤085600£¬Çóµ÷¼Á +27 ³ÔµÄ²»ÉÙ 2026-04-02 27/1350 2026-04-06 15:19 by 495374996
[¿¼ÑÐ] Ò»Ö¾Ô¸°²»Õij211 0703»¯Ñ§×Ü·Ö339Çóµ÷¼Á +7 Íí·ç²»Íí 2026-04-04 7/350 2026-04-06 14:06 by houyaoxu
[¿¼ÑÐ] 336²ÄÁÏÓ뻯¹¤085600Çóµ÷¼Á +9 Ë®ÐǼÇinfp 2026-04-05 12/600 2026-04-06 11:46 by Ë®ÐǼÇinfp
[¿¼ÑÐ] 297·Ö083200ÇóÖú +8 aekx 2026-04-05 8/400 2026-04-06 10:35 by imissbao
[¿¼ÑÐ] Ò»Ö¾Ô¸ËÕÖÝ´óѧ²ÄÁϹ¤³Ì£¨085601£©×¨Ë¶ÓпÆÑо­ÀúÈýÏî¹ú½±Á½¸öʵÓÃÐÍרÀûÒ»ÏîÊ¡¼¶Á¢Ïî +10 ´ó»ðɽС»ðɽ 2026-04-05 10/500 2026-04-05 19:58 by СÎÏţСÎÏÅ£
[¿¼ÑÐ] 348Çóµ÷¼Á +6 wukira 2026-04-04 6/300 2026-04-05 18:11 by Öí»á·É
[¿¼ÑÐ] 080200ѧ˶£¬277·Ö£¬ÊýÒ»104£¬Çó´ø×ߣ¡ +7 Æ¿×ÓPZ 2026-03-31 7/350 2026-04-05 17:49 by liucky
[¿¼ÑÐ] Çóµ÷¼Á +3 С›g 2026-04-03 3/150 2026-04-05 09:10 by sihailian3
[¿¼ÑÐ] 265Çóµ÷¼Á +17 ÁÖÉîÎÂÀ½ 2026-04-01 20/1000 2026-04-04 01:09 by userper
[¿¼ÑÐ] Çóµ÷¼Á +4 ѹÁ¦??´ó 2026-04-03 4/200 2026-04-03 21:36 by à£à£à£0119
[¿¼ÑÐ] Çóµ÷¼Á +3 usbdndj 2026-04-03 3/150 2026-04-03 14:10 by dxiaoxin
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©½»Í¨´óѧ²ÄÁϹ¤³Ì×Ü·Ö358 +4 cs0106 2026-04-03 4/200 2026-04-03 13:41 by °ÙÁéͯ888
[¿¼ÑÐ] Ò»Ö¾Ô¸Öйú¿ÆÑ§Ôº´óѧ265Çóµ÷¼Á +9 Ìñµ­ye 2026-03-31 10/500 2026-04-03 11:10 by txp1986
[¿¼ÑÐ] ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +6 ÏàÐűػá¹ââÍòÕ 2026-03-31 7/350 2026-04-02 23:16 by JourneyLucky
[¿¼ÑÐ] 0856²ÄÁÏÓ뻯¹¤µ÷¼Á£¬339 +14 10213207 2026-03-31 14/700 2026-04-02 21:01 by 1104338198
[¿¼ÑÐ] 362Çóµ÷¼Á +14 Î÷ÄϽ»²ÄÁÏר˶3 2026-03-31 14/700 2026-04-02 17:50 by yunlongyang
[¿¼ÑÐ] Ò»Ö¾Ô¸9³õÊÔ366 ±¾Ë«·ÇÇóµ÷¼Á +4 ÔËÆøÀ´µÃÈôÓÐËÆÎ 2026-04-02 4/200 2026-04-02 09:56 by guanxin1001
[˶²©¼ÒÔ°] ¿¼Ñе÷¼Á +5 ÂæÍÕÄÐÈË 2026-04-01 5/250 2026-04-01 14:28 by syjjj0321
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û