Read a full record (line) of arbitrary length as a string from the current position of the record-oriented and formatted file connected to the specified input unit. More...

Detailed Description

Read a full record (line) of arbitrary length as a string from the current position of the record-oriented and formatted file connected to the specified input unit.

Parameters

[in]	unit	: The input scalar `integer` of default kind IK representing the unit of the connected file to read the line from.
[in,out]	record	: The input/output `allocatable` scalar `character` of default kind SK that will contain the requested line in full. On input, The argument `record` can be preallocated to the best-guess length for the record to be read. Preallocating `record` to the right size can improve the runtime performance of the procedure. If the optional input argument `lb` is specified, any old contents `record(1 : lb - 1)` will remain intact on return. The argument `record` can be unallocated, in which case, it will be allocated to the proper size within the algorithm. On output, The argument `record` will potentially be resized to contain the full record from the specified unit. If the optional output argument `ub` is specified, then the output `record` will not be trimmed (i.e., reallocated) on return. Specifying `ub` will eliminate one redundant final reallocation and copy action, which can in return boost the runtime performance.
[out]	iostat	: The output scalar `integer` of default kind IK. If present and no error occurs, it is set to `0` on output. If present and an end-of-file condition occurs, it is set to `iostat_end` from Fortran intrinsic module `iso_fortran_env`. If present and an error occurs (e.g., if the input argument values are wrong or inconsistent), it is set to a positive non-zero value. If missing and an error occurs (including end-of-file condition), then the program halts by calling `error stop` followed by the relevant error message. (optional. It must be present if and only if the output argument `iomsg` is also present.)
[in,out]	iomsg	: The input/output scalar `character` of default kind SK containing the error message, if any error occurs. A length type parameter value of LEN_IOMSG is generally sufficient for `iomsg` to contain the output error messages. (optional. It must be present if and only if the output argument `iostat` is also present.)
[in]	lb	: The input scalar `integer` of default kind IK, containing the lower starting bound (index) of `record` from which the writing must begin. Specifying this argument will keep the segment `record(1 : lb - 1)` intact on return. This behavior is extremely useful for consecutively reading a series of lines of a `unit`. (optional, default = `1`)
[out]	ub	: The output scalar `integer` of default kind IK, containing the upper bound (index) of `record` up to which the record from the specified `unit` was read. Specifying this argument leads to faster runtime performance since it prevents an extra final reallocation and string copy. By definition, if the line in the file is empty, `ub` is set to `0`, unless `linefed` is set to `.true.`, in which case `ub` is the length of the linefeed character(s). (optional. If missing, `record` will be reallocated to size `record(1 : ub)`, otherwise, record will not be trimmed.)
[in]	linefed	: The input scalar `logical` of default kind LK. If `.true.`, then the output `record` will end with the new line character(s) as specified by the Fortran intrinsic `new_line("a")`. If `.false.`, then the output `record` will not end with the new line character(s). In either case, only one record will be read from the specified unit, but will or will not end with a new line character if `linefed` is `.true.` or `.false.` respectively. This behavior is extremely useful for, reading records from a CSV file potentially containing new line characters in its fields. consecutively reading a series of lines of a `unit` into a single string by repeated calls to this generic interface while preserving the linefeed characters as record separators. (optional, default = `.false.`)

Possible calling interfaces ⛓

: use pm_io, only: setRecordFrom

call setRecordFrom(unit, record, lb = lb, ub = ub, linefed = linefed)

call setRecordFrom(unit, record, iostat, iomsg, lb = lb, ub = ub, linefed = linefed)

pm_io::setRecordFrom
Read a full record (line) of arbitrary length as a string from the current position of the record-ori...
Definition: pm_io.F90:2114

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

Warning: The condition 0 < lb must hold for the corresponding input arguments. This condition is verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.

Remarks: Allowing the input record to be preallocated with intent(inout) particularly helps with minimizing the number of reallocations of record within the procedure.; Specifying the output argument ub particularly helps with the runtime performance by removing a redundant reallocation and data copy.

Note: This generic interface can be readily used to read a certain number or all of the lines of a specified unit.
For example, the following code snippet,

