Fix some more syntax errors

guilara · Mar 21, 2019 · e268d6f · e268d6f
1 parent ddc62f4
commit e268d6f
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/NumericalIntegration.m b/NumericalIntegration.m
@@ -3,13 +3,15 @@
 
 Begin["`Private`"];
 
-SetAttributes[MSTRadialIn, {NumericFunction}];
+SetAttributes[PsiIn, {NumericFunction}];
 
 PsiIn[s_, l_, \[Omega]_, rmin_, rmax_] :=
  Module[{},
 ];
 
 Derivative[1][PsiIn[s_Integer, l_Integer, \[Omega]_, rmin_, rmax_]][r_?InexactNumberQ] :=
+ Module[{},
+];
 
 Derivative[n_Integer?Positive][PsiIn[s_Integer, l_Integer, \[Omega]_, rmin_, rmax_]][r0_?InexactNumberQ] :=
  Module[{d2R, Rderivs, R, r, i},
@@ -22,11 +24,16 @@
     R[r] -> PsiIn[s, l, \[Omega]][r0], r -> r0}
 ];
 
+
+SetAttributes[PsiUp, {NumericFunction}];
+
 PsiUp[s_, l_, \[Omega]_, rmin_, rmax_] :=
  Module[{},
 ];
 
 Derivative[1][PsiUp[s_Integer, l_Integer, \[Omega]_, rmin_, rmax_]][r_?InexactNumberQ] :=
+ Module[{},
+];
 
 Derivative[n_Integer?Positive][PsiUp[s_Integer, l_Integer, \[Omega]_, rmin_, rmax_]][r0_?InexactNumberQ] :=
  Module[{d2R, Rderivs, R, r, i},