改程序中出现的问题

renlu617 · 发表于 2015-4-17 10:14:02

源程序很简单的依据：DO I=NLAYER,1，-1
我需要加些判定条件，大概改成这个意思：

IF(FDTNLAYER.GT.0.AND. FDTNLAYER .LT.NLAYER)THEN

DO I=NLAYER,FDTNLAYER,-1

IF(fDTNLAYER.EQ.NLAYER)THEN

不循环

IF(TDTNLAYER.GT.0 .AND.TDTNLAYER.LT.NLAYER) then

DO I=TDTNLAYER,1，-1

IF(TDTNLAYER.EQ.NLAYER)THEN

DO 51 I = NLAYER,1, -1

改成一个这样的程序要怎么改呢？

fcode · 发表于 2015-4-17 10:33:12

[Fortran] 纯文本查看 复制代码

 If (fdtnlayer>0 .And. fdtnlayer<nlayer) Then
   iBegin = nLayer
   iEnd   = fdtnLayer
   iStep  = -1
 Else If (fdtnlayer==nlayer) Then
   iBegin = 1
   iEnd   = 0 !// 结束小于开始，则不循环
   iStep  = 1
 Else If (tdtnlayer>0 .And. tdtnlayer<nlayer) Then
   iBegin =  tdtnLayer
   iEnd   = 1
   iStep  = -1
 Else If (tdtnlayer==nlayer) Then
   iBegin = nLayer
   iEnd   = 1
   iStep  = -1
 End If
 Do i = iBegin , iEnd , iStep
   ...
 End Do

renlu617 · 发表于 2015-4-17 11:17:03

fcode 发表于 2015-4-17 10:33
[mw_shl_code=fortran,true] If (fdtnlayer>0 .And. fdtnlayer0 .And. tdtnlayer

错误 1 error #8093: A do-variable within a DO body shall not appear in a variable definition context. [I] C:\B90Vdongtu\FOR\B90.FOR 510

出现了好几个这样的错误，这是怎么回事呢？

renlu617 · 发表于 2015-4-17 11:28:21

就是会出现截图里面的情况，以前也没见过啊

fcode · 发表于 2015-4-17 12:29:58

这需要代码才能判断。

Villain · 发表于 2015-4-17 12:30:14

renlu617 发表于 2015-4-17 11:17
错误 1 error #8093: A do-variable within a DO body shall not appear in a variable definition cont ...

fcode 给你的是以f90的自由格式写的，而你用的后缀是FOR，编译器就是以f77的固定格式来编译，自然会抱错。

Villain · 发表于 2015-4-17 12:32:13

renlu617 发表于 2015-4-17 11:28
就是会出现截图里面的情况，以前也没见过啊

f77的固定格式中，do enddo的格式是没有的。

[求助] 改程序中出现的问题

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章