[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

19990303: For what its worth, intaxs.f

Scott,

In intaxs.f......
For the case where nxlbl = 1, nskp should be initialized
line 463:

C*      Remove date elements which are duplicated in all the labels.
C
        nskp = 1                     <<------- added this initialization
        IF ( nxlbl .gt. 1 ) THEN
          IF  ( ctlbl (1) ( 1:2 ) .eq. ctlbl (nxlbl) ( 1:2 ) )  THEN
            IF  ( ctlbl (1) ( 3:4 ) .eq. ctlbl (nxlbl) ( 3:4 ) )  THEN
                IF  ( ctlbl (1) ( 5:6 ) .eq. ctlbl (nxlbl) ( 5:6 ) )
     +                                                              THEN
                    nskp = 7
                  ELSE
                    nskp = 5
                END IF
              ELSE
                nskp = 3
            END IF
          ELSE
            nskp = 1
          END IF
        END IF
C
        DO  i = 1, nxlbl
            ctlbl (i) = ctlbl (i) ( nskp: )
        END DO

                                     ^
                                     |
                                     |

Without initialization, nskp was some huge number on some platforms
(IRIX64 one of them), leading to crash if nxlbl was 1.

Steve Chiswell
Unidata User Support
address@hidden