Bugfix

PrincetonUniversity · Sep 12, 2023 · 62b8ee6 · 62b8ee6
1 parent dc83d8d
commit 62b8ee6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/LIBSTELL/Sources/Modules/mumaterial_mod.f90 b/LIBSTELL/Sources/Modules/mumaterial_mod.f90
@@ -130,7 +130,7 @@ SUBROUTINE mumaterial_load(filename,istat,comm)
             READ(iunit,*) vertex(ik,1),vertex(ik,2),vertex(ik,3)
          END DO
          DO ik = 1, ntet
-            READ(iunit,*) tet(ik,1),tet(ik,2),tet(ik,3),tet(ik,4),state_dex(4)
+            READ(iunit,*) tet(ik,1),tet(ik,2),tet(ik,3),tet(ik,4),state_dex(ik)
          END DO
          ! This next section will get more complicated in the future for now
          ! we just handle the soft constant and hard magnets
@@ -384,4 +384,4 @@ END SUBROUTINE free_mpi_array2d_dbl
 !-----------------------------------------------------------------------
 !     End Module
 !-----------------------------------------------------------------------
-      END MODULE mumaterial_mod
+      END MODULE mumaterial_mod