use iso_fortran_env, only: iostat_end

open(unit, file, status = "old")

lb = 1_IK

do

call setRecordFrom(unit, record, iostat, iomsg, lb, ub, linefed = .true._LK)

if (iostat /= iostat_end) exit

if (iostat /= 0_IK) error stop trim(iomsg)

lb = ub + 1_IK

end do

close(unit)

record = record(1:ub)

will store the entire contents of the specified file associated with unit in the allocatable string record, within which lines are separated by new_line("a") instances.; Note that setting linefed = .true. leads to each record being padded with a newline character, including the last line in the file.
As such, reading an entire file using the above code snippet will lead to a final output that an has extra final newline character compared to the output of getContentsFrom() or setContentsFrom().

See also: getRecordFrom
getContentsFrom
setContentsFrom
isPreconnected
getFileUnit

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_io, only: setRecordFrom

6

7 implicit none

8

9 integer(IK) :: ub

10 integer(IK) :: unit

11 integer(IK) :: iostat

12 character(255, SK) :: iomsg

13 character( :, SK), allocatable :: record

14

15 type(display_type) :: disp

16

17 disp = display_type(file = "main.out.F90")

18

19 call disp%skip

20 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

21 call disp%show("!Read the record-oriented (sequential access) `main.F90` file, line by line to the end.")

22 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

23 call disp%skip

24

25 iomsg = repeat(" ", len(iomsg))

26

27 open(newunit = unit, file = "main.F90", status = "old")

28

29 do

30 call disp%skip

31 call disp%show("call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)")

32 call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

33 if (iostat == 0_IK) then

34 call disp%show("record")

35 call disp%show( record , deliml = SK_"""" )

36 else

37 call disp%show("iostat")

38 call disp%show( iostat )

39 call disp%show("trim(adjustl(iomsg))")

40 call disp%show( trim(adjustl(iomsg)) , deliml = SK_"""" )

41 exit

42 end if

43 call disp%skip

44 end do

45

46 close(unit)

47

48 call disp%skip

49 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

50 call disp%show("!Read a record-oriented (sequential access) `main.F90` file, line by line to the end, faster without redundant reallocations and copies.")

51 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

52 call disp%skip

53

54 iomsg = repeat(" ", len(iomsg))

55

56 call disp%show('open(newunit = unit, file = "main.F90", status = "old")')

57 open(newunit = unit, file = "main.F90", status = "old")

58 do

59 call disp%skip

60 call disp%show("call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)")

61 call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

62 if (iostat == 0_IK) then

63 call disp%show("record(1:ub)")

64 call disp%show( record(1:ub) , deliml = SK_"""" )

65 else

66 call disp%show("iostat")

67 call disp%show( iostat )

68 call disp%show("trim(adjustl(iomsg))")

69 call disp%show( trim(adjustl(iomsg)) , deliml = SK_"""" )

70 exit

71 end if

72 call disp%skip

73 end do

74

75 close(unit)

76

77 call disp%skip

78 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

79 call disp%show("!Read a record-oriented (sequential access) `main.F90` file line by line to the end in a single string, each line separated by linefeed (see the end of contents for the source code).")

80 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

81 call disp%skip

82

83 block

84 use iso_fortran_env, only: iostat_end

85 use pm_arrayCenter, only: getCentered

86 integer(IK) :: lb, ub

87 open(newunit = unit, file = "main.F90", status = "old")

88 iomsg = repeat(" ", len(iomsg))

89 lb = 1_IK

90 do

91 call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, lb = lb, ub = ub, linefed = .true._LK)

92 if (iostat == 0_IK) then

93 lb = ub + 1_IK

94 cycle

95 elseif (iostat == iostat_end) then

96 exit

97 else

98 error stop SK_"Unknown IO error occurred: "//trim(iomsg)

99 end if

100 end do

101 call disp%show( getCentered(SK_" records ", size = 132_IK, fill = SK_"_") )

102 call disp%show( record(1:ub) )

103 call disp%show( getCentered(SK_" end of records ", size = 132_IK, fill = SK_"_") )

104 close(unit)

105 end block

106

107end program example

pm_arrayCenter::getCentered
Generate and return a resized and centered copy of the input array within the newly allocated arrayCe...
Definition: pm_arrayCenter.F90:169

pm_io::show
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11726

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508

pm_arrayCenter
This module contains procedures and generic interfaces for resizing an input array and centering the ...
Definition: pm_arrayCenter.F90:35

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example output ⛓
1

2!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

3!Read the record-oriented (sequential access) `main.F90` file, line by line to the end.

4!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

5

6

7call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

8record

9"program example"

10

11

12call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

13record

14""

15

16

17call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

18record

19" use pm_kind, only: SK, IK, LK"

20

21

22call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

23record

24" use pm_io, only: display_type"

25

26

27call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

28record

29" use pm_io, only: setRecordFrom"

30

31

32call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

33record

34""

35

36

37call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

38record

39" implicit none"

40

41

42call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

43record

44""

45

46

47call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

48record

49" integer(IK) :: ub"

50

51

52call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

53record

54" integer(IK) :: unit"

55

56

57call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

58record

59" integer(IK) :: iostat"

60

61

62call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

63record

64" character(255, SK) :: iomsg"

65

66

67call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

68record

69" character( :, SK), allocatable :: record"

70

71

72call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

73record

74""

75

76

77call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

78record

79" type(display_type) :: disp"

80

81

82call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

83record

84""

85

86

87call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

88record

89" disp = display_type(file = "main.out.F90")"

90

91

92call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

93record

94""

95

96

97call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

98record

99" call disp%skip"

100

101

102call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

103record

104" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

105

106

107call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

108record

109" call disp%show("!Read the record-oriented (sequential access) `main.F90` file, line by line to the end.")"

110

111

112call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

113record

114" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

115

116

117call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

118record

119" call disp%skip"

120

121

122call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

123record

124""

125

126

127call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

128record

129" iomsg = repeat(" ", len(iomsg))"

130

131

132call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

133record

134""

135

136

137call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

138record

139" open(newunit = unit, file = "main.F90", status = "old")"

140

141

142call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

143record

144""

145

146

147call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

148record

149" do"

150

151

152call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

153record

154" call disp%skip"

155

156

157call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

158record

159" call disp%show("call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)")"

