수다 Chat

Fortran에서 배열(array)에서 중복되는 요소를 제거하는 루틴을 작성했다. 기존의 인터넷 상의 코드는 2개 이상의 중복되는 요소들에서 중복되는 것만 제거하는 방식이다. 기존 Fortran 코드:  Remove duplicate elements program remove_dups   implicit none   integer :: example(12)         ! The input   integer :: res(size(example))  ! The output   integer :: k                   ! The number of unique elements   integer :: i, j   example = [1, 2, 3, 2, 2, 4, 5, 5, 4, 6, 6, 5]   k = 1   res(1) = example(1)   outer: do i=2,size(example)      do j=1,k         if (res(j) == example(i)) then            ! Found a match so start looking again            cycle outer         end if      end do      ! No match found so add it to the output      k = k + 1    ...

CFD 유저들에게 소식이 있습니다. 나사가 개발한 CFL3D가 오픈소스로 전환되었습니다. 최근, openfoam 및 su2 등의 공개 소프트웨어의 약진으로 CFL3D의 개발진들이 위기감을 느낀 걸까요? 아님 정렬 격자 기반의 CFD 해석자의 입지가 좁아진 걸까요? 소스코드는 github에 올려져 있습니다. 다양한 tutorial은 CFL3D 홈페이지에 있습니다. 관심있으신 분들은 사용해보시기 바랍니다. 홈페이지: https://cfl3d.larc.nasa.gov/ GitHub: https://github.com/nasa/CFL3D

When using overset mesh, we can use Tecplot for post-processing. Use following setting to display hole cutting of overset mesh. Setting of value blanking of overset mesh in Tecplot Example of value blanking in Tecplot