²é¿´: 891  |  »Ø¸´: 16
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£

cindyzxx

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

[½»Á÷] ¡¾ÇóÖú¡¿ÎÞ·¨¶ÁÈëÊý¾Ý

¸Õ½Ó´¥FORTRANÓïÑÔ£¬ÏëÇëÎÊÏÂÃæÕâ¸ö³ÌÐòΪʲôÊä³öΪ0£¿Êµ¼ÊÊý¾Ý²»Îª0£¡

      program read_h
      implicit none
      integer str
      double precision h
      character*80 ch
         
      open(12,file='out' ,status='unknown')
      read(12,'(A80)') ch
        if( ch(1:33).eq.' FCInt: Cartesian force constants:')then
          read(12,*)
          read(12,*) str,h
        endif
      
       write(11,'(F8.5,3x)') h
     
       write(*,*)
            
      end program
»Ø¸´´ËÂ¥
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

nono2009

³¬¼¶°æÖ÷ (ÎÄѧ̩¶·)

No gains, no pains.

ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐã°æÖ÷

½«status='unknown'È¥µôÊÔÊÔ¡£ÎÒ´ÓÀ´²»ÓÃstatus¡£Èç¹û²»ÐУ¬Ç뽫outÎļþÌù³öÀ´¡£

BTW£¬ÄãÈ·¶¨Ö»ÊÇout, ûÓÐÀ©Õ¹Ãû£¨ÀýÈ磺out.txt, out.dat£©Âð£¿
2Â¥2009-10-23 11:59:56
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

senlia

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

¡ï ¡ï
jove1782(½ð±Ò+2,VIP+0):ÐÁ¿àÁË 10-23 14:18
' FCInt: Cartesian force constants:'µÄ³¤¶ÈÊÇ34 ²»ÊÇ33 ÉÙÊýÁË×ʼµÄÒ»¸ö¿Õ¸ñ¿ÉÄÜ
Èç¹ûoutÎļþÈçÏÂ:

"
FCInt: Cartesian force constants:  [×¢ÒâÕâÀïFµÄÇ°ÃæÓпոñ ²»ÖªµÀÔõô·¢³öÀ´¾ÍûÓÐÁË]

2 6.0002
"
ÄÇôÊä³ö½á¹ûΪ
"
6.00020
"

[ Last edited by senlia on 2009-10-23 at 13:06 ]
Êéµ½ÓÃʱ·½ºÞÉÙ, ÌìÑĺδ¦ÎÞ·¼²Ý.
3Â¥2009-10-23 13:02:50
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

cindyzxx

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

ÒýÓûØÌû:
Originally posted by nono2009 at 2009-10-23 11:59:
½«status='unknown'È¥µôÊÔÊÔ¡£ÎÒ´ÓÀ´²»ÓÃstatus¡£Èç¹û²»ÐУ¬Ç뽫outÎļþÌù³öÀ´¡£

BTW£¬ÄãÈ·¶¨Ö»ÊÇout, ûÓÐÀ©Õ¹Ãû£¨ÀýÈ磺out.txt, out.dat£©Âð£¿

ûÓÐÀ©Õ¹Ãû£¬È¥µôstatus='unknown'Ò²²»ÐÐ
4Â¥2009-10-23 14:43:24
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

cindyzxx

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

ÒýÓûØÌû:
Originally posted by senlia at 2009-10-23 13:02:
' FCInt: Cartesian force constants:'µÄ³¤¶ÈÊÇ34 ²»ÊÇ33 ÉÙÊýÁË×ʼµÄÒ»¸ö¿Õ¸ñ¿ÉÄÜ
Èç¹ûoutÎļþÈçÏÂ:

