subroutine rk4stepks(x, y, h, yout, n, m, derivs)
!   Do one step of the classical 4th order Runge Kutta method,
!   starting from y at x with time step h and derivatives given by derivs
  implicit none
  integer :: n,m
  real(8) :: x, h
  real(8) :: y(0:n-1,0:m-1)
  real(8) :: yout(0:n-1,0:m-1)
  real(8) :: derivs
  external derivs

!f2py real(8), intent(in) :: x, h
!f2py real(8), intent(out), dimension(0:n-1,0:m-1) :: yout
!f2py real(8), intent(in), dimension(0:n-1,0:m-1) :: y
!f2py integer, intent(in) :: n,m

  x = derivs(n,m)
  yout = y
    return
    end subroutine

Send y as argument for derivs.

subroutine rk4stepks(x, y, h, yout, n, m, derivs)
!   Do one step of the classical 4th order Runge Kutta method,
!   starting from y at x with time step h and derivatives given by derivs
  implicit none
  integer :: n,m
  real(8) :: x, h
  real(8) :: y(0:n-1,0:m-1)
  real(8) :: yout(0:n-1,0:m-1)
  real(8) :: derivs
  external derivs

!f2py real(8), intent(in) :: x, h
!f2py real(8), intent(out), dimension(0:n-1,0:m-1) :: yout
!f2py real(8), intent(in), dimension(0:n-1,0:m-1) :: y
!f2py integer, intent(in) :: n,m

  x = derivs(y,m)
  yout = y
    return
    end subroutine


program cell_test
    use chemharp
    use testing

    implicit none
    integer(kind=kind(CHRP_LOG_LEVEL)) :: level
    integer :: status
    logical :: fexist
    character(len=1024) :: error

    error = chrp_strerror(int(0, 4))
    call check((trim(error) == "Operation was sucessfull"), "chrp_strerror")

    error = chrp_last_error()
    call check((trim(error) == ""), "chrp_last_error")

    call chrp_loglevel(level, status=status)
    call check((status == 0), "chrp_loglevel")
    call check((level == CHRP_LOG_WARNING), "chrp_loglevel")

    call chrp_set_loglevel(CHRP_LOG_NONE, status=status)
    call check((status == 0), "chrp_set_loglevel")

    call chrp_loglevel(level, status=status)
    call check((status == 0), "chrp_loglevel")
    call check((level == CHRP_LOG_NONE), "chrp_loglevel")

    call chrp_logfile("test.log", status=status)
    call check((status == 0), "chrp_logfile")

    inquire(file="test.log", exist=fexist)
    call check(fexist, "File created by chrp_logfile")

    call chrp_log_stderr(status=status)
    call check((status == 0), "chrp_log_stderr")

    open(unit=11, iostat=status, file="test.log", status='old')
    if (status == 0) close(11, status='delete')
end program


module cell_list_shared

    use utils
    implicit none

    integer, allocatable :: inters(:, :), intersi(:)
    integer, parameter :: m_max = 100
    integer, parameter :: inters_max = 10

contains

subroutine initialise_inters(n)
    integer, intent(in) :: n

    if (allocated(inters)) deallocate(inters)
    if (allocated(intersi)) deallocate(intersi)
    if (.not. allocated(inters)) allocate(inters(min(n, inters_max), n))
    if (.not. allocated(intersi)) allocate(intersi(size(inters, 2)))
end subroutine

end module

Change introspective cell list params to make it harder to break

module cell_list_shared

    use utils
    implicit none

    integer, allocatable :: inters(:, :), intersi(:)
    integer, parameter :: m_max = 100
    ! maximum number of possible interaction particles
    integer, parameter :: inters_max = 200

contains

subroutine initialise_inters(n)
    integer, intent(in) :: n

    if (allocated(inters)) deallocate(inters)
    if (allocated(intersi)) deallocate(intersi)
    if (.not. allocated(inters)) allocate(inters(min(n, inters_max), n))
    if (.not. allocated(intersi)) allocate(intersi(size(inters, 2)))
end subroutine

end module


MODULE mo_column

CONTAINS
 SUBROUTINE compute_column ( nz , q , t , nx , ny )
  INTEGER , INTENT(IN) :: nz
  REAL , INTENT(INOUT) :: t ( : , : , : )
  REAL , INTENT(INOUT) :: q ( : , : , : )
  INTEGER :: k
  REAL :: c
  REAL :: d
  INTEGER , INTENT(IN) :: nx
  INTEGER :: i
  INTEGER , INTENT(IN) :: ny
  INTEGER :: j

!$acc parallel
!$acc loop collapse(2)
  DO i = 1 , nx , 1
   DO j = 1 , ny , 1
    c = 5.345
    DO k = 2 , nz , 1
     t ( i , j , k ) = c * k
     d = t ( i , j , k ) + c
     q ( i , j , k ) = q ( i , j , k - 1 ) + t ( i , j , k ) * c + d
    END DO
    q ( i , j , nz ) = q ( i , j , nz ) * c
   END DO
  END DO
!$acc end parallel
 END SUBROUTINE compute_column

END MODULE mo_column

Update ref with do stmt reordering

MODULE mo_column

CONTAINS
 SUBROUTINE compute_column ( nz , q , t , nx , ny )
  INTEGER , INTENT(IN) :: nz
  REAL , INTENT(INOUT) :: t ( : , : , : )
  REAL , INTENT(INOUT) :: q ( : , : , : )
  INTEGER :: k
  REAL :: c
  REAL :: d
  INTEGER , INTENT(IN) :: nx
  INTEGER :: i
  INTEGER , INTENT(IN) :: ny
  INTEGER :: j

!$acc parallel
!$acc loop collapse(2)
  DO j = 1 , ny , 1
   DO i = 1 , nx , 1
    c = 5.345
    DO k = 2 , nz , 1
     t ( i , j , k ) = c * k
     d = t ( i , j , k ) + c
     q ( i , j , k ) = q ( i , j , k - 1 ) + t ( i , j , k ) * c + d
    END DO
    q ( i , j , nz ) = q ( i , j , nz ) * c
   END DO
  END DO
!$acc end parallel
 END SUBROUTINE compute_column

END MODULE mo_column


! vim : tw=72 ts=2 sw=2
! sphericalvec.f90
! Implements for 3D vectors in spherical coordinates.
! Coded by jungerstein.
! Except for the licence, it is kind to contact me
! if the codes are involved in your original research.

module sphericalvec3d
  type sphvec3
    ! Please note that there is NO POINT using arrays to store components.
    ! The elements simply refer to different things.
    double precision :: r
    double precision :: th
    double precision :: ph
    double precision :: rPos     ! For vector positions
    double precision :: thPos
    double precision :: phPos
  end type sphvec3

  interface operator (.len.)
    module procedure :: sphericalVectorLength
  end interface

  interface operator (.ein.)
    module procedure :: sphericalUnityVector
  end interface

  contains

  elemental function sphericalVectorLength(A) result (l)
    implicit none

    type (sphvec3), intent (in) :: A
    double precision :: l

    ! TODO In some systems there are built-in procedures to compute this.
    ! Try to utilise them.
    l = sqrt(A%r ** 2 + A%th ** 2 + A%ph ** 2)
  end function sphericalVectorLength

  elemental function sphericalUnityVector(A) result (e)
    implicit none

    type (sphvec3), intent (in) :: A
    type (sphvec3) :: e

    double precision :: l

    e%rPos = A%rPos
    e%thPos = A%thPos
    e%phPos = A%phPos

    l = .len. A

    e%r = A%r / l
    e%th = A%th / l
    e%ph = A%ph / l
  end function sphericalUnityVector

end module sphericalvec3d


subroutine rk4stepks(x, y, h, n, m, yout)
!   Do one step of the classical 4th order Runge Kutta method,
!   starting from y at x with time step h and derivatives given by derivs
    implicit none

    real, intent(in) :: x
    real, intent(in) :: y
    real, intent(in) :: h
    integer :: n, m
    !external derivs

    real :: hh, h6, xh
    real, dimension(0:n-1,0:m-1) :: yt, dyt, dym
    real, dimension(0:n-1,0:m-1), intent(out) :: yout
!f2py depend(n,m) yt, dyt, dym, yout

    hh = h*0.5 !Half time step
    h6 = h/6.0 !Sixth of time step
    xh = x + hh ! Halfway point in x direction

    !First step, we already have derivatives from dydx
    !yt = y + hh*dydx

    !Second step, get new derivatives
    !dyt = derivs(yt, xh)

    !yt = y + hh*dyt

    !Third step
    !dym = derivs(yt, xh)

    !yt = y + h*dym
    !dym = dym + dyt

    !Fourth step
    !dyt = derivs(yt, x+h)

    !Accumulate increments with proper weights
    !yout = y + h6*(dydx + dyt + 2*dym)
    yout = y

    return
    end subroutine

Add colons to see if it makes a difference.

subroutine rk4stepks(x, y, h, n, m, yout)
!   Do one step of the classical 4th order Runge Kutta method,
!   starting from y at x with time step h and derivatives given by derivs
    implicit none

    real, intent(in) :: x
    real, intent(in) :: y
    real, intent(in) :: h
    integer :: n, m
    !external derivs

    real :: hh, h6, xh
    real, dimension(0:n-1,0:m-1) :: yt, dyt, dym
    real, dimension(0:n-1,0:m-1), intent(out) :: yout
!f2py depend(n,m) :: yt, dyt, dym, yout

    hh = h*0.5 !Half time step
    h6 = h/6.0 !Sixth of time step
    xh = x + hh ! Halfway point in x direction

    !First step, we already have derivatives from dydx
    !yt = y + hh*dydx

    !Second step, get new derivatives
    !dyt = derivs(yt, xh)

    !yt = y + hh*dyt

    !Third step
    !dym = derivs(yt, xh)

    !yt = y + h*dym
    !dym = dym + dyt

    !Fourth step
    !dyt = derivs(yt, x+h)

    !Accumulate increments with proper weights
    !yout = y + h6*(dydx + dyt + 2*dym)
    yout = y

    return
    end subroutine


MODULE mo_column

CONTAINS
 SUBROUTINE compute_column ( nz , q , t , nx , ny )
  INTEGER , INTENT(IN) :: nz
  REAL , INTENT(INOUT) :: t ( : , : , : )
  REAL , INTENT(INOUT) :: q ( : , : , : )
  INTEGER :: k
  REAL :: c
  REAL :: d ( 1 : nx , 1 : ny )
  INTEGER , INTENT(IN) :: nx
  INTEGER :: i
  INTEGER , INTENT(IN) :: ny
  INTEGER :: j

  c = 5.345
  DO k = 2 , nz , 1
   DO j = 1 , ny , 1
    DO i = 1 , nx , 1
     t ( i , j , k ) = c * k
    END DO
   END DO
   DO j = 1 , ny , 1
    DO i = 1 , nx , 1
     d( i , j ) = t ( i , j , k ) + c
    END DO
   END DO
   DO j = 1 , ny , 1
    DO i = 1 , nx , 1
     q ( i , j , k ) = q ( i , j , k - 1 ) + t ( i , j , k ) * c + d ( i , j )
    END DO
   END DO
  END DO
  DO i = 1 , nx , 1
   DO j = 1 , ny , 1
    q ( i , j , nz ) = q ( i , j , nz ) * c
   END DO
  END DO
 END SUBROUTINE compute_column

END MODULE mo_column

Update reference to correct expected result

MODULE mo_column

CONTAINS
 SUBROUTINE compute_column ( nz , q , t , nx , ny )
  INTEGER , INTENT(IN) :: nz
  REAL , INTENT(INOUT) :: t ( : , : , : )
  REAL , INTENT(INOUT) :: q ( : , : , : )
  INTEGER :: k
  REAL :: c
  REAL :: d ( 1 : nx , 1 : ny )
  INTEGER , INTENT(IN) :: nx
  INTEGER :: i
  INTEGER , INTENT(IN) :: ny
  INTEGER :: j

  c = 5.345
  DO k = 2 , nz , 1
   DO j = 1 , ny , 1
    DO i = 1 , nx , 1
     t ( i , j , k ) = c * k
    END DO
   END DO
   DO j = 1 , ny , 1
    DO i = 1 , nx , 1
     d ( i , j ) = t ( i , j , k ) + c
    END DO
   END DO
   DO j = 1 , ny , 1
    DO i = 1 , nx , 1
     q ( i , j , k ) = q ( i , j , k - 1 ) + t ( i , j , k ) * c + d ( i , j )
    END DO
   END DO
  END DO
  DO j = 1 , ny , 1
   DO i = 1 , nx , 1
    q ( i , j , nz ) = q ( i , j , nz ) * c
   END DO
  END DO
 END SUBROUTINE compute_column

END MODULE mo_column


module fciqmc_data

use const
implicit none

! timestep
real(dp) :: tau

! shift
real(dp) :: shift

