Octopus
pulpo.F90
Go to the documentation of this file.
1!! Copyright (C) 2002-2006 M. Marques, A. Castro, A. Rubio, G. Bertsch
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
21module pulpo_oct_m
22 use debug_oct_m
23 use global_oct_m
24 use io_oct_m
25 use iso_c_binding
26 use loct_oct_m
28
29 implicit none
30
31 private
32 public :: pulpo_print
33
34contains
35
36 subroutine pulpo_print()
37
38 character(len=MAX_PATH_LEN) :: filename
39
40 push_sub(pulpo_print)
41
42 ! some white space
43 message(1) = ''
44 message(2) = ''
45 call messages_info(2)
46
47 call loct_print_recipe(conf%share, filename)
48 call io_dump_file(stdout, filename)
49 call messages_info(2)
50 call io_dump_file(stdout, trim(conf%share)//"/recipes/disclaimer.txt")
51 call messages_info(2)
52
53 pop_sub(pulpo_print)
54
55 end subroutine pulpo_print
56
57end module pulpo_oct_m
58
59!! Local Variables:
60!! mode: f90
61!! coding: utf-8
62!! End:
type(conf_t), public conf
Global instance of Octopus configuration.
Definition: global.F90:181
Definition: io.F90:116
subroutine, public io_dump_file(ounit, filename)
Definition: io.F90:490
subroutine, public loct_print_recipe(dir, filename)
Definition: loct.F90:220
character(len=256), dimension(max_lines), public message
to be output by fatal, warning
Definition: messages.F90:162
subroutine, public messages_info(no_lines, iunit, debug_only, stress, all_nodes, namespace)
Definition: messages.F90:594
subroutine, public pulpo_print()
Definition: pulpo.F90:132