Searched defs:xas_env_release (Results 1 – 2 of 2) sorted by relevance
343 SUBROUTINE xas_env_release(xas_env) subroutine347 CHARACTER(len=*), PARAMETER :: routineN = 'xas_env_release', & argument348 routineP = moduleN//':'//routineN350 INTEGER :: i, ik, j local