Remove computer name

[Jack Shultz]

Hello,
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
but the program errored anyway.

      IF (iw>0 .AND. .NOT. failure) THEN
        WRITE (UNIT=iw,&
               FMT="(A,T55,A26,/,A,T51,A30,/,A,T51,A30,/,A,T71,I10)")&
          "  **** **** ******  **  PROGRAM ENDED AT   ",ADJUSTR(datx),&
          " ***** ** ***  *** **   PROGRAM RAN ON
",ADJUSTR(host_name(1:30))
,&
          " **    ****   ******    PROGRAM RAN BY
",ADJUSTR(user_name(1:30))
,&
          " ***** **    ** ** **   PROGRAM PROCESS ID ",pid
        WRITE (UNIT=iw,FMT="(A,T44,A37)")&
          "  **** **  *******  **  PROGRAM STARTED IN ",ADJUSTR(cwd(1:37))
        DO l=38,LEN_TRIM(cwd),37
          WRITE (UNIT=iw,FMT="(T44,A)") cwd(l:MIN(LEN_TRIM(cwd),l+36))
        END DO
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.cp2k.org/archives/cp2k-user/attachments/20080115/5834c57a/attachment.htm>