C






C     
C     compmsf.f
C
C     This subroutine doubles the input matrix. Your version of 
C     compmsf() may do whaveter you would like it to do.
C

      
C     This is a MEX-file for MATLAB.
C     Copyright 1984-2000 The MathWorks, Inc. 
C     $Revision: 1.3 $
      

C     This is the computational routine.  it is 
C     same the which can be found in compute.F
      subroutine dbl_mat_msf(out_mat, in_mat, m, n)
      integer m, n
      integer i
      real*8 out_mat(20), in_mat(20)
      
      do 10 i=1,m*n
         out_mat(i) = 2 * in_mat(i)
 10   continue
      return
      end