Main.f90 - Main modul

(Difference between revisions)

Revision as of 02:23, 19 September 2005

Subroutine Input_all

include 'icomm_1.f90'

open(21,file='GRID.txt')

read (21,*) NYmax,NXmax

DO 4 J=1, NYmax

DO 4 I=1, NXmax

read (21,*) X(I,J), Y(I,J)

 4     continue

close(21)

!--------------------------------------------------------------------

open(23,file='input_control.txt')

write (23,*) NYmax,NXmax

DO 5 J=1, NYmax

DO 5 I=1, NXmax

write (23,*) X(I,J), Y(I,J)

 5     continue

close(22)

Return

End