star-cd posdat 的相關問題

scioltosoar

想請問 會使用 STAR-CD POSDAT.F 的高手們

請問 STAR-CD 內建的 指定輸出位置 write(A,*) A=6 or 60 和 write(B,*)  B=84~89
這兩種的輸出格式 差別在哪?!
小弟 根據這些指令 操作  程式可以順利執行 但是 對於設定輸出的資料總是沒辦法順利輸出  EX write(85,*) iter,u(1,1)

wangkun

6，输出到默认的输出文件*.out
60，输出到*.run文件中。
84~89，输出到指定文件中
例：
              IF (INTFLG(1).EQ.0.AND.MASTER) THEN
                   OPEN(85,FILE=’posdat.out’,STATUS=’UNKNOWN’)
                       IF (STEADY) THEN
                        WRITE(85,5)
5                        FORMAT(6X,’ITER’,11X,’TOTPH1’,10X,’TOTVOL’,10X,’TOTPH2’,10X,
                          & ‘HWALL ‘,10X,’FORCEX’,10X,’FORCEY’,10X,’FORCEZ’)
                 ELSE
                WRITE(85,6)
6                    FORMAT(6X,’TIME’,11X,’TOTPH1’,10X,’TOTVOL’,10X,’TOTPH2’,10X,
                     & ‘HWALL ‘,10X,’FORCEX’,10X,’FORCEY’,10X,’FORCEZ’)
                   ENDIF
                INTFLG(1) = 1
                   ENDIF

scioltosoar

感謝 您的 回復
另外是否可再請教您 您對於4.06 的POSDAT.F是否也熟悉?!
小弟 在使用U(I，J) 也就是內定函數時 都會發生迭代時無法順利執行的情況
對於 這樣的問題 嘗試許久 也無法順利解決....
想請問
若 我想 輸出 U(I,J)的值 要如何 編寫 才能順利進行
以下是小弟 編寫的一段程式內容
不知 哪裡有編寫上的錯誤 一直無法順利 輸出 U(I，J)的值
    INTEGER I,J
      INTEGER ICSTAR(16)     
       do J=1,16
        do I=1,ncell
          if (ICTID(I).EQ.2) then
            ICSTAR(J)=I
          end if
        end do
      end do
         
      if (LEVEL.EQ.2) then
        if (iter.eq.iters+3) then
          open (86,file='0109.dat',status='unknown')
            do I=1,16
              write(86,*) u(1,ICSTAR(I)),u(2,ICSTAR(I))
     &                        ,u(3,ICSTAR(I))
            end do
        end if
      end if
         
      return
      end
以下是 執行上發生問題時 所呈現的結果照片
http://0rz.tw/965nx

[ 本帖最后由 scioltosoar 于 2009-2-5 03:54 编辑 ]