Code: Select all
IF (allocated(idsurT)) deallocate ( idsurT )
IF (allocated(idsurT)) deallocate ( idzslT )
Code: Select all
IF (allocated(idzslT)) deallocate ( idzslT )
Code: Select all
IF (allocated(idsurT)) deallocate ( idsurT )
IF (allocated(idsurT)) deallocate ( idzslT )
Code: Select all
IF (allocated(idzslT)) deallocate ( idzslT )