start.f90
22b60c541a80geom_testmumps

start.f90
View Options

			SUBROUTINE start
			!
			! Start or restart the run
			!
			USE basic,ONLY: mpirank
			IMPLICIT NONE
			!
			! Local vars and arrays
			!________________________________________________________________________________
			IF(mpirank.eq.0) WRITE(*,'(a/)') '=== Start or restart the run ==='
			!________________________________________________________________________________
			!
			END SUBROUTINE start