diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90
index 942c9afeb..678d87e60 100644
--- a/src/DAMASK_marc.f90
+++ b/src/DAMASK_marc.f90
@@ -41,7 +41,7 @@ module DAMASK_interface
  implicit none
  private
  
- character(len=4), parameter, public :: INPUTFILEEXTENSION = '.dat'
+ character(len=*), parameter, public :: INPUTFILEEXTENSION = '.dat'
  
  public :: &
   DAMASK_interface_init, &
diff --git a/src/results.f90 b/src/results.f90
index e0b5f9898..8708f7856 100644
--- a/src/results.f90
+++ b/src/results.f90
@@ -487,9 +487,9 @@ end subroutine results_writeScalarDataset_rotation
 !--------------------------------------------------------------------------------------------------
 subroutine results_mapping_constituent(phaseAt,memberAt,label)
     
-  integer,                   dimension(:,:),   intent(in) :: phaseAt                                !< phase section at (constituent,element)
-  integer,                   dimension(:,:,:), intent(in) :: memberAt                               !< phase member at (constituent,IP,element)
-  character(len=pStringLen), dimension(:),     intent(in) :: label                                  !< label of each phase section
+  integer,          dimension(:,:),   intent(in) :: phaseAt                                         !< phase section at (constituent,element)
+  integer,          dimension(:,:,:), intent(in) :: memberAt                                        !< phase member at (constituent,IP,element)
+  character(len=*), dimension(:),     intent(in) :: label                                           !< label of each phase section
   
   integer, dimension(size(memberAt,1),size(memberAt,2),size(memberAt,3)) :: &
     phaseAt_perIP, &
@@ -622,9 +622,9 @@ end subroutine results_mapping_constituent
 !--------------------------------------------------------------------------------------------------
 subroutine results_mapping_materialpoint(homogenizationAt,memberAt,label)
     
-  integer,                   dimension(:),   intent(in) :: homogenizationAt                         !< homogenization section at (element)
-  integer,                   dimension(:,:), intent(in) :: memberAt                                 !< homogenization member at (IP,element)
-  character(len=pStringLen), dimension(:),   intent(in) :: label                                    !< label of each homogenization section
+  integer,          dimension(:),   intent(in) :: homogenizationAt                                  !< homogenization section at (element)
+  integer,          dimension(:,:), intent(in) :: memberAt                                          !< homogenization member at (IP,element)
+  character(len=*), dimension(:),   intent(in) :: label                                             !< label of each homogenization section
   
   integer, dimension(size(memberAt,1),size(memberAt,2)) :: &
     homogenizationAt_perIP, &