From d99e30c19adbaac00726ad77deca90b4cce078fa Mon Sep 17 00:00:00 2001 From: Dave Whipp <dwhipp@dal.ca> Date: Wed, 25 May 2011 19:21:37 +0000 Subject: [PATCH] Fixed typo --- src/read_input_file.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/read_input_file.f90 b/src/read_input_file.f90 index 7ecca4b7..a672aed9 100644 --- a/src/read_input_file.f90 +++ b/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 -- GitLab