param_get_centre_constraint_from_column Subroutine

private subroutine param_get_centre_constraint_from_column(column, start, finish, wann, dummy)

Uses

  • proc~~param_get_centre_constraint_from_column~~UsesGraph proc~param_get_centre_constraint_from_column param_get_centre_constraint_from_column module~w90_io w90_io proc~param_get_centre_constraint_from_column->module~w90_io module~w90_constants w90_constants module~w90_io->module~w90_constants

assigns value read to constraint parameters based on column

Arguments

Type IntentOptional AttributesName
integer, intent(inout) :: column
integer, intent(inout) :: start
integer, intent(inout) :: finish
integer, intent(inout) :: wann
character(len=maxlen), intent(inout) :: dummy

Called by

proc~~param_get_centre_constraint_from_column~~CalledByGraph proc~param_get_centre_constraint_from_column param_get_centre_constraint_from_column proc~param_get_centre_constraints param_get_centre_constraints proc~param_get_centre_constraints->proc~param_get_centre_constraint_from_column proc~param_read param_read proc~param_read->proc~param_get_centre_constraints program~wannier wannier program~wannier->proc~param_read proc~wannier_run wannier_run proc~wannier_run->proc~param_read proc~wannier_setup wannier_setup proc~wannier_setup->proc~param_read program~postw90 postw90 program~postw90->proc~param_read

Contents


Source Code

  subroutine param_get_centre_constraint_from_column(column, start, finish, wann, dummy)
    !===================================!
    !                                   !
    !!  assigns value read to constraint
    !!  parameters based on column
    !                                   !
    !===================================!
    use w90_io, only: io_error
    integer, intent(inout):: column, start, finish, wann
    character(len=maxlen), intent(inout):: dummy
    if (column == 0) then
      read (dummy(start:finish), '(i3)') wann
    end if
    if (column > 0) then
      if (column > 4) call io_error("Didn't expect anything else after Lagrange multiplier")
      if (column < 4) read (dummy(start:finish), '(f10.10)') ccentres_frac(wann, column)
    end if
    column = column + 1
  end subroutine param_get_centre_constraint_from_column