write文のファイルへの書き込み定義
write文、read文、CHARACTER文、open文等の書き換えがわからないです。
質問の修正を行ないました。
FORTRAN
1 SUBROUTINE INPUT(NEX,NIN,IBEX,IBIN,IBNO,NOB,NIB,PX,PY, 2 & KBD,KTJ) 3 IMPLICIT REAL*8(A-H,O-Z) 4 DIMENSION IBEX(KBD),IBIN(KBD),IBNO(KBD,KTJ),PX(KTJ+3) 5 DIMENSION PY(KTJ+3) 6 CHARACTER FNAME*10 7C 8 WRITE(*,600) 9 600 FORMAT(' INPUT FILE NAME = ? ') 10 READ(*,500)FNAME 11 500 FORMAT(A10) 12 OPEN(8,FILE=FNAME) 13 READ(8,510)NEX,NIN 14 IF(NEX.NE.0)THEN 15 READ(8,510)(IBEX(I),I=1,NEX) 16 END IF 17 IF(NIN.NE.0)THEN 18 READ(8,510)(IBIN(I),I=1,NIN) 19 ELSE 20 READ(8,510)IBIN(1) 21 END IF 22 DO 10 I=1,NEX 23 READ(8,510)(IBNO(I,J),J=1,IBEX(I)) 24 10 CONTINUE 25 READ(8,510)NOB,NIB 26 READ(8,520)(PX(I),PY(I),I=1,NOB+NIB) 27 510 FORMAT(10I5) 28 520 FORMAT(2E15.7) 29 CLOSE(8) 30 RETURN 31 END
java
1import java.io.*; 2public class INPUT { 3 4 /** 5 * @param args 6 */ 7 public static void INPUT(int NEX,int NIN 8 ,int[] IBEX,int []IBIN,int [][]IBNO,int NOB,int NIB,double[] PX,double []PY,int KBD,int KTJ) { 9 10 try{ 11 PrintStream out=new PrintStream(new FileOutputStream("output.txt"),true); 12 13 14 .writer(); 15 System.out.println(FNAME); 16 .close(); 17 } 18 catch(Exception e){ 19 System.out.println("Exception:"+e); 20 e.printStackTrace(); 21 } 22 } 23} 24