InitializeMesh.f90 Source File

    integer i, j, n1, n2

    if (.not. allocated(obj%NodCoord)) then
       obj%ErrorMsg = "Caution :: Initialize >> .not.allocated(obj%NodCoord)"
       print *, obj%ErrorMsg
       return
    end if
    n1 = size(obj%NodCoord, 1)
    if (allocated(obj%SubMeshNodFromTo)) then
       deallocate (obj%SubMeshNodFromTo)
    end if
    allocate (obj%SubMeshNodFromTo(1, 3))
    obj%SubMeshNodFromTo(1, 1) = 1
    obj%SubMeshNodFromTo(1, 2) = 1
    obj%SubMeshNodFromTo(1, 3) = n1

    if (.not. allocated(obj%ElemNod)) then
       obj%ErrorMsg = "Caution :: Initialize >> .not.allocated(obj%ElemNod)"
       print *, obj%ErrorMsg
       return
    end if
    n1 = size(obj%ElemNod, 1)
    if (allocated(obj%SubMeshElemFromTo)) then
       deallocate (obj%SubMeshElemFromTo)
    end if
    allocate (obj%SubMeshElemFromTo(1, 3))
    obj%SubMeshElemFromTo(1, 1) = 1
    obj%SubMeshElemFromTo(1, 2) = 1
    obj%SubMeshElemFromTo(1, 3) = n1

    call GetFacetElement(obj)
    call GetSurface2D(obj)

    if (.not. allocated(obj%SurfaceLine2D)) then
       obj%ErrorMsg = "Caution :: Initialize >> .not.allocated(obj%ESurfaceLine2D)"
       print *, obj%ErrorMsg
       return
    end if

    n1 = size(obj%SurfaceLine2D, 1)
    if (allocated(obj%SubMeshSurfFromTo)) then
       deallocate (obj%SubMeshSurfFromTo)
    end if

    allocate (obj%SubMeshSurfFromTo(1, 3))
    obj%SubMeshSurfFromTo(1, 1) = 1
    obj%SubMeshSurfFromTo(1, 2) = 1
    obj%SubMeshSurfFromTo(1, 3) = n1