Simulation Core
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
 
 
 
 
 
 

55 rindas
1.6 KiB

  1. module CIActionReference
  2. implicit none
  3. abstract interface
  4. subroutine ActionVoid()
  5. end subroutine
  6. subroutine ActionBool(i)
  7. logical, intent (in) :: i
  8. end subroutine
  9. subroutine ActionInteger(i)
  10. integer, intent (in) :: i
  11. end subroutine
  12. subroutine ActionIntegerArray(arr)
  13. integer, allocatable, intent (in) :: arr(:)
  14. end subroutine
  15. subroutine ActionReal(i)
  16. real, intent (in) :: i
  17. end subroutine
  18. subroutine ActionDouble(i)
  19. real(8), intent (in) :: i
  20. end subroutine
  21. subroutine ActionDualDouble(a, b)
  22. real(8), intent (in) :: a, b
  23. end subroutine
  24. subroutine ActionString(c)
  25. character(len=*), intent(in) :: c
  26. end subroutine
  27. subroutine ActionStringInt(c, i)
  28. character(len=*), intent(in) :: c
  29. integer, intent (in) :: i
  30. end subroutine
  31. subroutine ActionStringFloat(c, f)
  32. character(len=*), intent(in) :: c
  33. real, intent (in) :: f
  34. end subroutine
  35. subroutine ActionStringDouble(c, d)
  36. character(len=*), intent(in) :: c
  37. real(8), intent (in) :: d
  38. end subroutine
  39. subroutine ActionStringBool(c, b)
  40. character(len=*), intent(in) :: c
  41. logical, intent (in) :: b
  42. end subroutine
  43. end interface
  44. end module CIActionReference