cpointer.h

#ifndef CPOINTER_H
#define CPOINTER_H 1

typedef long PTRTYPE ;
#define CFORTRANPNTR LONG
#define CFORTRANPNTRV LONGV

#include <vector>
typedef std::vector<PTRTYPE> PointerVec ;

template<class T, class O> T* f2c_pointer(PTRTYPE ptr){

  if(! (ptr) ) return 0  ; 

  O*  o_ptr = reinterpret_cast<O*>( ptr ) ;

  return dynamic_cast<T*>( o_ptr ) ; 
}

#define C2F_POINTER(T,ptr) reinterpret_cast<PTRTYPE>( dynamic_cast<T>( (ptr) ) )

#endif