test_parameters.f90

来自「1D有限差分波动方程模拟」· F90 代码 · 共 21 行

!-----------------------------------------------------------------------
! tests of some input parameters
!-----------------------------------------------------------------------
SUBROUTINE TEST_PARAMETERS

  USE MOD_INTEGRATION, ONLY: PTS

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

  IMPLICIT NONE

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

  IF ( (PTS == 0 ) .OR. ( MOD(PTS,2) /=0 ) ) THEN
    WRITE(*,'(A)')'PTS MUST BE EVEN AND > 0.'
    WRITE(*,'(A,I5)')'ACTUAL VALUE: ',PTS
    STOP
  END IF
  
END SUBROUTINE TEST_PARAMETERS