mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-06-02 11:25:19 +02:00
14 lines
253 B
Fortran
14 lines
253 B
Fortran
SUBROUTINE irp_finalize_{id}
|
|
{#use}
|
|
USE {.}
|
|
{/use}
|
|
|
|
IMPLICIT NONE
|
|
{#entity_array}
|
|
IF (ALLOCATED({name})) THEN
|
|
{name_root}_is_built = .FALSE.
|
|
! DEALLOCATE({name})
|
|
ENDIF
|
|
{/entity_array}
|
|
END SUBROUTINE irp_finalize_{id}
|