diff --git a/Source_TnumTana_Coord/Qtransfo/TwoDTransfo.f90 b/Source_TnumTana_Coord/Qtransfo/TwoDTransfo.f90
index c473eb2..33a2cef 100644
--- a/Source_TnumTana_Coord/Qtransfo/TwoDTransfo.f90
+++ b/Source_TnumTana_Coord/Qtransfo/TwoDTransfo.f90
@@ -347,7 +347,9 @@ SUBROUTINE calc_TwoDTransfo_new(dnQin,dnQout,TwoDTransfo,nderiv,inTOout)
   END SUBROUTINE calc_TwoDTransfo_new
   SUBROUTINE calc_TwoDTransfo(dnQin,dnQout,TwoDTransfo,nderiv,inTOout)
     USE ADdnSVM_m
-    USE mod_dnSVM, ONLY: Type_dnVec, Write_dnSVM, check_alloc_dnVec, sub_dnVec_TO_dnVect, sub_dnVect_TO_dnVec
+    USE mod_dnSVM, ONLY: Type_dnVec, Write_dnSVM, check_alloc_dnVec, &
+                         sub_dnVec_TO_dnVect, sub_dnVect_TO_dnVec,   &
+                         sub_dnVec_TO_dnSt, sub_dnSt_TO_dnVec
     IMPLICIT NONE
 
     TYPE (Type_dnVec),                intent(inout) :: dnQin,dnQout
@@ -639,6 +641,6 @@ SUBROUTINE calc_One_TwoDTransfo(dntQ1,dntQ2,dnQ1,dnQ2,TwoDTransfo,Type_2D)
       write(out_unitp,*) 'END ',name_sub
     END IF
     !---------------------------------------------------------------------
-  END SUBROUTINE calc_TwoDTransfo
+  END SUBROUTINE calc_One_TwoDTransfo
 
 END MODULE TwoDTransfo_m