CTITLEIILZ   -- COUNT NUMBER OF FALSE VALUES BEFORE THE FIRST TRUE      00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR        MIKE MAROLDA                                        00020000
CA    DESIGNER      MIKE MAROLDA                                        00030000
CA    LANGUAGE      FORTRAN                                             00040000
CA    SYSTEM        IBM (SEE CRAY SYSTEM LIBRARY)                       00050000
CA    WRITTEN       01-24-86                                            00060000
C     REVISED       XX-XX-XX III.  ...                                  00070000
CA                                                                      00080000
CA                                                                      00090000
CA    FUNCTION IILZ (N, A, NIDLX)                                       00100000
CA         INPUT      N = NUMBER OF ELEMENTS IN IARRAY              I4  00110000
CA         INPUT      A = REAL ARRAY OF LENGTH N                    R4  00120000
CA         INPUT  NIDLX = SKIP DISTANCE BETWEEN ELEMENTS IN A       I4  00130000
CA                                                                      00140000
CA                                                                      00150000
CA       FUNCTION IILZ RETURNS THE NUMBER OF FALSE VALUES IN ARRAY A    00160000
CA       BEFORE THE FIRST TRUE VALUE.                                   00170000
CAEND                                                                   00180000
      FUNCTION IILZ ( N, A, NIDLX)                                      00190000
C                                                                       00200000
      DIMENSION  A(1)                                                   00210000
C                                                                       00220000
      DO 100 J=1, N, NIDLX                                              00230000
      IF (A(J) .EQ. 0.0 ) GO TO                                    100  00240000
      IILZ = J - 1                                                      00250000
      GO TO                                                        200  00260000
  100 CONTINUE                                                          00270000
C                                                                       00280000
      IILZ = N                                                          00290000
C                                                                       00300000
  200 RETURN                                                            00310000
C                                                                       00320000
      END                                                               00330000