160

161

162call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

163record

164" call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)"

165

166

167call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

168record

169" if (iostat == 0_IK) then"

170

171

172call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

173record

174" call disp%show("record")"

175

176

177call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

178record

179" call disp%show( record , deliml = SK_"""" )"

180

181

182call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

183record

184" else"

185

186

187call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

188record

189" call disp%show("iostat")"

190

191

192call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

193record

194" call disp%show( iostat )"

195

196

197call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

198record

199" call disp%show("trim(adjustl(iomsg))")"

200

201

202call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

203record

204" call disp%show( trim(adjustl(iomsg)) , deliml = SK_"""" )"

205

206

207call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

208record

209" exit"

210

211

212call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

213record

214" end if"

215

216

217call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

218record

219" call disp%skip"

220

221

222call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

223record

224" end do"

225

226

227call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

228record

229""

230

231

232call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

233record

234" close(unit)"

235

236

237call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

238record

239""

240

241

242call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

243record

244" call disp%skip"

245

246

247call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

248record

249" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

250

251

252call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

253record

254" call disp%show("!Read a record-oriented (sequential access) `main.F90` file, line by line to the end, faster without redundant reallocations and copies.")"

255

256

257call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

258record

259" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

260

261

262call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

263record

264" call disp%skip"

265

266

267call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

268record

269""

270

271

272call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

273record

274" iomsg = repeat(" ", len(iomsg))"

275

276

277call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

278record

279""

280

281

282call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

283record

284" call disp%show('open(newunit = unit, file = "main.F90", status = "old")')"

285

286

287call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

288record

289" open(newunit = unit, file = "main.F90", status = "old")"

290

291

292call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

293record

294" do"

295

296

297call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

298record

299" call disp%skip"

300

301

302call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

303record

304" call disp%show("call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)")"

305

306

307call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

308record

309" call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)"

310

311

312call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

313record

314" if (iostat == 0_IK) then"

315

316

317call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

318record

319" call disp%show("record(1:ub)")"

320

321

322call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

323record

324" call disp%show( record(1:ub) , deliml = SK_"""" )"

325

326

327call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

328record

329" else"

330

331

332call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

333record

334" call disp%show("iostat")"

335

336

337call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

338record

339" call disp%show( iostat )"

340

341

342call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

343record

344" call disp%show("trim(adjustl(iomsg))")"

345

346

347call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

348record

349" call disp%show( trim(adjustl(iomsg)) , deliml = SK_"""" )"

350

351

352call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

353record

354" exit"

355

356

357call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

358record

359" end if"

360

361

362call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

363record

364" call disp%skip"

365

366

367call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

368record

369" end do"

370

371

372call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

373record

374""

375

376

377call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

378record

379" close(unit)"

380

381

382call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

383record

384""

385

386

387call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

388record

389" call disp%skip"

390

391

392call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

393record

394" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

395

396

397call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

398record

399" call disp%show("!Read a record-oriented (sequential access) `main.F90` file line by line to the end in a single string, each line separated by linefeed (see the end of contents for the source code).")"

400

401

402call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

403record

404" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

405

406

407call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

408record

409" call disp%skip"

410

411

412call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

413record

414""

415

416

417call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

418record

419" block"

420

421

422call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

423record

424" use iso_fortran_env, only: iostat_end"

425

426

427call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

428record

429" use pm_arrayCenter, only: getCentered"

430

431

432call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

433record

434" integer(IK) :: lb, ub"

435

436

437call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

438record

439" open(newunit = unit, file = "main.F90", status = "old")"

440

441

442call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

443record

444" iomsg = repeat(" ", len(iomsg))"

445

446

447call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

448record

449" lb = 1_IK"

450

451

452call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

453record

454" do"

455

456

457call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

458record

459" call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, lb = lb, ub = ub, linefed = .true._LK)"

460

461

462call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

463record

464" if (iostat == 0_IK) then"

465

466

467call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

468record

469" lb = ub + 1_IK"

470

471

472call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

473record

474" cycle"

475

476

477call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

478record

479" elseif (iostat == iostat_end) then"

480

481

482call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

483record

484" exit"

485

486

487call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

488record

489" else"

490

491

492call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

493record

494" error stop SK_"Unknown IO error occurred: "//trim(iomsg)"

495

496

497call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

498record

499" end if"

500

501

502call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

503record

504" end do"

505

506

507call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

508record

509" call disp%show( getCentered(SK_" records ", size = 132_IK, fill = SK_"_") )"

510

511

512call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

513record

514" call disp%show( record(1:ub) )"

515

516

517call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

518record

519" call disp%show( getCentered(SK_" end of records ", size = 132_IK, fill = SK_"_") )"

520

521

522call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

523record

524" close(unit)"

525

526

527call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

528record

529" end block"

530

531

532call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

533record

534""

535

536

537call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

538record

539"end program example"

540

541

542call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

543iostat

544-1

545trim(adjustl(iomsg))

546"End of file"

547

548!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

549!Read a record-oriented (sequential access) `main.F90` file, line by line to the end, faster without redundant reallocations and copies.

550!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

551

552open(newunit = unit, file = "main.F90", status = "old")

553

554call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

555record(1:ub)

556"program example"

557

558

559call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

560record(1:ub)

561""

562

563

564call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

565record(1:ub)

566" use pm_kind, only: SK, IK, LK"

567

568

569call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

570record(1:ub)

571" use pm_io, only: display_type"

572

573

574call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

575record(1:ub)

576" use pm_io, only: setRecordFrom"

577

578

579call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

580record(1:ub)

581""

582

583

584call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

585record(1:ub)

586" implicit none"

587

588

589call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

590record(1:ub)

591""

592

593

594call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

595record(1:ub)

596" integer(IK) :: ub"

597

598

599call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

600record(1:ub)

601" integer(IK) :: unit"

602

603

604call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

605record(1:ub)

606" integer(IK) :: iostat"

607

608

609call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

610record(1:ub)

611" character(255, SK) :: iomsg"

612

613

614call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

615record(1:ub)

616" character( :, SK), allocatable :: record"

617

618

619call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

620record(1:ub)

621""

622

623

624call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

625record(1:ub)

626" type(display_type) :: disp"

627

628

629call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

630record(1:ub)

631""

632

633

634call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

635record(1:ub)

636" disp = display_type(file = "main.out.F90")"

637

638

639call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

640record(1:ub)

641""

642

643

644call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

645record(1:ub)

646" call disp%skip"

647

648

649call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

650record(1:ub)

651" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

652

653

654call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

655record(1:ub)

656" call disp%show("!Read the record-oriented (sequential access) `main.F90` file, line by line to the end.")"

657

658

659call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

660record(1:ub)

661" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

662

663

664call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

665record(1:ub)

666" call disp%skip"

667

668

669call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

670record(1:ub)

671""

672

673

674call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

675record(1:ub)

676" iomsg = repeat(" ", len(iomsg))"

677

678

679call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

680record(1:ub)

681""

682

683

684call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

685record(1:ub)

686" open(newunit = unit, file = "main.F90", status = "old")"

687

688

689call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

690record(1:ub)

691""

692

693

694call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

695record(1:ub)

696" do"

697

698

699call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

700record(1:ub)

701" call disp%skip"

702

703

704call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

705record(1:ub)

706" call disp%show("call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)")"

707

708

709call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

710record(1:ub)

711" call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)"

712

713

714call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

715record(1:ub)

716" if (iostat == 0_IK) then"

717

718

719call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

720record(1:ub)

721" call disp%show("record")"

722

723

724call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

725record(1:ub)

726" call disp%show( record , deliml = SK_"""" )"

727

728

729call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

730record(1:ub)

731" else"

732

733

734call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

735record(1:ub)

736" call disp%show("iostat")"

737

738

739call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

740record(1:ub)

741" call disp%show( iostat )"

742

743

744call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

745record(1:ub)

746" call disp%show("trim(adjustl(iomsg))")"

747

748

749call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

750record(1:ub)

751" call disp%show( trim(adjustl(iomsg)) , deliml = SK_"""" )"

752

753

754call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

755record(1:ub)

756" exit"

757

758

759call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

760record(1:ub)

761" end if"

762

763

764call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

765record(1:ub)

766" call disp%skip"

767

768

769call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

770record(1:ub)

771" end do"

772

773

774call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

775record(1:ub)

776""

777

778

779call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

780record(1:ub)

781" close(unit)"

782

783

784call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

785record(1:ub)

786""

787

788

789call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

790record(1:ub)

791" call disp%skip"

792

793

794call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

795record(1:ub)

796" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

797

798

799call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

800record(1:ub)

801" call disp%show("!Read a record-oriented (sequential access) `main.F90` file, line by line to the end, faster without redundant reallocations and copies.")"

802

803

804call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

805record(1:ub)

806" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

807

808

809call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

810record(1:ub)

811" call disp%skip"

812

813

814call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

815record(1:ub)

816""

817

818

819call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

820record(1:ub)

821" iomsg = repeat(" ", len(iomsg))"

822

823

824call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

825record(1:ub)

826""

827

828

829call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

830record(1:ub)

831" call disp%show('open(newunit = unit, file = "main.F90", status = "old")')"

832

833

834call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

835record(1:ub)

836" open(newunit = unit, file = "main.F90", status = "old")"

837

838

839call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

840record(1:ub)

841" do"

842

843

844call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

845record(1:ub)

846" call disp%skip"

847

848

849call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

850record(1:ub)

851" call disp%show("call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)")"

852

853

854call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

855record(1:ub)

856" call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)"

857

858

859call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

860record(1:ub)

861" if (iostat == 0_IK) then"

862

863

864call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

865record(1:ub)

866" call disp%show("record(1:ub)")"

867

868

869call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

870record(1:ub)

871" call disp%show( record(1:ub) , deliml = SK_"""" )"

872

873

874call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

875record(1:ub)

876" else"

877

878

879call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

880record(1:ub)

881" call disp%show("iostat")"

882

883

884call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

885record(1:ub)

886" call disp%show( iostat )"

887

888

889call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

890record(1:ub)

891" call disp%show("trim(adjustl(iomsg))")"

892

893

894call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

895record(1:ub)

896" call disp%show( trim(adjustl(iomsg)) , deliml = SK_"""" )"

897

898

899call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

900record(1:ub)

901" exit"

902

903

904call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

905record(1:ub)

906" end if"

907

908

909call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

910record(1:ub)

911" call disp%skip"

912

913

914call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

915record(1:ub)

916" end do"

917

918

919call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

920record(1:ub)

921""

922

923

924call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

925record(1:ub)

926" close(unit)"

927

928

929call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

930record(1:ub)

931""

932

933

934call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

935record(1:ub)

936" call disp%skip"

937

938

939call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

940record(1:ub)

941" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

942

943

944call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

945record(1:ub)

946" call disp%show("!Read a record-oriented (sequential access) `main.F90` file line by line to the end in a single string, each line separated by linefeed (see the end of contents for the source code).")"

947

948

949call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

950record(1:ub)

951" call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")"

952

953

954call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

955record(1:ub)

956" call disp%skip"

957

958

959call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

960record(1:ub)

961""

962

963

964call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

965record(1:ub)

966" block"

967

968

969call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

970record(1:ub)

971" use iso_fortran_env, only: iostat_end"

972

973

974call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

975record(1:ub)

976" use pm_arrayCenter, only: getCentered"

977

978

979call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

980record(1:ub)

981" integer(IK) :: lb, ub"

982

983

984call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

985record(1:ub)

986" open(newunit = unit, file = "main.F90", status = "old")"

987

988

989call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

990record(1:ub)

991" iomsg = repeat(" ", len(iomsg))"

992

993

994call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

995record(1:ub)

996" lb = 1_IK"

997

998

999call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1000record(1:ub)

1001" do"

1002

1003

1004call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1005record(1:ub)

1006" call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, lb = lb, ub = ub, linefed = .true._LK)"

1007

1008

1009call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1010record(1:ub)

1011" if (iostat == 0_IK) then"

1012

1013

1014call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1015record(1:ub)

1016" lb = ub + 1_IK"

1017

1018

1019call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1020record(1:ub)

1021" cycle"

1022

1023

1024call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1025record(1:ub)

1026" elseif (iostat == iostat_end) then"

1027

1028

1029call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1030record(1:ub)

1031" exit"

1032

1033

1034call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1035record(1:ub)

1036" else"

1037

1038

1039call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1040record(1:ub)

1041" error stop SK_"Unknown IO error occurred: "//trim(iomsg)"

1042

1043

1044call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1045record(1:ub)

1046" end if"

1047

1048

1049call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1050record(1:ub)

1051" end do"

1052

1053

1054call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1055record(1:ub)

1056" call disp%show( getCentered(SK_" records ", size = 132_IK, fill = SK_"_") )"

1057

1058

1059call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1060record(1:ub)

1061" call disp%show( record(1:ub) )"

1062

1063

1064call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1065record(1:ub)

1066" call disp%show( getCentered(SK_" end of records ", size = 132_IK, fill = SK_"_") )"

1067

1068

1069call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1070record(1:ub)

1071" close(unit)"

1072

1073

1074call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1075record(1:ub)

1076" end block"

1077

1078

1079call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1080record(1:ub)

1081""

1082

1083

1084call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1085record(1:ub)

1086"end program example"

1087

1088

1089call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1090iostat

1091-1

1092trim(adjustl(iomsg))

1093"End of file"

1094

1095!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

1096!Read a record-oriented (sequential access) `main.F90` file line by line to the end in a single string, each line separated by linefeed (see the end of contents for the source code).

1097!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

1098

1099_____________________________________________________________ records ______________________________________________________________

1100program example

1101

1102 use pm_kind, only: SK, IK, LK

1103 use pm_io, only: display_type

1104 use pm_io, only: setRecordFrom

1105

1106 implicit none

1107

1108 integer(IK) :: ub

1109 integer(IK) :: unit

1110 integer(IK) :: iostat

1111 character(255, SK) :: iomsg

1112 character( :, SK), allocatable :: record

1113

1114 type(display_type) :: disp

1115

1116 disp = display_type(file = "main.out.F90")

1117

1118 call disp%skip

1119 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

1120 call disp%show("!Read the record-oriented (sequential access) `main.F90` file, line by line to the end.")

1121 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

1122 call disp%skip

1123

1124 iomsg = repeat(" ", len(iomsg))

1125

1126 open(newunit = unit, file = "main.F90", status = "old")

1127

1128 do

1129 call disp%skip

1130 call disp%show("call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)")

1131 call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg)

1132 if (iostat == 0_IK) then

1133 call disp%show("record")

1134 call disp%show( record , deliml = SK_"""" )

1135 else

1136 call disp%show("iostat")

1137 call disp%show( iostat )

1138 call disp%show("trim(adjustl(iomsg))")

1139 call disp%show( trim(adjustl(iomsg)) , deliml = SK_"""" )

1140 exit

1141 end if

1142 call disp%skip

1143 end do

1144

1145 close(unit)

1146

1147 call disp%skip

1148 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

1149 call disp%show("!Read a record-oriented (sequential access) `main.F90` file, line by line to the end, faster without redundant reallocations and copies.")

1150 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

1151 call disp%skip

1152

1153 iomsg = repeat(" ", len(iomsg))

1154

1155 call disp%show('open(newunit = unit, file = "main.F90", status = "old")')

1156 open(newunit = unit, file = "main.F90", status = "old")

1157 do

1158 call disp%skip

1159 call disp%show("call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)")

1160 call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, ub = ub)

1161 if (iostat == 0_IK) then

1162 call disp%show("record(1:ub)")

1163 call disp%show( record(1:ub) , deliml = SK_"""" )

1164 else

1165 call disp%show("iostat")

1166 call disp%show( iostat )

1167 call disp%show("trim(adjustl(iomsg))")

1168 call disp%show( trim(adjustl(iomsg)) , deliml = SK_"""" )

1169 exit

1170 end if

1171 call disp%skip

1172 end do

1173

1174 close(unit)

1175

1176 call disp%skip

1177 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

1178 call disp%show("!Read a record-oriented (sequential access) `main.F90` file line by line to the end in a single string, each line separated by linefeed (see the end of contents for the source code).")

1179 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")

1180 call disp%skip

1181

1182 block

1183 use iso_fortran_env, only: iostat_end

1184 use pm_arrayCenter, only: getCentered

1185 integer(IK) :: lb, ub

1186 open(newunit = unit, file = "main.F90", status = "old")

1187 iomsg = repeat(" ", len(iomsg))

1188 lb = 1_IK

1189 do

1190 call setRecordFrom(unit, record, iostat = iostat, iomsg = iomsg, lb = lb, ub = ub, linefed = .true._LK)

1191 if (iostat == 0_IK) then

1192 lb = ub + 1_IK

1193 cycle

1194 elseif (iostat == iostat_end) then

1195 exit

1196 else

1197 error stop SK_"Unknown IO error occurred: "//trim(iomsg)

1198 end if

1199 end do

1200 call disp%show( getCentered(SK_" records ", size = 132_IK, fill = SK_"_") )

1201 call disp%show( record(1:ub) )

1202 call disp%show( getCentered(SK_" end of records ", size = 132_IK, fill = SK_"_") )

1203 close(unit)

1204 end block

1205

1206end program example

1207

1208__________________________________________________________ end of records __________________________________________________________

1209

main
program main
This is main entry to the tests of the ParaMonte kernel library.
Definition: main.F90:27

Test:: test_pm_io

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright: Computational Data Science Lab

Author:: Amir Shahmoradi, Tuesday March 7, 2017, 3:50 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin

Definition at line 2114 of file pm_io.F90.

The documentation for this interface was generated from the following file:

src/fortran/main/pm_io.F90