small polishing

src/CPFEM.f90

@@ -140,7 +140,6 @@ subroutine CPFEM_general(mode, ffn, ffn1, temperature_inp, dt, elFE, ip, cauchyS
   num_commercialFEM => numerics_root%get('commercialFEM',defaultVal=emptyDict)
   iJacoStiffness = num_commercialFEM%get_asInt('ijacostiffness',defaultVal=1)
   if (iJacoStiffness < 1)  call IO_error(301,ext_msg='iJacoStiffness')
-!------------------------------------------------------------------------------
 
   elCP = mesh_FEM2DAMASK_elem(elFE)
 

src/YAML_parse.f90

@@ -51,7 +51,7 @@ recursive function parse_flow(flow_string,defaultVal) result(node)
   if (len_trim(flow_string) == 0 .and. present(defaultVal)) then
     node => defaultVal
     return
-  elseif (flow_string(1:1) == '{') then                                                                 ! start of a dictionary
+  elseif (flow_string(1:1) == '{') then                                                             ! start of a dictionary
     e = 1
     allocate(tDict::node)
     do while (e < len_trim(flow_string))

src/YAML_types.f90

@@ -155,9 +155,9 @@ module YAML_types
     final :: tItem_finalize
   end type tItem
 
-  type(tDict), target,public :: &
+  type(tDict), target, public :: &
     emptyDict
-  type(tList), target,public :: &
+  type(tList), target, public :: &
     emptyList
   
   abstract interface

src/crystallite.f90

@@ -129,7 +129,7 @@ subroutine crystallite_init
     eMax, &                                                                                         !< maximum number of elements
     myNcomponents                                                                                   !< number of components at current IP
   
-  class(tNode) , pointer :: &
+  class(tNode), pointer :: &
     num_crystallite
   write(6,'(/,a)')   ' <<<+-  crystallite init  -+>>>'
 

src/grid/spectral_utilities.f90

@@ -191,7 +191,7 @@ subroutine spectral_utilities_init
     tensorSize = 9_C_INTPTR_T
   character(len=pStringLen) :: &
     petsc_options
-  class (tNode) , pointer :: &
+  class(tNode), pointer :: &
     num_grid
 
   write(6,'(/,a)') ' <<<+-  spectral_utilities init  -+>>>'

src/numerics.f90

@@ -1,6 +1,7 @@
 !--------------------------------------------------------------------------------------------------
 !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
 !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
+!> @author Sharan Roongta, Max-Planck-Institut für Eisenforschung GmbH
 !> @brief Managing of parameters related to numerics
 !--------------------------------------------------------------------------------------------------
 module numerics
@@ -64,16 +65,13 @@ subroutine numerics_init
   numerics_root => emptyDict
   inquire(file='numerics.yaml', exist=fexist)
   
-  fileExists: if (fexist) then
+  if (fexist) then
     write(6,'(a,/)') ' using values from config file'
     flush(6)
     numerics_input =  IO_read('numerics.yaml')
     numerics_inFlow = to_flow(numerics_input)
     numerics_root =>  parse_flow(numerics_inFlow,defaultVal=emptyDict)
-  else fileExists
+  endif
-    write(6,'(a,/)') ' using standard values'
-    flush(6)
-  endif fileExists
 
 !--------------------------------------------------------------------------------------------------
 ! openMP parameter