Search Site | Contact Details | FAQ

ADAS Subroutine find

      SUBROUTINE FIND(ARR,VALUE,IMAX,INDEX)                             
                                                                       
C-----------------------------------------------------------------------
C                                                                      
C  ****************** FORTRAN77 SUBROUTINE: FIND **********************
C
C  PURPOSE:
C  SUBROUTINE TO FIND VALUES FROM LINE AND STORE ONLY NOT REPEATED    
C  VALUES                                                            
C                                                                   
C                                                                  
C  INPUT                                                          
C      ARR = NAME OF ARRAY TO STORE ELEMENTS                     
C      VALUE = VALUE TO BE FOUND IN LINE                        
C      IMAX = TOTAL NUMBER OF NOT REPEATED ELEMENTS IN ARRAY   
C      INDEX = COUNTER OF ELEMENT POSITION IN ARRAY           
C  OUTPUT                                                    
C       ARR = ARRAY CONTAINING NOT REPEATED VALUES READ FROM LINE      
C                                                                       
C NOTES: THIS ROUTINE IS NOT YET PROPERLY ANNOTATED
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 01-02-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - PUT UNDER SCCS CONTROL
C
C-----------------------------------------------------------------------
      LOGICAL OVER,FOUND                                               
      INTEGER             IMAX,        INDEX
      REAL                ARR(*),      VALUE
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk