c this file contains declarations for statement functions used to c identify the satellite whose data is being processed. c c each statement function returns a value of true if its name c matches the satellite name from the input file header. c c any subroutine requiring these functions should specify this file in c an include statement. c c author: b. kelley c date: december 1997 c c*********************************************************************** c common /satlit/ satnam character*3 satnam c logical*4 n07,n09,n11,n14,n16 c n07()=satnam.eq.'N07' n09()=satnam.eq.'N09' n11()=satnam.eq.'N11' n14()=satnam.eq.'N14' n16()=satnam.eq.'N16'