F90Vendor.h

Go to the documentation of this file.

#ifndef _F90VENDOR_H_
#define _F90VENDOR_H_

#include <stdio.h>
#include <CompilerCharacteristics.h>

#ifdef __cplusplus
extern "C" {
#endif




void* createArrayDesc_F90Vendor(void* desc,
                               void* hidden,
                               int rank,
                               F90_DescType desc_type
                               );


int setArrayDesc_F90Vendor(void* desc,
                          void* base_addr,
                          int rank,
                          F90_DescType desc_type,
                          F90_ArrayDataType data_type,
                          unsigned long element_size,
                          const long* lowerBound,
                          const unsigned long* extent,
                          const long* strideMult
                          );


int resetArrayDesc_F90Vendor(void* desc,
                            void* base_addr,
                            int rank,
                            const long* lowerBound,
                            const unsigned long* extent,
                            const long* strideMult
                            );
 /* end of Create_and_Initialize group */




int copyToArrayDescAndHidden_F90Vendor(void* src,
                                      int rank,
                                      F90_DescType desc_type,
                                      void* desc,
                                      void* hidden
                                      );


int createArrayDescAndHidden_F90Vendor(void* src,
                                      int rank,
                                      F90_DescType desc_type,
                                      void** desc,
                                      void** hidden
                                      );


int freeArrayDescAndHidden_F90Vendor(F90_DescType desc_type,
                                    void* desc, void* hidden
                                    );

 /* end of Procedure_Calls group */




void* getArrayBaseAddress_F90Vendor(const void* desc, int rank);


unsigned long getArraySize_F90Vendor(const void* desc, int rank);


long getArrayLowerBound_F90Vendor(const void* desc, int rank, int dim);


unsigned long getArrayExtent_F90Vendor(const void* desc, int rank, int dim);


long getArrayStrideMult_F90Vendor(const void* desc, int rank, int dim);

 /* end of Accessors group */




unsigned long getArrayDescSize_F90Vendor(int rank);


F90_HiddenDescType hiddenArrayDescType_F90Vendor(F90_DescType desc_type);


int verifyArrayDesc_F90Vendor(const void* desc, int rank);


int nullifyArrayDesc_F90Vendor(void* desc, int rank);


int printArrayDesc_F90Vendor(const void* desc, int rank);


int equalsArrayDesc_F90Vendor(const void* desc1, const void* desc2, int rank);


char* getMangledName_F90Vendor(const char* fun_name, const char* mod_name);


void F90_SetCCFunctions_F90Vendor(F90_CompilerCharacteristics* cc);

 /* end of Miscellaneous group */


#ifdef __cplusplus
}
#endif

#endif /*_F90VENDOR_H_*/

---