Main.f90 - Main modul
From CFD-Wiki
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