Fix a bug in TwoDTransfo

lauvergn · May 28, 2023 · 391ebd3 · 391ebd3
1 parent c92c080
commit 391ebd3
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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