Fortran Coder

标题: 改程序中出现的问题 [打印本页]

作者: renlu617 时间: 2015-4-17 10:14
标题: 改程序中出现的问题
源程序很简单的依据：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

[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

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
就是会出现截图里面的情况，以前也没见过啊

QQ截图20150417112355.jpg (156.62 KB, 下载次数: 403)

作者: fcode 时间: 2015-4-17 12:29
这需要代码才能判断。

作者: Villain 时间: 2015-4-17 12:30

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

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

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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)