format the write(6,*) so they do not have so much whitespace in them

flang pads the whitespace a lot...

Signed-off-by: Jeff Hammond <[email protected]>

src/property/waimfile.F

@@ -390,7 +390,7 @@ subroutine  waimfile(rtdb)
            call util_file_name('movecs', .false.,.false.,vec_file )
         endif
       endif
-           write(6,*)' using vec ',vec_file,'@@'
+      write(6,'(a11,a60,a2)')' using vec ',vec_file,'@@'
       call util_file_name_resolve(vec_file, .false.)
 c> movecs 
       if (.not. movecs_read_header(vec_file, title_vec, basis_name,
@@ -808,7 +808,7 @@ logical function waimfile_printwfn(filename,title,natoms,
       parameter (unitno = 38)
 
       waimfile_printwfn=.false.
-      write(6,*) '   Name of Final wnf-file  ', filename
+      write(6,'(a30,a60)') '   Name of Final wnf-file  ', filename
 cc
       open(unit=unitno, file=filename, status='unknown',
      &       form='formatted')