質問編集履歴
1
fortranのコードの一番最初の行のすぐ上に ```fortran だけの行を追加しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -36,7 +36,7 @@
|
|
36
36
|
|
37
37
|
### 該当のソースコード
|
38
38
|
|
39
|
-
|
39
|
+
```fortran
|
40
40
|
|
41
41
|
$ make
|
42
42
|
|
@@ -288,6 +288,8 @@
|
|
288
288
|
|
289
289
|
|
290
290
|
|
291
|
+
```
|
292
|
+
|
291
293
|
### 補足情報(FW/ツールのバージョンなど)
|
292
294
|
|
293
295
|
|
@@ -298,6 +300,8 @@
|
|
298
300
|
|
299
301
|
|
300
302
|
|
303
|
+
```fortran
|
304
|
+
|
301
305
|
MODULE input
|
302
306
|
|
303
307
|
|
@@ -381,3 +385,43 @@
|
|
381
385
|
INTEGER, SAVE :: item=0, nitems=0, loc(0:80)=0, end(80)=0, &
|
382
386
|
|
383
387
|
line(0:10)=0, level=0, input_error_flag=0, ir=5, last=0, unit(0:10)
|
388
|
+
|
389
|
+
|
390
|
+
|
391
|
+
CHARACTER(LEN=26), PARAMETER :: &
|
392
|
+
|
393
|
+
upper_case="ABCDEFGHIJKLMNOPQRSTUVWXYZ", &
|
394
|
+
|
395
|
+
lower_case="abcdefghijklmnopqrstuvwxyz"
|
396
|
+
|
397
|
+
CHARACTER, PARAMETER :: space = " ", bra = "(", ket = ")", &
|
398
|
+
|
399
|
+
comma = ",", squote = "'", dquote = '"', tab=achar(9), &
|
400
|
+
|
401
|
+
plus="+", minus="-", dot="."
|
402
|
+
|
403
|
+
|
404
|
+
|
405
|
+
CHARACTER(LEN=8), SAVE :: concat = "+++"
|
406
|
+
|
407
|
+
CHARACTER(LEN=40) :: file(10)="", error_file="error.msg"
|
408
|
+
|
409
|
+
|
410
|
+
|
411
|
+
INTEGER, SAVE :: lc=3
|
412
|
+
|
413
|
+
|
414
|
+
|
415
|
+
INTEGER, PARAMETER :: sp=kind(1.0), dp=kind(1d0)!, qp=selected_real_kind(30)
|
416
|
+
|
417
|
+
|
418
|
+
|
419
|
+
INTERFACE readf
|
420
|
+
|
421
|
+
MODULE PROCEDURE read_single, read_double, readv_double, read_quad
|
422
|
+
|
423
|
+
END INTERFACE readf
|
424
|
+
|
425
|
+
|
426
|
+
|
427
|
+
```
|