Sources/misc/getfieldindex.f

module getfieldindex_m

  implicit none

contains

  integer function GetFieldIndex(name)

    USE createnewfield_m, ONLY: fieldname, nbfield

    character(len=*), intent(in):: name

    ! Local:
    character(len(name)) TrueName

    !--------------------------------------------------

    TrueName = ADJUSTL(name)

    if (NbField >= 1) then
       GetFieldIndex = 1

       do while (TrueName /= FieldName(getfieldindex) &
            .and. GetFieldIndex < NbField)
          GetFieldIndex = GetFieldIndex + 1
       end do

       if (TrueName /= FieldName(getfieldindex)) GetFieldIndex = - 1
    else
       GetFieldIndex = - 1
    end if

  end function GetFieldIndex

end module getfieldindex_m
1	guez	108	module getfieldindex_m
2
3			implicit none
4
5			contains
6
7			integer function GetFieldIndex(name)
8
9	guez	110	USE createnewfield_m, ONLY: fieldname, nbfield
10	guez	108
11			character(len=*), intent(in):: name
12
13			! Local:
14	guez	110	character(len(name)) TrueName
15	guez	108
16			!--------------------------------------------------
17
18	guez	110	TrueName = ADJUSTL(name)
19	guez	108
20	guez	110	if (NbField >= 1) then
21			GetFieldIndex = 1
22	guez	108
23	guez	110	do while (TrueName /= FieldName(getfieldindex) &
24			.and. GetFieldIndex < NbField)
25			GetFieldIndex = GetFieldIndex + 1
26			end do
27	guez	108
28	guez	110	if (TrueName /= FieldName(getfieldindex)) GetFieldIndex = - 1
29			else
30			GetFieldIndex = - 1
31			end if
32
33	guez	108	end function GetFieldIndex
34
35			end module getfieldindex_m