Skip to content
Snippets Groups Projects
Commit b24aeff7 authored by Dave Whipp's avatar Dave Whipp
Browse files

Fixed typos

parent e8e45301
No related branches found
No related tags found
No related merge requests found
......@@ -196,7 +196,7 @@ params%pressure0=0.d0
if (iproc==0) call scanfile (params%infile,'pressure0',params%pressure0,ires)
call mpi_bcast(params%pressure0,1,mpi_double_precision,0,mpi_comm_world,ierr)
dommat=-1
params%dommat=-1
if (iproc==0) call scanfile (params%infile,'dommat',params%dommat,ires)
call mpi_bcast(params%dommat,1,mpi_integer,0,mpi_comm_world,ierr)
......@@ -269,14 +269,14 @@ do i=0,params%nmat
call mpi_bcast(mat(i)%mattrans,6,mpi_double_precision,0,mpi_comm_world,ierr)
mat(i)%transnum=i
if (proc==0) then
if (iproc==0) then
call scanfile (params%infile,'transnum_xmin'//cm(il:3),mat(i)%transnum(1),ires)
call scanfile (params%infile,'transnum_xmax'//cm(il:3),mat(i)%transnum(2),ires)
call scanfile (params%infile,'transnum_ymin'//cm(il:3),mat(i)%transnum(3),ires)
call scanfile (params%infile,'transnum_ymax'//cm(il:3),mat(i)%transnum(4),ires)
call scanfile (params%infile,'transnum_zmin'//cm(il:3),mat(i)%transnum(5),ires)
call scanfile (params%infile,'transnum_zmax'//cm(il:3),mat(i)%transnum(6),ires)
if (maxval(mat(i)%transnum.gt.params%nmat) call stop_run ('Error: transnum value is greater than nmat in read_input_file$')
if (maxval(mat(i)%transnum).gt.params%nmat) call stop_run ('Error: transnum value is greater than nmat in read_input_file$')
endif
call mpi_bcast(mat(i)%transnum,6,mpi_integer,0,mpi_comm_world,ierr)
enddo
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment