D:/demona/2.0/manual/doc/2-31set/processor/run/RunGS.f90

Go to the documentation of this file.

subroutine RunGS

use global

implicit none

integer i


print*,'GSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGS'
print*,'GS STARTS'
print*,' '


if (accumulating.eqv.yes) maxGsPhysics=1

!do i=1,maxGsPhysics

call gs

!call postProcessor


!end do


print*,' '
print*,'GS ENDS'
print*,'GSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSGS'




end subroutine RunGS

---