/[lmdze]/trunk/Sources/bibio/getfieldindex.f
ViewVC logotype

Diff of /trunk/Sources/bibio/getfieldindex.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC revision 110 by guez, Wed Sep 17 11:55:05 2014 UTC
# Line 6  contains Line 6  contains
6    
7    integer function GetFieldIndex(name)    integer function GetFieldIndex(name)
8    
9      USE write_field, ONLY: fieldname, nbfield      USE createnewfield_m, ONLY: fieldname, nbfield
10    
11      character(len=*), intent(in):: name      character(len=*), intent(in):: name
12    
13      ! Local:      ! Local:
14      character(len=255) TrueName      character(len(name)) TrueName
     integer i  
15    
16      !--------------------------------------------------      !--------------------------------------------------
17    
18      TrueName=TRIM(ADJUSTL(name))      TrueName = ADJUSTL(name)
19    
20      GetFieldIndex=-1      if (NbField >= 1) then
21           GetFieldIndex = 1
22    
23      do i=1,NbField         do while (TrueName /= FieldName(getfieldindex) &
24         if (TrueName==FieldName(i)) then              .and. GetFieldIndex < NbField)
25            GetFieldIndex=i            GetFieldIndex = GetFieldIndex + 1
26            exit         end do
27         endif  
28      enddo         if (TrueName /= FieldName(getfieldindex)) GetFieldIndex = - 1
29        else
30           GetFieldIndex = - 1
31        end if
32    
33    end function GetFieldIndex    end function GetFieldIndex
34    
Legend:
Removed from v.108  
changed lines
  Added in v.110
  ViewVC Help
Powered by ViewVC 1.1.21