1c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2c Copyright (C) INRIA
3c
4c Copyright (C) 2012 - 2016 - Scilab Enterprises
5c
6c This file is hereby licensed under the terms of the GNU GPL v2.0,
7c pursuant to article 5.3.4 of the CeCILL v.2.1.
8c This file was originally licensed under the terms of the CeCILL v2.1,
9c and continues to be available under such terms.
10c For more information, see the COPYING file which you should have received
11c along with this program.
12c
13      subroutine ctcab (n,u,v,izs,rzs,dzs)
14c
15
16      integer n,izs(1)
17      real rzs(1)
18      double precision u(1),v(1),dzs(1)
19      do 1 i=1,n
20          v(i)=u(i)
21 1    continue
22      return
23      end
24
25