Removing this line should not give an error, you need to make sure that you are deleting all the way to the ENDIF.  To be safe, you should probably just comment out rather than remove.  Should look like this:<br><br>!     IF (iw>0 .AND. .NOT. failure) THEN
<br>!        WRITE (UNIT=iw,&<br>!               FMT="(A,T55,A26,/,A,T51,A30,/,A,T51,A30,/,A,T71,I10)")&<br>!          "  **** **** ******  **  PROGRAM ENDED AT   ",ADJUSTR(datx),&<br>!          " ***** ** ***  *** **   PROGRAM RAN ON     ",ADJUSTR(host_name),&
<br>!          " **    ****   ******    PROGRAM RAN BY     ",ADJUSTR(user_name),&<br>!          " ***** **    ** ** **   PROGRAM PROCESS ID ",pid<br>!        WRITE (UNIT=iw,FMT="(A,T44,A37)")&
<br>!          "  **** **  *******  **  PROGRAM STARTED IN ",ADJUSTR(cwd(1:37))<br>!        DO l=38,LEN_TRIM(cwd),37<br>!          WRITE (UNIT=iw,FMT="(T44,A)") cwd(l:MIN(LEN_TRIM(cwd),l+36))<br>!        END DO
<br>!<br>!        CALL m_flush(iw)<br>!      END IF<br><br><br><div class="gmail_quote">On Jan 15, 2008 10:15 AM, Jack Shultz <<a href="mailto:jackyg...@gmail.com">jackyg...@gmail.com</a>> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>Hello,</div>
<div>Wish I was a Fortran expert. I'm only trying to figure out how to remove the output with the host_name. My project volunteers complain when an application outputs thier computer name in our results. I tried removing that line in 
environment.F 934</div>
<div>but the program errored anyway. </div>
<div> </div>
<div>      IF (iw>0 .AND. .NOT. failure) THEN<br>        WRITE (UNIT=iw,&<br>               FMT="(A,T55,A26,/,A,T51,A30,/,A,T51,A30,/,A,T71,I10)")&<br>          "  **** **** ******  **  PROGRAM ENDED AT   ",ADJUSTR(datx),&
<br>          " ***** ** ***  *** **   PROGRAM RAN ON     ",ADJUSTR(host_name(1:30))<br>,&</div>
<div>          " **    ****   ******    PROGRAM RAN BY     ",ADJUSTR(user_name(1:30))<br>,&<br>          " ***** **    ** ** **   PROGRAM PROCESS ID ",pid<br>        WRITE (UNIT=iw,FMT="(A,T44,A37)")&
<br>          "  **** **  *******  **  PROGRAM STARTED IN ",ADJUSTR(cwd(1:37))<br>        DO l=38,LEN_TRIM(cwd),37<br>          WRITE (UNIT=iw,FMT="(T44,A)") cwd(l:MIN(LEN_TRIM(cwd),l+36))<br>        END DO
</div>
<div> </div><br>
<br>
</blockquote></div><br>