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

black2982

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


[½»Á÷] Fortran ±àÒëÎÊÌâ

ÎÒ´ÓÍøÉÏ£¨http://leroy.uwaterloo.ca/programs.html£©ÏÂÁËÒ»¸öfortranµÄ³ÌÐòRKR1, ÊÇÓÃÀ´¼ÆËã·Ö×Ó¹âÆ×³£ÊýµÄÃâ·Ñ³ÌÐò, µ«ÊÇÖ»ÓгÌÐòÔ´´úÂë, ²¢ÇÒÊÇÓÃÓʼþ¸ñʽ·¢¹ýÀ´µÄ, ÎÒÊÔ×ŰѳÌÐòÔ´´úÂ뿽³öÀ´×÷³ÉÎı¾Îļþ, ²¢ÇÒת»»³Éfortran¸ñʽ£¬ÓÃÒ»¸öÍøÉϱàÒëÆ÷½øÐÐÁ˱àÒ룬ȻºóÓÃËü·¢¹ýÀ´µÄsampleÎļþ(ͬÑùÊÇÓʼþ·¢ËÍ)ÔËÐвâÊÔ£¬³ÌÐò¸ø³öÒ»¸ö´íÎó¡°At line 86 of file ZERTh1fI.f Fortran runtime error: Bad  integer for item 1 in list input¡°

ÏëÎÊÒ»ÏÂÕâÈË´íÎóÎÒ¸ÃÔõô½â¾öÄØ£¿»¹ÓУ¬ÓÉÓÚÎÒ¶ÔÓÚ³ÌÐòµÄÁ˽âÌ«ÉÙ£¬²»ÖªµÀÓÐûÓÐÈËÔ¸Òâ°ïÎÒ½â¾öһϣ¬ÎÒ»á°ÑÔ´³ÌÐòºÍsampleÎļþ·¢¹ýÀ´¡£
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

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

lurencyj

ľ³æ (ÖøÃûдÊÖ)


¡ï
black2982(½ð±Ò+1):лл²ÎÓë
ÄǸö´íÎóÐÅϢ˵sampleÎļþÀïÃæµÄµÚÒ»¸öÊäÈë²ÎÊýÓ¦¸ÃÊÇÕûÊý£¬µ«Êµ¼ÊÉϲ»ÊǸöÕûÊý¡£
3Â¥2012-02-20 17:18:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 10 ¸ö»Ø´ð

lijie169

Í­³æ (ÖøÃûдÊÖ)


¡ï
black2982(½ð±Ò+1):лл²ÎÓë
Äã²»¶®Fortranô£¿Õâ¸öÊÇÔËÐдíÎó....
2Â¥2012-02-20 12:24:07
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

black2982

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


ÒýÓûØÌû:
3Â¥: Originally posted by lurencyj at 2012-02-20 17:18:33:
ÄǸö´íÎóÐÅϢ˵sampleÎļþÀïÃæµÄµÚÒ»¸öÊäÈë²ÎÊýÓ¦¸ÃÊÇÕûÊý£¬µ«Êµ¼ÊÉϲ»ÊǸöÕûÊý¡£

лл, ¿ÉÊÇÎÒµÄsampleÎļþµÚÒ»¸öÊäÈë²ÎÊýÊÇÕûÊý

³ÌÐòµÚ86ÐÐ:
   2 READ(5,*,END=99) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv


SampleÎļþ:
  11 23  11 23  0  1  1                 % IAN1 IMN1 IAN2 IMN2 CHARGE NDEGv NDEBv
'(iii) Liu et al. JCP 111, 3494 (1999) NDE functions for Na2:  VEXT = 0'
6  1  1 1  3 2   61.41d0  4.4867d-2   % NLR ITYPE IZP0 IZQ0 NP0 NQ0 VD XCN0
0.436636d0  -3.529d-3  1.54d-5
4.8d-2  1.366d-2
3  1 0  7 0  3.0921d-3                % ITYPB IZP1 IZQ1 NP1 NQ1 XCN1
0.1341d0  -1.6863d-2  9.2d-4  -2.810837d-5  4.924d-7  -4.61952d-9  1.8d-11
1  2   0.d0                           % Kaiser NSV VEXT
  -0.4d0  0.2d0  1.6d0                 %(1) V1 DV V2
   1.d0   1.0d0 61.d0                  %(2) V1 DV V2
4Â¥2012-02-21 09:42:39
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

black2982

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


ÒýÓûØÌû:
2Â¥: Originally posted by lijie169 at 2012-02-20 12:24:07:
Äã²»¶®Fortranô£¿Õâ¸öÊÇÔËÐдíÎó....

