nvar.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
integer function	nvar (text)

Function/Subroutine Documentation

nvar()

integer function nvar

(

character(len=ncharline100)

text

)

Definition at line 31 of file nvar.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE names_and_titles_mod, ONLY: ncharline100
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
 
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        CHARACTER(LEN=NCHARLINE100):: TEXT
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER N, I, J
        CHARACTER TEXT1*101
C-----------------------------------------------
        text1(1:1)=' '
        text1(2:101)=text
        n=0
        DO i=2,101
          j=i-1
          IF(text1(i:i) /= ' ' .AND. text1(j:j) == ' ') THEN
            n=n+1
          ENDIF
        ENDDO
        nvar=n
        RETURN