[CP2K:575] Remove computer name

[Teodoro Laino]

On 15 Jan 2008, at 16:15, Jack Shultz 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 don't understand why one should complain.. but well..

Take the file machine_<MY_COMPILER> and modify the subroutine named:  
m_hostnm..
you can comment the compiler call and give back just a white string.

teo
> 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
>
>
> >