Merge pull request #201 from OpenSEMBA/fix/fhash_buckets

Increases the space allocated for coordinates and elements in fhash maps

Author: Alberto-o

src_json_parser/smbjson.F90

@@ -203,7 +203,7 @@ subroutine addCoordinates(mesh)
           call this%core%get(this%root, J_MESH//'.'//J_COORDINATES, jcs, found=found)
           if (found) then
              numberOfCoordinates = this%core%count(jcs)
-             call res%allocateCoordinates(10*numberOfCoordinates)
+             call res%allocateCoordinates(50*numberOfCoordinates)
              do i = 1, numberOfCoordinates
                 call this%core%get_child(jcs, i, jc)
                 id = this%getIntAt(jc, J_ID)
@@ -227,7 +227,7 @@ subroutine addElements(mesh)
 
          call this%core%get(this%root, J_MESH//'.'//J_ELEMENTS, jes, found=found)
          numberOfElements = this%core%count(jes)
-         call res%allocateElements(10*numberOfElements)
+         call res%allocateElements(50*numberOfElements)
 
          if (found) then
             do i = 1, numberOfElements