FEDEM Solver
R8.0
Source code of the dynamics solver
|
Module with support for prescribed motions from file. More...
Functions/Subroutines | |
subroutine | openmotionfile (fileName, pdNodes, ncmp, ierr) |
Opens the binary file with prescribed nodal displacements. More... | |
subroutine | readmotionfile (ierr, lpu) |
Reads prescribed displacements for next time step from binary file. More... | |
Variables | |
integer, save | pdisfile = -11111 |
File handle for prescribed motion file. More... | |
real(dp), save | nexttime = 0.0_dp |
Time for next update from file. More... | |
real(dp), dimension(:), allocatable, save | pdispl |
Prescribed displacements from file. More... | |
Module with support for prescribed motions from file.
This module contains an array with prescribed displacement values which are read from a binary file. Subroutines for opening and reading this file is also provided.
subroutine prescribedmotionmodule::openmotionfile | ( | character(len=*), intent(in) | fileName, |
integer, dimension(:), intent(out), pointer | pdNodes, | ||
integer, intent(out) | ncmp, | ||
integer, intent(out) | ierr | ||
) |
Opens the binary file with prescribed nodal displacements.
[in] | fileName | Name of binary file with prescribed displacements |
[out] | pdNodes | Node numbers for points with prescribed displacements |
[out] | ncmp | Number of displacement components per node on file |
[out] | ierr | Error flag |
subroutine prescribedmotionmodule::readmotionfile | ( | integer, intent(out) | ierr, |
integer, intent(in), optional | lpu | ||
) |
Reads prescribed displacements for next time step from binary file.
[out] | ierr | Error flag |
[in] | lpu | File unit number for debug output of motions from file |
real(dp), save prescribedmotionmodule::nexttime = 0.0_dp |
Time for next update from file.
integer, save prescribedmotionmodule::pdisfile = -11111 |
File handle for prescribed motion file.
real(dp), dimension(:), allocatable, save prescribedmotionmodule::pdispl |
Prescribed displacements from file.