diff options
Diffstat (limited to 'Source/WarpX_laser.F90')
| -rw-r--r-- | Source/WarpX_laser.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Source/WarpX_laser.F90 b/Source/WarpX_laser.F90 index 312323fc3..0d1f69c22 100644 --- a/Source/WarpX_laser.F90 +++ b/Source/WarpX_laser.F90 @@ -21,7 +21,8 @@ contains integer(c_long) :: i real(c_real) :: k0, oscillation_phase, temporal_exponent complex*16 :: diffract_factor, exp_argument, prefactor, & - inv_complex_waist_2, j=cmplx(0., 1.) + inv_complex_waist_2 + complex*16, parameter :: j=cmplx(0., 1.) ! This function uses the complex expression of a Gaussian laser ! (Including Gouy phase and laser oscillations) |