草庐IT

zdplaskinGetSpeciesName

全部标签

c++ - 将字符串从 Fortran 传递到 C/C++ 的正确方法

我想将字符串从Fortran传递到C/C++。这是我的Fortran代码:subroutinezdplaskinGetSpeciesName(cstring,index)bind(C,name='zdplaskinGetSpeciesName')useiso_c_bindinguseZDPlasKinimplicitnoneinteger,intent(in)::indexCHARACTER(10),TARGET::fstring=''TYPE(C_PTR)::cstringfstring=species_name(index+1)cstring=c_loc(fstring)endsu