integer*4	cms$_abstim
c      integer*4	cms$_continue
      integer*4	cms$_created
      integer*4	cms$_creates
      integer*4	cms$_deleted
      integer*4	cms$_deletions
      integer*4	cms$_different
      integer*4	cms$_eof
      integer*4	cms$_errcreates
      integer*4	cms$_errdeletions
      integer*4	cms$_erreplacements
      integer*4	cms$_erreservations
      integer*4	cms$_errfetches
      integer*4	cms$_errinsertions
      integer*4	cms$_errmodifies
      integer*4	cms$_errremovals
      integer*4	cms$_errunreserves
      integer*4	cms$_exclude
      integer*4	cms$_fetched
      integer*4	cms$_fetches
      integer*4	cms$_gencreated
      integer*4	cms$_geninserted
      integer*4	cms$_gennoinsert
      integer*4	cms$_gennoremove
      integer*4	cms$_gennotfound
      integer*4	cms$_genremoved
      integer*4	cms$_histdel
      integer*4	cms$_identical
      integer*4	cms$_illclsnam
      integer*4	cms$_illelexp
      integer*4	cms$_illgen
      integer*4	cms$_illgrpnam
      integer*4	cms$_inserted
      integer*4	cms$_insertions
      integer*4	cms$_invfetdb
      integer*4	cms$_libset
      integer*4	cms$_modifications
      integer*4	cms$_modified
      integer*4	cms$_nocls
      integer*4	cms$_nocreate
      integer*4	cms$_nodelete
      integer*4	cms$_noele
      integer*4	cms$_nofetch
      integer*4	cms$_nofile
      integer*4	cms$_nogrp
      integer*4	cms$_nohis
      integer*4	cms$_noinsert
      integer*4	cms$_nomodify
      integer*4	cms$_norecover
      integer*4	cms$_noref
      integer*4	cms$_noremark
      integer*4	cms$_noremoval
      integer*4	cms$_norepair
      integer*4	cms$_noreplace
      integer*4	cms$_normal
      integer*4	cms$_nosince
      integer*4	cms$_notfound
      integer*4	cms$_nounreserve
      integer*4	cms$_noverify
      integer*4	cms$_openin1
      integer*4	cms$_openin2
      integer*4	cms$_openout
      integer*4	cms$_qualconflict
      integer*4	cms$_readin
      integer*4	cms$_recovered
      integer*4	cms$_remark
      integer*4	cms$_removals
      integer*4	cms$_removed
      integer*4	cms$_repaired
      integer*4	cms$_replacements
      integer*4	cms$_reserved
      integer*4	cms$_sequenced
      integer*4	cms$_stopped
      integer*4	cms$_timeorder
      integer*4	cms$_unfout
      integer*4	cms$_unreserved
      integer*4	cms$_unreserves
      integer*4	cms$_unsupfrmy
      integer*4	cms$_usererr
      integer*4	cms$_verified

      integer*4	cms$annotate
      integer*4	cms$differences
      integer*4	cms$fetch
      integer*4	cms$fetch_close
      integer*4	cms$fetch_get
      integer*4	cms$fetch_open
      integer*4	cms$get_string
      integer*4	cms$insert_element
      integer*4	cms$insert_generation
      integer*4	cms$insert_group
      integer*4	cms$m_cmd_copy
      integer*4	cms$m_cmd_create
      integer*4	cms$m_cmd_delete
      integer*4	cms$m_cmd_fetch
      integer*4	cms$m_cmd_insert
      integer*4	cms$m_cmd_modify
      integer*4	cms$m_cmd_remark
      integer*4	cms$m_cmd_remove
      integer*4	cms$m_cmd_replace
      integer*4	cms$m_cmd_reserve
      integer*4	cms$m_cmd_unreserve
      integer*4	cms$m_cmd_verify
      integer*4	cms$m_ignore_case
      integer*4	cms$m_ignore_form
      integer*4	cms$m_ignore_lead
      integer*4	cms$m_ignore_space
      integer*4	cms$m_ignore_trail
      integer*4	cms$modify_class
      integer*4	cms$modify_element
      integer*4	cms$modify_group
      integer*4	cms$modify_library
      integer*4	cms$put_string
      integer*4	cms$remark
      integer*4	cms$remove_element
      integer*4	cms$remove_generation
      integer*4	cms$remove_group
      integer*4	cms$replace
      integer*4	cms$set_library
      integer*4	cms$show_class
      integer*4	cms$show_element
      integer*4	cms$show_generation
      integer*4	cms$show_group
      integer*4	cms$show_history
      integer*4	cms$show_library
      integer*4	cms$show_reservations
      integer*4	cms$show_version
      integer*4	cms$unreserve
      integer*4	cms$verify


      external	cms$_abstim
c      external	cms$_continue
      external	cms$_created
      external	cms$_creates
      external	cms$_deleted
      external	cms$_deletions
      external	cms$_different
      external	cms$_eof
      external	cms$_errcreates
      external	cms$_errdeletions
      external	cms$_erreplacements
      external	cms$_erreservations
      external	cms$_errfetches
      external	cms$_errinsertions
      external	cms$_errmodifies
      external	cms$_errremovals
      external	cms$_errunreserves
      external	cms$_exclude
      external	cms$_fetched
      external	cms$_fetches
      external	cms$_gencreated
      external	cms$_geninserted
      external	cms$_gennoinsert
      external	cms$_gennoremove
      external	cms$_gennotfound
      external	cms$_genremoved
      external	cms$_histdel
      external	cms$_identical
      external	cms$_illclsnam
      external	cms$_illelexp
      external	cms$_illgen
      external	cms$_illgrpnam
      external	cms$_inserted
      external	cms$_insertions
      external	cms$_invfetdb
      external	cms$_libset
      external	cms$_modifications
      external	cms$_modified
      external	cms$_nocls
      external	cms$_nocreate
      external	cms$_nodelete
      external	cms$_noele
      external	cms$_nofetch
      external	cms$_nofile
      external	cms$_nogrp
      external	cms$_nohis
      external	cms$_noinsert
      external	cms$_nomodify
      external	cms$_norecover
      external	cms$_noref
      external	cms$_noremark
      external	cms$_noremoval
      external	cms$_norepair
      external	cms$_noreplace
      external	cms$_normal
      external	cms$_nosince
      external	cms$_notfound
      external	cms$_nounreserve
      external	cms$_noverify
      external	cms$_openin1
      external	cms$_openin2
      external	cms$_openout
      external	cms$_qualconflict
      external	cms$_readin
      external	cms$_recovered
      external	cms$_remark
      external	cms$_removals
      external	cms$_removed
      external	cms$_repaired
      external	cms$_replacements
      external	cms$_reserved
      external	cms$_sequenced
      external	cms$_stopped
      external	cms$_timeorder
      external	cms$_unfout
      external	cms$_unreserved
      external	cms$_unreserves
      external	cms$_unsupfrmy
      external	cms$_usererr
      external	cms$_verified

      external	cms$annotate
      external	cms$differences
      external	cms$fetch
      external	cms$fetch_close
      external	cms$fetch_get
      external	cms$fetch_open
      external	cms$get_string
      external	cms$insert_element
      external	cms$insert_generation
      external	cms$insert_group
      external	cms$m_cmd_copy
      external	cms$m_cmd_create
      external	cms$m_cmd_delete
      external	cms$m_cmd_fetch
      external	cms$m_cmd_insert
      external	cms$m_cmd_modify
      external	cms$m_cmd_remark
      external	cms$m_cmd_remove
      external	cms$m_cmd_replace
      external	cms$m_cmd_reserve
      external	cms$m_cmd_unreserve
      external	cms$m_cmd_verify
      external	cms$m_ignore_case
      external	cms$m_ignore_form
      external	cms$m_ignore_lead
      external	cms$m_ignore_space
      external	cms$m_ignore_trail
      external	cms$modify_class
      external	cms$modify_element
      external	cms$modify_group
      external	cms$modify_library
      external	cms$put_string
      external	cms$remark
      external	cms$remove_element
      external	cms$remove_generation
      external	cms$remove_group
      external	cms$replace
      external	cms$set_library
      external	cms$show_class
      external	cms$show_element
      external	cms$show_generation
      external	cms$show_group
      external	cms$show_history
      external	cms$show_library
      external	cms$show_reservations
      external	cms$show_version
      external	cms$unreserve
      external	cms$verify


      structure	/library_data_block/
       union
        map
         integer*4	%fill(1:50)
        end map
        map
         integer*4	length, status, descriptor(1:2)
         integer*4	%fill(5:50)
        end map
       end union
      end structure

      structure	/fetch_data_block/
         integer*4	%fill(1:5)
      end structure

      structure	/signal_array/
         integer*4	%fill(1:16)
      end structure

      structure	/mechanism_array/
         integer*4	%fill(1:5)
      end structure