GRASP
Functions/Subroutines
gg1233.f90 File Reference

Functions/Subroutines

subroutine gg1233 (IK1, IK2, IK3, BK1, BK2, BK3, ID1, ID2, ID3, BD1, BD2, BD3, K1, QM1, QM2, QM3, QM4, WW)
 

Function/Subroutine Documentation

◆ gg1233()

subroutine gg1233 ( integer, dimension(7), intent(in IK1,
integer, dimension(7), intent(in IK2,
integer, dimension(7), intent(in IK3,
real(double), dimension(3), intent(in BK1,
real(double), dimension(3), intent(in BK2,
real(double), dimension(3), intent(in BK3,
integer, dimension(7), intent(in ID1,
integer, dimension(7), intent(in ID2,
integer, dimension(7), intent(in ID3,
real(double), dimension(3), intent(in BD1,
real(double), dimension(3), intent(in BD2,
real(double), dimension(3), intent(in BD3,
integer, intent(in K1,
real(double), intent(in QM1,
real(double), intent(in QM2,
real(double), intent(in QM3,
real(double), intent(in QM4,
real(double), intent(out WW 
)
Here is the call graph for this function:
Here is the caller graph for this function: