Question

我正在使用Fortran 90代码进行研究。我编译了它但是当我尝试运行它时

 Reading startup model from start.txt...
   Target Misfit:   1.00000000    
   Converged Flag:           0

 Reading data from DATATESTKAREN.txt...
  No number found by rdcode

我正在给rdcode

! rdcode provides a patch to get around the lack of an internal
! free-format (list-directed) read on some compilers, notably the
! cray.  This version for reals.  Butchered from decode by Bob Parker.
! 
! on input:
!    string = character string containing number to be read
!    iof2 = unit number of open file, to be closed on error 
! on output:
!    rdcode contains a real number from string
! calls:
!    filerr
!
! includes:
      IMPLICIT NONE
! input arguments:
      character(*) string
      integer iof2
! local variables
      character(40) local
      integer k, k1, kn, l
!
!  Terminate line at % sign
      kn=index(string//'%', '%') - 1
      k1=1
      do 1100 k=k1, kn
        if (string(k:k) .ne. ' ') goto 1200
 1100 continue
      call filerr (' No number found by rdcode', iof2)

输入文件很大，我只是想问一下如何搜索错误。据我所知，rdocde将字符串转换为整数？

我的输入文件有什么问题？

0 个答案: