Octopus
share_directory.F90
Go to the documentation of this file.
1!! Copyright (C) 2018 X. Andrade
2!!
3!! This program is free software; you can redistribute it and/or modify
4!! it under the terms of the GNU General Public License as published by
5!! the Free Software Foundation; either version 2, or (at your option)
6!! any later version.
7!!
8!! This program is distributed in the hope that it will be useful,
9!! but WITHOUT ANY WARRANTY; without even the implied warranty of
10!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11!! GNU General Public License for more details.
12!!
13!! You should have received a copy of the GNU General Public License
14!! along with this program; if not, write to the Free Software
15!! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
16!! 02110-1301, USA.
17!!
18
19#include "global.h"
20
22 use string_oct_m
23 implicit none
24
25 private
26 public :: &
28
29contains
30 subroutine share_directory_set(dir)
31 character(len=*), intent(in) :: dir
32 interface
33 subroutine share_directory_set_low(dir) bind(c,name="share_directory_set")
34 use iso_c_binding
35 implicit none
36
37 character(kind=c_char), intent(in) :: dir(*)
38 end subroutine share_directory_set_low
39 end interface
40 call share_directory_set_low(string_f_to_c(dir))
41 end subroutine share_directory_set
42
43end module share_directory_oct_m
44
45!! Local Variables:
46!! mode: f90
47!! coding: utf-8
48!! End:
subroutine, public share_directory_set(dir)
character(kind=c_char, len=1) function, dimension(:), allocatable, public string_f_to_c(f_string)
convert a Fortran string to a C string
Definition: string.F90:273