bibio/Writefield/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	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