Public Member Functions
subroutine	swapi (i, j)

subroutine	swapr (i, j)

subroutine	swapc (i, j)

subroutine	swap_mom (Mom1, Mom2)

subroutine	swap_cmom (Mom1, Mom2)

Detailed Description

Definition at line 5 of file mod_Misc.F90.

Member Function/Subroutine Documentation

◆ swap_cmom()

subroutine modmisc::swap::swap_cmom	(	complex(8), dimension(1:4)	Mom1,
		complex(8), dimension(1:4)	Mom2
	)

Definition at line 434 of file mod_Misc.F90.

 implicit none
 complex(8) :: Mom1(1:4),Mom2(1:4),tmp(1:4)
  
     tmp(1:4) = mom2(1:4)
     mom2(1:4) = mom1(1:4)
     mom1(1:4) = tmp(1:4)
  
 RETURN

◆ swap_mom()

subroutine modmisc::swap::swap_mom	(	real(8), dimension(1:4)	Mom1,
		real(8), dimension(1:4)	Mom2
	)

Definition at line 423 of file mod_Misc.F90.

 implicit none
 real(8) :: Mom1(1:4),Mom2(1:4),tmp(1:4)
  
     tmp(1:4) = mom2(1:4)
     mom2(1:4) = mom1(1:4)
     mom1(1:4) = tmp(1:4)
  
 RETURN

◆ swapc()

subroutine modmisc::swap::swapc	(	complex(8)	i,
		complex(8)	j
	)

Definition at line 413 of file mod_Misc.F90.

 implicit none
 complex(8) :: i,j,temp
  
     temp=j
     j=i
     i=temp
  

◆ swapi()

subroutine modmisc::swap::swapi	(	integer	i,
		integer	j
	)

Definition at line 393 of file mod_Misc.F90.

 implicit none
 integer :: i,j,temp
  
     temp=j
     j=i
     i=temp
  

◆ swapr()

subroutine modmisc::swap::swapr	(	real(8)	i,
		real(8)	j
	)

Definition at line 403 of file mod_Misc.F90.

 implicit none
 real(8) :: i,j,temp
  
     temp=j
     j=i
     i=temp
  

The documentation for this interface was generated from the following file:

MELA/fortran/mod_Misc.F90