preval.f

Go to the documentation of this file.

!                   ***********************
                    INTEGER FUNCTION preval
!                   ***********************
!
     &( icol , ligne , car1 , car2 , car3 )
!
!***********************************************************************
! DAMOCLES   V6P0                                   21/08/2010
!***********************************************************************
!
!brief    RETURNS THE COLUMN INDEX OF THE 1ST VALID CHARACTER CAR
!+             IN THE LINE (I.E. NON-WHITE, NON-TABULATION AND NON-COMMENTED
!+             STRING)
!+             IF CANNOT FIND IT, RETURNS LONGLI + 1
!
!note     PORTABILITY : IBM,CRAY,HP,SUN
!
!history  O. QUIQUEMPOIX (LNH)
!+        15/12/1993
!+
!+
!
!history  J.M. HERVOUET (LNH); A. YESSAYAN
!+        16/08/1994
!+        V5P1
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| CAR1,CAR2,CAR3 |-->| CARACTERES RECHERCHES DANS LA LIGNE
!| ICOL           |-->| POSITION COURANTE DU POINTEUR DANS LA LIGNE
!| LIGNE          |-->| LIGNE EN COURS DE DECODAGE
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_damocles
      IMPLICIT NONE
!
      INTEGER       ICOL
      CHARACTER(LEN=1)   CAR1,CAR2,CAR3
      CHARACTER(LEN=*) LIGNE
!
!-----------------------------------------------------------------------
!
      INTEGER       I,J
!
!***********************************************************************
!                                    RCS AND SCCS MARKING
!
!***********************************************************************
!
      preval = longli + 1
      i      = icol -1
!
100   CONTINUE
      i = i + 1
      IF (ligne(i:i).NE.car1.AND.ligne(i:i).NE.car2.AND.
     &    ligne(i:i).NE.car3) THEN
!-----------------------------------------------------------------------
!       DOES NOT CONSIDER THE COMMENTED LINES:
!
        IF ( i.GE.longli ) GO TO 1000
        IF ( ligne(i:i).EQ.'/' ) THEN
          DO j = i+1 , longli
            IF ( ligne(j:j).EQ.'/' ) THEN
              i = j
              GO TO 100
            ENDIF
          ENDDO ! J
          GO TO 1000
!--------------------------------------------------------------------
        ELSE
          GO TO 100
        ENDIF
      ELSE
        preval = i
      ENDIF
!
1000  CONTINUE
!
      RETURN
      END