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