50 type(c_ptr),
intent(inout) :: out
56 type(c_ptr),
intent(inout) :: out
62 type(c_ptr),
intent(inout) :: out
71 type(c_ptr),
intent(inout) :: out
78 type(c_ptr),
intent(inout) :: out
79 integer,
intent(in) :: iter
85 type(c_ptr),
intent(inout) :: out
91 type(c_ptr),
intent(inout) :: out
96 subroutine write_iter_double_1(out, d, n)
99 type(c_ptr),
intent(inout) :: out
100 integer,
intent(in) :: n
101 real(c_double),
intent(in) :: d
102 end subroutine write_iter_double_1
104 subroutine write_iter_double_n(out, d, n)
107 type(c_ptr),
intent(inout) :: out
108 integer,
intent(in) :: n
109 real(c_double),
intent(in) :: d(n)
110 end subroutine write_iter_double_n
114 subroutine write_iter_int_1(out, i, n)
117 type(c_ptr),
intent(inout) :: out
118 integer,
intent(in) :: n
119 integer,
intent(in) :: i
120 end subroutine write_iter_int_1
122 subroutine write_iter_int_n(out, i, n)
125 type(c_ptr),
intent(inout) :: out
126 integer,
intent(in) :: n
127 integer,
intent(in) :: i(n)
128 end subroutine write_iter_int_n
134 type(c_ptr),
intent(inout) :: out
135 integer,
intent(in) :: iter
136 real(c_double),
intent(in) :: factor
137 character(len=*),
intent(in) :: file
139 interface write_iter_init_low
140 subroutine write_iter_init_low(out, iter, factor, file)
bind(c, name="write_iter_init")
143 type(c_ptr),
intent(inout) :: out
144 integer,
intent(in) :: iter
145 real(c_double),
intent(in) :: factor
146 character(kind=c_char),
intent(in) :: file(*)
147 end subroutine write_iter_init_low
148 end interface write_iter_init_low
150 call write_iter_init_low(out, iter, factor,
string_f_to_c(file))
154 type(c_ptr),
intent(inout) :: out
155 character(len=*),
intent(in) :: string
157 interface write_iter_header_low
158 subroutine write_iter_header_low(out, string) bind(c,name='write_iter_header')
161 type(c_ptr),
intent(inout) :: out
162 character(kind=c_char),
intent(in) :: string(*)
163 end subroutine write_iter_header_low
164 end interface write_iter_header_low
170 type(c_ptr),
intent(inout) :: out
171 character(len=*),
intent(in) :: string
173 interface write_iter_string_low
174 subroutine write_iter_string_low(out, string) bind(c, name='write_iter_string')
177 type(c_ptr),
intent(inout) :: out
178 character(kind=c_char),
intent(in) :: string(*)
179 end subroutine write_iter_string_low
180 end interface write_iter_string_low
Sets the iteration number to the C object.
Writes to the corresponding file and adds one to the iteration. Must be called after write_iter_init(...
character(kind=c_char, len=1) function, dimension(:), allocatable, public string_f_to_c(f_string)
convert a Fortran string to a C string
Explicit interfaces to C functions, defined in write_iter_low.cc.
subroutine, public write_iter_header(out, string)
subroutine, public write_iter_string(out, string)
subroutine, public write_iter_init(out, iter, factor, file)