Fixed typo

src/read_input_file.f90

@@ -856,7 +856,7 @@ if (params%debug.gt.0 .and. iproc.eq.0) then
   write(*,'(a)')         shift//'Input file values: '
   write(*,'(a,i4)')    shift//'nstep ',params%nstep
   write(*,'(a,i4)')    shift//'material0 ',material0
-  write(*,'(a,e11.4)') shift//'bulkvisc ',params%bulkvisc
+  write(*,'(a,l1)')    shift//'bulkvisc ',params%bulkvisc
   write(*,'(a,l1)')    shift//'init_e2d ',params%init_e2d
   write(*,'(a,e11.4)') shift//'e2d0 ',params%e2d0
   do i=1,params%nmat
@@ -1026,7 +1026,7 @@ if (params%debug.gt.1) then
   write(threadinfo%Logunit,'(a)')         'Input file values: '
   write(threadinfo%Logunit,'(a32,i4)')    'nstep ',params%nstep
   write(threadinfo%Logunit,'(a32,i4)')    'material0 ',material0
-  write(threadinfo%Logunit,'(a32,e11.4)') 'bulkvisc ',params%bulkvisc
+  write(threadinfo%Logunit,'(a32,l1)')    'bulkvisc ',params%bulkvisc
   write(threadinfo%Logunit,'(a32,l1)')    'init_e2d ',params%init_e2d
   write(threadinfo%Logunit,'(a32,e11.4)') 'e2d0 ',params%e2d0
   do i=1,params%nmat