Check koeff.f90 - Performing checking of koefficients

Revision as of 01:51, 19 September 2005 by Michail (Talk | contribs)

Subroutine Check_koeff

include 'icomm_1.f90'

Dimension F_out(nx,ny)

Character Filename*10

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

NImax = NXmaxp

NJmax = NYmaxp

F_out = Ap

Filename ='A_ppp.txt'

   Call  Out_array(F_out,NImax,NJmax,Filename)

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

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

NImax = NXmaxp

NJmax = NYmaxp

F_out = Ae

Filename ='A_4ee.txt'

   Call  Out_array(F_out,NImax,NJmax,Filename)

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

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

NImax = NXmaxp

NJmax = NYmaxp

F_out = Aw

Filename ='A_3ww.txt'

   Call  Out_array(F_out,NImax,NJmax,Filename)

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

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

NImax = NXmaxp

NJmax = NYmaxp

F_out = An

Filename ='A_2nn.txt'

   Call  Out_array(F_out,NImax,NJmax,Filename)

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

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

NImax = NXmaxp

NJmax = NYmaxp

F_out = As

Filename ='A_1ss.txt'

   Call  Out_array(F_out,NImax,NJmax,Filename)

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

Return

End