double precision Device_Param1, Device_Param2, Device_Param3 
      double precision Device_Param4, Device_Param5
C
      common / Device_Data_COM / Device_Param1 
     &                         , Device_Param2 
     &                         , Device_Param3 
     &                         , Device_Param4 
     &                         , Device_Param5 
      double precision Param1, Param2, Param3, Param4, Param5