ogclos Subroutine

   subroutine ogclos(me)
      !! DEALLOCATION OF ARRAYS
      !!
      !! 2008/01/16 | J. SCHOENMAEKERS | NEW

      class(optgra),intent(inout) :: me

      ! VARIABLES
      if (allocated(me%Varval)) deallocate (me%Varval)
      if (allocated(me%Vartyp)) deallocate (me%Vartyp)
      if (allocated(me%Varsca)) deallocate (me%Varsca)
      if (allocated(me%Varstr)) deallocate (me%Varstr)
      if (allocated(me%Varlen)) deallocate (me%Varlen)
      if (allocated(me%Varref)) deallocate (me%Varref)
      if (allocated(me%Vardes)) deallocate (me%Vardes)
      if (allocated(me%Vargrd)) deallocate (me%Vargrd)
      if (allocated(me%Vardir)) deallocate (me%Vardir)
      if (allocated(me%Funvar)) deallocate (me%Funvar)
      if (allocated(me%Senvar)) deallocate (me%Senvar)

      ! CONSTRAINTS
      if (allocated(me%Conval)) deallocate (me%Conval)
      if (allocated(me%Contyp)) deallocate (me%Contyp)
      if (allocated(me%Conpri)) deallocate (me%Conpri)
      if (allocated(me%Consca)) deallocate (me%Consca)
      if (allocated(me%Constr)) deallocate (me%Constr)
      if (allocated(me%Conlen)) deallocate (me%Conlen)
      if (allocated(me%Conref)) deallocate (me%Conref)
      if (allocated(me%Senqua)) deallocate (me%Senqua)
      if (allocated(me%Sencon)) deallocate (me%Sencon)
      if (allocated(me%Sendel)) deallocate (me%Sendel)
      if (allocated(me%Senact)) deallocate (me%Senact)

      ! DERIVATIVES
      if (allocated(me%Varper)) deallocate (me%Varper)

      ! WORKING VECTORS
      if (allocated(me%Actcon)) deallocate (me%Actcon)
      if (allocated(me%Confix)) deallocate (me%Confix)
      if (allocated(me%Conact)) deallocate (me%Conact)
      if (allocated(me%Conder)) deallocate (me%Conder)
      if (allocated(me%Conred)) deallocate (me%Conred)
      if (allocated(me%Sender)) deallocate (me%Sender)
      !if (allocated(me%Conopt)) DEALLOCATE (me%Conopt)

   end subroutine ogclos