! Walker information: main list.
! a) determinants
integer(i0), allocatable :: walker_dets(:,:) ! (basis_length, walker_length)
! b) walker population
integer, allocatable :: walker_population(:) ! (walker_length)
! c) Diagonal matrix elements, K_ii.  Storing them avoids recalculation.
! K_ii = < D_i | H | D_i > - E_0, where E_0 = <D_0 | H | D_0> and |D_0> is the
! reference determinant.
real(dp), allocatable :: walker_energies(:)

! Walker information: spawned list.
! a) determinants
integer(i0), allocatable :: spawned_walker_dets(:,:) ! (basis_length, walker_length)
! b) walker population
integer, allocatable :: spawned_walker_population(:) ! (walker_length)

end module fciqmc_data

Add necessary fciqmc data variables.

module fciqmc_data

use const
implicit none

!--- Input data ---

! number of monte carlo cycles/report loop
integer :: ncycles
! number of report cycles
integer :: nreport

! timestep
real(dp) :: tau = 0.10_dp

! shift
real(dp) :: shift = 0.0_dp

! Array sizes
integer :: walker_length
integer :: spawned_walker_length

! Current number of walkers stored in the main list.
integer :: tot_walkers

!--- Walker data ---

! Walker information: main list.
! a) determinants
integer(i0), allocatable :: walker_dets(:,:) ! (basis_length, walker_length)
! b) walker population
integer, allocatable :: walker_population(:) ! (walker_length)
! c) Diagonal matrix elements, K_ii.  Storing them avoids recalculation.
! K_ii = < D_i | H | D_i > - E_0, where E_0 = <D_0 | H | D_0> and |D_0> is the
! reference determinant.
real(dp), allocatable :: walker_energies(:)

! Walker information: spawned list.
! a) determinants
integer(i0), allocatable :: spawned_walker_dets(:,:) ! (basis_length, spawned_walker_length)
! b) walker population
integer, allocatable :: spawned_walker_population(:) ! (spawned_walker_length)

end module fciqmc_data


MODULE mo_column

CONTAINS
 SUBROUTINE compute_column ( nz , q , t , nx , ny )
  INTEGER , INTENT(IN) :: nz
  REAL , INTENT(INOUT) :: t ( : , : , : )
  REAL , INTENT(INOUT) :: q ( : , : , : )
  INTEGER :: k
  REAL :: c
  INTEGER , INTENT(IN) :: nx
  INTEGER :: i
  INTEGER , INTENT(IN) :: ny
  INTEGER :: j

!$acc parallel
!$acc loop collapse(2)
  DO i = 1 , nx , 1
   DO j = 1 , ny , 1
    c = 5.345
    DO k = 2 , nz , 1
     t ( i , j , k ) = c * k
     q ( i , j , k ) = q ( i , j , k - 1 ) + t ( i , j , k ) * c
    END DO
    q ( i , j , nz ) = q ( i , j , nz ) * c
   END DO
  END DO
!$acc end parallel
 END SUBROUTINE compute_column

END MODULE mo_column

Update ref with intermediate value

MODULE mo_column

CONTAINS
 SUBROUTINE compute_column ( nz , q , t , nx , ny )
  INTEGER , INTENT(IN) :: nz
  REAL , INTENT(INOUT) :: t ( : , : , : )
  REAL , INTENT(INOUT) :: q ( : , : , : )
  INTEGER :: k
  REAL :: c
  REAL :: d
  INTEGER , INTENT(IN) :: nx
  INTEGER :: i
  INTEGER , INTENT(IN) :: ny
  INTEGER :: j

!$acc parallel
!$acc loop collapse(2)
  DO i = 1 , nx , 1
   DO j = 1 , ny , 1
    c = 5.345
    DO k = 2 , nz , 1
     t ( i , j , k ) = c * k
     d = t ( i , j , k ) + c
     q ( i , j , k ) = q ( i , j , k - 1 ) + t ( i , j , k ) * c + d
    END DO
    q ( i , j , nz ) = q ( i , j , nz ) * c
   END DO
  END DO
!$acc end parallel
 END SUBROUTINE compute_column

END MODULE mo_column


program main
  use finalist_header
  use finalist

  implicit none
  type(Formura_Navigator) :: navi

  print *, "Formura test main program."

  call mpi_init(mpi_err)
  call Formura_Init(navi, MPI_COMM_WORLD)
  print *, "time step = ", navi%time_step
  print *, "lower x = ", navi%lower_x
  print *, "upper x = ", navi%upper_x

  call init()

  call mpi_finalize(mpi_err)
contains
  subroutine init()

  end subroutine init

end program main

Implement initial condition and monitor output

program main
  use finalist_header
  use finalist

  implicit none
  type(Formura_Navigator) :: navi
  integer :: seedsize, mpi_my_rank
  integer,allocatable:: seed(:)

  print *, "Formura test main program."

  call mpi_init(mpi_err)

  call Formura_Init(navi, MPI_COMM_WORLD)

  call random_seed(size=seedsize)  ! シードの格納に必要なサイズを取得する
  allocate(seed(seedsize))         ! シード格納領域を確保
  call random_seed(get=seed)       ! シードを取得
  seed(1) = navi%mpi_my_rank       ! シードを摂動
  call random_seed(put=seed)       ! シードを格納

  print *, "time step = ", navi%time_step
  print *, "lower x = ", navi%lower_x
  print *, "upper x = ", navi%upper_x

  call init(navi)

  call mpi_finalize(mpi_err)
contains

  subroutine init(navi)
    type(Formura_Navigator) :: navi
    integer :: ix,iy,iz, sx,sy,sz
    double precision :: rx,ry,rz

    do iz = navi%lower_z+1, navi%upper_z
       do iy = navi%lower_y+1, navi%upper_y
          do ix = navi%lower_x+1, navi%upper_x
             U(ix,iy,iz) = 1.0
             V(ix,iy,iz) = 0.0
          end do
       end do
    end do

    call random_number(rx)
    call random_number(ry)
    call random_number(rz)

    sx = (navi%upper_x-navi%lower_x-16)*rx
    sy = (navi%upper_y-navi%lower_y-16)*ry
    sz = (navi%upper_z-navi%lower_z-16)*rz

    do iz = sz+1,sz+16
       do iy = sy+1, sy+16
          do ix = sx+1, sx+16
             U(ix,iy,iz) = 0.5
             V(ix,iy,iz) = 0.25
          end do
       end do
    end do

  end subroutine init

  subroutine write_global_monitor(navi)
    type(Formura_Navigator) :: navi
    print *, "global monitor"
    if (navi%offset_x + navi%lower_x == 0) then
       print *, "global monitor output"
    end if
  end subroutine write_global_monitor

end program main


module ccmc_data

use const, only: i0, p

implicit none

! Work around Fortran's lack of arrays of pointers...
type bit_string_ptr
    integer(i0), pointer :: f(:)
end type bit_string_ptr

! Information about a cluster of excitors in addition to that stored in
! a det_info variable.
type cluster_t
    ! Pointers to the determinants formed by applying individual excitors to the
    ! reference determinant.
    type(bit_string_ptr), allocatable :: excitors(:) ! max: truncation_level+1
    ! Number of excitors in cluster
    integer :: nexcitors
    ! Excitation level relative to the reference determinant of the determinant
    ! formed by applying the cluster of excitors to the reference determinant.
    integer :: excitation_level
    ! Overall amplitude of the cluster.
    real(p) :: amplitude
    ! < D_i | a_i D_0 >, where D_i is the determinant formed by applying the
    ! cluster of excitors to the reference determinant.  Equal to +1 or -1.
    integer :: cluster_to_det_sign
    ! probability of selecting this cluster at random
    real(p) :: pselect
end type cluster_t

end module ccmc_data

Correct comment on array bounds of cluster%excitors array.

module ccmc_data

use const, only: i0, p

implicit none

! Work around Fortran's lack of arrays of pointers...
type bit_string_ptr
    integer(i0), pointer :: f(:)
end type bit_string_ptr

! Information about a cluster of excitors in addition to that stored in
! a det_info variable.
type cluster_t
    ! Pointers to the determinants formed by applying individual excitors to the
    ! reference determinant.
    type(bit_string_ptr), allocatable :: excitors(:) ! max: truncation_level+2
    ! Number of excitors in cluster
    integer :: nexcitors
    ! Excitation level relative to the reference determinant of the determinant
    ! formed by applying the cluster of excitors to the reference determinant.
    integer :: excitation_level
    ! Overall amplitude of the cluster.
    real(p) :: amplitude
    ! < D_i | a_i D_0 >, where D_i is the determinant formed by applying the
    ! cluster of excitors to the reference determinant.  Equal to +1 or -1.
    integer :: cluster_to_det_sign
    ! probability of selecting this cluster at random
    real(p) :: pselect
end type cluster_t

end module ccmc_data


subroutine test(a, b)
    real(kind=8), intent(in), dimension(:) :: a
    real(kind=8), intent(out), dimension(:) :: b

    b = a
end subroutine test

Fix the sizes of the arrays in 'test'

subroutine test(a, b)
    real(kind=8), intent(in), dimension(:) :: a
    real(kind=8), intent(out), dimension(size(a)) :: b

    b = a
end subroutine test


MODULE mo_column
  IMPLICIT NONE
CONTAINS
  ! Compute only one column
  SUBROUTINE compute_column(nz, q, t)
    IMPLICIT NONE

    INTEGER, INTENT(IN)   :: nz   ! Size of the array field
    REAL, INTENT(INOUT)   :: t(:) ! Field declared as one column only
    REAL, INTENT(INOUT)   :: q(:) ! Field declared as one column only
    INTEGER :: k                  ! Loop index
    REAL :: c                     ! Coefficient
    REAL :: d                     ! Intermediate varibale

    ! CLAW definition

    ! Define two dimensions that will be added to the variables defined in the
    ! data clause.
    ! Apply the parallelization transformation on this subroutine.

    !$claw define dimension i(1,nx) &
    !$claw define dimension j(1,ny) &
    !$claw parallelize data(q,t) over (i,j,:)

    c = 5.345
    DO k = 2, nz
      t(k) = c * k
      d = t(k) + c
      q(k) = q(k - 1)  + t(k) * c + d
    END DO
    q(nz) = q(nz) * c
  END SUBROUTINE compute_column
END MODULE mo_column

Remove the optional data/over clauses

MODULE mo_column
  IMPLICIT NONE
CONTAINS
  ! Compute only one column
  SUBROUTINE compute_column(nz, q, t)
    IMPLICIT NONE

    INTEGER, INTENT(IN)   :: nz   ! Size of the array field
    REAL, INTENT(INOUT)   :: t(:) ! Field declared as one column only
    REAL, INTENT(INOUT)   :: q(:) ! Field declared as one column only
    INTEGER :: k                  ! Loop index
    REAL :: c                     ! Coefficient
    REAL :: d                     ! Intermediate varibale

    ! CLAW definition

    ! Define two dimensions that will be added to the variables defined in the
    ! data clause.
    ! Apply the parallelization transformation on this subroutine.

    !$claw define dimension i(1,nx) &
    !$claw define dimension j(1,ny) &
    !$claw parallelize

    c = 5.345
    DO k = 2, nz
      t(k) = c * k
      d = t(k) + c
      q(k) = q(k - 1)  + t(k) * c + d
    END DO
    q(nz) = q(nz) * c
  END SUBROUTINE compute_column
END MODULE mo_column


module fciqmc_data

use const
implicit none

! timestep
real(dp) :: tau

! Walker information: main list.
! a) determinants
integer(i0), allocatable :: walker_dets(:,:) ! (basis_length, walker_length)
! b) walker population
integer, allocatable :: walker_population(:) ! (walker_length)
! c) Diagonal matrix elements, K_ii.  Storing them avoids recalculation.
! K_ii = < D_i | H | D_i > - E_0, where E_0 = <D_0 | H | D_0> and |D_0> is the
! reference determinant.
real(dp), allocatable :: walker_energies(:)

! Walker information: spawned list.
! a) determinants
integer(i0), allocatable :: spawned_walker_dets(:,:) ! (basis_length, walker_length)
! b) walker population
integer, allocatable :: spawned_walker_population(:) ! (walker_length)

end module fciqmc_data

Add data to fciqmc data module.

module fciqmc_data

use const
implicit none

! timestep
real(dp) :: tau

! shift
real(dp) :: shift

! Walker information: main list.
! a) determinants
integer(i0), allocatable :: walker_dets(:,:) ! (basis_length, walker_length)
! b) walker population
integer, allocatable :: walker_population(:) ! (walker_length)
! c) Diagonal matrix elements, K_ii.  Storing them avoids recalculation.
! K_ii = < D_i | H | D_i > - E_0, where E_0 = <D_0 | H | D_0> and |D_0> is the
! reference determinant.
real(dp), allocatable :: walker_energies(:)

! Walker information: spawned list.
! a) determinants
integer(i0), allocatable :: spawned_walker_dets(:,:) ! (basis_length, walker_length)
! b) walker population
integer, allocatable :: spawned_walker_population(:) ! (walker_length)

end module fciqmc_data


! Simple program to test the to-loop directive

PROGRAM VECTOR_LOOP
  CALL claw
END

! Before the transformation
SUBROUTINE claw
  INTEGER :: j
  INTEGER :: i = 10
  INTEGER, DIMENSION(0:9) :: vec1

  DO j = 0, i
  		vec1(j) = j
  END DO

  !$claw array-transform
  vec1(0:i) = vec1(0:i) + 10;

  PRINT*,vec1
END SUBROUTINE claw

Add transformation example for dev

! Simple program to test the to-loop directive

PROGRAM VECTOR_LOOP
  CALL claw
END

! Before the transformation
SUBROUTINE claw
  INTEGER :: j
  INTEGER :: i = 10
  INTEGER, DIMENSION(0:10) :: vec1

  DO j = 0, i
    vec1(j) = j
  END DO

  !$claw array-transform
  vec1(0:i) = vec1(0:i) + 10

  PRINT*,vec1
END SUBROUTINE claw

! Example of the transformation for development purpose
SUBROUTINE claw_transformed
  INTEGER :: i = 10
  INTEGER, DIMENSION(0:10) :: vec1
  INTEGER :: claw_induc1 ! induction variable is declared

  DO j = 0, i
    vec1(j) = j
  END DO

  ! Do stmt is inserted
  DO claw_induc1=0,i
    ! index range are replaced with arrayIndex
    vec1(claw_induc1) = vec1(claw_induc1) + 10
  END DO

  PRINT*,vec1
  PRINT*,vec2
END SUBROUTINE claw_transformed


PROGRAM test_primitive

  INTEGER :: i

  !$claw acc parallel
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw acc end parallel

  !$claw omp do
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw omp end do

END PROGRAM test_primitive

Add usage of openacc for test purpose

PROGRAM test_primitive
  USE openacc

  INTEGER :: i

  !$claw acc parallel
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw acc end parallel

  !$claw omp do
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw omp end do

END PROGRAM test_primitive


Add new test case for loop-hoist with two loop-hoist nested

!
! This file is released under terms of BSD license
! See LICENSE file for more information
!
!
! Simple program to test the loop-fusion directive with collapse clause
!

PROGRAM LOOP_FUSION
  CALL clawloop
END

SUBROUTINE clawloop
  IMPLICIT NONE
  INTEGER :: i
  INTEGER :: j
  INTEGER :: k
  INTEGER :: iend = 2
  INTEGER :: jend = 4
  INTEGER :: kend = 2

  DO i=0,iend
    !$claw loop-hoist(j)

    !$claw loop-hoist(k)
    IF (i == 0) THEN
      PRINT*, 'First iteration of i',i,'/',j,'/',k
    END IF
    DO j=0,jend
      DO k=0,kend
        PRINT *, 'First loop body:',i,'/',j,'/',k
      END DO
    END DO

    DO j=2,jend
      DO k=0,kend
        PRINT *, 'Second loop body:',i,'/',j,'/',k
      END DO
    END DO
    !$claw end loop-hoist

    !$claw end loop-hoist
  END DO
END


Put this routine back in, since it is needed to compute element stiffness matrix.

c -*- Fortran -*-
c
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c
c                             Charles A. Williams
c                       Rensselaer Polytechnic Institute
c                        (C) 2004  All Rights Reserved
c
c  Copyright 2004 Rensselaer Polytechnic Institute.
c  All worldwide rights reserved.  A license to use, copy, modify and
c  distribute this software for non-commercial research purposes only
c  is hereby granted, provided that this copyright notice and
c  accompanying disclaimer is not modified or removed from the software.
c
c  DISCLAIMER:  The software is distributed "AS IS" without any express
c  or implied warranty, including but not limited to, any implied
c  warranties of merchantability or fitness for a particular purpose
c  or any warranty of non-infringement of any current or pending patent
c  rights.  The authors of the software make no representations about
c  the suitability of this software for any particular purpose.  The
c  entire risk as to the quality and performance of the software is with
c  the user.  Should the software prove defective, the user assumes the
c  cost of all necessary servicing, repair or correction.  In
c  particular, neither Rensselaer Polytechnic Institute, nor the authors
c  of the software are liable for any indirect, special, consequential,
c  or incidental damages related to the software, to the maximum extent
c  the law permits.
c
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c
c
      subroutine getmat(atmp,a,id,ndim,nda)
c
c...  subroutine to copy the lower triangular part of matrix a into atmp
c     using id array
c
      include "implicit.inc"
c
c...  subroutine arguments
c
      integer ndim,nda
      integer id(6,6)
      double precision atmp(ndim,ndim),a(nda)
c
c...  local variables
c
      integer i,j
c
      do i=1,ndim
        do j=1,i
          atmp(i,j)=a(id(i,j))
        end do
      end do
      return
      end
c
c version
c $Id: getmat.f,v 1.3 2005/04/01 23:37:53 willic3 Exp $
c
c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
c
c End of file


program black_hole_diffusion
  use mod_constants
  use mod_variables
  use mod_read_parameters
  use mod_s_curve

  implicit none

  call get_parameters()
  call init_variable_0()
  call curve()

end program black_hole_diffusion

Copy initial vector into state vector

program black_hole_diffusion
  use mod_constants
  use mod_variables
  use mod_read_parameters
  use mod_s_curve

  implicit none

  integer     :: iteration, n
  type(state) :: s

  call get_parameters()

  ! Call init variable to create the adim state vector and
  ! generate the state_0
  call init_variable_0()

  ! Copy the value of state_0 into state vector s
  do n = 1, n_cell
     s%Omega(n) = state_0%Omega_0
     s%x(n)     = state_0%x_0
     s%nu(n)    = state_0%nu_0
     s%v(n)     = state_0%v_0
     s%T(n)     = state_0%T_0
     s%P_rad(n) = state_0%P_rad_0
     s%P_gaz(n) = state_0%P_gaz_0
     ! FIXME
     ! s%beta(n)  = state_0%beta_0
     s%cs(n)    = state_0%cs_0
     s%H(n)     = state_0%H_0
     s%rho(n)   = state_0%rho_0
     s%S(n)     = state_0%S_0
     s%Fz(n)    = state_0%Fz_0
     s%M_dot(n) = state_0%M_dot_0
     s%Cv(n)    = state_0%Cv_0
  end do

  ! Start iterating
  do iteration = 1, n_iterations

  end do

end program black_hole_diffusion


Allow for more general velocities fields on the torus

subroutine b4step2(maxmx, maxmy, mbc,mx,my,meqn,q,
     &            xlower,ylower,dx,dy,time,dt,maux,aux)
      implicit none

      integer mbc, mx, my, meqn, maux, maxmx, maxmy
      double precision xlower, ylower, dx, dy, time, dt
      double precision q(1-mbc:maxmx+mbc,1-mbc:maxmy+mbc, meqn)
      double precision aux(1-mbc:maxmx+mbc,1-mbc:maxmy+mbc, maux)

      integer i, j
      double precision tperiod, pi2, vt, xll,yll, psi, pi
      integer blockno, clawpack_get_block

      common /compi/ pi
c

      blockno = clawpack_get_block()

      do i = 1-mbc,mx+mbc
         do j = 1-mbc,my+mbc
c           # coordinates of lower left corner of grid cell:
            xll = xlower + (i-1)*dx
            yll = ylower + (j-1)*dy

c           # difference stream function psi to get normal velocities:
            aux(i,j,2) = -(psi(blockno,xll, yll+dy,time) -
     &            psi(blockno,xll,yll,time)) / dy
            aux(i,j,3) =  (psi(blockno,xll+dx, yll,time) -
     &            psi(blockno,xll,yll,time)) / dx

         enddo
      enddo

      return
      end


module hamiltonian_data

! Small module to contain hamiltonian-related derived types to avoid cyclic
! dependencies until a better place for them is found.

use const, only: p

implicit none

type hmatel_t
    ! Derived type to contain all information on a particular hmatel, to
    ! allow compatibility between real and complex interfaces.

    ! Value for real hamiltonian elements.
    real(p) :: r

    ! Value for complex hamiltonian elements.
    complex(p) :: c
end type hmatel_t

end module hamiltonian_data

Add warning about initialisation (or, rather, not) of hmatel_t.

module hamiltonian_data

! Small module to contain hamiltonian-related derived types to avoid cyclic
! dependencies until a better place for them is found.

use const, only: p

implicit none

! --- WARNING ---
! Only one component of hamil_t is in use at a time, depending upon the context.
! The other component is NOT initialised and so cannot be relied on to be zero.
! --- WARNING ---

type hmatel_t
    ! Derived type to contain all information on a particular hmatel, to
    ! allow compatibility between real and complex interfaces.

    ! Value for real hamiltonian elements.
    real(p) :: r

    ! Value for complex hamiltonian elements.
    complex(p) :: c
end type hmatel_t

end module hamiltonian_data


! $Id$

      subroutine plstrf2c(string1, string2, maxlen)

      integer*4 maxlen
      character*(*) string1, string2

      integer*4 limit, islen
      external islen

      limit = min0(islen(string1),maxlen-1)
      do 100 i = 1,limit
         string2(i:i) = string1(i:i)
 100  continue
      string2(i:i) = char(0)

      return
      end

      subroutine plstrc2f(string1, string2)

      character*(*) string1, string2

      integer*4 limit
      character*300 stringbuf

      limit = 1
 10   if (ichar(string1(limit:limit)) .eq. 0) goto 20
      stringbuf(limit:limit) = string1(limit:limit)
      limit = limit + 1
      goto 10

 20   string2 = stringbuf(1:limit-1)

      return
      end

      integer function islen(string)
      character*(*) string
      integer i

      do 100 i = len(string),1,-1
         if (string(i:i) .ne. ' ') then
            islen = i
            return
         endif
 100  continue

      islen = 1
      return
      end

Fix bugs in handling transformations of zero-length or completely blank character strings.

! $Id$

      subroutine plstrf2c(string1, string2, maxlen)

      integer*4 maxlen
      character*(*) string1, string2

      integer*4 limit, islen
      external islen

      limit = min0(islen(string1),maxlen-1)
      do 100 i = 1,limit
         string2(i:i) = string1(i:i)
 100  continue
      string2(limit+1:limit+1) = char(0)

      return
      end

      subroutine plstrc2f(string1, string2)

      character*(*) string1, string2

      integer*4 limit
      character*300 stringbuf

      limit = 1
 10   if (ichar(string1(limit:limit)) .eq. 0) goto 20
      stringbuf(limit:limit) = string1(limit:limit)
      limit = limit + 1
      goto 10

 20   if(limit.gt.1) then
        string2 = stringbuf(1:limit-1)
      else
        string2 = ''
      endif

      return
      end

      integer function islen(string)
      character*(*) string
      integer i

      do 100 i = len(string),1,-1
         if (string(i:i) .ne. ' ') then
            islen = i
            return
         endif
 100  continue

C      If string is blank or length 0, return length 0
      islen = 0
      return
      end


include/ibex_defines.sv
include/ibex_tracer_defines.sv
ibex_alu.sv
ibex_compressed_decoder.sv
ibex_controller.sv
ibex_cs_registers.sv
ibex_debug_unit.sv
ibex_decoder.sv
ibex_int_controller.sv
ibex_ex_block.sv
ibex_id_stage.sv
ibex_if_stage.sv
ibex_load_store_unit.sv
ibex_multdiv_slow.sv
ibex_multdiv_fast.sv
ibex_prefetch_buffer.sv
ibex_fetch_fifo.sv
ibex_register_file_ff.sv
ibex_core.sv


! Test the CLAW abstraction model with one additional dimension.
PROGRAM test_abstraction4
  USE mo_column_extra, ONLY: compute
  REAL, DIMENSION(20,60) :: q, t  ! Fields as declared in the whole model
  INTEGER :: nproma, nz           ! Size of array fields
  INTEGER :: p                    ! Loop index

  nproma = 20
  nz = 60

  DO p = 1, nproma
    q(p,1) = 0.0
    t(p,1) = 0.0
  END DO

  !$acc data copyin(q,t) copyout(q,t)

#ifdef _CLAW
  CALL compute(nz, q, t, nproma)
#else
  DO p = 1, nproma
    CALL compute(nz, q(p,:), t(p,:))
  END DO
#endif

  !$acc end data

  PRINT*,SUM(q)
  PRINT*,SUM(t)
END PROGRAM test_abstraction4

Add CLAW parallelize forward directive

! Test the CLAW abstraction model with one additional dimension.
PROGRAM test_abstraction5
  USE mo_column_extra, ONLY: compute
  REAL, DIMENSION(20,60) :: q, t  ! Fields as declared in the whole model
  INTEGER :: nproma, nz           ! Size of array fields
  INTEGER :: p                    ! Loop index

  nproma = 20
  nz = 60

  DO p = 1, nproma
    q(p,1) = 0.0
    t(p,1) = 0.0
  END DO

  !$acc data copyin(q,t) copyout(q,t)

  !$claw parallelize forward
  DO p = 1, nproma
    CALL compute(nz, q(p,:), t(p,:))
  END DO

  !$acc end data

  PRINT*,SUM(q)
  PRINT*,SUM(t)