"
FCInt: Cartesian force constants:  [×¢ÒâÕâÀïFµÄÇ°ÃæÓпոñ ²»ÖªµÀÔõô·¢³öÀ´¾Í ...

Ò²²»ÊÇÕâ¸öÎÊÌâ
5Â¥2009-10-23 14:44:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

nono2009

³¬¼¶°æÖ÷ (ÎÄѧ̩¶·)

No gains, no pains.

ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐã°æÖ÷

¿ÉÒÔÉÏ´«outÎļþÂð£¿
6Â¥2009-10-23 14:49:21
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

cindyzxx

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

ÒýÓûØÌû:
Originally posted by nono2009 at 2009-10-23 14:49:
¿ÉÒÔÉÏ´«outÎļþÂð£¿

²»»áÉÏ´«£¬²»¹ýÎÒ¿ÉÒ԰ѸúÎÒ¶ÁµÄÕâһϵÁеÄÌù³öÀ´
FCInt: Cartesian force constants:
                      1         2         3         4         5
        1      0.161897D+00
7Â¥2009-10-23 15:08:57
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

nono2009

³¬¼¶°æÖ÷ (ÎÄѧ̩¶·)

No gains, no pains.

ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐã°æÖ÷

¡ï
ÓàÔó³É(½ð±Ò+1,VIP+0):ÐÁ¿àÁË£¡ 10-23 18:07
Ö±½Ó¿´²»³öÀ´¡£

½¨ÒéÄã¿ÉÒÔÔÚdebugging»·¾³Ï½øÐе¥²½ÔËÐУ¬¿´Ò»¿´Ã¿²½µÄÖ´Ðнá¹û¡£
8Â¥2009-10-23 15:27:43
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

cindyzxx

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

ÒýÓûØÌû:
Originally posted by nono2009 at 2009-10-23 15:27:
Ö±½Ó¿´²»³öÀ´¡£

½¨ÒéÄã¿ÉÒÔÔÚdebugging»·¾³Ï½øÐе¥²½ÔËÐУ¬¿´Ò»¿´Ã¿²½µÄÖ´Ðнá¹û¡£

²»Ã÷°×£¬ºÇºÇ
9Â¥2009-10-23 15:33:59
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

nono2009

³¬¼¶°æÖ÷ (ÎÄѧ̩¶·)

No gains, no pains.

ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐã°æÖ÷

¡ï
cindyzxx(½ð±Ò+1,VIP+0):ºÜÈÏÕæºÜºÃ£¡ 10-23 15:47
ÄãÓõÄÊÇʲôfortran±àÒëÆ÷£¿

±àÒëͨ¹ýºó»áµ¥²½ÔËÐÐÂð£¿
10Â¥2009-10-23 15:37:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ cindyzxx µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¹«Åɳö¹ú] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 dheqf6rz6n 2026-06-27 4/200 2026-06-28 07:12 by jjz01vuwzk
[ÂÛÎÄͶ¸å] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 dheqf6rz6n 2026-06-27 5/250 2026-06-28 06:32 by jjz01vuwzk
[¿¼ÑÐ] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 dheqf6rz6n 2026-06-26 8/400 2026-06-28 06:28 by jjz01vuwzk
[ÕÒ¹¤×÷] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 7s8du2bt8y 2026-06-26 3/150 2026-06-28 05:47 by jjz01vuwzk
[¿¼ÑÐ] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 9g0rmhtq5w 2026-06-27 4/200 2026-06-28 03:48 by jjz01vuwzk
[˶²©¼ÒÔ°] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 9g0rmhtq5w 2026-06-27 4/200 2026-06-28 03:29 by jjz01vuwzk
[¿¼²©] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 dheqf6rz6n 2026-06-27 3/150 2026-06-28 03:09 by jjz01vuwzk
[²©ºóÖ®¼Ò] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +4 dheqf6rz6n 2026-06-27 4/200 2026-06-28 03:06 by jjz01vuwzk
[¿¼ÑÐ] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +4 7s8du2bt8y 2026-06-26 8/400 2026-06-28 01:29 by jjz01vuwzk
[˶²©¼ÒÔ°] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +5 7s8du2bt8y 2026-06-26 9/450 2026-06-28 01:27 by jjz01vuwzk
[»ù½ðÉêÇë] ʱ¼ä´ÁÓÖ±äÁË +4 Vivilian 2026-06-27 4/200 2026-06-28 00:37 by jnhyjjm
[ÂÛÎÄͶ¸å] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 dheqf6rz6n 2026-06-27 5/250 2026-06-27 23:09 by jjz01vuwzk
[¹«Åɳö¹ú] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 dheqf6rz6n 2026-06-27 5/250 2026-06-27 23:04 by jjz01vuwzk
[¿¼²©] ÊÛT0PÒ»ÇøSCIÎÄÕ£¬ÎÒ:8O5.51.O.54,¿ÆÄ¿ÆëÈ«,¿É£«¼± +3 7s8du2bt8y 2026-06-26 5/250 2026-06-27 17:07 by ztgu5ulw9z
[»ù½ðÉêÇë] ÎÞÁÄ¿´¿´Ê±¼ä´Á´ò·¢Ê±¼ä +8 »¢º×Ë«ÐÎ 2026-06-23 8/400 2026-06-27 15:53 by miaochunhui
[˶²©¼ÒÔ°] ÓлúÄܿ緽ÏòÉ격Âð +3 ¿É¿ÉÎ÷ÀïµÄÁÖС½ 2026-06-25 3/150 2026-06-26 11:59 by ÁÖ·¼Ä¾
[Óлú½»Á÷] ÇóÖú£¡£¡ 5+3 ÎÒɶ¶¼Ã»¿´¼û 2026-06-24 4/200 2026-06-26 09:35 by 951037019
[ÎÄѧ·¼²ÝÔ°] ¿´¡¶¸ø°¢maµÄÇéÊé¡·ÓиР+6 myrtle 2026-06-21 10/500 2026-06-25 17:54 by myrtle
[»ù½ðÉêÇë] »áÆÀʲôʱºò¿ªÊ¼£¿ +3 Vivilian 2026-06-24 4/200 2026-06-24 16:30 by jurkat.1640
[»ù½ðÉêÇë] ×Éѯ +3 _xyan818 2026-06-24 3/150 2026-06-24 08:12 by Equinoxhua
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û