GRASP
Functions/Subroutines
engout1.f90 File Reference

Functions/Subroutines

subroutine engout1 (EAV, E, JTOT, IPAR, ILEV, NN, MODE, K)
 

Function/Subroutine Documentation

◆ engout1()

subroutine engout1 ( real(double), intent(in)  EAV,
real(double), dimension(nn), intent(in)  E,
integer, dimension(nn), intent(in)  JTOT,
integer, dimension(nn), intent(in)  IPAR,
integer, dimension(nn), intent(in)  ILEV,
integer, intent(in)  NN,
integer  MODE,
integer, intent(in)  K 
)