Sources/bibio/getfieldindex.f

module getfieldindex_m

  implicit none

contains

  integer function GetFieldIndex(name)

    USE write_field, ONLY: fieldname, nbfield

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

    ! Local:
    character(len=255) TrueName
    integer i

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

    TrueName=TRIM(ADJUSTL(name))

    GetFieldIndex=-1

    do i=1,NbField
       if (TrueName==FieldName(i)) then
          GetFieldIndex=i
          exit
       endif
    enddo

  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			USE write_field, ONLY: fieldname, nbfield
10
11			character(len=*), intent(in):: name
12
13			! Local:
14			character(len=255) TrueName
15			integer i
16
17			!--------------------------------------------------
18
19			TrueName=TRIM(ADJUSTL(name))
20
21			GetFieldIndex=-1
22
23			do i=1,NbField
24			if (TrueName==FieldName(i)) then
25			GetFieldIndex=i
26			exit
27			endif
28			enddo
29
30			end function GetFieldIndex
31
32			end module getfieldindex_m