GRASP
|
Functions/Subroutines | |
subroutine | w1jjg (K1, QM1, QM2, IK, BK, ID, BD, WW) |
subroutine w1jjg | ( | integer, intent(in) | K1, |
real(double), intent(in) | QM1, | ||
real(double), intent(in) | QM2, | ||
integer, dimension(7), intent(in) | IK, | ||
real(double), dimension(3), intent(in) | BK, | ||
integer, dimension(7), intent(in) | ID, | ||
real(double), dimension(3), intent(in) | BD, | ||
real(double), intent(out) | WW | ||
) |