Continue on the search

sammy/src/new/SetUExternalRMatrix_M.f90

@@ -32,6 +32,7 @@ subroutine SetUExternalRMatrix_setParameterNumber(this, resData, covData, iflext
        call resData%getSpinGroupInfo(spinInfo, isp)
 
        do ich = 1, spinInfo%getNumChannels()
+          if (nrext.eq.0) cycle
           if ( iflext(1, ich, isp).lt.0) cycle
           do k = 1, nrext
               call this%updateNumbers(iflext(k, ich, isp), covData, initial);
@@ -57,7 +58,8 @@ subroutine SetUExternalRMatrix_updateFitFlags(this, resData, covData, iflext, nr
     do isp = 1, resData%getNumSpinGroups()
        call resData%getSpinGroupInfo(spinInfo, isp)
 
-       do ich = 1, spinInfo%getNumChannels()      
+       do ich = 1, spinInfo%getNumChannels()
+          if (nrext.eq.0) cycle
           if ( iflext(1, ich, isp).lt.0) cycle         
           do k = 1, nrext
               flag = this%getUpdatedFitFlag(iflext(k, ich, isp), covData, index, indexVar, indexPup)