#line 1 "stdin"
!--------------------------------------------------------------------
! Copyright © 2017 United States Government as represented by the   |
! Administrator of the National Aeronautics and Space               |
! Administration. No copyright is claimed in the United States      |
! under Title 17, U.S. Code. All Other Rights Reserved.             |
!                                                                   |
! Licensed under the Apache License, Version 2.0.                   |
!--------------------------------------------------------------------














#line 27


#line 33



#ifdef _type
#line 36
#  define __use_type _type
#line 36
#endif
#line 36

#ifdef _rank
#line 37
#  define __use_rank _rank
#line 37
#endif
#line 37

#ifdef _extents
#line 38
#  define __use_extents _extents
#line 38
#endif
#line 38

#ifdef _string
#line 39
#  define __use_string _string
#line 39
#endif
#line 39

#ifdef _string_deferred
#line 40
#  define __use_string_deferred _string_deferred
#line 40
#endif
#line 40

#ifdef _logical
#line 41
#  define __use_logical _logical
#line 41
#endif
#line 41

#ifdef _pointer
#line 42
#  define __use_pointer _pointer
#line 42
#endif
#line 42

#ifdef _allocatable
#line 43
#  define __use_allocatable _allocatable
#line 43
#endif
#line 43

#ifdef _procedure
#line 44
#  define __use_procedure _procedure
#line 44
#endif
#line 44


#ifdef _equal_defined
#line 46
#  define __use_equal_defined _equal_defined
#line 46
#endif
#line 46

#ifdef _less_than_defined
#line 47
#  define __use_less_than_defined _less_than_defined
#line 47
#endif
#line 47


#ifdef _ASSIGN
#line 49
#  define __USE_ASSIGN(dest,src) _ASSIGN(dest,src)
#line 49
#endif
#line 49

#ifdef _MOVE
#line 50
#  define __USE_MOVE(dest,src) _MOVE(dest,src)
#line 50
#endif
#line 50

#ifdef _FREE
#line 51
#  define __USE_FREE(x) _FREE(x)
#line 51
#endif
#line 51


#ifdef _LESS_THAN
#line 53
#  define __USE_LESS_THAN(x,y) _LESS_THAN(x,y)
#line 53
#endif
#line 53

#ifdef _EQ_ELEMENT
#line 54
#  define __USE_EQ_ELEMENT(x,y) _EQ_ELEMENT(x,y)
#line 54
#endif
#line 54

#ifdef _EQ
#line 55
#  define __USE_EQ(x,y) _EQ(x,y)
#line 55
#endif
#line 55

