diff --git a/src/msspec/phagen/fortran/phagen_2.2_dp/msxas3.inc b/src/msspec/phagen/fortran/phagen_2.2_dp/msxas3.inc
index 2151d02..7b5ccac 100644
--- a/src/msspec/phagen/fortran/phagen_2.2_dp/msxas3.inc
+++ b/src/msspec/phagen/fortran/phagen_2.2_dp/msxas3.inc
@@ -28,7 +28,7 @@ c
       integer fl_, rdx_
 c
       parameter ( rdx_     =  1600,
-     $            lmax_    =  50,
+     $            lmax_    =  80,
      $            npss     =  lmax_ + 2,
      $            fl_       =  2*npss + 1,
      $            nef_     =  10,
diff --git a/src/msspec/phagen/fortran/phagen_2.2_dp/phagen_scf_2.2_dp.f b/src/msspec/phagen/fortran/phagen_2.2_dp/phagen_scf_2.2_dp.f
index 3e0bebb..31665e8 100644
--- a/src/msspec/phagen/fortran/phagen_2.2_dp/phagen_scf_2.2_dp.f
+++ b/src/msspec/phagen/fortran/phagen_2.2_dp/phagen_scf_2.2_dp.f
@@ -14625,7 +14625,7 @@ c      check = .true.
 !
       do
 !
-        if ( r_real ( i ) > r_in ) then
+        if (( r_real ( i ) > r_in ) .or. ( i .ge. size(r_real) )) then
 
           exit