INTEGER*2 MAX_CMS,MAX_CMS_NUMBER,MAX_CMS_MSGS
     +     ,MAX_CMS_MSG_NUMBER,MAX_CMS_PATH_EFFECT
      PARAMETER (MAX_CMS             =  10)  ! maximum number of CMS's
      PARAMETER (MAX_CMS_NUMBER      = 100)  ! maximum number for CMS
                                             ! user numbering
      PARAMETER (MAX_CMS_MSGS        =  10)  ! maximum number of CMS
                                             ! messages per CMS
      PARAMETER (MAX_CMS_MSG_NUMBER  =  20)  ! maximum number for CMS
                                             ! message user numbering
                                             ! per CMS
      PARAMETER (MAX_CMS_PATH_EFFECT = 100)

      STRUCTURE /CMS_Message_Data/

         INTEGER   cmsnum
         INTEGER   number
         
         CHARACTER message*80
         
         INTEGER   numpath
         INTEGER   path(MAX_CMS_PATH_EFFECT)
         
         LOGICAL   on

         END STRUCTURE
         
         
      
      STRUCTURE /CMS_Data/
         
         INTEGER   number
         INTEGER   onlink
         
         INTEGER   nummsgs
         INTEGER   msgnumber(MAX_CMS_MSG_NUMBER)  ! Pointer from user
                                                  ! message number to
                                                  ! DYNA message number
         RECORD /CMS_Message_Data/ msglist(MAX_CMS_MSGS)
         
         END STRUCTURE