*** sfch_subr.f-pr2	2006-03-10 10:41:46.000000000 -0500
--- sfch_subr.f	2006-03-10 10:57:45.000000000 -0500
***************
*** 19406,19412 ****
  C ******
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*80
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
--- 19406,19412 ----
  C ******
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*256
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
***************
*** 19431,19437 ****
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.20) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
--- 19431,19437 ----
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.NWORDSMAX) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
***************
*** 19676,19682 ****
  C ******
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*80
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
--- 19676,19682 ----
  C ******
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*256
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
***************
*** 19701,19707 ****
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.20) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
--- 19701,19707 ----
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.NWORDSMAX) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
***************
*** 20062,20068 ****
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.20) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
--- 20062,20068 ----
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.NWORDSMAX) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
***************
*** 20127,20133 ****
  C ******
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*80
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
--- 20127,20133 ----
  C ******
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*256
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
***************
*** 20152,20158 ****
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.20) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
--- 20152,20158 ----
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.NWORDSMAX) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
***************
*** 20215,20221 ****
  C --------------------------------------------------------------
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*80
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
--- 20215,20221 ----
  C --------------------------------------------------------------
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*256
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
***************
*** 20240,20246 ****
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.20) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
--- 20240,20246 ----
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.NWORDSMAX) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
***************
*** 20428,20434 ****
                  IF(LEN_IN.GT.1) THEN
  c                  LINE=IN_STRING
                    LN=LEN_IN
!                   IF(LN.GT.78) LN=78
                    LINE(2:LN+1)=IN_STRING(1:LN)
                    LINE(1:1)  = ''''
                    IF(LINE(2:2).EQ.';') LINE(2:2)  =' '
--- 20428,20434 ----
                  IF(LEN_IN.GT.1) THEN
  c                  LINE=IN_STRING
                    LN=LEN_IN
!                   IF(LN.GT.256) LN=256
                    LINE(2:LN+1)=IN_STRING(1:LN)
                    LINE(1:1)  = ''''
                    IF(LINE(2:2).EQ.';') LINE(2:2)  =' '
***************
*** 20611,20617 ****
  C ******
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*80
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
--- 20611,20617 ----
  C ******
        REAL      FA
        INTEGER*4 NW,IS,IW,IAP,LEN,IP,IA
!       CHARACTER CH*1,CK*1,STR*256
  C --------------------------------------------------------------
        IFRD_ERR=0
        NWORDS=0
***************
*** 20636,20642 ****
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.20) THEN
                IFRD_ERR=1
                RETURN
              ENDIF
--- 20636,20642 ----
            IF(IS.EQ.0) THEN
              IS=1
              NW=NW+1
!             IF(NW.GT.NWORDSMAX) THEN
                IFRD_ERR=1
                RETURN
              ENDIF