Fixed typos

src/read_input_file.f90

@@ -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