[daip] very minor bug in WINDF.FOR

[Eric Greisen]

Olaf Wucknitz wrote:
> Hello,
> 
> sorry for bothering you with another nitpicking bug report. This one does 
> not cause harm and is easy to fix.
> 
> When MSGKILLing the lesser messages from IMAGR, I noticed that some 
> information from WINDF (reading BOXFIL) still gets through.
> 
> In WINDF.FOR there is starting at line 147 the following block:
> 
>          MSGTXT = 'WINDF: Number of clean boxes/field read as follows:'
>          CALL MSGWRT(7)
>          DO 80 J = 1,NFIELD,4
>             I1 = J
>             I2 = MIN (NFIELD, I1+3)
>             WRITE (MSGTXT,1070) ('Fld', I, NBOXES(I), I = I1,I2)
>             CALL MSGWRT (3)
>  80         CONTINUE
>          END IF
> 
> 
> Since these are merely informational messages, I assume that the priority 
> level should be 3 for all messages and not 7 for the heading.

Done - thanks.

I expect that there are lots of such errors - some programmers seemed to 
refuse to learn what the message levels meant.

Eric Greisen