[svn-r15423] Description:

Fix the error of passing an array to a scalar.
This commit is contained in:
Scot Breitenfeld 2008-07-29 09:15:47 -05:00
parent 5a752d6e90
commit 121acf4bb4

View File

@ -1251,7 +1251,7 @@ SUBROUTINE delete_by_idx(cleanup, fapl, total_error)
! /* Verify link information for new link */
CALL link_info_by_idx_check(group_id, objname, u, &
.TRUE., use_index, total_error)
.TRUE., use_index(i), total_error)
ENDDO
! /* Verify state of group (compact) */