[CP2K:577] Re: Remove computer name

[Jack Shultz]

I got it!

$ diff ../../src/environment.F ../../src/environment.F.bak
932c932
<                FMT="(A,T55,A26,/,A,T51,A30,/,A,T71,I10)")&
---
>                FMT="(A,T55,A26,/,A,T51,A30,/,A,T51,A30,/,A,T71,I10)")&
933a934
>           " ***** ** ***  *** **   PROGRAM RAN ON
",ADJUSTR(host_name(1:30
)),&

On Jan 15, 2008 10:28 AM, Shawn T. Brown <shawn... at gmail.com> wrote:

> 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:
>
> !     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),&
> !          " **    ****   ******    PROGRAM RAN BY
> ",ADJUSTR(user_name),&
> !          " ***** **    ** ** **   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
> !
> !        CALL m_flush(iw)
> !      END IF
>
>
>
> On Jan 15, 2008 10:15 AM, Jack Shultz <jackyg... at gmail.com> wrote:
>
> > 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/afb10f8c/attachment.htm>