CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Wiki > Main.f90 - Main modul

Main.f90 - Main modul

From CFD-Wiki

Revision as of 02:23, 19 September 2005 by Michail (Talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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

My wiki