release_variables Subroutine

public subroutine release_variables()

Arguments

None

Calls

proc~~release_variables~3~~CallsGraph proc~release_variables~3 release_variables proc~kohonen_pattern_destroy kohonen_pattern%kohonen_pattern_destroy proc~release_variables~3->proc~kohonen_pattern_destroy none~destroy~9 kohonen_prototype%destroy proc~kohonen_pattern_destroy->none~destroy~9

Variables

Type Visibility Attributes Name Initial
integer, public :: i
logical, public :: testop

Source Code

     subroutine release_variables()
    !
      integer :: i
      logical :: testop
    !  
      if(allocated(input_patterns)) then
        do i=1,size(input_patterns)
           call input_patterns(i)%destroy();
        enddo
        deallocate(input_patterns);
      endif
    !
      if(allocated(map_output)) then
        !do i=1,size(map_output)
        !   call map_output(i)%destroy();
        !enddo
        deallocate(map_output);
      endif
    !
      inquire(unit=som_parameters(1)%iout,opened=testop);
      if(testop) then
        close(som_parameters(1)%iout)
      endif
    !
     end subroutine release_variables