READ_SDOF_INPUT_FILES.f90

Go to the documentation of this file.

!    Copyright (C) 2012 The SPEED FOUNDATION
!    Author: Ilario Mazzieri
!
!    This file is part of SPEED.
!
!    SPEED is free software; you can redistribute it and/or modify it
!    under the terms of the GNU Affero General Public License as
!    published by the Free Software Foundation, either version 3 of the
!    License, or (at your option) any later version.
!
!    SPEED is distributed in the hope that it will be useful, but
!    WITHOUT ANY WARRANTY; without even the implied warranty of
!    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
!    Affero General Public License for more details.
!
!    You should have received a copy of the GNU Affero General Public License
!    along with SPEED.  If not, see <http://www.gnu.org/licenses/>.
 
 
subroutine read_sdof_input_files
 
  use speed_sci
  use speed_timeloop
  use speed_par, only : filename, sdof_file
 
  implicit none
  integer*4 :: unit_file
 
  ! Allocating some common variable which are needed for SPEEDSCI module
  allocate(gr_acc_rot(3), gr_intf(3))
 
  bldinfo_fp=701+mpi_id
 
  n_bld = 0
 
  if ((sdofnum.gt.0).and.(mpi_id.eq.0)) then
    
    ! Reading BLDINFO.txt file
    filename="BLDINFO.txt"
 
    if(len_trim(sdof_file) .ne. 70) then
      bldinfo = sdof_file(1:len_trim(sdof_file)) // '/' // filename
    else
      bldinfo = filename
    endif
 
    open(bldinfo_fp,file=bldinfo)
    read(bldinfo_fp,*) n_bld
    close(bldinfo_fp)
 
    allocate(sys(n_bld))  !!! SDOF system
    allocate(sdofag(n_bld,3),sdofgd(n_bld,3))
    sdofag = 0; sdofgd = 0;
    call make_sdof_system(bldinfo, deltat, mpi_id)
 
  endif
 
  return
end subroutine read_sdof_input_files