subroutine set_info_i(attribute, cmo, sblock, option, ivalue,
     &                      icscode)
C
C
C ######################################################################
C
C     PURPOSE -
C
C        Sets the integer value of ATTRIBUTE in storage block SBLOCK
C        for mesh object CMO to VALUE.
c        call cmo_set_info since storage block do not exist
C
C     INPUT ARGUMENTS -
C
C        attribute - (character) Attribute Name.
C        cmo       - (character) Mesh Object Name.
C        sblock    - (character) Storage Block Name.
C        option    - (character) Optional value to return.
C        ivalue    - (integer) Value input.
C
C     OUTPUT ARGUMENTS -
C
C        icscode - Error Return Code (==0 ==> OK, <>0 ==> Error)
C
C     CHANGE HISTORY -
C
C        $Log: set_info_i.f,v $
C        Revision 2.00  2007/11/09 20:04:02  spchu
C        Import to CVS
C
CPVCS    
CPVCS       Rev 1.0   24 Jan 2000 16:21:16   dcg
CPVCS    Initial revision.
CPVCS    
CPVCS       Rev 1.7   Fri Oct 29 16:56:50 1999   dcg
CPVCS    requests for storage block variables that are really cmo
CPVCS    variables sometimes come in as global requests (historic reasons)
CPVCS    so if the global request fails try as sbcmoprm, cmoname
CPVCS    
CPVCS       Rev 1.6   Mon Apr 14 17:01:08 1997   pvcs
CPVCS    No change.
CPVCS    
CPVCS       Rev 1.5   09/12/95 06:55:22   het
CPVCS    Correct errors with sb_get_info
CPVCS    
CPVCS       Rev 1.4   09/11/95 14:42:58   het
CPVCS    Change to the storage block based CMO stuff.
CPVCS    
CPVCS       Rev 1.3   08/30/95 21:08:56   het
CPVCS    Put cmo table data into the cmoatt storage block
CPVCS    
CPVCS       Rev 1.2   08/29/95 12:10:44   dcg
CPVCS    set length for names to 40 characters
CPVCS
CPVCS       Rev 1.1   08/24/95 08:39:54   dcg
CPVCS    separated get_info and set_info
C
C ######################################################################
C
      implicit none
C
C ######################################################################
C
      character*(*) attribute, cmo, sblock, option
      integer ivalue,ilen,itype,icscode
C
C ######################################################################
      call cmo_set_info(attribute,cmo,ivalue,ilen,itype,icscode)
      if(icscode.ne.0) 
     *           call x3d_error('set_info','cmo_set_info')
      return
      end