[CP2K:575] Remove computer name

[Shawn T. Brown]

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/4cf3d2f0/attachment.htm>