質問編集履歴
2
誤字修正しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -25,7 +25,7 @@
|
|
|
25
25
|
IMPLICIT NONE
|
|
26
26
|
REAL(4) :: TLON(31),TTID(31)
|
|
27
27
|
INTEGER(4) :: DD
|
|
28
|
-
CHARACTER(100) :: CDD
|
|
28
|
+
CHARACTER(100) :: CDD
|
|
29
29
|
DO DD=1,31
|
|
30
30
|
WRITE (CDD,'(i2.2)') DD
|
|
31
31
|
OPEN(51,FILE='/directory/201608'CDD'_Trough.bin', &
|
1
変数の誤字を修正しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -23,8 +23,8 @@
|
|
|
23
23
|
### 該当のソースコード
|
|
24
24
|
PROGRAM TROUGH
|
|
25
25
|
IMPLICIT NONE
|
|
26
|
-
REAL(4) :: TLON(
|
|
26
|
+
REAL(4) :: TLON(31),TTID(31)
|
|
27
|
-
INTEGER(4) ::
|
|
27
|
+
INTEGER(4) :: DD
|
|
28
28
|
CHARACTER(100) :: CDD, PROGRAM TROUGH
|
|
29
29
|
DO DD=1,31
|
|
30
30
|
WRITE (CDD,'(i2.2)') DD
|
|
@@ -34,7 +34,9 @@
|
|
|
34
34
|
WRITE(51,REC=IREC) TLON(DD)
|
|
35
35
|
|
|
36
36
|
ENDIF ! TTID
|
|
37
|
+
ENDDO ！DD
|
|
37
|
-
END
|
|
38
|
+
END PROGRAM TROUGH
|
|
39
|
+
|
|
38
40
|
|
|
39
41
|
|
|
40
42
|
|