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

Fixed typo

parent 65000f37
No related branches found
No related tags found
No related merge requests found
......@@ -164,6 +164,7 @@ if (.not.params%excl_vol) then
if (prod.lt.0.d0 .and. icut.eq.0) then
matel=params%materialn(i)
if (zmean.lt.mat(matel)%ztrans) matel=mat(matel)%transnum
matnum=matel
endif
enddo
else
......@@ -207,6 +208,7 @@ else
if (lsf(1,i).lt.0.d0) then
matel=params%materialn(i)
if (zmean.lt.mat(matel)%ztrans) matel=mat(matel)%transnum
matnum=matel
endif
enddo
endif
......
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