1 saw   1.1         SUBROUTINE clear_after_null(string) 
 2           *
 3           * $Log:$
 4                   IMPLICIT NONE 
 5                   CHARACTER*(*) string
 6                   CHARACTER*1024 line 
 7                   INTEGER i
 8                   CHARACTER*1 null
 9           
10           C		clear out the string after the first null character.
11                   null=char(0)   !null character.
12                   i= INDEX(string,null)                !2 blanks
13                   if (i.ne.0) string(i:)=' '
14           
15                   RETURN
16                   END