C 与 Fortran 间传递字符串数组

EnSafe

C 与 Fortran 间传递字符串数组
实例下载： ForString_20140322.rar (15.95 KB, 下载次数: 47439)

2014-3-22 08:34 上传

点击文件名下载附件

C 和 Fortran 之间字符串的传递可采用 CHARACTER 类， 参见：

https://envsafe.cn/bbs/forum.php?mod=viewthread&tid=265&extra=page%3D1

有时需要处理符串数组，例如化学反应组分名称就是字符串数组。

Fortran 处理字符串数组的方式和处理字符串的方式类似。在 Fortran 中，字符串数组在内存中的存放方式是第二个字符串紧接第一个字符串。在 Fortran 子程序中，应通过参数指明字符串的个数，或设定字符串的个数为常数。
延伸阅读：http://arnholm.org/software/cppf77/cppf77.htm

示例如下：

(1) Fortran 代码，分别向 Fortran 传入和取回字符串数组，通过参数指明字符串的个数
    SUBROUTINE SetCharacter2D(SpeciesNames, nSpecies)
        !DEC$ ATTRIBUTES Decorate,  Alias:'SetCharacter2D' :: SetCharacter2D   
        CHARACTER (LEN=*) :: SpeciesNames(nSpecies)
        INTEGER nSpecies, i
        WRITE(*,'(A)') 'Assigned in C, Printed in Fortran:'
        DO i=1, nSpecies
            WRITE(*,'(A16)') SpeciesNames(i)
        ENDDO
    END SUBROUTINE   

    SUBROUTINE GetCharacter2D(SpeciesNames, nSpecies)
        !DEC$ ATTRIBUTES Decorate,  Alias:'GetCharacter2D' :: GetCharacter2D   
        CHARACTER (LEN=*) :: SpeciesNames(nSpecies)
        INTEGER nSpecies, i
        DO i=1, nSpecies
        Write(SpeciesNames(i), '(A,I1)')  'H',i
        ENDDO
    END SUBROUTINE   

(2) C 代码

// 设置字符串数组
SUBROUTINE SetCharacter2D(CHARACTER SpeciesNames, INTEGER& nSpecies);
// 取回字符串数组
SUBROUTINE GetCharacter2D(CHARACTER SpeciesNames, INTEGER& nSpecies);


int main()
{
    int nSpecies = 2;
    int iStringLength = 17;

    // Buffer to store strings
    char *strSpecies1D = new char[nSpecies*iStringLength];

    // Class object
    CHARACTER strSpecies = CHARACTER(strSpecies1D, iStringLength);

    // Assign values to string array
    for (int i = 0; i < nSpecies; i++)
    {
        char strTemp[18];
        sprintf(strTemp, "H2O%d", i);
        strSpecies(i) = strTemp;
    }

    // Pass to Fortran
    SetCharacter2D(strSpecies, nSpecies);

    // Get from Fortran
    GetCharacter2D(strSpecies, nSpecies);

    // Retrive the strings
    char **strSpecies2D = new char*[nSpecies];

    printf("Assigned in Fortran, Printed in C");
    for (int i = 0; i < nSpecies; i++)
    {
        strSpecies2D = strSpecies(i);
        printf("%s\n", strSpecies2D);
    }

}