angle_type Derived Type

  1. mimic_types.f90
  2. mimic_types
  3. angle_type

type, public :: angle_type


Contents

Variables

Type-Bound Procedures

Source Code

angle_type

Components

TypeVisibilityAttributesNameInitial
integer, public :: atom_i

first atom of the angle
integer, public :: atom_j

second atom of the angle
integer, public :: atom_k

third atom of the angle
real(kind=dp), public :: angle

equilibrium value of the angle

Type-Bound Procedures

procedure, public :: copy => copy_angle

  • private subroutine copy_angle(dest, source)

    Arguments

    TypeIntentOptionalAttributesName
    class(angle_type), intent(out) :: dest
    class(angle_type), intent(in) :: source

generic, public :: assignment(=) => copy

  • private subroutine copy_angle(dest, source)

    Arguments

    TypeIntentOptionalAttributesName
    class(angle_type), intent(out) :: dest
    class(angle_type), intent(in) :: source

Source Code

    type :: angle_type
        !> first atom of the angle
        integer :: atom_i
        !> second atom of the angle
        integer :: atom_j
        !> third atom of the angle
        integer :: atom_k
        !> equilibrium value of the angle
        real(dp) :: angle
    contains
        procedure :: copy => copy_angle
        generic, public :: assignment(=) => copy
    end type angle_type