FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_control_f.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
5
7
9 use hecmw_util
10 implicit none
11
12contains
13
14 subroutine hecmw_ctrl_get_control_file(name_ID, filename)
15 character(len=HECMW_NAME_LEN) :: name_ID
16 character(len=HECMW_FILENAME_LEN) :: filename
17 integer(kind=kint) :: ierr
18
19 call hecmw_ctrl_get_control_file_if(name_id, filename, ierr)
20 if(ierr /= 0) call hecmw_abort(hecmw_comm_get_comm())
21 end subroutine hecmw_ctrl_get_control_file
22
23end module hecmw_control
24
void hecmw_ctrl_get_control_file_if(char *name_ID, char *buf, int *err, int name_len, int buf_len)
I/O and Utility.
subroutine hecmw_ctrl_get_control_file(name_id, filename)
I/O and Utility.
Definition: hecmw_util_f.F90:7
integer(kind=kint) function hecmw_comm_get_comm()
subroutine hecmw_abort(comm)