END PROGRAM test_abstraction5


subroutine mapc2m_annulus(blockno,xc,yc,xp,yp,zp,beta,theta)
      implicit none

      integer blockno
      double precision xc,yc,xp,yp,zp, beta, theta(2)

      double precision pi
      common /compi/ pi

      double precision t1, t2, t, r

      t1 = theta(1)
      t2 = theta(2)

      t = t1 + (t2-t1)*xc
      r = beta + (1-beta)*yc
      xp = r*cos(2*pi*t)
      yp = r*sin(2*pi*t)
      zp = 0

      end

Update annulus mapping to include range of theta and radius

subroutine mapc2m_annulus(blockno,xc,yc,xp,yp,zp,beta,theta)
      implicit none

      integer blockno
      double precision xc,yc,xp,yp,zp, beta, theta(2)

      double precision pi,pi2
      common /compi/ pi,pi2

      double precision t1, t2, t, r

      t1 = theta(1)
      t2 = theta(2)

      t = t1 + (t2-t1)*xc
      r = beta + (1-beta)*yc
      xp = r*cos(2*pi*t)
      yp = r*sin(2*pi*t)
      zp = 0

      end


! Program taken from http://www.mrao.cam.ac.uk/~pa/f90Notes/HTMLNotesnode40.html
    PROGRAM Triangle
     IMPLICIT NONE
     REAL :: a, b, c, Area
     PRINT *, 'Welcome, please enter the&
              &lengths of the 3 sides.'
     READ *, a, b, c
     PRINT *, 'Triangle''s area:  ', Area(a,b,c)
    END PROGRAM Triangle
    FUNCTION Area(x,y,z)
     IMPLICIT NONE
     REAL :: Area            ! function type
     REAL, INTENT( IN ) :: x, y, z
     REAL :: theta, height
     theta = ACOS((x**2+y**2-z**2)/(2.0*x*y))
     height = x*SIN(theta); Area = 0.5*y*height
    END FUNCTION Area


PROGRAM test_primitive

  INTEGER :: i

  !$claw acc parallel
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw acc end parallel

  !$claw omp do
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw omp end do

END PROGRAM test_primitive

Add spaces to check this case


SUBROUTINE SECOND( T )
*
      REAL       T
*
*  -- LAPACK auxiliary routine (preliminary version) --
*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
*     Courant Institute, Argonne National Lab, and Rice University
*     July 26, 1991
*
*  Purpose
*  =======
*
*  SECOND returns the user time for a process in seconds.
*  This version gets the time from the system function ETIME.
*
*     .. Local Scalars ..
      REAL               T1
*     ..
*     .. Local Arrays ..
      REAL               TARRAY( 2 )
*     ..
*     .. External Functions ..
      REAL               ETIME
      EXTERNAL           ETIME
*     ..
*     .. Executable Statements ..
*

      T1 = ETIME( TARRAY )
      T  = TARRAY( 1 )

      RETURN
*
*     End of SECOND
*
      END

Remove reference to "external etime" since apparently etime is not considered an external function anymore.

SUBROUTINE SECOND( T )
*
      REAL       T
*
*  -- LAPACK auxiliary routine (preliminary version) --
*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
*     Courant Institute, Argonne National Lab, and Rice University
*     July 26, 1991
*
*  Purpose
*  =======
*
*  SECOND returns the user time for a process in seconds.
*  This version gets the time from the system function ETIME.
*
*     .. Local Scalars ..
      REAL               T1
*     ..
*     .. Local Arrays ..
      REAL               TARRAY( 2 )
*     ..
*     .. External Functions ..
      REAL               ETIME
*      EXTERNAL           ETIME
*     ..
*     .. Executable Statements ..
*

      T1 = ETIME( TARRAY )
      T  = TARRAY( 1 )

      RETURN
*
*     End of SECOND
*
      END


! Copyright (c) 2015 Alex Kramer <kramer.alex.kramer@gmail.com>
! See the LICENSE.txt file at the top-level directory of this distribution.
!
! This module implements some useful operations for files / directories
module files
  implicit none

  private

  public :: files_ensure_dir

