find_number.f90

来自「使用WENO格式求解流体力学中的激波问题」· F90 代码 · 共 10 行

FUNCTION FIND_NUMBER(A,NUM,SOURCE)
IMPLICIT NONE
INTEGER FIND_NUMBER,NUM,A(NUM),SOURCE,I
FIND_NUMBER=0
DO I=1,NUM
  IF(A(I)==SOURCE)THEN
    FIND_NUMBER=1
  END IF
END DO
END FUNCTION FIND_NUMBER