plotv only needed for postResults

PRIVATE

@@ -1 +1 @@
-Subproject commit a6d4eca1f9a9aee35f1c7d2e557547040cb5ecb9
+Subproject commit 0f2f42481fa082e596ff4a63bb57e2aa0ad812fc

src/DAMASK_marc.f90

@@ -363,37 +363,3 @@ subroutine uedinc(inc,incsub)
   call CPFEM_results(inc,cptim)
 
 end subroutine uedinc
-
-
-!--------------------------------------------------------------------------------------------------
-!> @brief sets user defined output variables for Marc
-!> @details select a variable contour plotting (user subroutine).
-!--------------------------------------------------------------------------------------------------
-subroutine plotv(v,s,sp,etot,eplas,ecreep,t,m,nn,layer,ndi,nshear,jpltcd)
- use prec
- use mesh
- use IO
- use homogenization
-
- implicit none
- integer,               intent(in) :: &
-   m, &                                                                                             !< element number
-   nn, &                                                                                            !< integration point number
-   layer, &                                                                                         !< layer number
-   ndi, &                                                                                           !< number of direct stress components
-   nshear, &                                                                                        !< number of shear stress components
-   jpltcd                                                                                           !< user variable index
- real(pReal),   dimension(*), intent(in) :: &
-   s, &                                                                                             !< stress array
-   sp, &                                                                                            !< stresses in preferred direction
-   etot, &                                                                                          !< total strain (generalized)
-   eplas, &                                                                                         !< total plastic strain
-   ecreep, &                                                                                        !< total creep strain
-   t                                                                                                !< current temperature
- real(pReal),                 intent(out) :: &
-   v                                                                                                !< variable
-
- if (jpltcd > materialpoint_sizeResults) call IO_error(700,jpltcd)                                  ! complain about out of bounds error
- v = materialpoint_results(jpltcd,nn,mesh_FEasCP('elem', m))
-
-end subroutine plotv

src/IO.f90

@@ -734,11 +734,6 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
     case (602)
       msg = 'invalid selection for debug'
 
-!-------------------------------------------------------------------------------------------------
-! DAMASK_marc errors
-    case (700)
-      msg = 'invalid materialpoint result requested'
-
 !-------------------------------------------------------------------------------------------------
 ! errors related to the grid solver
     case (809)