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.
 
 
 
 
 
 

12 lines
501 B

  1. !COMPILER-GENERATED INTERFACE MODULE: Mon Jan 30 12:46:41 2023
  2. ! This source file is for reference only and may not completely
  3. ! represent the generated interface used by the compiler.
  4. MODULE TD_FORCEUPS__genmod
  5. INTERFACE
  6. SUBROUTINE TD_FORCEUPS(I,TD_SEMIMUDVISC)
  7. INTEGER(KIND=4) :: I
  8. REAL(KIND=8) :: TD_SEMIMUDVISC
  9. END SUBROUTINE TD_FORCEUPS
  10. END INTERFACE
  11. END MODULE TD_FORCEUPS__genmod