REAL FUNCTION STRNUM(STR)
      IMPLICIT NONE
      CHARACTER STR*(*)
      INTEGER ISTART, IDIGIT, ISTR, I, J, N
      LOGICAL LMINUS
      LMINUS = .FALSE.
      J = 0
      N = LEN(STR)
      STRNUM = 0.0
      DO 10 I = 1, N
         IF ( STR(I:I).NE.' ' ) THEN
            ISTART = I
            IF ( STR(I:I).EQ.'-' ) THEN
               LMINUS = .TRUE.
               ISTART = I+1
            END IF
            GO TO 20
         END IF
10    CONTINUE
20    IDIGIT = N+1
      IF ( INDEX(STR,'.').NE.0 ) IDIGIT = INDEX(STR,'.')
      DO 30 I = IDIGIT-1, ISTART, -1
         IF ( STR(I:I).NE.' ' ) THEN
            J = J+1
            ISTR = ICHAR(STR(I:I))-ICHAR('0')
            STRNUM = STRNUM+ISTR*10.0**(J-1)
         END IF
30    CONTINUE
      DO 40 I = IDIGIT+1, N
         IF ( STR(I:I).NE.' ' ) THEN
            ISTR = ICHAR(STR(I:I))-ICHAR('0')
            STRNUM = STRNUM+ISTR*10.0**(IDIGIT-I)
         END IF
40    CONTINUE
      IF ( LMINUS ) STRNUM = STRNUM*(-1.0)
      RETURN
      END

Originally posted by snoopyzhao at 2009-4-27 20:48:
写了个从字符串转数字的函数，当然，只能处理特别简单的情形：

[code]
      REAL FUNCTION STRNUM(STR)
      IMPLICIT NONE
      CHARACTER STR*(*)
      INTEGER ISTART, IDIGIT, ISTR, I, J, N
    ...

Originally posted by coldwind042 at 2009-4-27 13:54:
这个最简单的做法是先用编辑程序如editplus等将所有的缺失项替换成一个很小的值，假设定义为alfa。然后在fortran中进行判断。如果一个数据的值等于alfa，则忽略该项
sum=0
num=0
for i=1,5
  if(aa(i)!=alfa) ...

Originally posted by maomao1210 at 2009-4-27 21:28:

想法确实不赖，不错有点复杂，直接利用write或者read语句就可以实现字符和数据的转化，嘿嘿。

Originally posted by yhwsmile at 2009-5-4 20:35:
程序已经调好了，谢谢各位虫友了，我使用了转换方法，弄了一个子程序先用字符串读入，后将缺测数据用一个无穷大的数据标记，然后在将字符串转换成数值型