ÊǵÄ, ²»¶®, ÇëÎÊÓ¦¸ÃÔõô½â¾öÄØ?лл
5Â¥2012-02-21 09:52:17
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 267Ò»Ö¾Ô¸ÄϾ©¹¤Òµ´óѧ0817»¯¹¤Çóµ÷¼Á +7 SUICHILD 2026-03-12 7/350 2026-03-18 18:31 by 30660438
[¿¼ÑÐ] 26µ÷¼Á/²ÄÁÏ/Ó¢Ò»Êý¶þ/×Ü·Ö289/ÒѹýAÇøÏß +7 ²½´¨¿á×Ï123 2026-03-13 7/350 2026-03-18 17:12 by ¾¡Ë´Ò¢1
[¿¼ÑÐ] ÊÕ¸´ÊÔµ÷¼ÁÉú +4 ÓêºóÇïºÉ 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
[¿¼ÑÐ] 312Çóµ÷¼Á +8 İå·Ï£ 2026-03-16 9/450 2026-03-18 12:39 by Linda Hu
[¿¼²©] »·¾³ÁìÓòÈ«¹úÖØµãʵÑéÊÒÕÐÊÕ²©Ê¿1-2Ãû +3 QGZDSYS 2026-03-13 5/250 2026-03-18 11:13 by QGZDSYS
[¿¼ÑÐ] ÉúÎïѧ071000 329·ÖÇóµ÷¼Á +3 ÎÒ°®ÉúÎïÉúÎﰮΠ2026-03-17 3/150 2026-03-18 10:12 by macy2011
[¿¼ÑÐ] 293Çóµ÷¼Á +11 zjlµÄºÅ 2026-03-16 16/800 2026-03-18 08:10 by zhukairuo
[¿¼ÑÐ] 308Çóµ÷¼Á +4 ÊÇLupa°¡ 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤Çóµ÷¼Á +5 Ð÷ÐÒÓë×Ó 2026-03-17 5/250 2026-03-17 16:40 by laoshidan
[¿¼ÑÐ] Áº³ÉΰÀÏʦ¿ÎÌâ×é»¶Ó­ÄãµÄ¼ÓÈë +8 һѼѼӴ 2026-03-14 10/500 2026-03-17 15:07 by һѼѼӴ
[¿¼ÑÐ] ¿¼Ñе÷¼Á +3 ä¿ya_~ 2026-03-17 5/250 2026-03-17 09:25 by Winj1e
[¿¼ÑÐ] 274Çóµ÷¼Á +5 ʱ¼äµã 2026-03-13 5/250 2026-03-17 07:34 by ÈÈÇéɳĮ
[¿¼ÑÐ] 326Çóµ÷¼Á +3 mlpqaz03 2026-03-15 3/150 2026-03-16 07:33 by Iveryant
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤ 323 Ó¢Ò»+Êý¶þ+Îﻯ£¬Ò»Ö¾Ô¸£º¹þ¹¤´ó ±¾È˱¾¿ÆË«Ò»Á÷ +4 ×ÔÓɵÄ_·ÉÏè 2026-03-13 5/250 2026-03-14 19:39 by hmn_wj
[¿¼ÑÐ] 289Çóµ÷¼Á +4 ÕâôÃû×ÖÕ¦Ñù 2026-03-14 6/300 2026-03-14 18:58 by userper
[»ù½ðÉêÇë] ÏÖÔÚÈçºÎ»Ø±ÜÈ¥ÄêµÄijһ¸öר¼Ò£¬²»ÖªµÀÃû×Ö +3 zk200107 2026-03-12 6/300 2026-03-14 17:13 by zk200107
[¿¼ÑÐ] ѧ˶285Çóµ÷¼Á +13 Wisjxn 2026-03-12 46/2300 2026-03-14 10:33 by JourneyLucky
[˶²©¼ÒÔ°] 085600 260·ÖÇóµ÷¼Á +3 Ìì¿Õ»¹ÏÂÓêô 2026-03-13 5/250 2026-03-13 18:46 by Ìì¿Õ»¹ÏÂÓêô
[¿¼ÑÐ] ²ÄÁÏר˶350 Çóµ÷¼Á +4 Íõ½ð¿Æ 2026-03-12 4/200 2026-03-13 16:02 by ruiyingmiao
[¿¼ÑÐ] һ־Ըɽ´ó07»¯Ñ§ 332·Ö ËÄÁù¼¶Òѹý ±¾¿ÆÉ½¶«Ë«·Ç Çóµ÷¼Á£¡ +3 ²»ÏëÀíÄã 2026-03-12 3/150 2026-03-13 14:18 by JourneyLucky
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û