fixed closing of file (unit 222) statement in FEsolving.f90

added missing keyword in mesh.f90 with ifndef Spectral statement (needed for Marc and Abaqus)

code/FEsolving.f90

@@ -166,11 +166,11 @@ subroutine FE_init
      endif
    enddo
 #endif
+ 200 close(fileunit)
  else
    modelName = getSolverJobName()
  endif
 
-200 close(fileunit)
 #endif
 !$OMP CRITICAL (write2out)
  write(6,*)

code/mesh.f90

@@ -366,7 +366,6 @@ subroutine mesh_init(ip,element)
  call mesh_build_FEdata                                                                             ! get properties of the different types of elements
 #ifdef Spectral
  call IO_open_file(fileUnit,geometryFile)                                                           ! parse info from geometry file...
- 
  call mesh_spectral_count_nodesAndElements(fileUnit)
  call mesh_spectral_count_cpElements
  call mesh_spectral_map_elements
@@ -2578,8 +2577,10 @@ integer(pInt), intent(in) :: myUnit
  integer(pInt), parameter :: maxNchunks = 5_pInt
  integer(pInt), dimension (1+2*maxNchunks) :: myPos
  integer(pInt) chunk, Nchunks
-character(len=300) line, damaskOption, v
-
+ character(len=300) :: line, damaskOption, v
+#ifndef Spectral
+ character(len=300) :: keyword 
+#endif
  mesh_periodicSurface = .false.
 
 610 FORMAT(A300)