Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

solve_linear_equations__genmod.f90 717 B

1 年之前
1234567891011121314
  1. !COMPILER-GENERATED INTERFACE MODULE: Mon Jan 30 12:46:38 2023
  2. ! This source file is for reference only and may not completely
  3. ! represent the generated interface used by the compiler.
  4. MODULE SOLVE_LINEAR_EQUATIONS__genmod
  5. INTERFACE
  6. SUBROUTINE SOLVE_LINEAR_EQUATIONS(A,X,B,ERROR,DIM)
  7. INTEGER(KIND=4), INTENT(IN) :: DIM
  8. REAL(KIND=8), INTENT(IN) :: A(DIM,DIM)
  9. REAL(KIND=4), INTENT(OUT) :: X(DIM)
  10. REAL(KIND=8), INTENT(IN) :: B(DIM)
  11. LOGICAL(KIND=4), INTENT(OUT) :: ERROR
  12. END SUBROUTINE SOLVE_LINEAR_EQUATIONS
  13. END INTERFACE
  14. END MODULE SOLVE_LINEAR_EQUATIONS__genmod