URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr40413.f90] - Blame information for rev 757

Go to most recent revision | Details | Compare with Previous | View Log


module state_matrices
 
  implicit none
  private
 
  public :: state_matrix_copy
  public :: state_matrix_t
  public :: matrix_element_t
 
  type :: matrix_element_t
     private
     integer, dimension(:), allocatable :: f
  end type matrix_element_t
 
  type :: state_matrix_t
     private
     type(matrix_element_t), dimension(:), allocatable :: me
  end type state_matrix_t
 
  type :: polarization_t
     logical :: polarized = .false.
     integer :: spin_type = 0
     integer :: multiplicity = 0
     type(state_matrix_t) :: state
  end type polarization_t
 
contains
 
  function polarization_copy (pol_in) result (pol)
    type(polarization_t) :: pol
    type(polarization_t), intent(in) :: pol_in
    !!! type(state_matrix_t) :: state_dummy
    pol%polarized = pol_in%polarized
    pol%spin_type = pol_in%spin_type
    pol%multiplicity = pol_in%multiplicity
    !!! state_dummy = state_matrix_copy (pol_in%state)
    !!! pol%state = state_dummy
    pol%state = state_matrix_copy (pol_in%state)
  end function polarization_copy
 
  function state_matrix_copy (state_in) result (state)
    type(state_matrix_t) :: state
    type(state_matrix_t), intent(in), target :: state_in
  end function state_matrix_copy
 
end module state_matrices

Line No.	Rev	Author	Line
1	695	jeremybenn	`module state_matrices`
2
3			`implicit none`
4			`private`
5
6			`public :: state_matrix_copy`
7			`public :: state_matrix_t`
8			`public :: matrix_element_t`
9
10			`type :: matrix_element_t`
11			`private`
12			`integer, dimension(:), allocatable :: f`
13			`end type matrix_element_t`
14
15			`type :: state_matrix_t`
16			`private`
17			`type(matrix_element_t), dimension(:), allocatable :: me`
18			`end type state_matrix_t`
19
20			`type :: polarization_t`
21			`logical :: polarized = .false.`
22			`integer :: spin_type = 0`
23			`integer :: multiplicity = 0`
24			`type(state_matrix_t) :: state`
25			`end type polarization_t`
26
27			`contains`
28
29			`function polarization_copy (pol_in) result (pol)`
30			`type(polarization_t) :: pol`
31			`type(polarization_t), intent(in) :: pol_in`
32			`!!! type(state_matrix_t) :: state_dummy`
33			`pol%polarized = pol_in%polarized`
34			`pol%spin_type = pol_in%spin_type`
35			`pol%multiplicity = pol_in%multiplicity`
36			`!!! state_dummy = state_matrix_copy (pol_in%state)`
37			`!!! pol%state = state_dummy`
38			`pol%state = state_matrix_copy (pol_in%state)`
39			`end function polarization_copy`
40
41			`function state_matrix_copy (state_in) result (state)`
42			`type(state_matrix_t) :: state`
43			`type(state_matrix_t), intent(in), target :: state_in`
44			`end function state_matrix_copy`
45
46			`end module state_matrices`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr40413.f90] - Blame information for rev 757