!********************************************************************** ! 方形導波管のモード関数、カットオフ周波数 ! を有限要素法で計算するプログラム (Edge-based) ! By 平野拓一 ! ! 言語: FORTRAN90 ! コンパイル環境: DIGITAL Visual Fortran Version 6 !********************************************************************** !********************************************************************** ! メインプログラム !********************************************************************** program rectangular_waveguide implicit none open(1,file="test.txt") call input ! ファイルからパラメータを入力 call femmesh ! Make mesh data call femsysmat ! Make system matrix call eigsolv ! Solve eigenvalue problem call testmesh ! Check mesh data call testelemnum ! 要素番号確認 call testedgenum ! エッジ番号確認 call testnodenum ! ノード番号確認 call testfield(1) ! Draw field distribution call testshape ! 導波管断面形状の確認 close(1) stop end program ! ! End of File !