Functions/Subroutines
subroutine	read_sdof_input_files
	Reads inputs files with oscillator properties.

Function/Subroutine Documentation

◆ read_sdof_input_files()

subroutine read_sdof_input_files

Reads inputs files with oscillator properties.

Author: Aline Herlin

Date: November, 2020

Version: 1.0

Definition at line 24 of file READ_SDOF_INPUT_FILES.f90.

 
  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

References speed_sci::bldinfo, speed_sci::bldinfo_fp, speed_par::deltat, speed_par::filename, speed_sci::gr_acc_rot, speed_sci::gr_intf, make_sdof_system(), speed_par::mpi_id, speed_sci::n_bld, speed_par::sdof_file, speed_sci::sdofag, speed_sci::sdofgd, speed_sci::sdofnum, and speed_sci::sys.

Here is the call graph for this function:

Functions/Subroutines

Function/Subroutine Documentation

◆ read_sdof_input_files()