include file: TYPSPPTA 3
*IF DEF,ATMOS                                                              TYPSPPTA.2      
CL     super array of  pointers              (atmosphere)                  TYPSPPTA.3      
      REAL A_SPPTR(A_SPPTR_LEN)                                            TYPSPPTA.4      
*ENDIF                                                                     TYPSPPTA.5