²é¿´: 2410  |  »Ø¸´: 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µÄ»ØÌû

lijie169

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


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

lurencyj

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


¡ï
black2982(½ð±Ò+1):лл²ÎÓë
ÄǸö´íÎóÐÅϢ˵sampleÎļþÀïÃæµÄµÚÒ»¸öÊäÈë²ÎÊýÓ¦¸ÃÊÇÕûÊý£¬µ«Êµ¼ÊÉϲ»ÊǸöÕûÊý¡£
3Â¥2012-02-20 17:18:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢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µÄ»ØÌû

ygl820

ÖÁ×ðľ³æ (ÖªÃû×÷¼Ò)


¡ï
black2982(½ð±Ò+1):лл²ÎÓë
¶ÁÈëµÄÊý¾ÝÎļþ¸ñʽ²»¶Ô£¬Ó¦¸ÃÊÇÕûÊýintger£¬¼ì²éÊý¾ÝÎļþ¡° 11...¡±ÕâÒ»ÐÐÓÐûÓзǷ¨×Ö·û¡£
6Â¥2012-02-21 10:06:49
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

black2982

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


ÒýÓûØÌû:
6Â¥: Originally posted by ygl820 at 2012-02-21 10:06:49:
¶ÁÈëµÄÊý¾ÝÎļþ¸ñʽ²»¶Ô£¬Ó¦¸ÃÊÇÕûÊýintger£¬¼ì²éÊý¾ÝÎļþ¡° 11...¡±ÕâÒ»ÐÐÓÐûÓзǷ¨×Ö·û¡£

ºÃµÄ, лл
7Â¥2012-02-21 20:00:23
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

emanlee

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


¡ï
black2982(½ð±Ò+1):лл²ÎÓë
SampleÎļþ:
  11 23  11 23  0  1  1                 % IAN1 IMN1 IAN2 IMN2 CHARGE NDEGv NDEBv
=================================================
SampleÎļþÖУ¬¼ì²é¡°11¡±Ç°ÃæÊÇ·ñÓпոñ£¬Èç¹ûÓеϰɾµô¿Õ¸ñ¡£
°Ñ % ¼°ºóÃæµÄÄÚÈݶ¼É¾³ý£¬ÔÙÊÔÒ»ÊÔ¡£
8Â¥2012-02-21 22:45:07
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
¡ï
black2982(½ð±Ò+1):лл²ÎÓë
ÓàÔó³É(½ð±Ò+2): лл²ÎÓëÓ¦Öú£¡ 2012-02-25 04:37:49
ÎÒ²âÊÔÁËÒ»ÏÂËùÌù³öÀ´µÄ 86 ¾äÒÔ¼°ÄǸöÊý¾ÝÐУ¬´úÂëûÓÐʲôÎÊÌ⣬ËùÒÔÎÊÌâÔÚÓÚÆäËüµÄÎÊÌâ

LZ ¿ÉÒÔ³¢ÊÔ×ÅÔÚ
2 READ(5,*,END=99) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv
Ö®ºó¼ÓÒ»ÐÐ
write(*,*) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv

¿´¿´Êä³öÊÇ·ñÕý³£¡­¡­
9Â¥2012-02-23 14:03:20
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

18766315007

гæ (ÖøÃûдÊÖ)


¡ï
black2982(½ð±Ò+1): лл²ÎÓë
ÇëÎÊÂ¥Ö÷£¬½â¾öÁËÂð£¿

·¢×ÔСľ³æAndroid¿Í»§¶Ë
10Â¥2016-10-19 15:28:13
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ black2982 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 306Çóµ÷¼Á +4 chuanzhu´¨Öò 2026-03-18 4/200 2026-03-21 08:25 by laoshidan
[¿¼ÑÐ] »úеר˶299Çóµ÷¼ÁÖÁ²ÄÁÏ +3 kkcoco25 2026-03-16 4/200 2026-03-21 03:52 by JourneyLucky
[¿¼ÑÐ] 08¹¤¿Æ 320×Ü·Ö Çóµ÷¼Á +6 À滨çóÍí·ç 2026-03-17 6/300 2026-03-21 03:40 by JourneyLucky
[¿¼ÑÐ] 301Çóµ÷¼Á +10 yyÒªÉϰ¶Ñ½ 2026-03-17 10/500 2026-03-21 03:14 by JourneyLucky
[¿¼ÑÐ] 311Çóµ÷¼Á +5 ¶¬Ê®Èý 2026-03-18 5/250 2026-03-21 00:16 by JourneyLucky
[¿¼ÑÐ] 317Çóµ÷¼Á +5 Éê×ÓÉêÉê 2026-03-19 9/450 2026-03-20 22:26 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖÐÄÏ»¯Ñ§£¨0703£©×Ü·Ö337Çóµ÷¼Á +8 niko- 2026-03-19 9/450 2026-03-20 21:57 by luoyongfeng
[¿¼ÑÐ] Ò»Ö¾Ô¸ÎäÀí²ÄÁϹ¤³Ì348Çóµ÷¼Á +3 £þ^£þ©bº¹ 2026-03-19 4/200 2026-03-20 21:01 by zhukairuo
[¿¼ÑÐ] 265Çóµ÷¼Á +12 ÁºÁºÐ£Ð£ 2026-03-19 13/650 2026-03-20 21:01 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] Çóµ÷¼Á +3 @taotao 2026-03-20 3/150 2026-03-20 19:35 by JourneyLucky
[¿¼ÑÐ] 261ÇóBÇøµ÷¼Á£¬¿ÆÑо­Àú·á¸» +3 Å£Ä̺Üæ 2026-03-20 4/200 2026-03-20 19:34 by JourneyLucky
[¿¼ÑÐ] 281Çóµ÷¼Á£¨0805£© +14 ÑÌÏ«Ò亣 2026-03-16 25/1250 2026-03-20 15:47 by yuncha
[¿¼ÑÐ] ²ÄÁÏѧ˶318Çóµ÷¼Á +5 February_Feb 2026-03-19 5/250 2026-03-19 23:51 by 23Postgrad
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤Çóµ÷¼Á +7 Ϊѧ666 2026-03-16 7/350 2026-03-19 14:48 by ¾¡Ë´Ò¢1
[¿¼ÑÐ] ¡¾Í¬¼ÃÈí¼þ¡¿Èí¼þ£¨085405£©¿¼ÑÐÇóµ÷¼Á +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by ²«»÷518
[¿¼ÑÐ] 311Çóµ÷¼Á +6 26ÑÐ0 2026-03-15 6/300 2026-03-18 14:43 by haxia
[¿¼ÑÐ] ²ÄÁÏ£¬·ÄÖ¯£¬ÉúÎ0856¡¢0710£©£¬»¯Ñ§ÕÐÉúÀ² +3 Eember. 2026-03-17 9/450 2026-03-18 10:28 by Eember.
[¿¼ÑÐ] ÉúÎïѧ071000 329·ÖÇóµ÷¼Á +3 ÎÒ°®ÉúÎïÉúÎﰮΠ2026-03-17 3/150 2026-03-18 10:12 by macy2011
[¿¼ÑÐ] 277µ÷¼Á +5 ×ÔÓɼå±ý¹û×Ó 2026-03-16 6/300 2026-03-17 19:26 by Àîleezz
[ÂÛÎÄͶ¸å] ÓÐûÓдóÀз¢Ð¡ÂÛÎÄÄÜ´øÎÒ¸ö¶þ×÷ +3 ÔöÈñ©ÈË 2026-03-17 4/200 2026-03-17 09:26 by xs74101122
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û