next.f

Go to the documentation of this file.

!                   *********************
                    INTEGER FUNCTION next
!                   *********************
!
     &( icol , ligne )
!
!***********************************************************************
! DAMOCLES   V6P0                                   21/08/2010
!***********************************************************************
!
!brief    RETURNS THE INDEX OF THE 1ST NON-WHITE, NON-TABULATION
!+             AND NON-COMMENT CHARACTER OF THE LINE, STARTING FROM
!+             COLUMN ICOL.
!+             IF THERE ARE NONE, SCANS THE NEXT LINE
!+             IF CANNOT FIND ANY, NEXT = 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
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| ICOL           |<->| POSITION COURANTE DU POINTEUR DANS LA LIGNE
!| LIGNE          |<->| LIGNE EN COURS DE DECODAGE
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_damocles
      USE declarations_special
      IMPLICIT NONE
!
      INTEGER       ICOL
      CHARACTER(LEN=*) LIGNE*(*)
!
!-----------------------------------------------------------------------
!
      INTEGER       I,J
      CHARACTER(LEN=1)   TABUL
!
!-----------------------------------------------------------------------
!
      INTRINSIC char
!
!***********************************************************************
!                                    RCS AND SCCS MARKING
!
!***********************************************************************
!
      tabul = char(9)
      next  = longli + 1
      i     = icol -1
!
100   CONTINUE
      i = i + 1
!
      IF(i.GT.longli) THEN
99        nlign = nlign + 1
          READ(nfic,end=900,err=998,fmt='(A)') ligne
!         DOES NOT CONSIDER A LINE STARTING WITH '/'
          IF(ligne(1:1).EQ.'/') GO TO 99
          i = 0
          GO TO 100
      ENDIF
!
!
! CASE OF A WHITE OR TABULATION CHARACTER
      IF (ligne(i:i).EQ.' '.OR.ligne(i:i).EQ.tabul) GOTO 100
!
!-----------------------------------------------------------------------
!
!       DOES NOT CONSIDER THE COMMENTED LINES:
!
!       IF ( LIGNE(I:I).NE.'/'.OR.I.GE.LONGLI ) THEN
        IF (ligne(i:i).NE.'/') THEN
          next = i
          GO TO 1000
        ELSE
          DO j = i+1 , longli
            IF ( ligne(j:j).EQ.'/' ) THEN
              i = j
              GO TO 100
            ENDIF
          ENDDO ! J
          i = longli
          GO TO 100
        ENDIF
!
!-----------------------------------------------------------------------
!
998   CONTINUE
      WRITE(lu,1999) nfic,nlign
1999  FORMAT(1x,'LOGICAL UNIT ',1i2,'   ERROR LINE ',1i6)
900   CONTINUE
      retour = .true.
!
1000  CONTINUE
!
!-----------------------------------------------------------------------
!
      RETURN
      END