contains

  ! Ensure that a directory exists on a UNIX system
  !
  ! dir :: directory location
  subroutine files_ensure_dir(dir)

    character(*), intent(in) :: dir

    call system("mkdir -p "//trim(dir))

  end subroutine files_ensure_dir

end module files


module items

  implicit none

  ! This module implements the type 'Item' and its associate utility
  ! subroutines.

  type Item

     integer :: number, type
     real(8) :: length, width

  end type Item

contains

  subroutine createSameItems(n, type, len, wid, nStart, v)

    ! This subroutine populates a (previously allocated) vector 'v'
    ! with 'n' items of type 'type' and given dimensions 'len' and
    ! 'wid'. Their identifying numbers will be generated from 'nStart'
    ! until 'nStart' + 'n' - 1.

    implicit none

    ! SCALAR ARGUMENTS
    integer :: n, type, nStart
    real(8) :: len, wid

    ! ARRAY ARGUMENTS
    type(Item) :: v(n)

    ! LOCAL SCALARS
    integer :: i

    do i = 1, n

       v(i) = Item(nStart + i - 1, type, len, wid)

    end do

  end subroutine createSameItems

end module items


Add GS Reconstruction single step solver.

! vim : tw=72 sw=2 ts=2
! gs.f90
! Solver (e.g. GS Reconstruction) with fixed-value boundary conditions.
! Coded by jungerstein.

module gsRecon
! Solve div grad A = f(A)
! Old must have four boundaries already written.
function gsStep(old, boundary, isBoundary, dx, dy, f, omega, tol) result (new)
  implicit none
  double precision, dimension (:, :), intent (in) :: old, boundary
  locigal, dimension(size(old, 1), size(old, 2), intent (in) :: isBoundary
  double precision, intent (in) :: dx, dy
  double precision :: f
  double precision, intent (in) :: omega, tol
  double precision, dimension (size(old, 1), size(old, 2)) :: new

  integer :: i, j, nx, ny
  nx = size(old, 1)
  ny = size(old, 2)
  new(1, :) = old(1, :)
  new(nx, :) = old(nx, :)
  new(:, 1) = old(:, 1)
  new(:, ny) = old(:, ny)

  jLoop: do j = 2, ny - 1
    iLoop: do i = 2, nx - 1
      isBord: if (isBoundary(i, j)) then
        new(i, j) = boundary(i, j)
      else
        new(i, j) = (1 - omega) * old(i, j) &
                  + omega * &
                  (  (new(i-1,j) + old(i+1,j)) / (dx**2) &
                   + (new(i,j-1) + old(i,j+1)) / (dy**2) &
                   - f(old(i,j))) &
                  / (2 / (dx**2) + 2 / (dy**2))
      end if isBord
    end do iLoop
  end do jLoop
end function gsStep
end module gsRocon


! Simple program to test the loop-interchange directive

PROGRAM LOOP_INTERCHANGE
  CALL clawloop
END

SUBROUTINE clawloop
  INTEGER :: i, j, k

  DO i=1,4
    DO j=1,3
      DO k=1,2
        PRINT *, 'Iteration i=',i,', j=',j,', k=',k
      END DO
    END DO
  END DO
END

Add loop-interchange directive to the code sample

! Simple program to test the loop-interchange directive

PROGRAM LOOP_INTERCHANGE
  CALL clawloop
END

SUBROUTINE clawloop
  INTEGER :: i, j, k
  !$claw loop-interchange new-order(k,i,j)
  DO i=1,4
    DO j=1,3
      DO k=1,2
        PRINT *, 'Iteration i=',i,', j=',j,', k=',k
      END DO
    END DO
  END DO
END


#!/usr/bin/env bash

usage () {
    echo "Usage: git .f <subcommand>"
    echo "    git .f - Will show a help screen"
}

usage

Make usage a bit more comprehensive

#!/usr/bin/env bash

usage () {
    echo "Usage: git .f <subcommand>"
    echo
    echo "    git .f - Will show a help screen"
    echo "    git .f init - Sets up a folder as a new git .f repository"
    echo "    git .f add - Adds changes to the current host's branch"
    echo "    git .f apply - Applies an existing git .f repository to an existing folder"
    echo "    git .f baseadd - Adds changes to to the base branch and rebases the host branch"
}

usage


c     =====================================================
       subroutine qinit(maxmx,maxmy,meqn,mbc,mx,my,xlower,ylower,
     &                   dx,dy,q,maux,aux)
c     =====================================================

c     # Set initial conditions for q.
c     # Sample scalar equation with data that is piecewise constant with
c     # q = 1.0  if  0.1 < x < 0.6   and   0.1 < y < 0.6
c     #     0.1  otherwise

       implicit none

       integer maxmx, maxmy, meqn, mbc, mx, my, maux
       double precision xlower, ylower, dx, dy
       double precision q(1-mbc:maxmx+mbc, 1-mbc:maxmy+mbc, meqn)
       double precision aux(1-mbc:maxmx+mbc, 1-mbc:maxmy+mbc, maux)

       integer i, j
       double precision xi, yj, s

       do i = 1-mbc,mx+mbc
          xi = xlower + (i-0.5d0)*dx
          do j = 1-mbc,my+mbc
             yj = ylower + (j-0.5d0)*dy

             s = 0.5d0
             if (xi .lt. s) then
                q(i,j,1) = 0.d0
             else
                q(i,j,1) = 1.d0
             endif
             if (meqn > 1) then
                q(i,j,2) = 1-q(i,j,1)
             endif
          enddo
       enddo

       return
       end

Allow for meqn > 1

c     =====================================================
       subroutine qinit(maxmx,maxmy,meqn,mbc,mx,my,xlower,ylower,
     &                   dx,dy,q,maux,aux)
c     =====================================================

c     # Set initial conditions for q.
c     # Sample scalar equation with data that is piecewise constant with
c     # q = 1.0  if  0.1 < x < 0.6   and   0.1 < y < 0.6
c     #     0.1  otherwise

       implicit none

       integer maxmx, maxmy, meqn, mbc, mx, my, maux
       double precision xlower, ylower, dx, dy
       double precision q(1-mbc:maxmx+mbc, 1-mbc:maxmy+mbc, meqn)
       double precision aux(1-mbc:maxmx+mbc, 1-mbc:maxmy+mbc, maux)

       integer i, j, mq
       double precision xi, yj, s

       do mq = 1,meqn
          do i = 1-mbc,mx+mbc
             xi = xlower + (i-0.5d0)*dx
             do j = 1-mbc,my+mbc
                yj = ylower + (j-0.5d0)*dy

                s = 0.5d0
                if (xi .lt. s) then
                   q(i,j,mq) = 0.d0
                else
                   q(i,j,mq) = 1.d0
                endif
             enddo
          enddo
       enddo

       return
       end


!**********************************************************************************************************************************
! LICENSING
! Copyright (C) 2015-2016  National Renewable Energy Laboratory
! Copyright (C) 2016-2017  Envision Energy USA, LTD
!
!    This file is part of the NWTC Subroutine Library.
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
!     http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
!
!**********************************************************************************************************************************
MODULE VersionInfo

   implicit none

contains

FUNCTION QueryGitVersion()

   CHARACTER(200) :: QueryGitVersion

#ifdef GIT_INCLUDE_FILE
#include GIT_INCLUDE_FILE
#endif

#ifdef GIT_VERSION_INFO
   QueryGitVersion = GIT_VERSION_INFO
#else
   QueryGitVersion = 'unversioned'
#endif

   RETURN
END FUNCTION QueryGitVersion

END MODULE

Add comment describing the use of an ifdef

!**********************************************************************************************************************************
! LICENSING
! Copyright (C) 2015-2016  National Renewable Energy Laboratory
! Copyright (C) 2016-2017  Envision Energy USA, LTD
!
!    This file is part of the NWTC Subroutine Library.
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
!     http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
!
!**********************************************************************************************************************************
MODULE VersionInfo

   implicit none

contains

FUNCTION QueryGitVersion()

   CHARACTER(200) :: QueryGitVersion

! The Visual Studio project sets the path for where to find the header file with version info
#ifdef GIT_INCLUDE_FILE
#include GIT_INCLUDE_FILE
#endif

#ifdef GIT_VERSION_INFO
   QueryGitVersion = GIT_VERSION_INFO
#else
   QueryGitVersion = 'unversioned'
#endif

   RETURN
END FUNCTION QueryGitVersion

END MODULE


! start include/mul4v05.f90
yv1j = (bbiv(1,i) + bbiv(2,i)*xlvj) + aaiv(2,i)*zlvj
yv2j = (aaiv(1,i) - bbiv(2,i)*zlvj) + aaiv(2,i)*xlvj
if(curveff .and. abs(dki(ix,3)) > pieni) then !check for length and that flag is set
  if (abs(dki(ix,1)) > pieni) then ! Effect from the horizontal bend
    yv1j = yv1j - bbiv(2,i) * (strack(i) * ((xlvj**2 - 0.5*zlvj**2)*c1m3)) !! This sign is correct and gives correct coupling and all!
    yv2j = yv2j + bbiv(2,i) * (strack(i) * (((xlvj*zlvj)*c1m3) - (((strack(i)*c1m6)*zlvj**3) / 6.0))) ! Checked with MAD-X
  endif
endif

crkve=xlvj
cikve=zlvj
! end include/mul4v05.f90
! start include/mul4v05.f90

Move a comment that was going over the line length.

! start include/mul4v05.f90
yv1j = (bbiv(1,i) + bbiv(2,i)*xlvj) + aaiv(2,i)*zlvj
yv2j = (aaiv(1,i) - bbiv(2,i)*zlvj) + aaiv(2,i)*xlvj
if(curveff .and. abs(dki(ix,3)) > pieni) then !check for length and that flag is set
  if (abs(dki(ix,1)) > pieni) then ! Effect from the horizontal bend
    !! This sign is correct and gives correct coupling and all!
    yv1j = yv1j - bbiv(2,i) * (strack(i) * ((xlvj**2 - 0.5*zlvj**2)*c1m3))
    yv2j = yv2j + bbiv(2,i) * (strack(i) * (((xlvj*zlvj)*c1m3) - (((strack(i)*c1m6)*zlvj**3) / 6.0))) ! Checked with MAD-X
  endif
endif

crkve=xlvj
cikve=zlvj
! end include/mul4v05.f90
! start include/mul4v05.f90


Add IEEE_FEATURES_TYPE (mod from gfortran)

!    Implementation of the IEEE_FEATURES standard intrinsic module
!    Copyright (C) 2013-2017 Free Software Foundation, Inc.
!    Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
!
! This file is part of the GNU Fortran runtime library (libgfortran).
!
! Libgfortran is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public
! License as published by the Free Software Foundation; either
! version 3 of the License, or (at your option) any later version.
!
! Libgfortran is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! Under Section 7 of GPL version 3, you are granted additional
! permissions described in the GCC Runtime Library Exception, version
! 3.1, as published by the Free Software Foundation.
!
! You should have received a copy of the GNU General Public License and
! a copy of the GCC Runtime Library Exception along with this program;
! see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
! <http://www.gnu.org/licenses/>.  */

module IEEE_FEATURES

  implicit none
  private

  type, public :: IEEE_FEATURES_TYPE
    private
    integer :: hidden
  end type

  type(IEEE_FEATURES_TYPE), parameter, public :: &
    IEEE_DATATYPE       = IEEE_FEATURES_TYPE(0), &
    IEEE_DENORMAL       = IEEE_FEATURES_TYPE(1), &
    IEEE_DIVIDE         = IEEE_FEATURES_TYPE(2), &
    IEEE_HALTING        = IEEE_FEATURES_TYPE(3), &
    IEEE_INEXACT_FLAG   = IEEE_FEATURES_TYPE(4), &
    IEEE_INF            = IEEE_FEATURES_TYPE(5), &
    IEEE_INVALID_FLAG   = IEEE_FEATURES_TYPE(6), &
    IEEE_NAN            = IEEE_FEATURES_TYPE(7), &
    IEEE_ROUNDING       = IEEE_FEATURES_TYPE(8), &
    IEEE_SQRT           = IEEE_FEATURES_TYPE(9), &
    IEEE_UNDERFLOW_FLAG = IEEE_FEATURES_TYPE(10)

end module IEEE_FEATURES


program main
  implicit none
  include "mpif.h"

  integer :: mpi_err, mpi_req
  double precision, dimension(42) :: U

  call mpi_init(mpi_err)

  call mpi_irecv(U, 42*8, MPI_BYTE, 0, 0, mpi_comm_world, mpi_req ,mpi_err)

  call mpi_finalize(mpi_err)

end program main

Test some meaningful communication over MPI channel

program main
  implicit none
  include "mpif.h"

  integer :: i
  integer :: mpi_err, req_recv, req_send
  double precision, dimension(42) :: U
  double precision, dimension(42) :: V

  call mpi_init(mpi_err)

  do i = 1, 42
     U(i) = i*(i+1)
  end do

  call mpi_irecv(V, 42*8, MPI_BYTE, 0, 0, mpi_comm_world, req_recv ,mpi_err)
  call mpi_isend(U, 42*8, MPI_BYTE, 0, 0, mpi_comm_world, req_send ,mpi_err)
  call mpi_wait(req_recv)

  do i = 1, 42
     print *, V(i)
  end do

  call mpi_finalize(mpi_err)

end program main


C     This is a simple program to determine the units of the Fortran
c     direct access record length.  It writes 2 records of 512 units
c     each.  Simply run this program and check the size resulting file
c     'da_rec_size.test' (in bytes) using 'ls' and divide by 1024 units.
C
      Program da_rec_size
C$Id: da_rec_size.f,v 1.2 1995-02-02 23:10:44 d3g681 Exp $
      Integer RecLen
      Parameter (RecLen = 512)
      Integer A(1)
      Open(1, FILE='da_rec_size.test', ACCESS='DIRECT', RECL=RecLen)
      Do I = 1, 2
         Write (1, REC=I) A
      EndDo
      Stop
      End

Print out some instructions to the user of the program

C     This is a simple program to determine the units of the Fortran
c     direct access record length.  It writes 2 records of 512 units
c     each.  Simply run this program and check the size resulting file
c     'da_rec_size.test' (in bytes) using 'ls' and divide by 1024 units.
C
      Program da_rec_size
C$Id: da_rec_size.f,v 1.3 1995-07-17 01:03:33 gg502 Exp $
      Integer RecLen
      Parameter (RecLen = 512)
      Integer A(1)
      Open(1, FILE='da_rec_size.test', ACCESS='DIRECT', RECL=RecLen)
      Do I = 1, 2
         Write (1, REC=I) A
      EndDo
      Write (6, *) 'This program has written two 512-unit records in'
      Write (6, *) 'the file da_rec_size.test.  To determine the size'
      Write (6, *) 'of the record length unit, divide the length of'
      Write (6, *) 'the file in bytes by 1024.  The most common sizes'
      Write (6, *) 'for record size units are bytes and integer words.'
      Stop
      End


SUBROUTINE calc_fits(images, model, parvals, n_vals, n_wlens, x, y, n_pars, results)

IMPLICIT NONE
INTEGER, INTENT(IN) :: n_vals, n_wlens, x, y, n_pars
REAL, DIMENSION(n_vals, n_pars), INTENT(IN) :: parvals
REAL, DIMENSION(n_vals, n_wlens), INTENT(IN) :: model
REAL, DIMENSION(n_wlens, x, y), INTENT(IN) :: images
REAL, DIMENSION(x, y, n_pars+1), INTENT(OUT) :: results
INTEGER :: i, j, t, w
REAL :: error, total_error, this_fit, best_fit

DO j = 1, y
  DO i = 1, x
    best_fit = 0
    DO t = 1, n_vals
      total_error = 0.0
      DO w = 1, n_wlens
        error = ABS(images(w,i,j) - model(t, w))
        total_error = total_error + error
      END DO
      this_fit = total_error / REAL(n_wlens)
      IF (this_fit < best_fit .OR. t == 1) THEN
        best_fit = this_fit
        results(i, j, 1:n_pars) = parvals(t, :)
        results(i, j, n_pars+1) = this_fit
      END IF
    END DO
  END DO
END DO

END SUBROUTINE calc_fits

Put gof default value back to how it was

SUBROUTINE calc_fits(images, model, parvals, n_vals, n_wlens, x, y, n_pars, results)

IMPLICIT NONE
INTEGER, INTENT(IN) :: n_vals, n_wlens, x, y, n_pars
REAL, DIMENSION(n_vals, n_pars), INTENT(IN) :: parvals
REAL, DIMENSION(n_vals, n_wlens), INTENT(IN) :: model
REAL, DIMENSION(n_wlens, x, y), INTENT(IN) :: images
REAL, DIMENSION(x, y, n_pars+1), INTENT(OUT) :: results
INTEGER :: i, j, t, w
REAL :: error, total_error, this_fit, best_fit

DO j = 1, y
  DO i = 1, x
    best_fit = 1e38 ! Arbitrarily large number
    DO t = 1, n_vals
      total_error = 0.0
      DO w = 1, n_wlens
        error = ABS(images(w,i,j) - model(t, w))
        total_error = total_error + error
      END DO
      this_fit = total_error / REAL(n_wlens)
      IF (this_fit < best_fit) THEN
        best_fit = this_fit
        results(i, j, 1:n_pars) = parvals(t, :)
        results(i, j, n_pars+1) = this_fit
      END IF
    END DO
  END DO
END DO

END SUBROUTINE calc_fits


msgid ""
msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Language: en\n"

msgid "nav.backtolist"
msgstr "Back to list"
msgid "crud.create"
msgstr "Create"
msgid "crud.edit"
msgstr "Edit"
msgid "crud.delete"
msgstr "Delete"
msgid "crud.list"
msgstr "List"
msgid "crud.update"
msgstr "Update"
msgid "crud.view"
msgstr "View"
msgid "crud.delete.confirm"
msgstr "Are you sure you want to delete entity #%entity_id% ?"
msgid "datagrid.actions"
msgstr "Actions"
msgid "datagrid.empty_value"
msgstr "Empty"
msgid "datagrid.empty_grid"
msgstr "It's empty."
msgid "datagrid.empty_grid.create"
msgstr "Create some ?"
msgid "security.login.title"
msgstr "Login"
msgid "security.login.form.invite"
msgstr "Please login"
msgid "security.login.form.username"
msgstr "Username"
msgid "security.login.form.password"
msgstr "Password"
msgid "security.login.form.action"
msgstr "Log in"
msgid "datagrid.empty_grid.add"
msgstr "Add some ?"

Add controller translation (not automatically fetched by translation:update command

msgid ""
msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Language: en\n"

msgid "nav.backtolist"
msgstr "Back to list"
msgid "crud.create"
msgstr "Create"
msgid "crud.edit"
msgstr "Edit"
msgid "crud.delete"
msgstr "Delete"
msgid "crud.list"
msgstr "List"
msgid "crud.update"
msgstr "Update"
msgid "crud.view"
msgstr "View"
msgid "crud.delete.confirm"
msgstr "Are you sure you want to delete %entity% #%entity_id% ?"
msgid "datagrid.actions"
msgstr "Actions"
msgid "datagrid.empty_grid"
msgstr "It's empty."
msgid "datagrid.empty_grid.create"
msgstr "Create some ?"
msgid "security.login.title"
msgstr "Login"
msgid "security.login.form.invite"
msgstr "Please login"
msgid "security.login.form.username"
msgstr "Username"
msgid "security.login.form.password"
msgstr "Password"
msgid "security.login.form.action"
msgstr "Log in"
msgid "crud.create.success"
msgstr "Content successfully created"
msgid "crud.edit.success"
msgstr "Content successfully updated"
msgid "crud.delete.success"
msgstr "Content successfully deleted"
msgid "crud.create.action"
msgstr "Create"
msgid "crud.edit.action"
msgstr "Update"
msgid "crud.delete.action"
msgstr "Delete"


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the python-manatools package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
# Translators:
# Panwar108 <caspian7pena@gmail.com>, 2020
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: python-manatools 0.xx\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2018-01-27 23:12+0100\n"
"PO-Revision-Date: 2020-09-06 07:17+0000\n"
"Last-Translator: Panwar108 <caspian7pena@gmail.com>, 2020\n"
"Language-Team: Hindi (https://www.transifex.com/MageiaLinux/teams/9361/hi/)\n"
"Language: hi\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

#: manatools/ui/common.py:62 manatools/ui/common.py:100
#: manatools/ui/common.py:136 manatools/ui/common.py:179
msgid "&Ok"
msgstr "ठीक है (&O)"

#: manatools/ui/common.py:180
msgid "&Cancel"
msgstr "रद्द करें (&C)"

#: manatools/ui/common.py:229
msgid "&Yes"
msgstr "हाँ (&Y)"

#: manatools/ui/common.py:230
msgid "&No"
msgstr "नहीं (&N)"


Add translates for sale_order_line_ccorp module

# Translation of OpenERP Server.
# This file contains the translation of the following modules:
#	* sale_order_line_ccorp
#
msgid ""
msgstr ""
"Project-Id-Version: OpenERP Server 6.1\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2012-11-19 21:19+0000\n"
"PO-Revision-Date: 2012-11-19 21:19+0000\n"
"Last-Translator: <>\n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: \n"
"Plural-Forms: \n"

#. module: sale_order_line_ccorp
#: field:sale.order.line,mpr_production:0
msgid "Manufacturing Order"
msgstr "Orden de producción"

#. module: sale_order_line_ccorp
#: model:ir.model,name:sale_order_line_ccorp.model_sale_order_line
msgid "Sales Order Line"
msgstr "Línea pedido de venta"


Add zh-CN translation difference of Pipeline Charts

# Huang Tao <htve@outlook.com>, 2017. #zanata
msgid ""
msgstr ""
"Project-Id-Version: gitlab 1.0.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-06-15 21:59-0500\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: 2017-07-06 11:10-0400\n"
"Last-Translator: Huang Tao <htve@outlook.com>\n"
"Language-Team: Chinese (China)\n"
"Language: zh-CN\n"
"X-Generator: Zanata 3.9.6\n"
"Plural-Forms: nplurals=1; plural=0\n"

msgid "1 pipeline"
msgid_plural "%d pipelines"
msgstr[0] "%d 条流水线"

msgid "A collection of graphs regarding Continuous Integration"
msgstr "相关持续集成的图像集合"

msgid "Commit duration in minutes for last 30 commits"
msgstr "最近30次提交花费的时间（分钟）"

msgid ""
"Create a personal access token on your account to pull or push via "
"%{protocol}."
msgstr "在帐户上创建个人访问令牌，以通过％{protocol}来拉取或推送。"

msgid "CreateTokenToCloneLink|create a personal access token"
msgstr "创建个人访问令牌"

msgid "Jobs for last month"
msgstr "上个月的作业"

msgid "Jobs for last week"
msgstr "上个星期的作业"

msgid "Jobs for last year"
msgstr "去年的作业"

msgid "PipelineCharts|Failed:"
msgstr "失败："

msgid "PipelineCharts|Overall statistics"
msgstr "总体统计"

msgid "PipelineCharts|Success ratio:"
msgstr "成功率："

msgid "PipelineCharts|Successful:"
msgstr "成功："

msgid "PipelineCharts|Total:"
msgstr "总计："

msgid "Pipelines"
msgstr "流水线"

msgid "Pipelines charts"
msgstr "流水线图表"

msgid "Pipeline|all"
msgstr "所有"

msgid "Pipeline|success"
msgstr "成功"


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the python-manatools package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
# Translators:
# Omer I.S., 2020
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: python-manatools 0.xx\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2018-01-27 23:12+0100\n"
"PO-Revision-Date: 2020-09-06 07:17+0000\n"
"Last-Translator: Omer I.S., 2020\n"
"Language-Team: Hebrew (https://www.transifex.com/MageiaLinux/teams/9361/"
"he/)\n"
"Language: he\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=4; plural=(n == 1 && n % 1 == 0) ? 0 : (n == 2 && n % "
"1 == 0) ? 1: (n % 10 == 0 && n % 1 == 0 && n > 10) ? 2 : 3;\n"

#: manatools/ui/common.py:62 manatools/ui/common.py:100
#: manatools/ui/common.py:136 manatools/ui/common.py:179
msgid "&Ok"
msgstr "&אישור"

#: manatools/ui/common.py:180
msgid "&Cancel"
msgstr "&ביטול"

#: manatools/ui/common.py:229
msgid "&Yes"
msgstr "&כן"

#: manatools/ui/common.py:230
msgid "&No"
msgstr "&לא"


Add the /languages/ directory to version control

# Copyright (C) 2017 Steve Grunwell
# This file is distributed under the same license as the Schemify package.
msgid ""
msgstr ""
"Project-Id-Version: Schemify 0.1.0\n"
"Report-Msgid-Bugs-To: https://wordpress.org/support/plugin/schemify\n"
"POT-Creation-Date: 2017-01-31 03:12:26+00:00\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: 2017-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"X-Generator: grunt-wp-i18n 0.5.4\n"

#: dist/includes/admin.php:34 includes/admin.php:34
msgid "This is a preview of the JSON-LD object that will be appended to this %s:"
msgstr ""

#: dist/includes/core.php:32 includes/core.php:32
msgid "Class %s does not exist"
msgstr ""

#: dist/includes/core.php:41 includes/core.php:41
msgid "Unable to find schema \"%s\", falling back to \"Thing\""
msgstr ""

#: dist/includes/schemas/MediaObject.php:58 includes/schemas/MediaObject.php:58
msgid "Schema is not defined"
msgstr ""

#: dist/includes/schemas/MediaObject.php:65 includes/schemas/MediaObject.php:65
msgid "Unable to load schema %1$s: %2$s"
msgstr ""

#. Plugin Name of the plugin/theme
msgid "Schemify"
msgstr ""

#. Author URI of the plugin/theme
msgid "https://stevegrunwell.com"
msgstr ""

#. Description of the plugin/theme
msgid "Automatically generate Schema.org JSON+LD markup for WordPress."
msgstr ""

#. Author of the plugin/theme
msgid "Steve Grunwell"
msgstr ""

#: dist/includes/admin.php:18 includes/admin.php:18
msgctxt "meta box title"
msgid "Structured Data"
msgstr ""


Add Spanish translation. Thanks Oscar M..

msgid ""
msgstr ""
"Report-Msgid-Bugs-To: https://github.com/aaugustin/django-sequences/issues\n"
"POT-Creation-Date: 2016-01-06 06:22-0600\n"
"Language: es\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

msgid "Sequences"
msgstr "Secuencias"

msgid "name"
msgstr "nombre"

msgid "last value"
msgstr "último valor"

msgid "sequence"
msgstr "secuencia"

msgid "sequences"
msgstr "secuencias"


Add Russian translation. Thanks Futility & Despair.

msgid ""
msgstr ""
"Report-Msgid-Bugs-To: https://github.com/aaugustin/django-sequences/issues\n"
"POT-Creation-Date: 2016-01-06 06:19-0600\n"
"Language: ru\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=4; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && n"
"%10<=4 && (n%100<12 || n%100>14) ? 1 : n%10==0 || (n%10>=5 && n%10<=9) || (n"
"%100>=11 && n%100<=14)? 2 : 3);\n"

msgid "Sequences"
msgstr "Последовательности"

msgid "name"
msgstr "имя"

msgid "last value"
msgstr "последнее значение"

msgid "sequence"
msgstr "последовательность"

msgid "sequences"
msgstr "последовательности"


Add Bulgarian translation. Thanks Vladislav Mitov.

msgid ""
msgstr ""
"Report-Msgid-Bugs-To: https://github.com/aaugustin/django-sequences/issues\n"
"POT-Creation-Date: 2016-01-06 06:31-0600\n"
"Language: bg\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

msgid "Sequences"
msgstr "Последователности"

msgid "name"
msgstr "име"

msgid "last value"
msgstr "последна стойност"

msgid "sequence"
msgstr "последователност"

msgid "sequences"
msgstr "последователности"


Add zh-TW translation difference of Pipeline Charts

# Huang Tao <htve@outlook.com>, 2017. #zanata
msgid ""
msgstr ""
"Project-Id-Version: gitlab 1.0.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-06-15 21:59-0500\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: 2017-07-06 11:27-0400\n"
"Last-Translator: Huang Tao <htve@outlook.com>\n"
"Language-Team: Chinese (Taiwan)\n"
"Language: zh-TW\n"
"X-Generator: Zanata 3.9.6\n"
"Plural-Forms: nplurals=1; plural=0\n"

msgid "1 pipeline"
msgid_plural "%d pipelines"
msgstr[0] "%d 條流水線"

msgid "A collection of graphs regarding Continuous Integration"
msgstr "相關持續集成的圖像集合"

msgid "Commit duration in minutes for last 30 commits"
msgstr "最近30次更動花費的時間（分鐘）"

msgid ""
"Create a personal access token on your account to pull or push via "
"%{protocol}."
msgstr "在帳戶上建立個人訪問令牌，以通過 %{protocol} 來拉取 (pull) 或推送 (push) 。"

msgid "CreateTokenToCloneLink|create a personal access token"
msgstr "建立個人訪問令牌"

msgid "Jobs for last month"
msgstr "上個月的作業"

msgid "Jobs for last week"
msgstr "上個星期的作業"

msgid "Jobs for last year"
msgstr "去年的作業"

msgid "PipelineCharts|Failed:"
msgstr "失敗："

msgid "PipelineCharts|Overall statistics"
msgstr "總體統計"

msgid "PipelineCharts|Success ratio:"
msgstr "成功率："

msgid "PipelineCharts|Successful:"
msgstr "成功："

msgid "PipelineCharts|Total:"
msgstr "總計："

msgid "Pipelines"
msgstr "流水線 (Pipelines) "

msgid "Pipelines charts"
msgstr "流水線 (Pipelines)  圖表"

msgid "Pipeline|all"
msgstr "所有"

msgid "Pipeline|success"
msgstr "成功"


Add Traditional Chinese in Taiwan translations of Commits Page

# Huang Tao <htve@outlook.com>, 2017. #zanata
msgid ""
msgstr ""
"Project-Id-Version: gitlab 1.0.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-06-15 21:59-0500\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: 2017-06-23 01:23-0400\n"
"Last-Translator: Huang Tao <htve@outlook.com>\n"
"Language-Team: Chinese (Taiwan)\n"
"Language: zh-TW\n"
"X-Generator: Zanata 3.9.6\n"
"Plural-Forms: nplurals=1; plural=0\n"

msgid "%d additional commit have been omitted to prevent performance issues."
msgid_plural ""
"%d additional commits have been omitted to prevent performance issues."
msgstr[0] "為提高頁面加載速度及性能，已省略了 %d 次送交 (commit)。"

msgid "%d commit"
msgid_plural "%d commits"
msgstr[0] "%d 次送交 (commit)"

msgid "BranchSwitcherPlaceholder|Search branches"
msgstr "搜索分支 (branches)"

msgid "BranchSwitcherTitle|Switch branch"
msgstr "切換分支 (branch)"

msgid "Browse Directory"
msgstr "瀏覽目錄"

msgid "Browse File"
msgstr "瀏覽檔案"

msgid "Browse Files"
msgstr "瀏覽檔案"

msgid "Commits feed"
msgstr "送交動態"

msgid "Filter by commit message"
msgstr "按送交消息過濾"

msgid "UploadLink|click to upload"
msgstr "點擊上傳"

msgid "View open merge request"
msgstr "查看開啟的合並請求  (merge request)"


# Fichier de traduction en langue francaise pour le projet CDM.
# Copyright (C) 2015 TamiaLab
# This file is distributed under the same license as the CDM package.
# Fabien Batteix <fabien.batteix@tamialab.fr>, 2015.
#
msgid ""
msgstr ""
"Project-Id-Version: CarnetDuMaker\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2015-12-09 18:21+0100\n"
"PO-Revision-Date: 2015-07-30 11:41+0200\n"
"Last-Translator: Fabien Batteix <fabien.batteix@tamialab.fr>\n"
"Language-Team: \n"
"Language: fr_FR\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"

#: carnetdumaker/context_processors.py:18
msgid "Carnet du maker - L'esprit Do It Yourself"
msgstr "Carnet du maker - L'esprit Do It Yourself"

#: carnetdumaker/context_processors.py:19
msgid "Carnet du maker"
msgstr "Carnet du maker"

#: carnetdumaker/context_processors.py:21
msgid "TamiaLab 2015"
msgstr "TamiaLab 2015"

#: carnetdumaker/context_processors.py:22
msgid "L'esprit du Do It Yourself"
msgstr "L'esprit du Do It Yourself"

#: carnetdumaker/settings/common.py:81
msgid "French"
msgstr "Français"

#: carnetdumaker/settings/common.py:82
msgid "English"
msgstr "Anglais"


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
#
# Translators:
# Ellison Leão <ellisonleao@gmail.com>, 2013
# josene <jsene@yacows.com.br>, 2013
msgid ""
msgstr ""
"Project-Id-Version: opps\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2013-04-15 18:59-0500\n"
"PO-Revision-Date: 2013-04-26 18:06+0000\n"
"Last-Translator: josene <jsene@yacows.com.br>\n"
"Language-Team: Portuguese (Brazil) <opps-developers@googlegroups.com>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Language: pt_BR\n"
"Plural-Forms: nplurals=2; plural=(n > 1);\n"

#: __init__.py:5
msgid "Images"
msgstr "Imagens"

#: admin.py:21
msgid "Identification"
msgstr "Identificação"

#: admin.py:23
msgid "Content"
msgstr "Conteúdo"

#: admin.py:25
msgid "Publication"
msgstr "Publicação"

#: admin.py:34
msgid "No Image"
msgstr "Sem imagem"

#: admin.py:35
msgid "Thumbnail"
msgstr "Thumbnail"

#: models.py:32
msgid "Title"
msgstr "Título"

#: models.py:33
msgid "Slug"
msgstr "Slug"

#: models.py:36
msgid "Description"
msgstr "Descrição"


Add a temporary translation file for the demo

msgid ""
msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: \n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"X-Generator: Poedit 1.5.4\n"
"Language: pro\n"

msgid "Dashboard"
msgstr "Command Control"

msgid "Explore {deployment} Marketplace"
msgstr "Explore {deployment} Response"

msgid "Marketplace"
msgstr "Response"

#: src/marketplace/routes.js
msgid "Marketplace checkout"
msgstr "Response checkout"

#: src/marketplace/routes.js
#: src/marketplace/sidebar.js
msgid "Marketplace offerings"
msgstr "Response offerings"

#: src/marketplace/routes.js
#: src/marketplace/sidebar.js
msgid "Marketplace orders"
msgstr "Response orders"

#: src/marketplace/service-providers/ServiceProviderManagement.tsx
msgid "Marketplace service provider"
msgstr "Response service provider"


Add translations for account_parser_type module

# Translation of OpenERP Server.
# This file contains the translation of the following modules:
#	* account_parser_type
#
msgid ""
msgstr ""
"Project-Id-Version: OpenERP Server 6.1\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2013-02-25 16:49+0000\n"
"PO-Revision-Date: 2013-02-25 16:49+0000\n"
"Last-Translator: <>\n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: \n"
"Plural-Forms: \n"

#. module: account_parser_type
#: constraint:res.partner.bank:0
msgid "\n"
"Please define BIC/Swift code on bank for bank type IBAN Account to make valid payments"
msgstr "\n"
"Por favor defina el código BIC/Swift en el banco de cuentas IBAN para realizar pagos válidos"

#. module: account_parser_type
#: model:ir.model,name:account_parser_type.model_res_partner_bank
msgid "Bank Accounts"
msgstr "Cuentas Bancarias"

#. module: account_parser_type
#: field:res.partner.bank,parser:0
msgid "Parser type"
msgstr "Intérprete de extracto"

#. module: account_parser_type
#: help:res.partner.bank,parser:0
msgid "Parser type for import bank extract"
msgstr "Intérprete de extracto para la importación del extracto bancario"


Add Esperanto translations of Commits Page

#
msgid ""
msgstr ""
"Project-Id-Version: gitlab 1.0.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-06-15 21:59-0500\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: \n"
"Last-Translator: \n"
"Language-Team: Esperanto\n"
"Language: eo\n"
"X-Generator: Zanata 3.9.6\n"
"Plural-Forms: nplurals=2; plural=(n != 1)\n"

msgid "%d additional commit have been omitted to prevent performance issues."
msgid_plural ""
"%d additional commits have been omitted to prevent performance issues."
msgstr[0] ""
msgstr[1] ""

msgid "%d commit"
msgid_plural "%d commits"
msgstr[0] ""
msgstr[1] ""

msgid "BranchSwitcherPlaceholder|Search branches"
msgstr ""

msgid "BranchSwitcherTitle|Switch branch"
msgstr ""

msgid "Browse Directory"
msgstr ""

msgid "Browse File"
msgstr ""

msgid "Browse Files"
msgstr ""

msgid "Commits feed"
msgstr ""

msgid "Filter by commit message"
msgstr ""

msgid "UploadLink|click to upload"
msgstr ""

msgid "View open merge request"
msgstr ""


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2014-01-08 10:54-0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"Language: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n > 1);\n"

#: models.py:14
msgid "User"
msgstr "Usuário"

#: models.py:17
msgid "Application"
msgstr "Aplicação"

#: models.py:22
msgid "Action"
msgstr "Ação"

#: models.py:27
msgid "Text"
msgstr "Texto"

#: models.py:36
msgid "Logging"
msgstr "Log"

#: models.py:37
msgid "Loggings"
msgstr "Logs"


Add Brasilian Portuguese Translation (pt-BR)

# Brazilian Portuguese translation file for django-autocomplete-light
# Copyright (C) 2012 Fabio Caritas Barrionuevo da Luz
# This file is distributed under the same license as the django-autocomplete-light package.
# Fabio Caritas Barrionuevo da Luz <bnafta at gmail dot com>, 2012.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: 0.1\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2012-09-17 13:29+0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: Fabio Caritas Barrionuevo da Luz <bnafta at gmail dot com>\n"
"Language-Team: pt-br <bnafta at gmail dot com>\n"
"Language: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1)\n"

#: widgets.py:75
msgid "type some text to search in this autocomplete"
msgstr "escreva algum texto para buscar e autocompletar"

#: autocomplete/base.py:96
msgid "no matches found"
msgstr "nenhum resultado encontrado"


# Russian (Russia) translations for TestProject.
# Copyright (C) 2007 FooBar, Inc.
# This file is distributed under the same license as the TestProject
# project.
# FIRST AUTHOR <EMAIL@ADDRESS>, 2007.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: TestProject 0.1\n"
"Report-Msgid-Bugs-To: bugs.address@email.tld\n"
"POT-Creation-Date: 2007-04-01 15:30+0200\n"
"PO-Revision-Date: 2007-07-30 22:18+0200\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: ru_RU <LL@li.org>\n"
"Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && "
"n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2)\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Generated-By: Babel 0.9dev-r363\n"

#. This will be a translator coment,
#. that will include several lines
#: project/file1.py:8
msgid "bar"
msgstr ""

#: project/file2.py:9
msgid "foobar"
msgid_plural "foobars"
msgstr[0] ""
msgstr[1] ""
msgstr[2] ""


Add German translation. Thanks Jonas Obrist.

msgid ""
msgstr ""
"Report-Msgid-Bugs-To: https://github.com/aaugustin/django-sequences/issues\n"
"POT-Creation-Date: 2016-01-06 03:05-0600\n"
"Language: de\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

msgid "Sequences"
msgstr "Sequenzen"

msgid "name"
msgstr "Name"

msgid "last value"
msgstr "letzter Wert"

msgid "sequence"
msgstr "Sequenz"

msgid "sequences"
msgstr "Sequenzen"


Add Portuguese translation. Thanks dirtycoder.

msgid ""
msgstr ""
"Report-Msgid-Bugs-To: https://github.com/aaugustin/django-sequences/issues\n"
"POT-Creation-Date: 2016-01-06 06:26-0600\n"
"Language: pt\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

msgid "Sequences"
msgstr "Sequências"

msgid "name"
msgstr "nome"

msgid "last value"
msgstr "último valor"

msgid "sequence"
msgstr "sequência"

msgid "sequences"
msgstr "sequências"


Add uk translation difference of Pipeline Schedules

# Андрей Витюк <andruwa13@gmail.com>, 2017. #zanata
msgid ""
msgstr ""
"Project-Id-Version: gitlab 1.0.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-06-15 21:59-0500\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: 2017-07-12 07:29-0400\n"
"Last-Translator: Андрей Витюк <andruwa13@gmail.com>\n"
"Language-Team: Ukrainian\n"
"Language: uk\n"
"X-Generator: Zanata 3.9.6\n"
"Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && "
"n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n"

msgid "PipelineSchedules|Input variable key"
msgstr "Введіть ім'я змінної"

msgid "PipelineSchedules|Input variable value"
msgstr "Вхідні значення змінних"

msgid "PipelineSchedules|Remove variable row"
msgstr "Видалити змінні"

msgid "PipelineSchedules|Variables"
msgstr "Змінні"

msgid ""
"You are going to remove %{group_name}.\n"
"Removed groups CANNOT be restored!\n"
"Are you ABSOLUTELY sure?"
msgstr ""
"Ви хочете видалити %{group_name}.\n"
"Видалені групи НЕ МОЖНА буду відновити!\n"
"Ви АБСОЛЮТНО впевнені?"


Add Lithuanian translation. Thanks Saulius.

msgid ""
msgstr ""
"Report-Msgid-Bugs-To: https://github.com/aaugustin/django-sequences/issues\n"
"POT-Creation-Date: 2016-01-06 06:17-0600\n"
"Language: lt\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && (n"
"%100<10 || n%100>=20) ? 1 : 2);\n"

msgid "Sequences"
msgstr "Sekos"

msgid "name"
msgstr "pavadinimas"

msgid "last value"
msgstr "paskutinė reikšmė"

msgid "sequence"
msgstr "seka"

msgid "sequences"
msgstr "sekos"


Add Czech translation. Thanks Michal Petrucha.

msgid ""
msgstr ""
"Report-Msgid-Bugs-To: https://github.com/aaugustin/django-sequences/issues\n"
"POT-Creation-Date: 2016-01-06 06:37-0600\n"
"Language: cs\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=3; plural=(n==1) ? 0 : (n>=2 && n<=4) ? 1 : 2;\n"

msgid "Sequences"
msgstr "Posloupnosti"

msgid "name"
msgstr "jméno"

msgid "last value"
msgstr "poslední hodnota"

msgid "sequence"
msgstr "posloupnost"

msgid "sequences"
msgstr "posloupnosti"


Add Czech translation of the application

# Czech translations for mccurse.
# Copyright (C) 2017 Jan 'Khardix' Staněk
# This file is distributed under the same license as the mccurse project.
# Jan Staněk <khardix@gmail.com>, 2017.
#
msgid ""
msgstr ""
"Project-Id-Version: mccurse 0.1.2.dev0+ngc2be2bb.d20170116\n"
"Report-Msgid-Bugs-To: khardix@gmail.com\n"
"POT-Creation-Date: 2017-01-16 20:47+0100\n"
"PO-Revision-Date: 2017-01-16 20:31+0100\n"
"Last-Translator: Jan Staněk <khardix@gmail.com>\n"
"Language: cs\n"
"Language-Team: cs <khardix@gmail.com>\n"
"Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && "
"n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2)\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Generated-By: Babel 2.3.4\n"

#. NOTE: Help for refresh flag
#: mccurse/cli.py:28
msgid "Force refreshing of search data."
msgstr "Vynutí obnovení prohledávaných dat."

#: mccurse/cli.py:35
msgid "No text to search for!"
msgstr "Chybí text k vyhledání!"

#: mccurse/cli.py:43
msgid "Refreshing search data, please wait…"
msgstr "Obnovuji data k prohledání, prosím o strpení…"

#: mccurse/cli.py:48
msgid "Search results for \"{text}\""
msgstr "Nalezené výsledky pro \"{text}\""

#: mccurse/cli.py:49
msgid "Choose mod to open its project page, or press [q] to quit."
msgstr ""
"Zvolte mód pro otevření jeho projektové stránky, nebo stiskněte [q] pro "
"ukončení."


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2016-08-27 08:16+0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"Language: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

#: models.py:6 models.py:24
msgid "grade"
msgstr "graad"

#: models.py:7 models.py:30
msgid "group"
msgstr "klas"

#: models.py:8
msgid "wardens"
msgstr "voogden"

#: models.py:11
msgid "diplomas"
msgstr "diploma's"

#: models.py:17
msgid "name"
msgstr "naam"

#: models.py:25
msgid "grades"
msgstr "graden"

#: models.py:28
msgid "class teacher"
msgstr "klastitularis"

#: models.py:31
msgid "groups"
msgstr "klassen"


Add the .pot file for internationalization for the plugin as it exists now

# Copyright (C) 2016 Steve Grunwell
# This file is distributed under the MIT.
msgid ""
msgstr ""
"Project-Id-Version: McAvoy 0.1.0\n"
"Report-Msgid-Bugs-To: https://wordpress.org/support/plugin/mcavoy\n"
"POT-Creation-Date: 2016-03-24 03:53:30+00:00\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: 2016-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"X-Generator: grunt-wp-i18n 0.5.4\n"

#: inc/admin.php:17 inc/admin.php:36
msgid "McAvoy Site Searches"
msgstr ""

#: inc/admin.php:18
msgid "Site Searches"
msgstr ""

#: inc/admin.php:39
msgid "These are the most recent queries on %s:"
msgstr ""

#: inc/admin.php:45
msgid "No matching queries were found"
msgstr ""

#. Plugin Name of the plugin/theme
msgid "McAvoy"
msgstr ""

#. Plugin URI of the plugin/theme
msgid "https://github.com/stevegrunwell/mcavoy"
msgstr ""

#. Description of the plugin/theme
msgid "Discover what visitors are searching for on your WordPress site."
msgstr ""

#. Author of the plugin/theme
msgid "Steve Grunwell"
msgstr ""

#. Author URI of the plugin/theme
msgid "https://stevegrunwell.com"
msgstr ""

#: inc/admin.php:52
msgctxt "table column header"
msgid "Date"
msgstr ""

#: inc/admin.php:53
msgctxt "table column header"
msgid "Search query"
msgstr ""


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2013-03-06 16:44-0300\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"Language: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"

#: models.py:8
msgid "Headline"
msgstr "Headline"

#: models.py:9
msgid "Text"
msgstr "Text"

#: models.py:10
msgid "Creation Date"
msgstr "Creation Date"

#: models.py:20
msgid "Slug"
msgstr "Slug"

#: models.py:31
msgid "Visible"
msgstr "Visible"

#: models.py:37
msgid "Position"
msgstr "Position"

#: models.py:44
msgid "Link URL"
msgstr "Link URL"

#: models.py:45
msgid "Link Name"
msgstr "Link Name"

#: models.py:51
msgid "Image"
msgstr "Image"


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2014-01-08 09:58-0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"Language: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n > 1);\n"

#: models.py:23
msgid "User"
msgstr "Usuário"

#: models.py:24
msgid "Key"
msgstr "Chave"

#: models.py:25
msgid "Date insert"
msgstr "Data de inserção"

#: models.py:40
msgid "API Key"
msgstr "Chave API"

#: models.py:41
msgid "API Keys"
msgstr "Chaves API"


Add FR translation for product_expiry_simple

# Translation of Odoo Server.
# This file contains the translation of the following modules:
#	* product_expiry_simple
#
msgid ""
msgstr ""
"Project-Id-Version: Odoo Server 10.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-02-14 13:30+0000\n"
"PO-Revision-Date: 2017-02-14 13:30+0000\n"
"Last-Translator: <>\n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: \n"
"Plural-Forms: \n"

#. module: product_expiry_simple
#: model:ir.ui.view,arch_db:product_expiry_simple.quant_search_view
#: model:ir.ui.view,arch_db:product_expiry_simple.search_product_lot_filter
msgid "Expired"
msgstr "Périmé"

#. module: product_expiry_simple
#: model:ir.model.fields,field_description:product_expiry_simple.field_stock_production_lot_expiry_date
#: model:ir.model.fields,field_description:product_expiry_simple.field_stock_quant_expiry_date
#: model:ir.ui.view,arch_db:product_expiry_simple.quant_search_view
#: model:ir.ui.view,arch_db:product_expiry_simple.search_product_lot_filter
msgid "Expiry Date"
msgstr "Date de péremption"

#. module: product_expiry_simple
#: model:ir.model,name:product_expiry_simple.model_stock_production_lot
msgid "Lot/Serial"
msgstr "Lot/N° série"

#. module: product_expiry_simple
#: model:ir.ui.view,arch_db:product_expiry_simple.quant_search_view
#: model:ir.ui.view,arch_db:product_expiry_simple.search_product_lot_filter
msgid "Not Expired"
msgstr "Non périmé"

#. module: product_expiry_simple
#: model:ir.model,name:product_expiry_simple.model_stock_quant
msgid "Quants"
msgstr "Quants"


#
# Localization file for Russian.
#
# Copyright (C) 2013 Igor Kalnitsky
# This file is distributed under the GPLv3 license.
# Igor Kalnitsky <igor@kalnitsky.org>, 2013.
#
msgid ""
msgstr ""
"Project-Id-Version: Icon Hider\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2013-07-19 13:43+0200\n"
"PO-Revision-Date: 2013-07-19 13:47+0100\n"
"Last-Translator: Igor Kalnitsky <igor@kalnitsky.org>\n"
"Language-Team: Russian <igor@kalnitsky.org>\n"
"Language: ru\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"

#: prefs.js:55
msgid "Show/Hide icons"
msgstr "Показать/спрятать иконки"

#: prefs.js:92
msgid "Utils"
msgstr "Утилиты"

#: prefs.js:105
msgid "Show extension's indicator"
msgstr "Отображать иконку расширения"

#: prefs.js:120
msgid "Show username"
msgstr "Отображать имя пользователя"

#: extension.js:96
msgid "Settings"
msgstr "Настройки"


Add Traditional Chinese in HongKong translations of Commits Page

# Huang Tao <htve@outlook.com>, 2017. #zanata
msgid ""
msgstr ""
"Project-Id-Version: gitlab 1.0.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-06-15 21:59-0500\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: 2017-06-23 01:23-0400\n"
"Last-Translator: Huang Tao <htve@outlook.com>\n"
"Language-Team: Chinese (Hong Kong SAR China)\n"
"Language: zh-HK\n"
"X-Generator: Zanata 3.9.6\n"
"Plural-Forms: nplurals=1; plural=0\n"

msgid "%d additional commit have been omitted to prevent performance issues."
msgid_plural ""
"%d additional commits have been omitted to prevent performance issues."
msgstr[0] "為提高頁面加載速度及性能，已省略了 %d 次提交。"

msgid "%d commit"
msgid_plural "%d commits"
msgstr[0] " %d 次提交"

msgid "BranchSwitcherPlaceholder|Search branches"
msgstr "搜索分支"

msgid "BranchSwitcherTitle|Switch branch"
msgstr "切換分支"

msgid "Browse Directory"
msgstr "瀏覽目錄"

msgid "Browse File"
msgstr "瀏覽文件"

msgid "Browse Files"
msgstr "瀏覽文件"

msgid "Commits feed"
msgstr "提交動態"

msgid "Filter by commit message"
msgstr "按提交消息過濾"

msgid "UploadLink|click to upload"
msgstr "點擊上傳"

msgid "View open merge request"
msgstr "查看開啟的合並請求"


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the python-manatools package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
# Translators:
# Caarmi, 2021
#
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: python-manatools 0.xx\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2018-01-27 23:12+0100\n"
"PO-Revision-Date: 2020-09-06 07:17+0000\n"
"Last-Translator: Caarmi, 2021\n"
"Language-Team: Interlingue (https://www.transifex.com/MageiaLinux/teams/9361/"
"ie/)\n"
"Language: ie\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

#: manatools/ui/common.py:62 manatools/ui/common.py:100
#: manatools/ui/common.py:136 manatools/ui/common.py:179
msgid "&Ok"
msgstr "&OK"

#: manatools/ui/common.py:180
msgid "&Cancel"
msgstr "A&nullar"

#: manatools/ui/common.py:229
msgid "&Yes"
msgstr "&Yes"

#: manatools/ui/common.py:230
msgid "&No"
msgstr "&No"


Add Simplified Chinese translations of Commits Page

# Huang Tao <htve@outlook.com>, 2017. #zanata
msgid ""
msgstr ""
"Project-Id-Version: gitlab 1.0.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-06-15 21:59-0500\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: 2017-06-23 01:04-0400\n"
"Last-Translator: Huang Tao <htve@outlook.com>\n"
"Language-Team: Chinese (China)\n"
"Language: zh-CN\n"
"X-Generator: Zanata 3.9.6\n"
"Plural-Forms: nplurals=1; plural=0\n"

msgid "%d additional commit have been omitted to prevent performance issues."
msgid_plural ""
"%d additional commits have been omitted to prevent performance issues."
msgstr[0] "为提高页面加载速度及性能，已省略了 %d 次提交。"

msgid "%d commit"
msgid_plural "%d commits"
msgstr[0] "%d 次提交"

msgid "BranchSwitcherPlaceholder|Search branches"
msgstr "搜索分支"

msgid "BranchSwitcherTitle|Switch branch"
msgstr "切换分支"

msgid "Browse Directory"
msgstr "浏览目录"

msgid "Browse File"
msgstr "浏览文件"

msgid "Browse Files"
msgstr "浏览文件"

msgid "Commits feed"
msgstr "提交动态"

msgid "Filter by commit message"
msgstr "按提交消息过滤"

msgid "UploadLink|click to upload"
msgstr "点击上传"

msgid "View open merge request"
msgstr "查看开启的合并请求"


Add Bulgarian translations of Commits Page

#
msgid ""
msgstr ""
"Project-Id-Version: gitlab 1.0.0\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2017-06-15 21:59-0500\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"PO-Revision-Date: \n"
"Last-Translator: \n"
"Language-Team: Bulgarian\n"
"Language: bg\n"
"X-Generator: Zanata 3.9.6\n"
"Plural-Forms: nplurals=2; plural=(n != 1)\n"

msgid "%d additional commit have been omitted to prevent performance issues."
msgid_plural ""
"%d additional commits have been omitted to prevent performance issues."
msgstr[0] ""
msgstr[1] ""

msgid "%d commit"
msgid_plural "%d commits"
msgstr[0] ""
msgstr[1] ""

msgid "BranchSwitcherPlaceholder|Search branches"
msgstr ""

msgid "BranchSwitcherTitle|Switch branch"
msgstr ""

msgid "Browse Directory"
msgstr ""

msgid "Browse File"
msgstr ""

msgid "Browse Files"
msgstr ""

msgid "Commits feed"
msgstr ""

msgid "Filter by commit message"
msgstr ""

msgid "UploadLink|click to upload"
msgstr ""

msgid "View open merge request"
msgstr ""


#
msgid ""
msgstr ""
"Language: en\n"
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"

msgid "foo"
msgstr "bar"

Remove single whitespace to fix tests


# Translation of Odoo Server.
# This file contains the translation of the following modules:
#
msgid ""
msgstr ""
"Project-Id-Version: Odoo Server 15.0+e\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2022-04-24 13:03+0000\n"
"PO-Revision-Date: 2022-04-19 15:18+0000\n"
"Language-Team: Spanish (https://www.transifex.com/adhoc/teams/133229/es/)\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: \n"
"Language: es\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

Update translation terms from Transifex adhoc-odoo-15-0

# Translation of Odoo Server.
# This file contains the translation of the following modules:
#
msgid ""
msgstr ""
"Project-Id-Version: Odoo Server 15.0+e\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2022-04-25 13:16+0000\n"
"PO-Revision-Date: 2022-04-19 15:18+0000\n"
"Language-Team: Spanish (https://www.transifex.com/adhoc/teams/133229/es/)\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: \n"
"Language: es\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"


# Translation of Odoo Server.
# This file contains the translation of the following modules:
#
msgid ""
msgstr ""
"Project-Id-Version: Odoo Server 15.0+e\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2022-04-21 12:32+0000\n"
"PO-Revision-Date: 2022-04-19 15:18+0000\n"
"Language-Team: Spanish (https://www.transifex.com/adhoc/teams/133229/es/)\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: \n"
"Language: es\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"

Update translation terms from Transifex adhoc-odoo-15-0

# Translation of Odoo Server.
# This file contains the translation of the following modules:
#
msgid ""
msgstr ""
"Project-Id-Version: Odoo Server 15.0+e\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2022-04-22 12:42+0000\n"
"PO-Revision-Date: 2022-04-19 15:18+0000\n"
"Language-Team: Spanish (https://www.transifex.com/adhoc/teams/133229/es/)\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: \n"
"Language: es\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"


msgid ""
"First, type in the name of the UK public authority you'd \n"
"
like information from. By law, they have to respond\n"
"           (why?)."
msgstr ""
"First, type in the name of the public authority you'd \n"
"
like information from. By law, they have to respond\n"
"           (why?)."

msgid "Summary:"
msgstr "Subject:"

Remove FOI reference from site title

msgid ""
"First, type in the name of the UK public authority you'd \n"
"
like information from. By law, they have to respond\n"
"           (why?)."
msgstr ""
"First, type in the name of the public authority you'd \n"
"
like information from. By law, they have to respond\n"
"           (why?)."

msgid "Summary:"
msgstr "Subject:"

#: app/views/layouts/default.rhtml:15
msgid "Make and browse Freedom of Information (FOI) requests"
msgstr "Make and browse access to information requests"


# Derived Empathy
# Copyright (C) 2003-2008 Free Software Foundation, Inc.
# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Aviary.pl
# Jeśli masz jakiekolwiek uwagi odnoszące się do tłumaczenia lub chcesz
# pomóc w jego rozwijaniu i pielęgnowaniu, napisz do nas:
# gnomepl@aviary.pl
# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Review całości pliku: 14.07.2008 Wadim Dziedzic

msgid "Available"
msgstr "Dostępny"

msgid "Busy"
msgstr "Zajęty"

msgid "Away"
msgstr "Nieobecny"

msgid "Offline"
msgstr "Rozłączony

Add missing closing speech mark in Polish translation

# Derived Empathy
# Copyright (C) 2003-2008 Free Software Foundation, Inc.
# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Aviary.pl
# Jeśli masz jakiekolwiek uwagi odnoszące się do tłumaczenia lub chcesz
# pomóc w jego rozwijaniu i pielęgnowaniu, napisz do nas:
# gnomepl@aviary.pl
# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Review całości pliku: 14.07.2008 Wadim Dziedzic

msgid "Available"
msgstr "Dostępny"

msgid "Busy"
msgstr "Zajęty"

msgid "Away"
msgstr "Nieobecny"

msgid "Offline"
msgstr "Rozłączony"


# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
msgid ""
msgstr ""
"Project-Id-Version: \n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2018-09-09 22:34-0700\n"
"PO-Revision-Date: 2016-09-20 08:30+0200\n"
"Last-Translator: \n"
"Language-Team: \n"
"Language: de\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"
"X-Generator: Poedit 1.8.8\n"

#: forms.py:21
msgid "Your name"
msgstr "Dein Name"

#: forms.py:23
msgid "Your email address"
msgstr "deine Emailadresse"

#: forms.py:25
msgid "Your message"
msgstr "Deine Nachricht"

#: forms.py:140
msgid "Your message was classified as spam."
msgstr ""

Fix and update German translation.

# SOME DESCRIPTIVE TITLE.
# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
# This file is distributed under the same license as the PACKAGE package.
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
#
msgid ""
msgstr ""
"Project-Id-Version: \n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2018-09-09 22:34-0700\n"
"PO-Revision-Date: 2016-09-20 08:30+0200\n"
"Last-Translator: \n"
"Language-Team: \n"
"Language: de\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=(n != 1);\n"
"X-Generator: Poedit 1.8.8\n"

#: forms.py:21
msgid "Your name"
msgstr "Dein Name"

#: forms.py:23
msgid "Your email address"
msgstr "Deine E-Mail-Adresse"

#: forms.py:25
msgid "Your message"
msgstr "Deine Nachricht"

#: forms.py:140
msgid "Your message was classified as spam."
msgstr "Deine Nachricht wurde als Spam klassifiziert."