質問編集履歴
2
引数修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -94,7 +94,7 @@
|
|
94
94
|
|
95
95
|
public static void INPUT(int NEX,int NIN
|
96
96
|
|
97
|
-
,int[] IBEX,int []IBIN,int [][]IBNO,int NOB,int NIB,double[] PX,double []PY,int KBD,int KTJ
|
97
|
+
,int[] IBEX,int []IBIN,int [][]IBNO,int NOB,int NIB,double[] PX,double []PY,int KBD,int KTJ) {
|
98
98
|
|
99
99
|
|
100
100
|
|
1
ソースコード追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,30 +1,44 @@
|
|
1
1
|
write文のファイルへの書き込み定義
|
2
2
|
|
3
|
-
|
3
|
+
write文、read文、CHARACTER文、open文等の書き換えがわからないです。
|
4
|
-
|
5
|
-
fw.write(" ")まではわかります
|
6
4
|
|
7
5
|
|
8
6
|
|
9
|
-
|
7
|
+
質問の修正を行ないました。
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
|
10
12
|
|
11
13
|
---
|
12
14
|
|
13
|
-
```
|
15
|
+
```FORTRAN
|
14
16
|
|
15
|
-
|
17
|
+
SUBROUTINE INPUT(NEX,NIN,IBEX,IBIN,IBNO,NOB,NIB,PX,PY,
|
16
18
|
|
17
|
-
|
19
|
+
& KBD,KTJ)
|
18
20
|
|
19
|
-
|
21
|
+
IMPLICIT REAL*8(A-H,O-Z)
|
20
22
|
|
21
|
-
|
23
|
+
DIMENSION IBEX(KBD),IBIN(KBD),IBNO(KBD,KTJ),PX(KTJ+3)
|
22
24
|
|
23
|
-
|
25
|
+
DIMENSION PY(KTJ+3)
|
24
26
|
|
25
|
-
|
27
|
+
CHARACTER FNAME*10
|
26
28
|
|
29
|
+
C
|
30
|
+
|
31
|
+
WRITE(*,600)
|
32
|
+
|
33
|
+
600 FORMAT(' INPUT FILE NAME = ? ')
|
34
|
+
|
35
|
+
READ(*,500)FNAME
|
36
|
+
|
37
|
+
500 FORMAT(A10)
|
38
|
+
|
39
|
+
OPEN(8,FILE=FNAME)
|
40
|
+
|
27
|
-
READ(8,510)NEX,NIN
|
41
|
+
READ(8,510)NEX,NIN
|
28
42
|
|
29
43
|
IF(NEX.NE.0)THEN
|
30
44
|
|
@@ -32,6 +46,90 @@
|
|
32
46
|
|
33
47
|
END IF
|
34
48
|
|
49
|
+
IF(NIN.NE.0)THEN
|
50
|
+
|
51
|
+
READ(8,510)(IBIN(I),I=1,NIN)
|
52
|
+
|
53
|
+
ELSE
|
54
|
+
|
55
|
+
READ(8,510)IBIN(1)
|
56
|
+
|
57
|
+
END IF
|
58
|
+
|
59
|
+
DO 10 I=1,NEX
|
60
|
+
|
61
|
+
READ(8,510)(IBNO(I,J),J=1,IBEX(I))
|
62
|
+
|
63
|
+
10 CONTINUE
|
64
|
+
|
65
|
+
READ(8,510)NOB,NIB
|
66
|
+
|
67
|
+
READ(8,520)(PX(I),PY(I),I=1,NOB+NIB)
|
68
|
+
|
69
|
+
510 FORMAT(10I5)
|
70
|
+
|
71
|
+
520 FORMAT(2E15.7)
|
72
|
+
|
73
|
+
CLOSE(8)
|
74
|
+
|
75
|
+
RETURN
|
76
|
+
|
77
|
+
END
|
78
|
+
|
35
79
|
```
|
36
80
|
|
81
|
+
```java
|
82
|
+
|
83
|
+
import java.io.*;
|
84
|
+
|
85
|
+
public class INPUT {
|
86
|
+
|
87
|
+
|
88
|
+
|
89
|
+
/**
|
90
|
+
|
91
|
+
* @param args
|
92
|
+
|
93
|
+
*/
|
94
|
+
|
95
|
+
public static void INPUT(int NEX,int NIN
|
96
|
+
|
97
|
+
,int[] IBEX,int []IBIN,int [][]IBNO,int NOB,int NIB,double[] PX,double []PY,int KBD,int KTJ,String[]args) {
|
98
|
+
|
99
|
+
|
100
|
+
|
101
|
+
try{
|
102
|
+
|
103
|
+
PrintStream out=new PrintStream(new FileOutputStream("output.txt"),true);
|
104
|
+
|
105
|
+
|
106
|
+
|
107
|
+
|
108
|
+
|
109
|
+
.writer();
|
110
|
+
|
111
|
+
System.out.println(FNAME);
|
112
|
+
|
113
|
+
.close();
|
114
|
+
|
115
|
+
}
|
116
|
+
|
117
|
+
catch(Exception e){
|
118
|
+
|
119
|
+
System.out.println("Exception:"+e);
|
120
|
+
|
121
|
+
e.printStackTrace();
|
122
|
+
|
123
|
+
}
|
124
|
+
|
125
|
+
}
|
126
|
+
|
127
|
+
}
|
128
|
+
|
129
|
+
|
130
|
+
|
131
|
+
```
|
132
|
+
|
133
|
+
|
134
|
+
|
37
135
|
---
|