corect.f

Go to the documentation of this file.

      SUBROUTINE corect(IDNCAT, DATCAT, NUMCLM, LBLCLM, TIMCLM,                      
     *            NRFCLM, MAPCLM, MRKCLM, SKYCLM, IERR)                        
 
      real*8    timclm(*)                         
C                                                                               
      real*4    datcat(7,*)                                       
      real*4    skyclm(10,3,*)                                    
C                                                                               
      INTEGER*4 IDNCAT(*)              
      INTEGER*4 NUMCLM      , MRKCLM(*), NUMSTR                 
      INTEGER*4 NRFCLM(*)              
      INTEGER*4 LBLCLM(*)   , MAPCLM(10,*)  
C                                                                               
C     * DECLARE LOCAL VARIABLES                                                 
      INTEGER*4 IERR        , NUMTRP        , NUMDUB   , NUMCAT  ,LUCAT
C                                                                               
 
      DO i=1,numclm
        DO j=1,nrfclm(i)
          DO k=1,3
            skyclm(j,k,i) = datcat(k,mapclm(j,i))
          END DO
        END DO
      END DO
 
      ierr = 0
      RETURN
      END