Subversion Repositories openrisc

! { dg-options "-O2 -fgraphite-identity " }

MODULE qs_ks_methods

  INTEGER, PARAMETER :: sic_list_all=1

  TYPE dft_control_type

     INTEGER :: sic_list_id

  END TYPE

CONTAINS

  SUBROUTINE sic_explicit_orbitals( )

    TYPE(dft_control_type), POINTER          :: dft_control

    INTEGER, ALLOCATABLE, DIMENSION(:, :)    :: sic_orbital_list

    INTEGER, DIMENSION(:), &

      POINTER                                :: mo_derivs

    SELECT CASE(dft_control%sic_list_id)

    CASE(sic_list_all)

      DO i=1,k_alpha

         IF (SIZE(mo_derivs,1)==1) THEN

         ELSE

             sic_orbital_list(3,iorb)=2

         ENDIF

      ENDDO

    END SELECT

    CALL test()

  END SUBROUTINE sic_explicit_orbitals

END MODULE qs_ks_methods