07/12/12 22:19:26
>>28
read(10,602)(x1(i),y1(i),x2(i),y2(i),z1(i),z2(i),i=1,85509)
602 format(4f16.4,i8,i1)
これを見る限り、z1,z2は整数で無ければならないのに倍精度実数で読んでいるところか？
他にも間違いが大量にあって、なんとも言いがたいが、本体が動いているならそれか？
>>29
INTERFACEを書くか、FUNCTIONをMODULEに入れて、USEすればおｋ
07/12/12 22:19:26
>>28
read(10,602)(x1(i),y1(i),x2(i),y2(i),z1(i),z2(i),i=1,85509)
602 format(4f16.4,i8,i1)
これを見る限り、z1,z2は整数で無ければならないのに倍精度実数で読んでいるところか？
他にも間違いが大量にあって、なんとも言いがたいが、本体が動いているならそれか？
>>29
INTERFACEを書くか、FUNCTIONをMODULEに入れて、USEすればおｋ