build lagrit under windows and MSVC/IFORT #273
Description
Hello
I have built lagrit under windows with MSVC/IFORT, using the lagrit-windows distribution.
When I try to run the executable - calling the initlagrit
partname='global_lg'
number_of_globals=7
call mfindbk('global_name',partname,ipglobal_name,len,ierror)
i get ierror =-16
because calling
call mm_index_by_name (aname, pname, index)
returns index =0
inside mm_index_by_name
subroutine mm_index_by_name (aname, pname, index)
implicit none
character*(*) aname, pname
integer index ,i
include 'mm2000.h'
index = first
do i=1,100000000
if (index .lt. 1) then
index = 0
return
end if
if (aname .eq. ad_name(1,index) .and.
& pname .eq. ad_name(2,index)) return
index = link(index)
end do
return
end
the variable first is equal to zero and this is what causes the problem
where is "first" initialized ?
best
jac