demona: D:/demona/2.0/manual/doc/2-31set/processor/run/RunNewton.f90 Source File

00001 subroutine RunNewton
00002 
00003 use global
00004 
00005 implicit none
00006 
00007 if (msSolver.eqv.off) then
00008 
00009         print*,'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'
00010         print*,'NEWTON STARTS'
00011         print*,' '
00012 
00013 
00014 end if
00015 
00016 
00017 call Newton
00018 !call NewtonSet
00019 
00020 
00021 if (msSolver.eqv.off) then
00022 
00023         print*,' '
00024         print*,'NEWTON ENDS'
00025         print*,'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'
00026 
00027 end if
00028 
00029 
00030 
00031 
00032 end subroutine RunNewton