!---------------------------------------------------------------------- ! パラメータの入力 ! ! [Input] ! ファイル "input.dat" !---------------------------------------------------------------------- subroutine input use mod_fem implicit none character(72) :: text write(*,*) write(*,*) '**** INPUT ****' open(10,file='input.dat') read(10,*) text,nx read(10,*) text,ny read(10,*) text,sizex read(10,*) text,sizey close(10) ! パラメータ確認 write(*,*) 'X-DIVISION=',nx write(*,*) 'Y-DIVISION=',ny write(*,*) 'SIZE X [m]=',sizex write(*,*) 'SIZE Y [m]=',sizey return end subroutine ! ! End of File !