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 |