fortran77からjavaに変換を試みたい

Question

write文のファイルへの書き込み定義
write文、read文、CHARACTER文、open文等の書き換えがわからないです。

質問の修正を行ないました。

---

      SUBROUTINE INPUT(NEX,NIN,IBEX,IBIN,IBNO,NOB,NIB,PX,PY,
     &                 KBD,KTJ)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION IBEX(KBD),IBIN(KBD),IBNO(KBD,KTJ),PX(KTJ+3)
      DIMENSION PY(KTJ+3)
      CHARACTER FNAME*10
C
      WRITE(*,600)
  600 FORMAT(' INPUT FILE NAME = ? ')
      READ(*,500)FNAME
  500 FORMAT(A10)
      OPEN(8,FILE=FNAME)
	READ(8,510)NEX,NIN
	IF(NEX.NE.0)THEN
	  READ(8,510)(IBEX(I),I=1,NEX)
	END IF
	IF(NIN.NE.0)THEN
	  READ(8,510)(IBIN(I),I=1,NIN)
	ELSE
	  READ(8,510)IBIN(1)
	END IF
	DO 10 I=1,NEX
	  READ(8,510)(IBNO(I,J),J=1,IBEX(I))
   10   CONTINUE
	READ(8,510)NOB,NIB
	READ(8,520)(PX(I),PY(I),I=1,NOB+NIB)
  510   FORMAT(10I5)
  520   FORMAT(2E15.7)
      CLOSE(8)
      RETURN
      END

import java.io.*;
public class INPUT {

	/**
	 * @param args
	 */
	public static void INPUT(int NEX,int NIN
	,int[] IBEX,int []IBIN,int [][]IBNO,int NOB,int NIB,double[] PX,double []PY,int KBD,int KTJ) {
		
		try{
			PrintStream out=new PrintStream(new FileOutputStream("output.txt"),true);

			
			.writer();
			System.out.println(FNAME);
			.close();
		}
		catch(Exception e){
			System.out.println("Exception:"+e);
		e.printStackTrace();
		}
	}
}

---

Comments

[seastar3]

510 のFORMATが明確でないとNEX と NINの取得分割ができません。また配列IBEXの取得のためのREAD文のFORMATも共通の510番でいいのでしょうか。

[tomat]

返信遅れてすいません。そうです。

Answer 1

FileWriter fw=new FileWriter(String[] args)

fw.write(" ")まではわかります

やりたいことに対して知識が不足しすぎていると思います。もう少し入出力に用いるJavaの代表的なクラス群を学んだほうがよいと思います。

テキスト出力はFileWriterではなくPrintStreamを使うことをお勧めします。その方が書式指定のテキスト出力ができますので。

入力についてはFortranの文化とJavaの文化に違いがあるような気がしますがとりあえずjava.util.Scannerクラスのリファレンスを参考にするとよいと思います。空白文字などで区切られた数値や文字列を読み込むことができます。

Comments

[tomat]

KSwordOfHasteさんありがとうございます。
PrintStreamを見てみます。