avinsk
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Все делается ради совместимости с большой (по-настоящему большой) и запутанной кучей старого кода - интерфейс новый на Си, расчет - старый. На форуме Intel предложили красивое решение - сделать такой модуль (здесь два целых массива): MODULE ARRAYS_MOD USE, INTRINSIC :: ISO_C_BINDING TYPE(C_PTR) :: P_IAR1, P_IAR2 COMMON /MYARRS/ P_IAR1, P_IAR2 INTEGER, DIMENSION(:), POINTER :: IAR1 INTEGER, DIMENSION(:), POINTER :: IAR2 END MODULE ARRAYS_MOD Действительно, работает! |