start.f90
7e5be7e39931geom_testpardiso

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