Fix multivect constructor in CUDA

cuda/psb_c_cuda_vect_mod.F90

@@ -1377,14 +1377,14 @@ module psb_c_cuda_multivect_mod
   end type psb_c_multivect_cuda
 
   public  :: psb_c_multivect_cuda
-  private :: constructor
+  private :: mconstructor
   interface psb_c_multivect_cuda
-    module procedure constructor
+    module procedure mconstructor
   end interface
 
 contains
   
-  function constructor(x) result(this)
+  function mconstructor(x) result(this)
     complex(psb_spk_)       :: x(:,:)
     type(psb_c_multivect_cuda) :: this
     integer(psb_ipk_) :: info
@@ -1392,7 +1392,7 @@ contains
     this%v = x
     call this%asb(size(x,1),size(x,2),info)
 
-  end function constructor
+  end function mconstructor
     
 
 !!$  subroutine c_cuda_multi_gthzv_x(i,n,idx,x,y)

cuda/psb_d_cuda_vect_mod.F90

@@ -1377,14 +1377,14 @@ module psb_d_cuda_multivect_mod
   end type psb_d_multivect_cuda
 
   public  :: psb_d_multivect_cuda
-  private :: constructor
+  private :: mconstructor
   interface psb_d_multivect_cuda
-    module procedure constructor
+    module procedure mconstructor
   end interface
 
 contains
   
-  function constructor(x) result(this)
+  function mconstructor(x) result(this)
     real(psb_dpk_)       :: x(:,:)
     type(psb_d_multivect_cuda) :: this
     integer(psb_ipk_) :: info
@@ -1392,7 +1392,7 @@ contains
     this%v = x
     call this%asb(size(x,1),size(x,2),info)
 
-  end function constructor
+  end function mconstructor
     
 
 !!$  subroutine d_cuda_multi_gthzv_x(i,n,idx,x,y)

cuda/psb_i_cuda_vect_mod.F90

@@ -937,14 +937,14 @@ module psb_i_cuda_multivect_mod
   end type psb_i_multivect_cuda
 
   public  :: psb_i_multivect_cuda
-  private :: constructor
+  private :: mconstructor
   interface psb_i_multivect_cuda
-    module procedure constructor
+    module procedure mconstructor
   end interface
 
 contains
   
-  function constructor(x) result(this)
+  function mconstructor(x) result(this)
     integer(psb_ipk_)       :: x(:,:)
     type(psb_i_multivect_cuda) :: this
     integer(psb_ipk_) :: info
@@ -952,7 +952,7 @@ contains
     this%v = x
     call this%asb(size(x,1),size(x,2),info)
 
-  end function constructor
+  end function mconstructor
     
 
 !!$  subroutine i_cuda_multi_gthzv_x(i,n,idx,x,y)

cuda/psb_s_cuda_vect_mod.F90

@@ -1377,14 +1377,14 @@ module psb_s_cuda_multivect_mod
   end type psb_s_multivect_cuda
 
   public  :: psb_s_multivect_cuda
-  private :: constructor
+  private :: mconstructor
   interface psb_s_multivect_cuda
-    module procedure constructor
+    module procedure mconstructor
   end interface
 
 contains
   
-  function constructor(x) result(this)
+  function mconstructor(x) result(this)
     real(psb_spk_)       :: x(:,:)
     type(psb_s_multivect_cuda) :: this
     integer(psb_ipk_) :: info
@@ -1392,7 +1392,7 @@ contains
     this%v = x
     call this%asb(size(x,1),size(x,2),info)
 
-  end function constructor
+  end function mconstructor
     
 
 !!$  subroutine s_cuda_multi_gthzv_x(i,n,idx,x,y)

cuda/psb_z_cuda_vect_mod.F90

@@ -1377,14 +1377,14 @@ module psb_z_cuda_multivect_mod
   end type psb_z_multivect_cuda
 
   public  :: psb_z_multivect_cuda
-  private :: constructor
+  private :: mconstructor
   interface psb_z_multivect_cuda
-    module procedure constructor
+    module procedure mconstructor
   end interface
 
 contains
   
-  function constructor(x) result(this)
+  function mconstructor(x) result(this)
     complex(psb_dpk_)       :: x(:,:)
     type(psb_z_multivect_cuda) :: this
     integer(psb_ipk_) :: info
@@ -1392,7 +1392,7 @@ contains
     this%v = x
     call this%asb(size(x,1),size(x,2),info)
 
-  end function constructor
+  end function mconstructor
     
 
 !!$  subroutine z_cuda_multi_gthzv_x(i,n,idx,x,y)