diff --git a/src/homogenization.f90 b/src/homogenization.f90
index 538a8a19e..1d07944b8 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -193,17 +193,14 @@ subroutine homogenization_init
        select case(homogenization_type(p))                                                              ! split per homogenization type
          case (HOMOGENIZATION_NONE_ID)
            outputName = HOMOGENIZATION_NONE_label
-           thisNoutput => null()
            thisOutput => null()
            thisSize   => null()
          case (HOMOGENIZATION_ISOSTRAIN_ID)
            outputName = HOMOGENIZATION_ISOSTRAIN_label
-           thisNoutput => null()
            thisOutput => null()
            thisSize   => null()
          case (HOMOGENIZATION_RGC_ID)
            outputName = HOMOGENIZATION_RGC_label
-           thisNoutput => homogenization_RGC_Noutput
            thisOutput => homogenization_RGC_output
            thisSize   => homogenization_RGC_sizePostResult
          case default
@@ -215,7 +212,7 @@ subroutine homogenization_init
          write(FILEUNIT,'(a,i4)') '(ngrains)'//char(9),homogenization_Ngrains(p)
          if (homogenization_type(p) /= HOMOGENIZATION_NONE_ID .and. &
              homogenization_type(p) /= HOMOGENIZATION_ISOSTRAIN_ID) then
-           do e = 1,thisNoutput(i)
+           do e = 1,size(thisOutput(:,i))
              write(FILEUNIT,'(a,i4)') trim(thisOutput(e,i))//char(9),thisSize(e,i)
            enddo
          endif
diff --git a/src/homogenization_RGC.f90 b/src/homogenization_RGC.f90
index 5c9937e4c..c5c680e2c 100644
--- a/src/homogenization_RGC.f90
+++ b/src/homogenization_RGC.f90
@@ -200,6 +200,7 @@ subroutine homogenization_RGC_init(fileUnit)
      end select
      if (outputID /= undefined_ID) then
        homogenization_RGC_output(i,instance) = outputs(i)
+       print*, homogenization_RGC_output(i,instance)
        homogenization_RGC_sizePostResult(i,instance) = outputSize
        prm%outputID = [prm%outputID , outputID]
      endif