1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
!
!---------------------------------------------------------------------
!
!Purpose:
! To release allocated T_G_BASIC in SALT: module.
!
!Copyright:
! Copyright (C) 2014 Ecole Polytechnique de Montreal.
! This library is free software; you can redistribute it and/or
! modify it under the terms of the GNU Lesser General Public
! License as published by the Free Software Foundation; either
! version 2.1 of the License, or (at your option) any later version
!
!Author(s):
! A. Hebert
!
!---------------------------------------------------------------------
!
SUBROUTINE SALEND(GG)
USE SAL_GEOMETRY_TYPES, ONLY : T_G_BASIC
TYPE(T_G_BASIC) :: GG
INTEGER :: OK,ELEM
!----
! Release geometry allocated memory
!----
DEALLOCATE(GG%IPAR,GG%RPAR,GG%IBC2_ELEM,GG%ISURF2_ELEM,GG%VOL_NODE,GG%PPERIM_NODE, &
GG%TYPE_BC2,GG%IDATA_BC2,GG%PERIM_MAC2,GG%MED,GG%PERIM_NODE,STAT =OK)
IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG members(1)')
IF(GG%NB_SURF2>0) THEN
DEALLOCATE(GG%IBC2_SURF2,GG%IELEM_SURF2,GG%SURF2,STAT =OK)
IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG surf members')
ENDIF
DEALLOCATE(GG%NUM_MERGE,STAT =OK)
IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG%NUM_MERGE')
DEALLOCATE(GG%NAME_MACRO,STAT =OK)
IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG%NAME_MACRO')
DEALLOCATE(GG%NUM_MACRO,STAT =OK)
IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG%NUM_MACRO')
IF(GG%NBBCDA>0) THEN
DO ELEM=1,GG%NBBCDA
DEALLOCATE(GG%BCDATAREAD(ELEM)%ELEMNB,STAT =OK)
IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG%BCDATAREAD(ELEM)%ELEMNB')
ENDDO
DEALLOCATE(GG%BCDATAREAD,STAT =OK)
IF(OK /= 0) CALL XABORT('SALEND: FAILURE TO DEALLOCATE GG%BCDATAREAD')
ENDIF
END SUBROUTINE SALEND
|
