build lagrit under windows and MSVC/IFORT

[jbensabat]

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

[millerta]

Hi Jacob, I see a few messages from you that are coming from github. I am not sure of your current status or how to respond, and the dev team is not always on github. Can you send your questions to this email at ***@***.*** and also include your email address? Terry A. Miller Research Technologist EES-16 https://meshing.lanl.gov/<https://d.lanl.gov/> lagrit.lanl.gov Pronouns: she/her Mobile: +1 (505) 412-3626

…

________________________________ From: jbensabat ***@***.***> Sent: Wednesday, January 1, 2025 7:08 AM To: lanl/LaGriT ***@***.***> Cc: Subscribed ***@***.***> Subject: [EXTERNAL] [lanl/LaGriT] build lagrit under windows and MSVC/IFORT (Issue #273) 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 — Reply to this email directly, view it on GitHub<https://urldefense.com/v3/__https://github.com/lanl/LaGriT/issues/273__;!!Bt8fGhp8LhKGRg!CXDLm5Z11-MEvTR4I_DjlvjcmZ_s9vMXpUEjiEr8lPVMm9nChVHIr_WVLtzO947eaUVpLS9TKGiAmJd4CqLvcxPj$>, or unsubscribe<https://urldefense.com/v3/__https://github.com/notifications/unsubscribe-auth/AFAWPSEXFD22E6XYWTN7KE32IPZHPAVCNFSM6AAAAABUOVPE5CVHI2DSMVQWIX3LMV43ASLTON2WKOZSG43DKMBZGE3DMNQ__;!!Bt8fGhp8LhKGRg!CXDLm5Z11-MEvTR4I_DjlvjcmZ_s9vMXpUEjiEr8lPVMm9nChVHIr_WVLtzO947eaUVpLS9TKGiAmJd4CvNjb0hI$>. You are receiving this because you are subscribed to this thread.Message ID: ***@***.***>