user_windows_mod Module Reference

Data Types
type	user_windows_

Functions/Subroutines
subroutine	user_windows_init (user_window)
subroutine	user_windows_clean (user_window)

Function/Subroutine Documentation

user_windows_clean()

subroutine user_windows_mod::user_windows_clean

(

type(user_windows_)

user_window

)

Definition at line 111 of file user_windows_mod.F.

          TYPE(USER_WINDOWS_) :: USER_WINDOW
 
          IF(user_window%HAS_USER_WINDOW == 1)THEN
            IF(ALLOCATED(user_window%IUSER))     DEALLOCATE(user_window%IUSER)
            IF(ALLOCATED(user_window%USER))      DEALLOCATE(user_window%USER)
            IF(ALLOCATED(user_window%USERNODS))  DEALLOCATE(user_window%USERNODS)
            IF(ALLOCATED(user_window%IAD_USERW)) DEALLOCATE(user_window%IAD_USERW)
            IF(ALLOCATED(user_window%FR_USERW))  DEALLOCATE(user_window%FR_USERW)
            IF(ALLOCATED(user_window%A_SAV))     DEALLOCATE(user_window%A_SAV)
            IF(ALLOCATED(user_window%AR_SAV))    DEALLOCATE(user_window%AR_SAV)
            IF(ALLOCATED(user_window%WA))    DEALLOCATE(user_window%WA)
          ENDIF
          user_window%HAS_USER_WINDOW = 0
          user_window%NUVAR           = 0
          user_window%NUVARI          = 0
          user_window%N_USERNODS      = 0
          user_window%S_FR_USERW      = 0
          user_window%S_IUSER         = 0
          user_window%S_USER          = 0
          user_window%USREINT         = 0

user_windows_init()

subroutine user_windows_mod::user_windows_init

(

type(user_windows_)

user_window

)

Definition at line 90 of file user_windows_mod.F.

          TYPE(USER_WINDOWS_) :: USER_WINDOW
          user_window%HAS_USER_WINDOW = 0
          user_window%NUVAR           = 0
          user_window%NUVARI          = 0
          user_window%N_USERNODS      = 0
          user_window%S_FR_USERW      = 0
          user_window%S_IUSER         = 0
          user_window%S_USER          = 0
          user_window%USREINT         = 0