ASNGRP.f90#21
     &          PATH*2 , MODNAM*6 , IID2*8 , LID2*8 , HID2*8
#31
      CALL SETIDG(INID,IID1,IN,IID2)
#38
     &     (IID2.GE.LID2 .AND. IID2.LE.HID2) ) INGRP = .TRUE.

HyperKWIC - Version 1.00DD executed at 20:00 on  1 Mar 2018  | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use