Simulation Core
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。
 
 
 
 
 
 

15 行
371 B

  1. module CCommonVariables
  2. use CIntegerEventHandler
  3. implicit none
  4. public
  5. type :: CommonType
  6. ! Input vars
  7. integer :: StandRack
  8. type(IntegerEventHandler) :: OnStandRackChange
  9. ! Output vars
  10. logical :: DrillWatchOperationMode
  11. end type
  12. type(CommonType):: Common
  13. contains
  14. end module CCommonVariables