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
21
module
share_directory_oct_m
22
use
string_oct_m
23
implicit none
24
25
private
26
public
:: &
27
share_directory_set
28
29
contains
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
43
end module
share_directory_oct_m
44
45
!! Local Variables:
46
!! mode: f90
47
!! coding: utf-8
48
!! End:
share_directory_oct_m
Definition:
share_directory.F90:116
share_directory_oct_m::share_directory_set
subroutine, public share_directory_set(dir)
Definition:
share_directory.F90:126
string_oct_m
Definition:
string.F90:116
string_oct_m::string_f_to_c
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
species
share_directory.F90
Generated on Wed Sep 17 2025 20:11:37 for Octopus by
1.9.4