[daip] pad locations truncated

[Amy Mioduszewski]

Hi Mary,

I fixed it.  It made no sense to me but changing:

       PADNAM = STNNAM(CURANT)
       IF (PADNAM(:4).EQ.'VLA:') PADNAM = ' ' // STNNAM(CURANT)(5:7)
       IF (PADNAM(:5).EQ.'VLA: ') PADNAM = ' ' // STNNAM(CURANT)(6:8)
       IF (PADNAM(:5).EQ.'EVLA:') PADNAM = '*' // STNNAM(CURANT)(6:8)

to

       PADTST = STNNAM(CURANT)
       IF (PADTST(:4).EQ.'VLA:') PADNAM = ' ' // STNNAM(CURANT)(5:7)
       IF (PADTST(:5).EQ.'VLA: ') PADNAM = ' ' // STNNAM(CURANT)(6:8)
       IF (PADTST(:5).EQ.'EVLA:') PADNAM = '*' // STNNAM(CURANT)(6:8)

made PADNAM correct.  Some programming thing I don't understand no doubt.

Cheers,

Amy