<div>I got it!</div>
<div> </div>
<div>$ diff ../../src/environment.F ../../src/environment.F.bak<br>932c932<br><                FMT="(A,T55,A26,/,A,T51,A30,/,A,T71,I10)")&<br>---<br>>                FMT="(A,T55,A26,/,A,T51,A30,/,A,T51,A30,/,A,T71,I10)")&
<br>933a934<br>>           " ***** ** ***  *** **   PROGRAM RAN ON     ",ADJUSTR(host_name(1:30<br>)),&<br><br></div>
<div class="gmail_quote">On Jan 15, 2008 10:28 AM, Shawn T. Brown <<a href="mailto:shawn...@gmail.com">shawn...@gmail.com</a>> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">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 
<div class="Ih2E3d"><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></div>!          " ***** ** ***  *** **   PROGRAM RAN ON     ",ADJUSTR(host_name),& <br>!          " **    ****   ******    PROGRAM RAN BY     ",ADJUSTR(user_name),&<br>!          " ***** **    ** ** **   PROGRAM PROCESS ID ",pid 
<div class="Ih2E3d"><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></div>!<br>!        CALL m_flush(iw)<br>!      END IF 
<div>
<div></div>
<div class="Wj3C7c"><br><br><br>
<div class="gmail_quote">On Jan 15, 2008 10:15 AM, Jack Shultz <<a href="mailto:jackyg...@gmail.com" target="_blank">jackyg...@gmail.com</a>> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
<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><br></div></div>
<div>
<div></div>
<div class="Wj3C7c">