GRASP
Functions/Subroutines
wap1.f90 File Reference

Functions/Subroutines

subroutine wap1 (IK, BK, ID, BD, K1, BK2, QM1, QM2, QM3, WA)
 

Function/Subroutine Documentation

◆ wap1()

subroutine wap1 ( 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,
integer, intent(in)  K1,
real(double), intent(in)  BK2,
real(double), intent(in)  QM1,
real(double), intent(in)  QM2,
real(double), intent(in)  QM3,
real(double), intent(out)  WA 
)
Here is the call graph for this function:
Here is the caller graph for this function: